home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Hack-Phreak Scene Programs
/
cleanhpvac.zip
/
cleanhpvac
/
CASIOCOL.ZIP
/
KRILE1A.ZIP
/
SOURCE.ZIP
/
SIREN.ASI
< prev
next >
Wrap
Text File
|
1997-11-28
|
357b
|
29 lines
gosub siren:
end
siren:
rem muahahaha, Siren sounds :-)
siren=1
gosub siren_out:
siren=0
gosub siren_out:
siren=1
gosub siren_out:
siren=0
gosub siren_out:
return
siren_out:
rem if were to go up, set siren=1 else
rem set siren=0 to go down :)
for x=1 to 2000
if siren=1 then
z=x
else
z=2000
z=z-x
endif
sound z,1
next x
return