HP 8360 B Series - Page 133

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