Keithley 2010 Service Manual page 128

C-4 Calibration Program
Program C-1. QBasic calibration program
' Model 2010 calibration program for use with the Fluke 5700A calibrator.
' Rev. 1.0, 9/11/95
OPEN "IEEE" FOR OUTPUT AS #1
OPEN "IEEE" FOR INPUT AS #2
PRINT #1, "INTERM CRLF"
PRINT #1, "OUTTERM LF"
PRINT #1, "REMOTE 4 16"
PRINT #1, "CLEAR"
PRINT #1, "OUTPUT 16;:SYST:PRES;*CLS"
PRINT #1, "OUTPUT 16;*ESE 1;*SRE 32"
PRINT #1, "OUTPUT 4;*RST;*CLS;STBY"
PRINT #1, "OUTPUT 4;CUR_POST NORMAL"
C$ = ":CAL:PROT:"
'
CLS
PRINT "Model 2010 Multimeter Comprehensive Calibration Program"
PRINT #1, "OUTPUT 16;:CAL:PROT:CODE 'KI002010'" ' Send KI002010 cal code.
PRINT #1, "OUTPUT 16;:CAL:PROT:INIT"
GOSUB ErrCheck
RESTORE CmdList
'
FOR I = 1 TO 26
READ Msg$, Cmd$
SELECT CASE I
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, 12, 13, 15 TO 23, 25, 26
PRINT #1, "OUTPUT 4;"; Msg$
PRINT #1, "OUTPUT 4;OPER"
CASE 6 TO 10
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)
' Open IEEE-488 output path.
' Open IEEE-488 input path.
' Set input terminator.
' Set output terminator.
' Put 2010, 5700A in remote.
' Send DCL.
' Initialize 2010.
' Enable OPC and SRQ
' Reset 5700A calibrator.
' Normal current output.
' 2010 partial command header.
' Clear CRT.
' Initiate calibration.
' Loop for all cal points.
' Read message, cal strings.
' Select cal sequence.