Keithley 2010

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-488 output path.
OPEN "IEEE" FOR INPUT AS #2 ' Open IEEE-488 input path.
PRINT #1, "INTERM CRLF" ' Set input terminator.
PRINT #1, "OUTTERM LF" ' Set output terminator.
PRINT #1, "REMOTE 4 16" ' Put 2010, 5700A in remote.
PRINT #1, "CLEAR" ' Send DCL.
PRINT #1, "OUTPUT 16;:SYST:PRES;*CLS" ' Initialize 2010.
PRINT #1, "OUTPUT 16;*ESE 1;*SRE 32" ' Enable OPC and SRQ
PRINT #1, "OUTPUT 4;*RST;*CLS;STBY" ' Reset 5700A calibrator.
PRINT #1, "OUTPUT 4;CUR_POST NORMAL" ' Normal current output.
C$ = ":CAL:PROT:" ' 2010 partial command header.
'
CLS ' Clear CRT.
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" ' Initiate calibration.
GOSUB ErrCheck
RESTORE CmdList
'
FOR I = 1 TO 26 ' Loop for all cal points.
READ Msg$, Cmd$ ' Read message, cal strings.
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, 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)
C-4 Calibration Program