HP 8360 User Handbook Manual page 129

360 OUTPUT @Source; Freq; "GHZ, 0 DB,";
370 Freq=Freq+Increment
380 END WHILE
390 OUTPUT @Source; Freq; "GHZ, 0 DB;"
400 OUTPUT @Source; "POWer:STATe ON"
410
420
430 OUTPUT @Source; "CALibration:PMETer:FLATness:INITiate?
440 ENTER @Source; Freq
450 WHILE Freq>O
460
OUTPUT @Source; "CALibration:PMETer:FLATness:NEXT?";
470
480 ENTER @Source; Freq
490 END WHILE
500 END IF
510 END
520
530 SUB Zero-meter (@Meter, INTEGER Error-flag)
540 OUTPUT @Meter; "CS"
550 OUTPUT OMeter; "ZE"
560
570
580
600 WHILE Zeroing AND NOT Finished
610 Attempts=Attempts+l
620 Meter-stat=SPOLL (@Meter)
630 IF Attempts>Max-Attempts
640 IF BIT (Meter-stat,11 THEN Finished=1
650 WAIT 1
660
END WHILE
670 IF NOT Zeroing THEN
680
690 ELSE
700
710
END IF
720
730
740 DEF FNRead,meter(OMeter, Freq)
750 OUTPUT @Meter; "SEOEN"
760
770 OUTPUT @Meter; "FR"&Freq$&"GZ"
OUTPUT QMeter; "TR2"
780
790 ENTER @Meter; Power$
800
810
820
830 REPEAT
840 OUTPUT @Meter; "TR2"
850 ENTER QMeter; Power$
THEN Zeroing=0
measurement routine
s e t t l e ; d e t e r m i n e p o w e r
Getting Started Programming 1-99
USER"
P o w e r ; "DBM"