mbirth/gwbasic
1
0
Fork 0
mirror of https://github.com/mbirth/gwbasic.git synced 2024-12-26 12:34:08 +00:00
Code Issues Releases Wiki Activity

Added Sirenen.

Browse Source
This commit is contained in:
Markus Birth 1993-09-12 09:17:02 +02:00
parent ca57ab53ed
commit 89b6b4ad24
Signed by: mbirth
GPG Key ID: A9928D7A098C3A9A
8 changed files with 91 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
WINDOWS/SIRENE1.SIR Normal file
View File

@ -0,0 +1,17 @@
10 CLS
20 A=400
30 A=A+5
40 SOUND A,1
50 IF A=1000 THEN 70
60 GOTO 30
70 A=1000
80 A=A-5
90 SOUND A,1
100 IF A=400 THEN 20
110 A$=INKEY$:IF A$=" " THEN 130
120 GOTO 80
130 A=A-5
140 SOUND A,1
150 IF A=40 THEN CLS:LOAD"SIRENE.WIN"
160 GOTO 130


10
WINDOWS/SIRENE2.SIR Normal file
View File

@ -0,0 +1,10 @@
10 CLS
20 SOUND 500,5
30 COLOR ,1
40 CLS
50 SOUND 700,5
60 COLOR ,4
70 CLS
80 A$=INKEY$:IF A$=" " THEN COLOR 15,0,0:CLS:LOAD"SIRENE.WIN"
90 GOTO 20


17
WINDOWS/SIRENE3.SIR Normal file
View File

@ -0,0 +1,17 @@
10 CLS
20 A=400
30 A=A+5
40 SOUND A,.06
50 IF A=700 THEN 70
60 GOTO 30
70 A=700
80 A=A-5
90 SOUND A,.06
100 IF A=400 THEN 20
110 A$=INKEY$:IF A$=" " THEN 130
120 GOTO 80
130 A=A-5
140 SOUND A,.06
150 IF A=40 THEN CLS:LOAD"SIRENE.WIN"
160 GOTO 130


10
WINDOWS/SIRENE4.SIR Normal file
View File

@ -0,0 +1,10 @@
10 CLS
20 A=100
30 A=A+5
40 SOUND A,.1
50 A$=INKEY$:IF A$=" " THEN CLS:LOAD"SIRENE.WIN"
60 IF A=1000 THEN 80
70 GOTO 30
80 FOR Z=0 TO 10000:NEXT
90 GOTO 10


11
WINDOWS/SIRENE5.SIR Normal file
View File

@ -0,0 +1,11 @@
10 CLS
20 A=40
30 A=A+5
40 SOUND A,.1
50 A$=INKEY$:IF A$=" " THEN LOAD"SIRENE.WIN"
60 IF A=1025 THEN 80
70 GOTO 30
80 FOR Z=0 TO 10000:NEXT
90 BEEP
100 GOTO 10


10
WINDOWS/SIRENE6.SIR Normal file
View File

@ -0,0 +1,10 @@
10 CLS
20 A=100
30 A=A+7.5
40 SOUND A,.1
50 A$=INKEY$:IF A$=" " THEN LOAD"SIRENE.WIN"
60 IF A=1000 THEN 80
70 GOTO 30
80 FOR Z=0 TO 5000:NEXT
90 GOTO 10


8
WINDOWS/SIRENE7.SIR Normal file
View File

@ -0,0 +1,8 @@
10 CLS
20 A=500
30 A=A+17
40 SOUND A,.1
50 IF INKEY$=" " THEN LOAD"sirene.win"
60 IF A>900 THEN 20
70 GOTO 30


8
WINDOWS/SIRENE8.SIR Normal file
View File

@ -0,0 +1,8 @@
10 CLS
20 A=1000
30 A=A+17
40 SOUND A,.1
50 IF INKEY$=" " THEN LOAD"sirene.win"
60 IF A>1400 THEN 20
70 GOTO 30