A SERVICE OF

logo

860
Pl=VAL(Power$)
870
Slope2=SGN(P2-PI)
880
IF
Slope2Slope
THEN
890
Flips=Flips+l
900
Slopel=Slope
910
ELSE
920
IF
Slope2=0
THEN
Flips=Flips+.2
930
END IF
940
PO=Pl
950
UNTIL
Flips>=3
960
Power=(PO+Pl)/2
970
RETURN Power
980
FNEND