BEGIN PGM CHECK_STATUS MM 
FN 0: Q180 =+1
FN 0: Q181 =+0
FN 0: Q182 =+0
FN 17: SYSWRITE ID 990 NR17 =+1 ;- Gut
FN 9: IF +0 EQU +0 GOTO LBL Q40
LBL 10 ;- Taschenpruefung
FN 12: IF +Q19 LT +Q29 GOTO LBL 110
FN 0: Q180 =+0
FN 0: Q182 =+1
FN 17: SYSWRITE ID 990 NR17 =+3 ;- Ausschuss
LBL 110
FN 11: IF +Q19 GT +Q39 GOTO LBL 254
FN 0: Q180 =+0
FN 0: Q181 =+1
FN 17: SYSWRITE ID 990 NR17 =+2 ;- Nacharbeit
FN 9: IF +0 EQU +0 GOTO LBL 254
LBL 11 ;- Zapfenpruefung
FN 12: IF +Q19 LT +Q29 GOTO LBL 120
FN 0: Q180 =+0
FN 0: Q181 =+1
FN 17: SYSWRITE ID 990 NR17 =+2 ;- Nacharbeit
LBL 120
FN 11: IF +Q19 GT +Q39 GOTO LBL 254
FN 0: Q180 =+0
FN 0: Q182 =+1
FN 17: SYSWRITE ID 990 NR17 =+3 ;- Ausschuss
FN 9: IF +0 EQU +0 GOTO LBL 254
LBL 12 ; Koordinate mit Richtung aus Q267
FN 12: IF +Q267 LT +0 GOTO LBL "DIR_NEG"
    FN 12: IF Q19 LT Q39 GOTO LBL "DIR_REWORK"
    FN 11: IF Q19 GT Q29 GOTO LBL "DIR_WASTE"
    FN 9: IF +0 EQU +0 GOTO LBL 254
LBL "DIR_NEG"
    FN 12: IF Q19 LT Q39 GOTO LBL "DIR_WASTE"
    FN 11: IF Q19 GT Q29 GOTO LBL "DIR_REWORK"
    FN 9: IF +0 EQU +0 GOTO LBL 254
LBL "DIR_REWORK"
    Q180 = 0
    Q181 = 1
    FN 17: SYSWRITE ID 990 NR17 =+2 ;- Nacharbeit
    FN 9: IF +0 EQU +0 GOTO LBL 254
LBL "DIR_WASTE"
    Q180 = 0
    Q182 = 1
    FN 17: SYSWRITE ID 990 NR17 =+3 ;- Ausschuss
    FN 9: IF +0 EQU +0 GOTO LBL 254
LBL 254
END PGM CHECK_STATUS MM 
