home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C++ Games Programming
/
CPPGAMES.ISO
/
fgl
/
fglight
/
exbas.arj
/
TEMP
/
15-01.BAS
< prev
next >
Wrap
BASIC Source File
|
1995-01-20
|
421b
|
30 lines
REM $INCLUDE: 'fastgraf.bi'
DEFINT A-Z
PRINT "20 Hz tone..."
FGsound 20, 3
FGwaitfor 18
PRINT "100 Hz tone..."
FGsound 100, 3
FGwaitfor 18
PRINT "1000 Hz tone..."
FGsound 1000, 3
FGwaitfor 18
PRINT "warble..."
FGsound 400, 1
FGsound 410, 1
FGsound 400, 1
FGsound 410, 1
FGwaitfor 18
PRINT "sliding tone from 100 to 500 Hz..."
FOR Freq = 100 TO 500 STEP 10
FGsound Freq, 2
NEXT
END