BEGIN PGM 201 MM 
Q200 = ABS Q200
Q204 = ABS Q204
SEL CYCLE "CheckDepthSign"
CYCL CALL
SEL CYCLE "CheckSpiInMotion"
CYCL CALL
CALL PGM SetTrafoToolAx
FN 9: IF +Q201 EQU +0 GOTO LBL 254
FN 12: IF +Q201 LT +0 GOTO LBL 197
FN 0: Q30 =-1
FN 9: IF +0 EQU +0 GOTO LBL 194
LBL 197
FN 0: Q30 =+1
LBL 194
CALL LBL 4
FN 1: Q19 =+Q203 + +Q200
Q51 = ABS Q200
Q52 = ABS Q204
FN 11: IF +Q51 GT +Q52 GOTO LBL 2
FN 1: Q19 =+Q203 + +Q204
LBL 2
FN 1: Q20 =+Q203 + +Q200
FN 1: Q24 =+Q203 + +Q201
FN 0: Q25 =+Q208
FN 10: IF +Q208 NE +0 GOTO LBL 4
FN 0: Q25 =+Q206
LBL 4
FN 3: Q200 =+Q200 * +Q30
FN 3: Q204 =+Q204 * +Q30
LBL 0
L  Z+Q20 R0 FMAX
L  Z+Q24 R0 FQ206
FN 9: IF +Q211 EQU +0 GOTO LBL 180
CYCL DEF 9.0 VERWEILZEIT
CYCL DEF 9.1 V.ZEITQ211
LBL 180
L  Z+Q20 R0 FQ25
L  Z+Q19 R0 FMAX
LBL 254
END PGM 201 MM 
