sr=44100
ksmps=20
nchnls=2
gifn ftgen 105, 0, 524288, -1, "8.05.wav", 0, 0, 1 ; Middle C
gifn ftgen 106, 0, 524288, -1, "8.06.wav", 0, 0, 1 ; Middle C
gifn ftgen 107, 0, 524288, -1, "8.07.wav", 0, 0, 1 ; Middle C
gifn ftgen 108, 0, 524288, -1, "8.08.wav", 0, 0, 1 ; Middle C
gifn ftgen 109, 0, 524288, -1, "8.09.wav", 0, 0, 1 ; Middle C
gifn ftgen 110, 0, 524288, -1, "8.10.wav", 0, 0, 1 ; Middle C
gifn ftgen 111, 0, 524288, -1, "8.18.wav", 0, 0, 1 ; Middle C
instr 1
; if p5=8.05 then
; asig diskin "8.05.wav"
; elseif p5=8.06 then
; asig diskin "8.06.wav"
; elseif p5=8.07 then
; asig diskin "8.07.wav"
; elseif p5=8.08 then
; asig diskin "8.08.wav"
; elseif p5=8.09 then
; asig diskin "8.09.wav"
; elseif p5=8.11 then
; asig diskin "8.10.wav"
; elseif p5=8.11 then
; asig diskin "8.18.wav"
; endif
inum = p5*100
asig loscil 1, 1, inum, 1
outs asig, asig
endin