Fprogram (P0):
 IF                   FI             'Els lefuts
 THEN  RESET          O0.2           'Fr le
       SET            O0.3           'Fr fel
       RESET          O0.0           'Fr bekapcsol
       RESET          O0.1           'Tlca forgats
       RESET          O0.4           'Munkadarab rgzts
       RESET          O0.5           'Furat ellenrzs
       RESET          F0.0           'Startflag

 IF            N      I0.0           'A kvetkez kt lloms fogadkpes
 THEN  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
 THEN  CMP 0                         'Reset program

 IF            N      I1.3           'Vszlellt gomb
 THEN  RESET          O0.0           'Fr bekapcsol
       RESET          O0.1           'Tlca forgats
       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
 THEN  RESET          O0.2           'Fr le
       SET            O0.3           'Fr fel
       RESET          O0.0           'Fr bekapcsol
       RESET          O0.1           'Tlca forgats
       RESET          O0.4           'Munkadarab rgzts
       RESET          O0.5           'Furat ellenrzs
       LOAD           V3
         TO           CP1            'Szmll betltse
       SET            C1             'Szmll

STEP 1
 THEN  SET            T3             'Ksleltets
         WITH         0.2s
 
STEP 2
 IF                   T3             'Ksleltets
 THEN  JMP TO 2
 IF            N      T0             'Ksleltets
       AND            I0.1           'Kidobsra ksz megmunklt munkadarab
 THEN  JMP TO 3
 OTHRW JMP TO 9

STEP 3
 THEN  SET            O0.7           'lloms fogadkpes(v. selejtjelzs)
       SET            T4             'Ksleltets
         WITH         0.3s

STEP 4
 IF            N      T4             'Ksleltets
 THEN  RESET          O0.7           'lloms fogadkpes(v. selejtjelzs)
       SET            T5             'Ksleltets
         WITH         0.2s

STEP 5
 IF            N      T5             'Ksleltets
 THEN  SET            O0.7           'lloms fogadkpes(v. selejtjelzs)
       SET            T4             'Ksleltets

STEP 6
 IF            N      T4             'Ksleltets
 THEN  RESET          O0.7           'lloms fogadkpes(v. selejtjelzs)

STEP 7
 THEN  SET            O0.6           'Kidobs
       SET            T6             'Ksleltets
         WITH         0.5s

STEP 8
 IF            N      T6             'Ksleltets
       AND     N      I0.1           'Kidobsra ksz megmunklt munkadarab
 THEN  RESET          O0.6           'Kidobs

STEP 9
 IF                   C1             'Szmll
 THEN  INC            CW1            'Szmll aktulis rtke
       SET            O0.1           'Tlca forgats
 OTHRW JMP TO 12

STEP 10
 IF            N      I0.5           'Tlca pozciban
 THEN                 NOP

STEP 11
 IF                   I0.5           'Tlca pozciban
 THEN  RESET          O0.1           'Tlca forgats
       JMP TO 1

STEP 12
 THEN                 NOP
 
Munkaprogram (P1):
STEP 1
 THEN  SET            O0.3           'Fr fel
       RESET          O0.2           'Fr le
       RESET          O0.6           'Kidobs

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

STEP 2
 IF            N      I0.5           'Tlca pozciban
 THEN  SET            O0.1           'Tlca forgats
 OTHRW                NOP

STEP 3
 IF                   I0.5           'Tlca pozciban
 THEN  RESET          O0.1           'Tlca forgats

STEP 4
 IF                   I0.6           'Munkadarab elrhet
 THEN  SET            T0             'Ksleltets
         WITH         0.3s

STEP 5
 IF            N      T0             'Ksleltets
       AND            I0.6           'Munkadarab elrhet
 THEN  SET            O0.7           'lloms fogadkpes(v. selejtjelzs)
       SET            T1             'Ksleltets
         WITH         0.2s
       JMP TO 6
 IF            N      T0             'Ksleltets
       AND     N      I0.6           'Munkadarab elrhet
 THEN  JMP TO 1

