mirror of
https://github.com/mbirth/gwbasic.git
synced 2024-12-25 12:04:08 +00:00
Added Sirenen.
This commit is contained in:
parent
ca57ab53ed
commit
89b6b4ad24
17
WINDOWS/SIRENE1.SIR
Normal file
17
WINDOWS/SIRENE1.SIR
Normal 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
10
WINDOWS/SIRENE2.SIR
Normal 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
17
WINDOWS/SIRENE3.SIR
Normal 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
10
WINDOWS/SIRENE4.SIR
Normal 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
11
WINDOWS/SIRENE5.SIR
Normal 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
10
WINDOWS/SIRENE6.SIR
Normal 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
8
WINDOWS/SIRENE7.SIR
Normal 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
8
WINDOWS/SIRENE8.SIR
Normal 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
|
||||
|
Loading…
Reference in New Issue
Block a user