Keithley 2002

'*RST sets TRIG:SOUR to IMM
CALL SEND(16, "trig:coun 3", status%)
CALL SEND(16, "arm:lay2:sour tim;tim 15", status%)
CALL SEND(16, "arm:lay2:coun 10", status%)
'TRACe subsystem is not affected by *RST
CALL SEND(16, "trac:poin 30;egr full", status%)
CALL SEND(16, "trac:feed sens1;feed:coun next", status%)
' now the buffer is armed
CALL SEND(16, "rout:scan (@1:3)", status%)
CALL SEND(16, "rout:scan:func (@1), 'volt:dc'", status%)
CALL SEND(16, "rout:scan:func (@2), 'volt:ac'", status%)
CALL SEND(16, "rout:scan:func (@3), 'res'", status%)
CALL SEND(16, "rout:lsel int", status%)
'Start everything
CALL SEND(16, "init", status%)
'Initialize reading$ while the 2002 is busy taking readings
reading$ = SPACE$(2500)
WaitSRQ:
IF (NOT(srq%()) THEN GOTO WaitSRQ
CALL SPOLL(16, poll%, status%)
IF (poll% AND 64)=0 THEN GOTO WaitSRQ
CALL SEND(16, "form:elem read,time,chan", status%)
CALL SEND(16, "trac:data?, status%)
CALL ENTER(reading$, length%, 16, status%)
PRINT reading$
IEEE-488 Bus Operation 3-29