collapseos/emul/cfsin/count.bas

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