C-4 Calibration Program
SELECT CASE I ' Select cal sequence.
CASE 1, 2
PRINT Msg$
GOSUB KeyCheck
CASE 3
PRINT "Connect calibrator to INPUT and SENSE jacks."
PRINT "Wait 3 minutes."
GOSUB KeyCheck
PRINT #1, "OUTPUT 4;EXTSENSE OFF"
PRINT #1, "OUTPUT 4;"; Msg$
PRINT #1, "OUTPUT 4;OPER"
CASE 4, 5, 11, 12, 14 TO 22, 24, 25
PRINT #1, "OUTPUT 4;"; Msg$
PRINT #1, "OUTPUT 4;OPER"
CASE 6 TO 9
PRINT #1, "OUTPUT 4;"; Msg$
PRINT #1, "OUTPUT 4;EXTSENSE ON"
PRINT #1, "OUTPUT 4;OPER"
PRINT #1, "OUTPUT 4;OUT?"
PRINT #1, "ENTER 4"
INPUT #2, R, R$, s
Cmd$ = Cmd$ + " " + STR$(R)
CASE 10, 13, 23
J$ = "AMPS"
IF I = 13 THEN J$ = "INPUT HI"
PRINT #1, "OUTPUT 4;STBY"
PRINT "Connect calibrator to "; J$; " and INPUT LO jacks."
GOSUB KeyCheck
PRINT #1, "OUTPUT 4;"; Msg$
PRINT #1, "OUTPUT 4;OPER"
END SELECT
IF I > 2 THEN GOSUB Settle
PRINT #1, "OUTPUT 16;"; C$; Cmd$; ";*OPC" ' Send cal command to 2700.
GOSUB CalEnd ' Wait until cal step ends.
GOSUB ErrCheck ' Check for cal error.
NEXT I
'
PRINT #1, "OUTPUT 4;STBY"
LINE INPUT "Enter calibration date (yyyy,mm,dd): "; D$
PRINT #1, "OUTPUT 16;:CAL:PROT:DATE"; D$
GOSUB ErrCheck
LINE INPUT "Enter calibration due date (yyyy,mm,dd): "; D$
PRINT #1, "OUTPUT 16;:CAL:PROT:NDUE"; D$
GOSUB ErrCheck
PRINT #1, "OUTPUT 16;:CAL:PROT:SAVE" ' Save calibration constants.
GOSUB ErrCheck
PRINT #1, "OUTPUT 16;:CAL:PROT:LOCK" ' Lock out calibration.
PRINT "Calibration completed."
PRINT #1, "OUTPUT 16;:SYST:PRES"
END
'
Appendix C Page 4 Friday, February 18, 2000 7:45 AM