39b2c4ec233b0bd5d11e4e0a988e466802148c31
[qbasicapps.git] / tutorial / group2 / 02.bas
1 1\r
2 s = s + 1       ' speed\r
3 PRINT s; "x"\r
4 \r
5 FOR a = 100 TO 1000 STEP s\r
6   SOUND a, .1\r
7 NEXT a\r
8 \r
9 FOR a = 1000 TO 100 STEP -s\r
10   SOUND a, .1\r
11 NEXT a\r
12 \r
13 GOTO 1\r
14 \r