Keithley 2010 - Page 243

'*RST sets TRIG:SOUR to IMM
CALL SEND(16, "samp:coun 3", status%)
CALL SEND(16, "trig:sour tim;tim 15", status%)
CALL SEND(16, "trig:coun 10", status%)
'TRACe subsystem is not affected by *RST
CALL SEND(16, "trac:poin 30," status%)
CALL SEND(16, "trac:feed sens1;feed:cont next", status%)
'Now the buffer is armed
CALL SEND(16, "rout:scan (@1:3)", status%)
CALL SEND(16, "rout:scan:lsel int", status%)
'Start everything
CALL SEND(16, "init", status%)
'Initialize reading$ while the 2010 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, "stat:meas?", status%)
CALL ENTER(S$, length%, 16, status%)
CALL SEND(16, "form:elem read,unit” status%)
CALL SEND(16, "trac:data?, status%)
CALL ENTER(reading$, length%, 16, status%)
PRINT reading$
NOTE: To repeat buffer storage, send the following command and then repeat the steps
following the 'Start everything comment in the above example.
CALL SEND(16, “feed:cont next”, status%)
Example Programs C-11