10 print"this program tests instrument load with KON"
20 out&hc6,5:out&hc7,3
30 'load instrument 0
40 out&h7e,32:out&h7f,&h0
41 out&h7e,&h38:out&h7f,&h50
50 out&h7e,8:out&h7f,&h0
51 out&h7e,&h50:out&h7f,&h01

52 out&h7e,&h68:out&h7f,&h80
60 fori=0to100:nexti
61 'reload instrument 0
70 out&h7e,32:out&h7f,&h0
71 out&h7e,8:out&h7f,&h0
90 fori=0to1000:nexti
100 out&h7e,&h68:out&h7f,0