Keithley 2015 - Page 152

C-4 Calibration Program
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 TO 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 AND I < 26 THEN GOSUB Settle
PRINT #1, "OUTPUT 16;"; C$; Cmd$; ";*OPC" ' Send cal command to 2015.
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
'