projects
/
qbasicapps.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
08a00a878020503b912f23f0eb00f2728491350d
[qbasicapps.git]
/
sound
/
siren2.bas
1
DEFINT A-Z
\r
2
1
\r
3
FOR a = 100 TO 1000 STEP 3
\r
4
SOUND a, .05
\r
5
SOUND 5000 - (a * 2), .1
\r
6
NEXT a
\r
7
FOR a = 1000 TO 100 STEP -5
\r
8
SOUND a, .05
\r
9
SOUND a * 3 + 10, .05
\r
10
NEXT a
\r
11
GOTO 1
\r
12
\r