VAR
kTr:R_TRIG;
key_sign:BOOL; (* Нада in %IX....*)
Lamp:BOOL; (* Нада in %QX....*)
restart_prg:BOOL:=false;
pusk_key:BOOL;(* Нада in %IX....*)
END_VAR
kTr(CLK:=key_sign);
if kTr.Q then
Lamp:=not Lamp;
end_if
if restart_prg or not pusk_key then
lamp:=false;
end_if
