Fluke 5700A Series II - Calibration Check

5700A/5720A Series II
Operators Manual
5-64
5-51. Calibration Check
1Ø ! THIS IS A PROGRAM FOR REMOTE CALIBRATION CHECK
2Ø !
3Ø REMOTE
4Ø PRINT @4, “*CLS; *SRE 8” ! ENABLE EAV TO TRIGGER SRQ
5Ø ON SRQ GOTO 7Ø ! SRQ HANDLER
6Ø GOTO 15Ø ! START MAIN PROGRAM
7Ø PRINT @4, “FAULT?” \ INPUT @4, A% ! SRQ HANDLER, GET FAULT CODE
8Ø IF A% = Ø GOTO 13Ø ! IF NO FAULT EXIT
9Ø PRINT @4, “EXPLAIN? “;A% \ INPUT @4, A$ ! GET EXPLANATION
1ØØ PRINT
11Ø PRINT “FAULT”;A%;”OCCURRED: “;A$ ! DISPLAY EXPLANATION
12ØG OTO 7Ø ! GET NEXT FAULT
13Ø A% = SPL(4%) ! SERIAL POLL TO CLEAR SP BYTE
14Ø RESUME 3ØØ ! END OF SRQ HANDLER
15Ø PRINT “Ambient temperature in Celsius”; ! MAIN PROGRAM BEGINS
16Ø INPUT T ! GET TEMPERATURE FROM OPERATOR
17Ø PRINT @4, “CAL_TEMP”;T ! SET CAL TEMPERATURE
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” ! PAUSE FOR OPERATOR SUBROUTINE
26Ø INPUT A$ \ RETURN ! “
27Ø PRINT @4, “*ESR?” \ INPUT @4,A% ! WAIT FOR OPC SUBROUTINE
28Ø IF A% AND 1% THEN RETURN ! “, RETURN IF OPC BIT IS 1
29Ø GOTO 27Ø ! “, STAY IN LOOP IF OPC IS Ø
3ØØ PRINT “All finished!” \END