CASE State OF
0:(*нет нажатия*)

IF MW0=20 THEN State:=1; END_IF;
IF MW0=11 THEN State:=2; END_IF;
IF MW0=12 THEN State:=3; END_IF;
IF MW0=13 THEN State:=4; END_IF;
IF MW0=14 THEN State:=5; END_IF;
IF MW0=15 THEN State:=6; END_IF;
IF MW0=16 THEN State:=7; END_IF;
IF MW0=17 THEN State:=8; END_IF;
IF MW0=18 THEN State:=9; END_IF;
IF MW0=19 THEN State:=10; END_IF;

1:(*Нажато 0*)
R_TRIG1(CLK:=1);
IF R_TRIG1.Q THEN 
BYTE_1:=BYTE_2; 
BYTE_2:=BYTE_3; 
BYTE_3:=BYTE_4;
BYTE_4:=20; 
State:=11; 
END_IF;

2:(*Нажато 1*)
R_TRIG1(CLK:=1);
IF R_TRIG1.Q THEN 
BYTE_1:=BYTE_2; 
BYTE_2:=BYTE_3; 
BYTE_3:=BYTE_4;
BYTE_4:=11; 
State:=11; 
END_IF;

3:(*Нажато 2*)
R_TRIG1(CLK:=1);
IF R_TRIG1.Q THEN 
BYTE_1:=BYTE_2; 
BYTE_2:=BYTE_3; 
BYTE_3:=BYTE_4;
BYTE_4:=12; 
State:=11; 
END_IF;

4:(*Нажато 3*)
R_TRIG1(CLK:=1);
IF R_TRIG1.Q THEN 
BYTE_1:=BYTE_2; 
BYTE_2:=BYTE_3; 
BYTE_3:=BYTE_4;
BYTE_4:=13; 
State:=11; 
END_IF;

5:(*Нажато 4*)
R_TRIG1(CLK:=1);
IF R_TRIG1.Q THEN 
BYTE_1:=BYTE_2; 
BYTE_2:=BYTE_3; 
BYTE_3:=BYTE_4;
BYTE_4:=14; 
State:=11; 
END_IF;

6:(*Нажато 5*)
R_TRIG1(CLK:=1);
IF R_TRIG1.Q THEN 
BYTE_1:=BYTE_2; 
BYTE_2:=BYTE_3; 
BYTE_3:=BYTE_4;
BYTE_4:=15; 
State:=11; 
END_IF;

7:(*Нажато 6*)
R_TRIG1(CLK:=1);
IF R_TRIG1.Q THEN 
BYTE_1:=BYTE_2; 
BYTE_2:=BYTE_3; 
BYTE_3:=BYTE_4;
BYTE_4:=16; 
State:=11; 
END_IF;

8:(*Нажато 7*)
R_TRIG1(CLK:=1);
IF R_TRIG1.Q THEN 
BYTE_1:=BYTE_2; 
BYTE_2:=BYTE_3; 
BYTE_3:=BYTE_4;
BYTE_4:=17; 
State:=11; 
END_IF;

9:(*Нажато 8*)
R_TRIG1(CLK:=1);
IF R_TRIG1.Q THEN 
BYTE_1:=BYTE_2; 
BYTE_2:=BYTE_3; 
BYTE_3:=BYTE_4;
BYTE_4:=18; 
State:=11; 
END_IF;

10:(*Нажато 9*)
R_TRIG1(CLK:=1);
IF R_TRIG1.Q THEN 
BYTE_1:=BYTE_2; 
BYTE_2:=BYTE_3; 
BYTE_3:=BYTE_4;
BYTE_4:=19; 
State:=11; 
END_IF;

11:(*СБРОС ТРИГЕРА*)
R_TRIG1(CLK:=0);
IF MW0=0 THEN State:=0; END_IF;
END_CASE;

IF BYTE_1=19 AND BYTE_2=15 AND BYTE_3=11 AND BYTE_4=13 THEN
Password:=11;
ELSE
Password:=0;
END_IF;