Program Fragment
GOSUB Read Register
PRINT #1, "output 16; :init
:cont off; :abort"
PRINT #1, "output 16; :init;*opc"
SLEEP 2
GOSUB ReadRegister
PRINT #1, "output 16; :abort"
GOSUB ReadRegister
END
ReadRegister:
PRINT #1, "output 16; *esr?"
PRINT #1, "enter 16"
LINE INPUT #2, a$
PRINT a$
RETURN
Remote Operation
'Clear register by reading it
'Place 2010 in idle
'Start measurements and send *OPC
'Wait two seconds
'Read register to show that OPC is
'not set
'Place 2010 back in idle
'Read register to show that OPC is
'now set
'Query Standard Event Status Reg-
'ister
'Get response message from 2010
'Read decimal value of register
4-39