Serial lnterface
18.7.1
Controlling via a
BASIC
program
The range of commands stored
in
the circulator can be acti-
vated
by
this simple program:
REM
command procedure
F
and N
REM
1.
enter command
REM
2.
command
is
passed on to the interface
REM
3.
return message will
be
displayed
CLOSE
OPEN
"coml:4800,n,8,l,cs0,dsO,cdO"
AS
#1
loop
:
INPUT "enter command:";B$
IF
B$="x"
THEN goto markend
PRINT#l,B$
rem
PRINT
zz
=
zz
+1
PRINT "command:
";B$;"
+
return message:
";
rem PRINST
"------"
GOSUB
enter
got0 loop
markend
:
END
enter
:
A$=''
y
=
timer
read loop:
while (instr(A$,chr$(lO))
=
0 and timer-y
i
12)
A$
=
A$
+
input$(loc(l),#l)
wend
read end:
print
a$
;
RETURN
Artisan Technology Group - Quality Instrumentation ... Guaranteed | (888) 88-SOURCE | www.artisantg.com
To Next Page
Loading...