Открытие задвижки в ST

[capzap]

тут даже условия нет!

(cls1<>TRUE)
open1:=FALSE;

это явная ошибка

[Гадир]

Я когда писал ошибся. А в программе так:
IF (open1 = 1) AND (cls1=TRUE) AND (st1=FALSE) THEN
op1 :=TRUE;
REPEAT op1:=TRUE;
UNTIL (cls1<>TRUE)
END_REPEAT
ELSE op1:=FALSE;
END_IF