HP 8360 - Page 130

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