SUB MAIN
  DIM I AS INTEGER
  I=1
  WHILE I<10
    PRINT I
    I=I+1
  END WHILE
  PRINT "Finished"
END SUB