ReciveBuffer : POINTER TO ARRAY [0..511] OF BYTE;(*с запасом*)


IF NOT SerialOpen THEN
Delay := Delay + 1;
IF (Delay MOD 100) = 0 THEN
IF Opened = FALSE THEN
IF SysComOpen(Settings.Port) = 16#FFFFFFFF THEN
SysComClose(Settings.Port);
SerialOpen := FALSE;
Opened := FALSE;
ELSE
Opened := TRUE;
END_IF
ELSE
SerialOpen := NOT SysComSetSettings(Settings.Port, ADR(Settings));
END_IF
END_IF
ELSE
Delay := 0;
serSTATE := serSEND;
END_IF