From 36d04b2d00fd764e3e94d121a09b37b374de9866 Mon Sep 17 00:00:00 2001
From: Markus Birth <mbirth@gmail.com>
Date: Mon, 4 Apr 1994 06:37:24 +0200
Subject: [PATCH] Added Sirene 10 + menu.

---
 WINDOWS/SIRENE.WIN   | 33 +++++++++++++++++++++++++++++++++
 WINDOWS/SIRENE10.SIR |  8 ++++++++
 2 files changed, 41 insertions(+)
 create mode 100644 WINDOWS/SIRENE.WIN
 create mode 100644 WINDOWS/SIRENE10.SIR

diff --git a/WINDOWS/SIRENE.WIN b/WINDOWS/SIRENE.WIN
new file mode 100644
index 0000000..89d8fa2
--- /dev/null
+++ b/WINDOWS/SIRENE.WIN
@@ -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cken Sie die F2 Taste !!!"
+320 LOAD A$
+
\ No newline at end of file
diff --git a/WINDOWS/SIRENE10.SIR b/WINDOWS/SIRENE10.SIR
new file mode 100644
index 0000000..82c9450
--- /dev/null
+++ b/WINDOWS/SIRENE10.SIR
@@ -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
+
\ No newline at end of file