10 'Drum ROM instrument test program
11 i=0
20 screen,,0:out&hc6,5:out&hc7,3
30 out&h7e,&h20+i:out&h7f,&hf4:'FNUM
40 out&h7e,&h08+i:out&h7f,&hd1:'Instr num
50 a=inp(&hc4):if (a and 2)<>0 then 50:'loading instrument
60 out&h7e,&h38+i:out&h7f,&hf6:'Oct/FNUM
70 out&h7e,&h50+i:out&h7f,&h01:'LD=1, TL=0
80 out&h7e,&h80+i:out&h7f,&h00:'LFO/VIB
90 out&h7e,&h98+i:out&h7f,&hf5:'AR=15. D1R=5
100 out&h7e,&hb0+i:out&h7f,&hf2:'DL=15, D2R=2
110 out&h7e,&hc8+i:out&h7f,&h06:'RCR=0;RR=6
120 out&h7e,&he0+i:out&h7f,&h00:'AM=0
130 out&h7e,&h68+i:out&h7f,&h81
140 forj=0to20:nextj
150 a$=input$(1):out&h7e,&h68+i:out&h7f,1:forj=0to20:nextj:goto130