projects
/
qbasicapps.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
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