Specifications

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