FORK 1 *disp END *disp dd=0 M=400 SET_AD AD7890_10 SET_AD 40 FORMAT "S000" DO t=AD(1,0) : t2=AD(1,2) d=(M-t)*2 : IF d>35 THEN : d=25 : END_IF IF d<0 THEN : d=0 : END_IF PWM 0 d a$=STR$(t) b$=STR$(t2) c$=a$+b$ IF dd%10==0 THEN PR_LCD c$ END_IF INC dd TIME 100 LOOP |