BEGIN PGM CHECK_MP7441 MM
FN 18: SYSREAD Q0 = ID10 NR3
FN 9: IF +Q0 EQU +207 GOTO LBL 199
FN 9: IF +Q0 EQU +209 GOTO LBL 199
; ******** M3 / M4 ***********
FN 18: SYSREAD Q0 = ID1000 NR7441
Q0 = 2 * FRAC (Q0 / 2)  
FN 9: IF +Q0 EQU +1 GOTO LBL 199
FN 9: IF +Q110 EQU +0 GOTO LBL 199
FN 9: IF +Q110 EQU +1 GOTO LBL 199
FN 14: ERROR = 1000
LBL 199
FN 18: SYSREAD Q0 = ID10 NR3
; Sonderbehandlung fr Zyklus 240
FN 9: IF +Q0 EQU +240 GOTO LBL 207
; Keine Prfung bei Zyklen 230 und 231
FN 9: IF +Q0 EQU +230 GOTO LBL 254
FN 9: IF +Q0 EQU +231 GOTO LBL 254
; ******** Tiefe positiv ********
FN 18: SYSREAD Q0 = ID1000 NR7441
Q0 = 8 * FRAC (Q0 / 8)  
FN 12: IF +Q0 LT +4 GOTO LBL 206
FN 12: IF +Q201 LT +0 GOTO LBL 206
FN 9: IF +Q201 EQU +0 GOTO LBL 206
FN 14: ERROR = 1077
LBL 206
FN 9: IF +0 EQU +0 GOTO LBL 254
LBL 207
; ******** Tiefe positiv Zentrieren ********
FN 18: SYSREAD Q0 = ID1000 NR7441
Q0 = 8 * FRAC (Q0 / 8)  
FN 12: IF +Q0 LT +4 GOTO LBL 254
FN 9: IF +Q343 EQU +1 GOTO LBL 204
FN 12: IF +Q201 LT +0 GOTO LBL 254
FN 9: IF +Q201 EQU +0 GOTO LBL 254
FN 9: IF +0 EQU +0 GOTO LBL 205
LBL 204
FN 12: IF +Q344 LT +0 GOTO LBL 254
FN 9: IF +Q344 EQU +0 GOTO LBL 254
LBL 205
FN 14: ERROR = 1077
LBL 254
END PGM CHECK_MP7441 MM 
