PROGRAM
COMMENTS
10 CLS
20 NA$=“GPlBC?CALL IBFIND
(NA$,BRDO%)
30 NA$ =“DEVO”CALL IBFIND
tNA$,M617%)
35 V% =&H102:CALL IBPOKE
fBRDO%,V%l
40 V% =27CALL IBPAD
fM617%,V%)
50 V% =l:CAlL IBSRE
fBRDO%,V%f
60 INPUT”COMMAND”;CMDS
70 If CMD$=“EXiT” THEN 150
80 If CMD$=” ” THEN 60
90 CALL IBWRT(M617%,CMDS)
100 RDS = SPACES(501
110 CALL IBRD(M617%,RD$I
120 RDS = LEFT$tRDS,IBCNT%l
130 PRINT RDS
140 GOT0 60
150 V% =&CALL IBONL
(BRDO%,V%)
160 CALL IBONL(M617%,V%)
170 END
Find the board number.
Find the 617 number.
Set timeout delays.
Change to primary address 27.
Set REN true.
Prompt for ccmmand string.
Sea if pmgram is to be halted.
If null command string, go back
and get another.
Address 617 to listen and send
command string.
Assign reading input buffer.
Address 617 to Talk and input
reading string.
Trim string to proper size.
Display the reading on the CRT.
Repeat.
Close the board file.
Close the instrument file.
NOTE: Lines l-6 of this program are not shown and need not be typed
in. They are contained in the floppy disc. When the command
LOAD”DECL” is entered these lines are already there.
NOTE: If conversion to numeric variable isdesired, change lines 120 and
130 as follows:
120 RD=VAL(MIDS(RDS,5.16))
130 PRINT RD
44
Artisan Technology Group - Quality Instrumentation ... Guaranteed | (888) 88-SOURCE | www.artisantg.com
To Next Page
Loading...
Need help?
General
