do moi: if pin3 = 0 then moi tune 2,3,($66,$27,$69,$2A,$66,$67,$69,$6A,$43,$42,$67,$6A,$42,$C1,$40,$6A,$67,$65,$27,$47,$45,$42,$40,$6A,$67,$41,$40,$41,$40,$41,$40,$41,$40,$6A,$67,$65,$67,$27) let pin4 = 0 for b0 = 1 to 25 readadc 1, b1 b2=b1/2 sound 2,(b2,25) next loop