Keithley 2002 User Manual page 330

Program (fastscan.bas) (cont.)
'config buffer
ALL SEND(16, ":trac:cle; poin 1810; egr comp; feed sens", GPIB.STATUS%)
CALL SEND(16, ":trac:feed:cont next", GPIB.STATUS%)
'Trigger 2002
SLEEP 1
CALL TRANSMIT("UNL UNT LISTEN 16 GET", STATUS%)
'wait for buffer to fill
PRINT "Collecting Data....."
SLEEP 15
'get data
CALL SEND(16, ":trac:data?", STATUS%)
CALL Enter(k2002data$, Gpib.len%, 16, GPIB.STATUS%)
PRINT "DCV = "; k2002data$
END
Example Programs
' Clear readings from buffer
' Set buffer size to 1810 points
' Select COMPACT element group
' Select SENSE as source of readings
' Select the NEXT buffer control
' mode
' Start scan
' Read buffer
G-13