mobilebasic/Examples/Core/while.bas

9 lines
No EOL
107 B
QBasic

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