10 'bass drum check
20 restore:for i=0 to 7:read a:out&h7c,i:out&h7d,a:nexti
30 out&h7c,&h30:out&h7d,0:out&h7c,&h20:out&h7d,5:out&h7d,&h15
40 for i=0 to 1000:nexti:out&h7f,&h5:stop
100 data 1,1,&h16,0,&hfd,&hf8,&h2f,&h6d