STEP 6
 THEN  SET            O0.1           'Tlca forgats
 IF            N      T1             'Ksleltets
 THEN  RESET          O0.7           'lloms fogadkpes(v. selejtjelzs)

STEP 7
 IF            N      I0.5           'Tlca pozciban
 THEN                 NOP

STEP 8
 IF                   I0.5           'Tlca pozciban
 THEN  RESET          O0.1           'Tlca forgats
       SET            T2             'Ksleltets
         WITH         0.3s

STEP 9
 IF            N      T1             'Ksleltets
 THEN  SET            O0.4           'Munkadarab rgzts
       SET            T1             'Ksleltets
 
STEP 10
 IF            N      T1             'Ksleltets
 THEN                 NOP

STEP 11
 IF                   I0.7           'Munkadarab a frnl
 THEN  SET            O0.0           'Fr bekapcsol
       RESET          O0.3           'Fr fel
       SET            O0.2           'Fr le
       SET            T2             'Ksleltets
         WITH         0.5s
 OTHRW RESET          O0.4           'Munkadarab rgzts
       JMP TO 1

STEP 12
 IF            N      T1             'Ksleltets
       AND            I0.4           'Fr lent
 THEN  RESET          O0.2           'Fr le
       SET            O0.3           'Fr fel

STEP 13
 IF                   I0.3           'Fr fent
 THEN  RESET          O0.0           'Fr bekapcsol
       RESET          O0.4           'Munkadarab rgzts
       SET            T1             'Ksleltets

STEP 14
 IF            N      T1             'Ksleltets
 THEN  SET            O0.1           'Tlca forgats

STEP 15
 IF            N      I0.5           'Tlca pozciban
 THEN                 NOP

STEP 16
 IF                   I0.5           'Tlca pozciban
 THEN  RESET          O0.1           'Tlca forgats
       SET            T1             'Ksleltets

STEP 17
 IF            N      T1             'Ksleltets
 THEN  SET            O0.5           'Furat ellenrzs
       SET            T2             'Ksleltets
         WITH         0.5s

STEP 18
 IF                   I0.2           'Furat megfelel
       AND            T2             'Ksleltets
 THEN  RESET          O0.5           'Furat ellenrzs
       SET            T1             'Ksleltets
       JMP TO 21

 IF            N      T2             'Ksleltets
       AND     N      I0.2           'Furat megfelel
 THEN  RESET          O0.5           'Furat ellenrzs
       SET            O0.7           'lloms fogadkpes(v. selejtjelzs)
       SET            T1             'Ksleltets
         WITH         0.3s

STEP 19
 IF            N      T1             'Ksleltets
 THEN  RESET          O0.7           'lloms fogadkpes(v. selejtjelzs)
       SET            T2             'Ksleltets
         WITH         0.2s

STEP 20
 IF            N      T2             'Ksleltets
 THEN  SET            O0.7           'lloms fogadkpes(v. selejtjelzs)
       SET            T1             'Ksleltets

STEP 21
 IF            N      T1             'Ksleltets
 THEN  RESET          O0.7           'lloms fogadkpes(v. selejtjelzs)
       SET            O0.1           'Tlca forgats

STEP 22
 IF            N      I0.5           'Tlca pozciban
 THEN                 NOP

STEP 23
 IF                   I0.5           'Tlca pozciban
 THEN  RESET          O0.1           'Tlca forgats
       SET            T1             'Ksleltets

STEP 24
 IF            N      T1             'Ksleltets
 THEN  SET            O0.6           'Kidobs
       SET            T1             'Ksleltets
         WITH         0.7s

STEP 25
 IF            N      T1             'Ksleltets
       AND     N      I0.1           'Kidobsra ksz megmunklt munkadarab
 THEN  RESET          O0.6           'Kidobs
       JMP TO 26

 IF            N      T1             'Ksleltets
       AND            I0.1           'Kidobsra ksz megmunklt munkadarab
 THEN  RESET          O0.6           'Kidobs
       SET            T1             'Ksleltets
       JMP TO 24

STEP 26
 THEN  JMP TO 1
