Fprogram (P0):
 IF                   FI             'Els lefuts
 THEN  SET            O0.0           'Megfog balra
       SET            O0.3           'Megfog nyits
       RESET          O0.1           'Megfog jobbra
       RESET          O0.2           'Megfog lefel
       RESET          F2.0           'Vszlellts volt
       LOAD           V7
         TO           CP1            'Szmll betltse

       SET            C1             'Szmll
       RESET          F1.0           'Megtelt a selejt trol
       RESET          F1.1           'Selejt
       RESET          F0.0           'Startflag

 IF            N      I0.7           'A kvetkez lloms fogadkpes
 THEN  RESET          F0.0           'Startflag
       RESET          P1             '1-es munkaprogram
       SET            O0.7           'lloms nem fogadkpes

 IF                   I0.7           'A kvetkez lloms fogadkpes
       AND     N      F1.0           'Megtelt a selejt trol
 THEN  RESET          O0.7           'lloms nem fogadkpes

 IF                   I0.6           'Selejt munkadarab
       AND     N      T1             'Ksleltets
 THEN  SET            T1             'Ksleltets
         WITH         0.8s
       SET            T2             'Ksleltets
         WITH         0.35s

 IF            N      T2             'Ksleltets
       AND            T1             'Ksleltets
       AND            I0.6           'Selejt munkadarab
       AND     N      F1.1           'Selejt
 THEN  SET            F1.1           'Selejt
       INC            CW1            'Szmll aktulis rtke

 IF            N      C1             'Szmll
 THEN  SET            O0.7           'lloms nem fogadkpes
       SET            F1.0           'Megtelt a selejt trol
       RESET          F0.0           'Startflag

 IF                   I1.0           'Start gomb
 THEN  SET            F0.0           'Startflag

 IF                   I1.1           'Stop gomb
 THEN  RESET          F0.0           'Startflag

 IF                   I1.2           'Reset gomb
       AND     N      F0.0           'Startflag
       AND            F2.0           'Vszlellts volt
       AND     N      O0.3           'Megfog nyits
 THEN  CMP 0                         'Reset program

 IF                   I1.2           'Reset gomb
       AND     N      F0.0           'Startflag
       AND            F1.0           'Megtelt a selejt trol
 THEN  RESET          O0.7           'lloms nem fogadkpes
       RESET          F1.0           'Megtelt a selejt trol
       SET            C1             'Szmll

 IF            N      I1.3           'Vszlellt gomb
 THEN  SET            F2.0           'Vszlellts volt
       RESET          F0.0           'Startflag
       RESET          P1             '1-es munkaprogram

 IF            N      P1             '1-es munkaprogram
       AND            F0.0           'Startflag
 THEN  SET            P1             '1-es munkaprogram

Reset program (CMP 0):
STEP 0
 IF                   F1.1           'Selejt
 THEN  JMP TO 1
 OTHRW JMP TO 8

""Ha selejt s kzpen llt meg
STEP 1
 IF                   F1.1           'Selejt
       AND            O0.1           'Megfog jobbra
       AND            O0.0           'Megfog balra
 THEN  SET            O0.2           'Megfog lefel
 OTHRW JMP TO 3

STEP 2
 IF                   I0.4           'Megfog lent
 THEN  SET            O0.3           'Megfog nyits
       RESET          F1.1           'Selejt
       JMP TO 12

""Ha selejt s a bal oldalon llt meg
STEP 3
 IF                   F1.1           'Selejt
       AND            I0.1           'Megfog a bal oldalon
 THEN  RESET          O0.0           'Megfog balra
       SET            O0.1           'Megfog jobbra
 OTHRW JMP TO 5

STEP 4
 IF                   I0.3           'Megfog kzpen
 THEN  SET            O0.0           'Megfog balra
       SET            O0.2           'Megfog lefel
       JMP TO 6

""Ha selejt s a jobb oldalon llt meg
STEP 5
 IF                   F1.1           'Selejt
       AND            I0.2           'Megfog a jobb oldalon
 THEN  RESET          O0.1           'Megfog jobbra
       SET            O0.0           'Megfog balra
 
STEP 6
 IF                   I0.3           'Megfog kzpen
 THEN  SET            O0.1           'Megfog jobbra
       SET            O0.2           'Megfog lefel
STEP 7
 IF                   I0.4           'Megfog lent
 THEN  SET            O0.3           'Megfog nyits
       RESET          F1.1           'Selejt
       JMP TO 12

""Ha nem selejt s a bal oldalon llt meg
STEP 8
 IF            N      F1.1           'Selejt
       AND            I0.1           'Megfog a bal oldalon
 THEN  RESET          O0.0           'Megfog balra
       SET            O0.1           'Megfog jobbra
 OTHRW JMP TO 10
STEP 9
 IF                   I0.2           'Megfog a jobb oldalon
 THEN  SET            O0.2           'Megfog lefel
       JMP TO 11

""Ha nem selejt s a jobb oldalon llt meg
STEP 10
 IF            N      F1.1           'Selejt
       AND            I0.2           'Megfog a jobb oldalon
 THEN  SET            O0.2           'Megfog lefel

STEP 11
 IF                   I0.4           'Megfog lent
 THEN  SET            O0.3           'Megfog nyits
       RESET          F1.1           'Selejt
       JMP TO 12
STEP 12
 THEN  SET            O0.0           'Megfog balra
       SET            O0.3           'Megfog nyits
       RESET          O0.1           'Megfog jobbra
       RESET          O0.2           'Megfog lefel
       RESET          F2.0           'Vszlellts volt

Munkaprogram (P1):
STEP 0
 THEN  RESET          O0.1           'Megfog jobbra
       SET            O0.0           'Megfog balra
       RESET          O0.2           'Megfog lefel

 IF                   I0.0           'Munkadarab elrhet
       AND            F0.0           'Startflag
 THEN  JMP TO 1

STEP 1
 IF                   I0.1           'Megfog a bal oldalon
       AND            I0.5           'Megfog fent
 THEN                 NOP

 
STEP 2
 IF                   I0.0           'Munkadarab elrhet
 THEN  SET            T0
         WITH         0.5s

STEP 3
 IF            N      T0
 THEN  SET            O0.3           'Megfog nyits
       SET            O0.2           'Megfog lefel

STEP 4
 IF                   I0.4           'Megfog lent
 THEN  RESET          O0.3           'Megfog nyits
       SET            T1             'Ksleltets
         WITH         0.1s

STEP 5
 IF            N      T1             'Ksleltets
 THEN  RESET          O0.2           'Megfog lefel

STEP 6
 IF                   I0.5           'Megfog fent
 THEN  RESET          O0.0           'Megfog balra
       SET            O0.1           'Megfog jobbra

STEP 7
 IF                   I0.3           'Megfog kzpen
       AND            F1.1           'Selejt
 THEN  SET            O0.0           'Megfog balra
       SET            T1             'Ksleltets
       JMP TO 8
 IF                   I0.2           'Megfog a jobb oldalon
 THEN                 NOP

STEP 8
 IF            N      T1             'Ksleltets
 THEN  SET            O0.2           'Megfog lefel

STEP 9
 IF                   I0.4           'Megfog lent
 THEN  SET            O0.3           'Megfog nyits
       RESET          F1.1           'Selejt
       SET            T1             'Ksleltets

STEP 10
 IF            N      T1             'Ksleltets
 THEN  RESET          O0.2           'Megfog lefel

STEP 11
 IF                   I0.5           'Megfog fent
 THEN  JMP TO 0
