Calibration Check - Fluke 5700A Series II Operator's Manual

5700A/5720A Series II
Operators Manual

5-51. Calibration Check

5-64
1Ø ! THIS IS A PROGRAM FOR REMOTE CALIBRATION CHECK
2Ø !
3Ø REMOTE
4Ø PRINT @4, "*CLS; *SRE 8"
5Ø ON SRQ GOTO 7Ø
6Ø GOTO 15Ø
7Ø PRINT @4, "FAULT?" \ INPUT @4, A%
8Ø IF A% = Ø GOTO 13Ø
9Ø PRINT @4, "EXPLAIN? ";A% \ INPUT @4, A$
1ØØ PRINT
11Ø PRINT "FAULT";A%;"OCCURRED: ";A$
12ØG OTO 7Ø
13Ø A% = SPL(4%)
14Ø RESUME 3ØØ
15Ø PRINT "Ambient temperature in Celsius";
16Ø INPUT T
17Ø PRINT @4, "CAL_TEMP";T
18Ø PRINT "Doing calibration check. Please wait . . ."
19Ø PRINT @4, "CAL_CHK;*OPC" \ GOSUB 27Ø
2ØØ PRINT "Calibration check finished. Print a report? [y, n]"
21Ø INPUT A$ \ IF LEFT(A$,1)="N" OR LEFT(A$,1)="n" GOTO 3ØØ
22Ø PRINT "Set up the peripheral device." \ GOSUB 25Ø
23Ø PRINT "Printing ..." \ PRINT @4, "CAL_PR CHECK;*OPC" \ GOSUB 27Ø \ GOTO
3ØØ
25Ø PRINT "Press RETURN to continue"
26Ø INPUT A$ \ RETURN
27Ø PRINT @4, "*ESR?" \ INPUT @4,A%
28Ø IF A% AND 1% THEN RETURN
29Ø GOTO 27Ø
3ØØ PRINT "All finished!" \END
! ENABLE EAV TO TRIGGER SRQ
! SRQ HANDLER
! START MAIN PROGRAM
! SRQ HANDLER, GET FAULT CODE
! IF NO FAULT EXIT
! GET EXPLANATION
! DISPLAY EXPLANATION
! GET NEXT FAULT
! SERIAL POLL TO CLEAR SP BYTE
! END OF SRQ HANDLER
! MAIN PROGRAM BEGINS
! GET TEMPERATURE FROM OPERATOR
! SET CAL TEMPERATURE
! PAUSE FOR OPERATOR SUBROUTINE
! "
! WAIT FOR OPC SUBROUTINE
! ", RETURN IF OPC BIT IS 1
! ", STAY IN LOOP IF OPC IS Ø