Agilent Technologies 4294A Programming Manual page 62

Preparing For Accurate Measurement
User Calibration
560 ! User Calibration Data Measurement Function
570 !
580 DEF FNUser_cal(@Hp4294a,INTEGER Scode,Standard$)
590 DIM Inp_char$[9],Err_mes$[50]
600 INTEGER Err_no
610 OUTPUT @Hp4294a;"*CLS"
620 PRINT "Set "&Standard$&"-Connection"
630 INPUT "OK? [Y/N]",Inp_char$
640 IF UPC$(Inp_char$)="Y" THEN
650 ON INTR Scode GOTO Meas_end
660 ENABLE INTR Scode;2
670 SELECT Standard$
680 CASE "Open"
690 OUTPUT @Hp4294a;"CALA"
700 CASE "Short"
710 OUTPUT @Hp4294a;"CALB"
720 CASE "Load"
730 OUTPUT @Hp4294a;"CALC"
740 END SELECT
750 PRINT "Now measuring..."
760 Meas_wait: GOTO Meas_wait
770 Meas_end: !
780 OUTPUT @Hp4294a;"OUTPERRO?"
790 ENTER @Hp4294a;Err_no,Err_mes$
800 IF Err_no=0 THEN
810 PRINT Standard$&" Data Measurement Complete"
820 RETURN 0
830 ELSE
840 PRINT "Error: "&Err_mes$
850 PRINT "Program Interruption"
860 OUTPUT @Hp4294a;"CALQUI"
870 RETURN -1
880 END IF
890 ELSE
900 PRINT "Program Interruption"
910 OUTPUT @Hp4294a;"CALQUI"
920 RETURN -1
930 END IF
940 FNEND
950 !
960 ! Data Input Function
970 !
980 SUB Inp_data(Mes$,Inp_val)
990 DIM Inp_char$[30]
1000 ON ERROR GOTO Inp_start
1010 Inp_start:!
1020 PRINT "Input "&Mes$
1030 INPUT "Value?",Inp_char$
1040 Inp_val=VAL(UPC$(Inp_char$))
1050 PRINT "Input value: ";Inp_val
1060 INPUT "OK? [Y/N]",Inp_char$
1070 IF UPC$(Inp_char$)<>"Y" THEN Inp_start
1080 OFF ERROR
1090 SUBEND
62 Chapter 4