Keithley 2000 - 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 2000 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 fol-
lowing the
‘Start everything comment in the above example.
CALL SEND(16, "feed:cont next", status%)
Example Programs C-11