ErrCheck: ' Error check routine.
PRINT #1, "OUTPUT 7;:SYST:ERR?" ' Query error queue.
PRINT #1, "ENTER 7"
INPUT #2, E, Err$
IF E <> 0 THEN BEEP: PRINT Err$: GOTO ErrCheck ' Display error.
RETURN
'
Settle: ' Calibrator settling routine.
DO: PRINT #1, "OUTPUT 4;ISR?" ' Query status register.
PRINT #1, "ENTER 4"
INPUT #2, S
LOOP UNTIL (S AND &H1000) ' Test settle bit.
RETURN
'
EndProg: ' Close files, end program.
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 C-5