for b0 = 1 to 255 read b0,b1 sertxd (#b0,9, #b1,13,10) tune 0,0,(b1) next wait 10 for b0 = 1 to 255 readadc 1,b1 debug sertxd (#b0, 9, #b1, 13,10) write b0, b1 tune 0,0, (b0) wait 1 next