SUB MAIN
  DIM I AS INTEGER
  I=1
  REPEAT
    PRINT I
    I=I+1
  UNTIL I=10
  PRINT "Finished"
END SUB