Chroma 19053 - Page 92

HIPOT Tester 19051/19052/19053/19054 User’s Manual
GOTO END1
MySRQRoutine: ' SRQ interrupt
PEN OFF
PRINT "Running the SRQ"
PRINT #1, "output 3;*STB?"
PRINT #1, "enter 3"
INPUT #2, Q$ 'get the questionable state
PRINT Q$
RES = CVI (Q$)
IF RES AND 2 = 2 THEN
PRINT "HAS RESULT!"
END IF 'End of SRQ interrupt
END1:
PRINT #1, "output 3; SOURce: SAFEty: RESult: LAST: JUDGment?"
PRINT #1, "enter 3"
INPUT #2, S$ ' get the questionable state
PRINT S$
PRINT #1, "output 3;*STB?"
PRINT #1, "enter 3"
INPUT #2, Q$ ' get the questionable state
PRINT Q$
CLOSE : SYSTEM
5-42
www.valuetronics.com