10 X = 125
20 CLS
30 K=INKEY()
40 IF K=28 THEN X=X-10
50 IF K=29 THEN X=X+10
60 PWM2, X
70 WAIT30
80 GOTO30