1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-07-24 02:50:19 +10:00
collapseos/tools/emul/cfsin/count.bas
2019-11-24 14:26:32 -05:00

6 lines
69 B
QBasic

10 print "Count to 10"
20 a=0
30 a=a+1
40 print a
50 if a<10 goto 30