Keithley 2400

Calibration Programs C-7
PRINT : PRINT "Model 2400 Current Calibration Constants:": PRINT
DO ' Loop for all current ranges.
PRINT #1, "OUTPUT 24;:SOUR:CURR:RANGE ";Range
PRINT #1, "OUTPUT 24;:CAL:PROT:SENS:DATA?"
PRINT #1, "ENTER 24"
LINE INPUT #2, Data$
PRINT Data$
PRINT #1, "OUTPUT 24;:CAL:PROT:SOUR:DATA?"
PRINT #1, "ENTER 24"
LINE INPUT #2, Data$
PRINT DATA$
Range = Range * 10
LOOP WHILE Range <= 1
PRINT #1, "OUTPUT 24;:CAL:PROT:LOCK" ' Lock out calibration.
PRINT #1, "OUTPUT 24;*RST"
PRINT #1, "LOCAL 24"
END