HP 53131A, 132A manual PEN on

Chapter 3 Programming Your Universal Counter for Remote Operation

Elements of SCPI Commands

To Perform Limit Testing (QuickBASIC) (Continued)

ON PEN GOSUB limitfail	'When SRQ happens, go get out of
PEN ON	'limit result
CALL IOPEN(isc&, priority%)
CALL sendhp(":INIT:CONT ON")	'Set counter to run
PRINT "Making Period measurements"
Loophere:	'Wait here until out of limit
IF complete THEN GOTO endprogram	'If already serviced out of limit
GOTO Loophere	'then end program
limitfail:
complete = 1	'Test bit
CALL IOSPOLL(source&, statusbyte)	'Check status byte. Should be 72
PRINT "Status byte = ", statusbyte
CALL sendhp("FETCH:PERIOD?")	'Fetch the out of limits period
CALL IOENTERS(source&, period, 23, actf%)	'Read the out of limit period
PRINT "Out of limits period is ", period	'Print results
RETURN
endprogram:
END
SUB sendhp (code$)
CALL iooutputs(source, code$, LEN(code$))
END SUB

Programming Guide 3-79