10 A=ADC4
20 Y=A / 64
30 SCROLL 1,0
40 PSET 121,Y,1
90 GOTO 10
