Alarm N6 Series Dokumentacja Pobierz pdf (Strona 58)

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

1 2 ... 53 54 55 56 57 58 59 60 61 62 63 ... 84 85

Komentarze do niniejszej Instrukcji

Brak uwag