home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PROG_BAS / DNALIB59.ZIP / NOISE.BAS < prev    next >
BASIC Source File  |  1993-09-18  |  822b  |  46 lines
  1. SUB Noise(Which%) PUBLIC
  2.     SELECT CASE Which%
  3.         CASE 1
  4.           FOR i% = 1000 TO 10000 STEP 1000
  5.             SOUND i%,.5
  6.           NEXT i%
  7.           DO
  8.             SOUND i%,.3
  9.             DECR i%,1000
  10.           LOOP UNTIL i% = 1000
  11.         CASE 2
  12.           FOR i% = 1 TO 10
  13.             FOR j% = 1500 TO 3000 STEP 100
  14.               SOUND j%,.2
  15.             NEXT j%
  16.           NEXT i%
  17.         CASE 3
  18.           FOR i% = 1 TO 10
  19.             j% = 2000
  20.             DO
  21.               SOUND j%,.25
  22.               DECR j%,150
  23.             LOOP UNTIL j% = 350
  24.           NEXT i%
  25.         CASE 4
  26.           FOR i% = 37 TO 3700 STEP 370
  27.             SOUND i%,.0015
  28.           NEXT i%
  29.         CASE 5
  30.           FOR i% = 1 TO 2
  31.             FOR j% = 1 TO 2
  32.               FOR k% = 1 TO 20
  33.             SOUND 400,.1
  34.             SOUND 500,.4
  35.               NEXT k%
  36.               DELAY .65
  37.             NEXT j%
  38.             DELAY 1
  39.           NEXT i%
  40.         CASE 6
  41.           FOR i% = 37 TO 100
  42.             SOUND i%,.05
  43.           NEXT i%
  44.     END SELECT
  45. END SUB
  46.