PROGRAM prgMain
  VAR
   start:BOOL;
   napust:BOOL;
   vlevo:BOOL;
   vpravo:BOOL;
   hladina:BOOL;
   topeni:BOOL;
   teplota:BOOL;
   cerpadlo:BOOL;
   machani:BOOL;
   odstred:BOOL;
   konec:BOOL;
   RAF_0:INT;
   RAF_1:INT;
   BIT1,BIT2,BIT3,BIT4,BIT5,BIT6,BIT7,BIT8,BIT9,BIT10,BIT11,BIT12:BOOL;
   odpocet1,odpocet2,odpocet3,odpocet4,odpocet5,odpocet6,odpocet7,odpocet8,odpocet9,odpocet10:TON;
  END_VAR;
  //PROGRAM
   CASE RAF_0 OF
      0 : IF start=true THEN
             napust:=1;
             BIT1:=1;
             RAF_0:=1;
          END_IF;
      1 : IF hladina=true THEN
             napust:=0;
             odpocet4(IN :=hladina , PT :=t#4s,Q => BIT6 );
          END_IF;
          IF BIT6=true THEN
             RAF_0:=2;
          END_IF;
      2 : IF BIT6=true THEN
             topeni:=1;
             RAF_0:=3;
          END_IF;
      3 : IF teplota=true THEN
             topeni:=0;
             BIT7:=1;
             RAF_0:=4;
          END_IF;
      4 : IF BIT7=true THEN
             odpocet5(IN :=BIT7 , PT :=t#20s,Q => BIT8 );
          END_IF;
          IF BIT8=true THEN
             RAF_0:=5;
          END_IF;
      5 : IF BIT8=true THEN
             cerpadlo:=1;
          END_IF;
          IF cerpadlo=true THEN
             odpocet6(IN := cerpadlo, PT :=t#8s,Q =>BIT9 );
          END_IF;
          IF BIT9=true THEN
             RAF_0:=6;
          END_IF;
      6 : IF BIT9=true THEN
             odpocet7(IN := BIT9, PT :=t#3s,Q => napust );
          END_IF;
          IF napust=true THEN
             RAF_0:=7;
          END_IF;
      7 : IF napust=true THEN
             machani:=1;
             BIT10:=1;
          END_IF;
          IF machani=true THEN
             odpocet8(IN := BIT10, PT :=t# );
          END_IF;
   END_CASE;

 //OTACENI
   CASE RAF_1 OF
      0 : IF BIT1=true THEN
             vlevo:=1;
             RAF_1:=1;
          END_IF;
      1 : IF vlevo=true THEN
             odpocet1(IN := BIT1, PT :=t#5s,Q => BIT2 );
          END_IF;
          IF BIT2=true THEN
             RAF_1:=2;
          END_IF;
      2 : IF BIT2=true THEN
             odpocet2(IN := BIT2, PT :=t#2s,Q => BIT3 );
          END_IF;
          IF BIT3=true THEN
             RAF_1:=3;
          END_IF;
      3 : IF BIT3=true THEN
             vpravo:=1;
             RAF_1:=4;
          END_IF;
      4 : IF vlevo=true THEN
             odpocet1(IN := BIT3, PT :=t#5s,Q => BIT4 );
          END_IF;
          IF BIT4=true THEN
             RAF_1:=5;
          END_IF;
      5 : IF BIT4=true THEN
             odpocet3(IN := BIT4, PT :=t#2s,Q => BIT5 );
          END_IF;
          IF BIT5=true THEN
             RAF_1:=0;
          END_IF;

   END_CASE;
END_PROGRAM