870
880
890
900
REPEAT
910
OUTPUT OMeter*"TR2"
920
ENTER BMeter;bower$
930
940
950
IF Slope2Slope THEN
960
970
980
ELSE
990
IF Slope2=0 THEN Flips=Flips+.2
1000
END IF
1010
1020
UNTIL Flips>=3
1030
1040
RETURN Power
1050 FNEND
Getting Started Programming l- 105