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