860Pl=VAL(Power$)

870Slope2=SGN(P2-PI)

880IF Slope2Slope THEN

890Flips=Flips+l

900Slopel=Slope

910ELSE

920IF Slope2=0 THEN Flips=Flips+.2

930END IF

940PO=Pl

950UNTIL Flips>=3

960Power=(PO+Pl)/2

970RETURN Power

980FNEND