mbirth/gwbasic
1
0
Fork 0
mirror of https://github.com/mbirth/gwbasic.git synced 2024-09-19 16:53:26 +01:00
Code Issues Releases Wiki Activity

Added Sirene 10 + menu.

Browse Source
This commit is contained in:
Markus Birth 1994-04-04 06:37:24 +02:00
parent 953d1e7fa0
commit 36d04b2d00
Signed by: mbirth
GPG Key ID: A9928D7A098C3A9A
2 changed files with 41 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
WINDOWS/SIRENE.WIN Normal file
View File

@ -0,0 +1,33 @@
10 COLOR 15,0,0
20 CLS
30 PRINT"Welche Sirene m”chten Sie h”ren ???"
40 PRINT
50 PRINT"01 = Police"
60 PRINT"02 = Ambulance"
70 PRINT"03 = Fire Engine"
80 PRINT"04 = Raumschiff Enterprise"
90 PRINT"05 = Alert ";:COLOR 28:PRINT"RED":COLOR 15
100 PRINT"06 = Raumschiff Enterprise II"
110 PRINT"07 = AIRWOLF Feuerbereitschaft"
120 PRINT"08 = AIRWOLF Feuerbereitschaft II"
130 PRINT"09 = Autoalarm"
140 PRINT"10 = Autoalarm II"
150 PRINT"11 = EXIT"
160 PRINT
170 FILES "*.sir"
180 PRINT
190 INPUT"Bitte w„hlen Sie hier --> --> --> ",A
200 IF A=1 THEN A$="sirene1.sir"
210 IF A=2 THEN A$="sirene2.sir"
220 IF A=3 THEN A$="sirene3.sir"
230 IF A=4 THEN A$="sirene4.sir"
240 IF A=5 THEN A$="sirene5.sir"
250 IF A=6 THEN A$="sirene6.sir"
260 IF A=7 THEN A$="sirene7.sir"
270 IF A=8 THEN A$="sirene8.sir"
280 IF A=9 THEN A$="sirene9.sir"
290 IF A=10 THEN A$="sirene10.sir"
300 IF A=11 THEN A$="windows.bas"
310 PRINT"Bitte dr<64>cken Sie die F2 Taste !!!"
320 LOAD A$


8
WINDOWS/SIRENE10.SIR Normal file
View File

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