Fluke 54200 - Page 252

54200
Users Manual
6-44
SUB ErrChk (Cs, Sts%) 'Error handler
SHARED Stp
SELECT CASE Cs
CASE 1
IF Sts% < 0 THEN
PRINT
PRINT
PRINT "IBFIND ERROR"
PRINT "Check the configuration of the bus interface with
IBCONF.EXE"
PRINT
Stp = 1 'terminate program
END IF
CASE 2
IF Sts% < 0 THEN
PRINT
PRINT
PRINT " BUS ERROR!"
PRINT
PRINT " Please check connections and start program again"
PRINT
Stp = 1 'terminate the program
END IF
CASE 3
IF Sts% < 0 THEN
PRINT
PRINT
PRINT "GPIB ERROR"
PRINT
END IF
IF Sts% > 16383 THEN
PRINT
PRINT
PRINT "TIME OUT ERROR"
PRINT
END IF
END SELECT
END SUB