home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 1: Collection A / 17Bit_Collection_A.iso / files / 37.dms / 37.adf / wave.bas < prev    next >
BASIC Source File  |  1988-05-22  |  536b  |  14 lines
  1. 10    DIM SINEWAV%(20), PITCH%(10), LOUD%(10)
  2. 20    FOR I=0 TO 15: READ SINEWAV%(I): NEXT I
  3. 30    FOR K=0 TO 7: READ PITCH%(K): NEXT K
  4. 40    FOR K=0 TO 5: READ LOUDNESS%(K): NEXT K
  5. 100   WAVE 8, SINEWAV%()
  6. 110   PERIOD 4, PITCH%()
  7. 120   VOLUME 1, LOUDNESS%()
  8. 130   X% = SOUND(9, 0,0 , 32, 240)
  9. 140   AUDIO 9, 1: REM- TURN IT ON
  10. 150   GET A$: IF A$ <> "" THEN AUDIO 9,-1
  11. 200   DATA 0,34,64,94,100,94,64,34,0,-34,-64,-94,-100,-94,-64,-34
  12. 210   DATA 100000,250,-100000,240,-100000,230,100000,240
  13. 220   DATA 300000,32,-100000,26,-200000,12
  14.