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