Keithley 2002 User Manual page 327

Example Programs
Program (astream.bas) (cont.)
cmd$ = ":sens:volt:dc:aver:stat off; adv:stat off; :init:cont on"
GOSUB sendcmd
cmd$ = ":syst:amet astr"
GOSUB sendcmd
SLEEP 1
CLS
PRINT "Test in Progress....."
r$ = SPACE$(16)
t1 = TIMER
FOR x = 1 TO 1000
CALL enter(r$, length%, 16, status%)
rdg!(x) = VAL(r$)
NEXT x
t2 = TIMER
PRINT "Starting Time = "; t1
PRINT "Ending Time = "; t2
PRINT "Elapsed Time = "; t2 - t1
PRINT "Readings Per Second = "; 1 / ((t2 - t1) / 1000)
CALL transmit("listen 16 sdc", status%)
SLEEP 1
INPUT zz$
FOR x = 1 TO 1000
PRINT rdg!(x)
IF rdg!(x) > 30 THEN BEEP: BEEP: BEEP
NEXT x
END
sendcmd:
CALL send(16, cmd$, status%)
IF status% <> 0 THEN
PRINT status%
STOP
END IF
RETURN
G-10
' Turn Filters off
' Set for ASCII stream
' 1 second delay for setup
' Clear Screan
' Alocate string space
' Get starting time
' Take 1000 readings
' Get Readings
' Get ending time
' Print starting time
' Print ending time
' Print elapsed time
' Print reading rate
' Send device clear to 2002
' 1 second delay
' Display reading
' End test
' Send commands
' check send status
' Stop on errors