Agilent Technologies E5071C Manual page 952

Programming
990 PRINT "Port("&VAL$(I)&"):";
1000 Port_select:!
1010 INPUT "Number?",Inp_char$
1020 Port(I)=IVAL(Inp_char$,10)
1030 IF Port(I)<1 OR Port(I)>4 THEN Port_select
1040 FOR J=1 TO I-1
1050 IF Port(I)=Port(J) THEN Port_select
1060 NEXT J
1070 PRINT Port(I)
1080 NEXT I
1090 OFF ERROR
1100 END IF
1110 SUBEND
1120 !=============================================
1130 ! Response (Open/Short) Calibration Function
1140 !=============================================
1150 SUB Cal_resp(@Agte507x,Ch$,Type$,INTEGER Port)
1160 DIM Buff$[9]
1170 !
1180 PRINT "## Response ("&Type$&") Calibration ##"
1190 OUTPUT @Agte507x;":SENS"&Ch$&":CORR:COLL:METH:"&Type$&" ";Port
1200 PRINT "Set "&Type$&" to Port "&VAL$(Port)&". Then push [Enter] key."
1210 INPUT "",Buff$
1220 OUTPUT @Agte507x;":SENS"&Ch$&":CORR:COLL:"&Type$&" ";Port
1230 OUTPUT @Agte507x;"*OPC?"
1240 ENTER @Agte507x;Buff$
1250 OUTPUT @Agte507x;":SENS"&Ch$&":CORR:COLL:SAVE"
1260 PRINT "Done"
1270 SUBEND
1280 !=============================================
1290 ! Response (Thru) Calibration Function
1300 !=============================================
1310 SUB Cal_resp_thru(@Agte507x,Ch$,INTEGER Port1,Port2)
1320 DIM Buff$[9]
1330 !
1340 PRINT "## Response (Thru) Calibration ##"
1350 OUTPUT @Agte507x;":SENS"&Ch$&":CORR:COLL:METH:THRU ";Port1;","; Port2
1179