The sequence of the web washing machine.

	VAR_GLOBALAT %Q*:BOOL; (*Solenoid valve drawer*)
	AT %Q*:BOOL;	(*Drum solenoid valve*)
	AT %Q*:BOOL;	(*Drum engine*)
	AT %Q*:BOOL;	(*Drain motor*)
	AT %Q*:BOOL;	(*Door lock*)
	AT %Q*:BOOL;
	AT %I*:BOOL;
	AT %I*:BOOL;

	HomeWashing:BOOL;
	Temperature:INT;
	Water Level:INT;



END_VAR PROGRAM MAIN
VAR
	stateMain:INT;
	Notice:INT;
	txtWarn:STRING;
	PermissionTo heat:BOOL;
	Thermostat:BOOL;
	Pulso1Sec: TON;
	Standby:INT;


END_VAR (*Subprogrammes*)
SecHeat();

(*Other*)
Pulso1Sec(IN:=NOT Pulso1Sec. Q, PT:= T#1s);




CASEOF
0:((*Check conditions for start*)
	IFNOT  THEN
		:=1;
		:='Unclosed drawer';
	ELSE
		IFNOTTHEN
			:=2; (*Unclosed door*)
			:='Door unlocked';
		ELSE
			:=3;
			:='Ready to start';
			IFTHEN
				stateMain:=10;
				:=FALSE;
			
		END_IF 
	END_IF 

END_IF 10:(*Door lock*)
	:=TRUE;
	:=20;
20:(*Fill with water I*)
	:=30;
	:=21;
	Y2:=TRUE;
21:(*Fill with water II*)
	IF0AND Pulso1Sec. QTHEN
		:=-1;
		:=20;
		:='Water filling';
	
	END_IF IF1THEN
		:=0;
		:=30;
	END_IF;
30:(*Heat water*)
	:=TRUE;
	:=40;
40:(*Wait until temperature*)
	IF60THEN
		stateMain:=50;
	
	END_IF :=40;
	:='Heating water';
50:(*Move bass drum with water, this will have a name but...*)
	:=20;
	:=51;
	:=TRUE;
51:(*Continue to move bass drum*)
	IF0AND Pulso1Sec. QTHEN
		:=-1;
		:=50;
		:='Moving hype';
	
	END_IF IF1THEN
		:=0;
		:=60;
	END_IF;
60:(*We open soap solenoid valve I*)
	:=5;
	:=61;
	:=TRUE;
61:(*Continue to move bass drum*)
	IF0AND Pulso1Sec. QTHEN
		:=-1;
		:=60;
		:='Introduce soap';
	
	END_IF IF1THEN
		:=0;
		:=70;
	END_IF;
70:(*We close soap*)
	Y1:=FALSE;
	:=80;
80:(*Washing*)
	:=25;
	:=81;
81:(*Continuous washing*)
	IF0AND Pulso1Sec. QTHEN
		:=-1;
		:=60;
		:='Washing';
	
	END_IF IF1THEN
		:=0;
		:=90;
	END_IF;
90:(*Extract water*)
	:=25;
	:=91;
	:=TRUE;
91:(*Continue To extract water*)
	IF0AND Pulso1Sec. QTHEN
		:=-1;
		:=90;
		:='Drawing water';
	
	END_IF IF1THEN
		:=0;
		:=100;
	END_IF;
100:(*Fill water  and extract*)
	:=25;
	:=101;

101:(*Continue to fill water and extract*)
	IF0AND Pulso1Sec. QTHEN
		:=-1;
		:=60;
		:='Fill water and extract';
	
	END_IF IF1THEN
		:=0;
		:=110;
	END_IF;
110:(*We stop water and extract*)
	M2:=FALSE;
	Y2:=FALSE;
	:=120;
120:(*Centrifuge, to simplify I only leave the bass drum running for a while*)
	:=25;
	:=121;

121:(*Continue spinning*)
	IF Standby > 0AND Pulso1Sec. QTHEN
		:=-1;
		:=120;
		:='Centrifuge';
	
	END_IF IF1THEN
		:=0;
		:=130;
	END_IF;
130:(*End washed*)
	M1:=FALSE;
	X1:=FALSE;
	:=0;
	:=0;


END_CASE PROGRAM Simulate
VAR
	Pulso1Sec: TON;


END_VAR Pulso1Sec(IN:=NOT Pulso1Sec. Q, PT:= T#1s);

IF Pulse1Sec. QANDTHEN
	:=+1;


END_IF IFTHEN
	:=+1;
END_IF;