initial cammit
[qbasicapps.git] / tutorial / group1 / 12.bas
1 CLS\r
2 \r
3 FOR a = 1 TO 15\r
4   COLOR a\r
5   PRINT "This is a test"\r
6 NEXT a\r
7 \r
8 PRINT\r
9 \r
10 FOR a = 1 TO 15\r
11   COLOR a\r
12   PRINT "This is a test";       ' << semicolon at the end prevents cursor\r
13                                 ' from starting new line\r
14 NEXT a\r
15 \r