Keithley 2000 User Manual page 239

'Example program to demonstrate the reading buffer
'For QuickBASIC 4.5 and CEC PC488 interface card
'Edit the following line to where the QuickBASIC
'libraries are on your computer
'$INCLUDE: 'c:\qb45\ieeeqb.bi'
'Initialize the CEC interface as address 21
CALL initialize(21, 0)
'Reset controls and put trigger model in IDLE state
CALL SEND(16, "*rst", status%)
'Reset STATus subsystem (not affected by *RST)
CALL SEND(16, "stat:pres;*cls", status%)
CALL SEND(16, "stat:meas:enab 512", status%)'enable BFL
CALL SEND(16, "*sre 1", status%)'enable MSB
CALL SEND(16, "trig:coun 20", status%)
'TRACe subsystem is not affected by *RST
CALL SEND(16, "trac:poin 20", status%)
CALL SEND(16, "trac:feed sens1;feed:cont next", status%)
'Start everything
CALL SEND(16, "init", status%)
'Initialize reading$ while the 2000 is busy taking readings
reading$ = SPACE$(4000)
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
CALL SEND(16, "feed:cont next", status%)
Example Programs
comment in the above example.
C-7