Keithley 2002

'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 in INIT, ARM;LAY1, ARM:LAY2, and TRIG subsystems
'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;egr full", status%)
CALL SEND(16, "trac:feed sens1;feed:cont next", status%)
'Start everything
CALL SEND(16, "init", status%)
'Initialize reading$ while the 2002 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, "form:elem read,time", status%)
CALL SEND(16, "trac:data?", status%)
CALL ENTER(reading$, length%, 16, status%)
PRINT reading$
IEEE-488 Bus Operation 3-25