Merge branch 'master' of ssh://svjatoslav.eu:10006/home/n0/git/qbasicapps
[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