From 89b6b4ad24511f3c4e350165209790d384b0a791 Mon Sep 17 00:00:00 2001
From: Markus Birth <mbirth@gmail.com>
Date: Sun, 12 Sep 1993 09:17:02 +0200
Subject: [PATCH] Added Sirenen.

---
 WINDOWS/SIRENE1.SIR | 17 +++++++++++++++++
 WINDOWS/SIRENE2.SIR | 10 ++++++++++
 WINDOWS/SIRENE3.SIR | 17 +++++++++++++++++
 WINDOWS/SIRENE4.SIR | 10 ++++++++++
 WINDOWS/SIRENE5.SIR | 11 +++++++++++
 WINDOWS/SIRENE6.SIR | 10 ++++++++++
 WINDOWS/SIRENE7.SIR |  8 ++++++++
 WINDOWS/SIRENE8.SIR |  8 ++++++++
 8 files changed, 91 insertions(+)
 create mode 100644 WINDOWS/SIRENE1.SIR
 create mode 100644 WINDOWS/SIRENE2.SIR
 create mode 100644 WINDOWS/SIRENE3.SIR
 create mode 100644 WINDOWS/SIRENE4.SIR
 create mode 100644 WINDOWS/SIRENE5.SIR
 create mode 100644 WINDOWS/SIRENE6.SIR
 create mode 100644 WINDOWS/SIRENE7.SIR
 create mode 100644 WINDOWS/SIRENE8.SIR

diff --git a/WINDOWS/SIRENE1.SIR b/WINDOWS/SIRENE1.SIR
new file mode 100644
index 0000000..598dcef
--- /dev/null
+++ b/WINDOWS/SIRENE1.SIR
@@ -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
+
\ No newline at end of file
diff --git a/WINDOWS/SIRENE2.SIR b/WINDOWS/SIRENE2.SIR
new file mode 100644
index 0000000..9c4737f
--- /dev/null
+++ b/WINDOWS/SIRENE2.SIR
@@ -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
+
\ No newline at end of file
diff --git a/WINDOWS/SIRENE3.SIR b/WINDOWS/SIRENE3.SIR
new file mode 100644
index 0000000..823107b
--- /dev/null
+++ b/WINDOWS/SIRENE3.SIR
@@ -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
+
\ No newline at end of file
diff --git a/WINDOWS/SIRENE4.SIR b/WINDOWS/SIRENE4.SIR
new file mode 100644
index 0000000..d912e0a
--- /dev/null
+++ b/WINDOWS/SIRENE4.SIR
@@ -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
+
\ No newline at end of file
diff --git a/WINDOWS/SIRENE5.SIR b/WINDOWS/SIRENE5.SIR
new file mode 100644
index 0000000..8d33740
--- /dev/null
+++ b/WINDOWS/SIRENE5.SIR
@@ -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
+
\ No newline at end of file
diff --git a/WINDOWS/SIRENE6.SIR b/WINDOWS/SIRENE6.SIR
new file mode 100644
index 0000000..dddba08
--- /dev/null
+++ b/WINDOWS/SIRENE6.SIR
@@ -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
+
\ No newline at end of file
diff --git a/WINDOWS/SIRENE7.SIR b/WINDOWS/SIRENE7.SIR
new file mode 100644
index 0000000..1cccc6e
--- /dev/null
+++ b/WINDOWS/SIRENE7.SIR
@@ -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
+
\ No newline at end of file
diff --git a/WINDOWS/SIRENE8.SIR b/WINDOWS/SIRENE8.SIR
new file mode 100644
index 0000000..6fafdda
--- /dev/null
+++ b/WINDOWS/SIRENE8.SIR
@@ -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
+
\ No newline at end of file