Added Sirenen.

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
+

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
+

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
+

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
+

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
+

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
+

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
+

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
+