home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
basic
/
compiler
/
apbasic
/
siren.bas
< prev
next >
Wrap
BASIC Source File
|
1991-01-23
|
284b
|
20 lines
' This program makes the sound of a siren until
' any key is pressed.
'
DefInt A-Z
$include "sound.inc"
Sub DoSiren
For Freq=500 to 2000 step 25
sound Freq,1
Next
For Freq=2000 to 500 Step -25
sound Freq,1
Next
End Sub
Do
DoSiren
Loop until Len(Inkey$)