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