HP 83751A Programming Manual page 86

Getting Started Programming
Programming Typical Measurements
640
650
660 WHILE Zeroing AND NOT Finished
Attempts=Attempts+l
670
680
IF Attrmpts>Max-attempts THEN Zeroing=0
690
IF BIT(Meter-stat,l) THEN Finished=1
700
WAIT 1
710
720 END WHILE
OUTPUT QSource;"Pow:stat on"
730
IF NOT Zeroing THEN
740
750
760 ELSE
770
780 END IF
790
I
800
810 DEF FNRead-meter(QMeter,Freq)
OUTPUT @Meter;"SEOEN"
820
830
OUTPUT OMeter;"FR"&Freq$&"GZ"i
840
OUTPUT QMeter"'TR2"
850
ENTER @Meter;Power$
860
870
880
890
900 REPEAT
OUTPUT OMeter;"TR2"
910
ENTER QMeter;Power$
920
930
940
IF Slope2Slope THEN
950
960
970
980 ELSE
IF Slope2=0 THEN Flips=Flips+.2
990
1000 END IF