'
 ' PROGRAM : E5CK Communication Program
 ' For IBM PC COMPATIBLE MACHINE
 ' VERSION : 1.00
 ' Copyright (C) 1995 OMRON Corporation All Rights Reserved.
 '
 ' RS-232C SPEED: 9600BPS, PARITY: EVEN, DATA: 7, STOP: 2
 OPEN "COM1: 9600, E, 7, 2, CD, CS, DS,  RS " FOR RANDOM AS #1
REPEAT:
 ' Make Command
rem    s$ = "@001000000"
rem    PRINT "send data : "; s$
rem     PRINT

rem  ******   Mit küldjek ki, hogy az 1. modulon a pillanatnyi hõfokot küldje vissza ???
rem   

 INPUT SEND$
 ' FCS calculation
 FCS = 0
 FOR IFCS = 1 TO LEN(SEND$)
 FCS = FCS XOR ASC(MID$(SEND$, IFCS, 1))
 NEXT
 FCS$ = RIGHT$("0" + HEX$(FCS), 2)
 ' Send data to communication port
 PRINT #1, SEND$ + FCS$ + "*"
 ' Receive data from communication port
 RECCNT = 0: TMP$ = ""
DRECLOOP:
 IF LOC(1) <> 0 THEN GOTO DREC1
 RECCNT = RECCNT + 1
 IF RECCNT = 5000 THEN GOTO DRECERR ELSE GOTO DRECLOOP
DREC1:
 TMP$ = TMP$ + INPUT$(LOC(1), #1)
IF RIGHT$(TMP$, 1) = CHR$(13) THEN GOTO DRECEND ELSE RECCNT = 0: GOTO DRECLOOP
DRECERR:
 TMP$ = "No response !!"
DRECEND:
 RECV$ = TMP$
 PRINT "response: "; RECV$
 ' Repeat to make Command
 GOTO REPEAT
 ' END
 CLOSE #1
 END