Keithley 2002 User Manual page 324

Program (ohmsbufi.bas) (cont.)
PRINT #1, "Output 16; *CLS"
cmd$ = ":trac:feed sens; poin 5; feed:cont next;"
cmd$ = cmd$ + ":init:cont on"
PRINT #1, "Output 16;"; cmd$
PRINT #1, "Output 16; *TRG"
PRINT "Data collection in progress......."
DO
PRINT #1, "Output 16; :stat:meas:even?"
PRINT #1, "Enter 16"
LINE INPUT #2, pollval$
LOOP UNTIL (VAL(pollval$) AND 512) = 512
resistance$ = SPACE$(100)
PRINT #1, "Output 16; :trac:data?"
PRINT #1, "Enter 16"
LINE INPUT #2, resistance$
FOR x = 0 TO 4
reading$ = MID$(resistance$, x * 15 + 1, 13)
PRINT reading$
NEXT x
cmd$ = ":init:cont off; :abor; :trace:cle"
PRINT #1, "Output 16;"; cmd$
END
Example Programs
' Clear 2002
' Set up buffer to store
' 5 points after averaging,
' arm 2002.
' Trigger 2002 to start
' Check to see if the buffer
' is full.
' Get status value
' Get data
' Turn off trigger model,
' Clear data buffer
G-7