PROGRAM _CYCLIC

     // przejście z 23 do 24
    IF FK_START = TRUE AND S26 = FALSE THEN // wykrycie korpusu na początku taśmociągu oraz krok 13 nie moze trwac
        S24 := TRUE;
        ZAW_GRZ := 100; // ustawienie poziomu otwarcia zaworu
    END_IF

    // ustaiwnie timera T10
    IF S24 = TRUE THEN
        T10(IN := TRUE,PT := t#10s);
    END_IF

    // przejscie z 24 do 25
    IF T10.Q = TRUE OR T9.Q = TRUE THEN // timer T10 odliczył 10s lub timer T9 odliczyl 9s
        S24 := FALSE;
        S28 := FALSE;
        ZAW_GRZ := 85; // ustawienie poziomu otwarcia zaworu
        S25 := TRUE;
        T10(IN := FALSE); // zabezpieczenie - wyłączenie timera
        T9(IN := FALSE); // zabezpieczenie - wyłączenie timera
    END_IF

    // ustawienie timera T5
    IF S25 = TRUE THEN
        T5(IN := TRUE,PT := t#5s);
    END_IF

    // przejście z 25 do 26
    IF T5.Q = TRUE THEN // timer T5 odliczył 5 sekund
        S25 := FALSE;
        S26 := TRUE;  // W tym kroku czekamy na prowidłowy proces weryfikacji po grzaniu.
        // Jeśli korpus nie przejdzie weryfikacji, piec nie zmniejszy temperatury
        // i nie bedzie potrzeby ponownego go ogrzewania DO poziomu 190-210C
        // wtedy zwyczajnie oczekujemy na pojawienie się nowego korpusu
        //i mamy nadzieje ze przejdzie poprawnie nadchodzace procesy
        T5(IN := FALSE); // zabezpieczenie - wyłączenie timera
    END_IF

    // przejście z 26 do 27
    IF S8 = TRUE THEN // doszlismy do kroku nr 8 programu glownego
        S26 := FALSE;
        ZAW_GRZ := 0; // ustawienie poziomu otwarcia zaworu
        S27 := TRUE;
    END_IF

    // ustawienie timera T20
    IF S27 = TRUE THEN
        T20(IN := TRUE,PT := t#20s);
    END_IF

    //przejście z 27 do 28
    IF T20.Q = TRUE THEN // timer T20 odliczył 20 sekund
        S27 := FALSE;
        ZAW_GRZ := 90; // ustawienie poziomu otwarcia zaworu
        S28 := TRUE;
        T20(IN := FALSE); // zabezpieczenie - wyłączenie timera
        // Po tym kroku przechodzimy do kroku 22,
        // poniewaz ponownie szybko chcemy nagrzać komore przed nadejsciem nowego korpusu.
        // Zaczyanie grzania od zera zwyczajnie mija sie z celem jesli proces ma byc ciagly.
    END_IF

    // ustawienie timera T20
    IF S28 = TRUE THEN
        T9(IN := TRUE,PT := t#9s);
    END_IF

END_PROGRAM