CASE iSekwencjaWyrzutnikKrok OF
    0:
        typWyjscia.xSpychacz := 0;
        tWyrzutnik(IN :=0, PT := T#1S);
        IF arrGniazdo[4].typStanMaszyny.xObecnosc AND NOT arrGniazdo[4].typStanMaszyny.xWagaOK THEN
            iSekwencjaWyrzutnikKrok := 10;
        ELSIF arrGniazdo[4].typStanMaszyny.xWagaOk THEN
            iSekwencjaWyrzutnikKrok := 20;
        END_IF
    10:
        typWyjscia.xSpychacz := 1;
        tWyrzutnik(In := 1, PT := T#2S);
        IF tWyrzutnik.Q THEN
            iSekwencjaWyrzutnikKrok := 20;
            arrGniazdo[4].typStanMaszyny.xObecnosc := 0;
        END_IF
    20:
        typWyjscia.xSpychacz := 0;
END_CASE