home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 1: Collection A / 17Bit_Collection_A.iso / files / 35.dms / 35.adf / tom2.bas < prev    next >
Encoding:
BASIC Source File  |  1988-05-22  |  1.1 KB  |  33 lines
  1. 10    dim tom14%(4096),tom13%(2048),tom12%(1024),tom11%(512),tom10%(256)
  2. 20    dim note%(12)
  3. 30    open "i",#3,"tom.samples"
  4. 40    fs%=varptr(tomh%(0)):fl%=8:gosub 290
  5. 50    fs%=varptr(tom10%(0)):fl%=1024:gosub 290
  6. 60    fs%=varptr(tom11%(0)):fl%=2048:gosub 290
  7. 70    fs%=varptr(tom12%(0)):fl%=4096:gosub 290
  8. 80    fs%=varptr(tom13%(0)):fl%=8192:gosub 290
  9. 90    fs%=varptr(tom14%(0)):fl%=16384:gosub 290
  10. 100   close #3
  11. 110   per=240:for i=0to 11:note%(i)=per:per=per/2^(1/12):next
  12. 120   per%(1)=1000
  13. 130   period 1,per%
  14. 140   vol%(0)=0
  15. 150   volume 1,vol%
  16. 160   audio 15,1
  17. 170   ?"press keys to play"
  18. 180   getkey c$
  19. 190   key% = asc(c$)-65
  20. 200   on int(key%/12)+1 goto 220,230,240,250,260
  21. 210   goto 180
  22. 220   wave 16384,tom14%:per%(0)=400000:goto 270
  23. 230   wave 8192,tom13%:per%(0)=800000:goto 270
  24. 240   wave 4096,tom12%:per%(0)=1600000:goto 270
  25. 250   wave 2048,tom11%:per%(0)=3200000:goto 270
  26. 260   wave 1024,tom10%:per%(0)=6400000
  27. 270   chan%=sound(15,1,1,64,note%(key% mod 12))
  28. 280   goto 180
  29. 290   ?"loading"fl%"bytes...";
  30. 300   for fill%=fs% to fs%+fl%-1:get #3,a$:poke fill%,asc(a$):next
  31. 310   ?" done"
  32. 320   return
  33.