Keithley 2182 Service Manual page 114

ErrCheck:
PRINT #1, "OUTPUT 7;:SYST:ERR?"
PRINT #1, "ENTER 7"
INPUT #2, E, Err$
IF E <> 0 THEN BEEP: PRINT Err$: GOTO ErrCheck
RETURN
'
Settle:
DO: PRINT #1, "OUTPUT 4;ISR?"
PRINT #1, "ENTER 4"
INPUT #2, S
LOOP UNTIL (S AND &H1000)
RETURN
'
EndProg:
BEEP: PRINT "Calibration aborted."
PRINT #1, "OUTPUT 4;STBY"
PRINT #1, "OUTPUT 7;:SYST:PRES"
PRINT #1, "LOCAL 4 7"
CLOSE
END
'
CmdList:
DATA "Connect low-thermal short to input jack, wait 3 minutes.","STEP1"
DATA "Disconnect low-thermal short from input jack.","STEP2"
DATA "OUT 10 V,0 HZ","STEP3 10"
DATA "OUT -10 V","STEP4 -10"
Calibration Program
' Error check routine.
' Query error queue.
' Display error.
' Calibrator settling routine.
' Query status register.
' Test settle bit.
' Close files, end program.
C-5