home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Crawly Crypt Collection 1
/
crawlyvol1.bin
/
telecomm
/
storm100
/
sounds.bas
< prev
next >
Wrap
BASIC Source File
|
1993-11-03
|
318b
|
18 lines
READ n
WHILE n
a$ = ""
FOR x = 1 TO n:READ v:a$ = a$ + CHR$(v):NEXT x
PLAY a$
PAUSE 3
READ n
WEND
END
REM gunshot
DATA 16,6,15,7,7,8,16,9,16,10,16,12,16,13,0,255,0
REM explosion
DATA 16,6,0,7,7,8,16,9,16,10,16,12,56,13,0,255,0
REM whistling bomb
DATA 14,7,62,8,15,128,48,129,0,1,254,8,0,255,0
DATA 0