home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 1: Collection A / 17Bit_Collection_A.iso / files / 36.dms / 36.adf / SOUND.TST < prev    next >
Text File  |  1988-05-22  |  487b  |  15 lines

  1. 10    DIM S%(20), P%(10), L%(10)
  2. 20    FOR I = 0 TO 15: READ S%(I): NEXT I
  3. 30    FOR K=0 TO 7: READ P%(K): NEXT K
  4. 40    FOR K=0 TO 5: READ L%(K): NEXT K
  5. 100   WAVE 8, S%()
  6. 110   PERIOD 4, P%()
  7. 120   VOLUME 3, L%()
  8. 130   X% = SOUND(9,0,0,32,240)
  9. 140   AUDIO 9,1
  10. 150   GET A$: IF A$<>"" THEN AUDIO 9,-1: END
  11. 160   GOTO 150
  12. 200   DATA 0,-100,-94,,34,64,94,100,94,64,34,0,-34,-64,-94,-64,-34
  13. 210   DATA 100000,250,-100000,240,-100000,230,100000,240
  14. 220   DATA 300000,32,-100000,26,-20000,12
  15.