Agilent Technologies E5071C Manual page 966

Programming
530 ! Performing power calibration measurement
540 !
550 OUTPUT @Agte507x;":SOUR1:POW:PORT1:CORR:COLL:AVER ";Num_avg
560 OUTPUT @Agte507x;":SOUR1:POW:PORT1:CORR:COLL ASEN"
570 OUTPUT @Agte507x;"*OPC?"
580 ENTER @Agte507x;Buff$
590 !
600 ! Error hnadling at power meter measurement
610 !
620 OUTPUT @Agte507x;":SYST:ERR?"
630 ENTER @Agte507x;Err_no,Err_mes$
640 !
650 IF Err_no=0 THEN
660 REDIM Corr_data(1:Nop)
670 OUTPUT @Agte507x;":FORM:DATA ASC"
680 OUTPUT @Agte507x;":SOUR1:POW:PORT1:CORR:DATA?"
690 ENTER @Agte507x;Corr_data(*)
700 Verifier=FNLim(@Agte507x,Nop,Limit,Corr_data(*))
710 IF Verifier=-1 THEN
720 PRINT "Do you perform the power meter calibration measurement again?"
730 PRINT
740 INPUT "[Y/N]",Inp_char$
750 IF UPC$(Inp_char$)="Y" THEN GOTO Meas_start
760 IF UPC$(Inp_char$)<>"Y" THEN GOTO Prog_stop
770 END IF
780 PRINT "Power meter calibration measurement is complete."
790 PRINT
800 ELSE
810 PRINT "Error: "&Err_mes$
820 PRINT
830 PRINT "Do you perform the power meter calibration measurement again?"
840 PRINT
850 INPUT "[Y/N]",Inp_char$
860 IF UPC$(Inp_char$)="Y" THEN GOTO Meas_start
870 IF UPC$(Inp_char$)<>"Y" THEN GOTO Prog_stop
880 END IF
890 !
1193