Keithley 2002 Getting Started Manual page 82

3-28 IEEE-488 Bus Operation
The following example program sets up the Model 2002 using a scan list to measure DC volt-
age on channel 1, AC voltage on channel 2, and 2-wire resistance on channel 3. The meter takes
ten sets of readings, with each set spaced 15 seconds apart, and each of the three readings in each
group taken as fast as possible. The Model 2002 stores the readings in the buffer, and asserts
SRQ when the buffer is full. The program waits for the SRQ, then reads the readings from the
buffer.
'Example program to demonstrate using the scan list
'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, set function to DCV
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