я про этот кодКод:IF Active = FALSE THEN (* проверить доступность нового цикла обмена *) Active := TRUE; (* установить признак активности цикла обмена *) WHILE SysComRead(ComHandle, ADR(DataBuf), SIZEOF(DataBuf), 0) <> 0 DO; END_WHILE Read := FALSE; (* снять признак чтения кадра *) tonTimer(IN := FALSE); (* остановить таймер тайм-аута *) END_IF