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