10 A=ADC4
20 Y=A / 64
30 SCROLL 1,0
40 PSET 121,Y,1
50 IF A<700 THEN
60 PWM 0,-1,200
70 PWM 1,-3,200
80 ELSE
90 PWM 0,-3,200
100 PWM 1,-1,200
110 ENDIF
120 GOTO 10
