initial cammit
[qbasicapps.git] / tutorial / group1 / 06.bas
1 CLS\r
2 \r
3 1\r
4 \r
5 a = a + 1\r
6 PRINT "current:"; a\r
7 \r
8 IF a < 10 THEN GOTO 1\r
9 \r