BEGIN PGM 210 MM 
Q195 = Q197
Q197 = 0
Q200 = ABS Q200
Q202 = ABS Q202
Q204 = ABS Q204
Q215 = ABS Q215
Q218 = ABS Q218
Q219 = ABS Q219
Q338 = ABS Q338
FN 17: SYSWRITE ID 212 =+3
FN 18: SYSREAD Q5 = ID210 NR4 IDX1
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 = 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 10: IF +Q109 NE -1 GOTO LBL 198
FN 14: ERROR= 1001
LBL 198
FN 11: IF +Q218 GT +Q219 GOTO LBL 197
FN 14: ERROR= 1032
LBL 197
FN 9: IF +Q201 EQU +0 GOTO LBL 254
FN 12: IF +Q201 LT +0 GOTO LBL 196
FN 0: Q30 =-1
FN 9: IF +0 EQU +0 GOTO LBL 194
LBL 196
FN 0: Q30 =+1
LBL 194
FN 10: IF +Q202 NE +0 GOTO LBL 21
FN 14: ERROR= 1030
LBL 21
FN 10: IF +Q195 NE +1 GOTO LBL 195
FN 14: ERROR= 1016
LBL 195
CALL LBL 99
FN 0: Q2 =+Q215
FN 18: SYSREAD Q1 = ID200 NR1
Q1 = ABS Q1
FN 9: IF +Q1 EQU +0 GOTO LBL 96
Q27 = ( Q219 / Q1 ) * Q5
FN 11: IF +Q27 GT +6 GOTO LBL 98
FN 12: IF +Q27 LT +2 GOTO LBL 97
FN 9: IF +Q27 EQU +2 GOTO LBL 200
FN 9: IF +0 EQU +0 GOTO LBL 201
LBL 200
FN 0: Q215 =+1
LBL 201
Q57 = ABS Q201
Q58 = ABS Q202
FN 11: IF +Q57 GT +Q58 GOTO LBL 202
Q27 = Q57 / 2 * Q30
FN 9: IF +0 EQU +0 GOTO LBL 203
LBL 202
FN 4: Q27 =+Q202 DIV +2
LBL 203
FN 4: Q22 =+Q207 DIV +2
FN 1: Q29 =+Q203 + +Q201
FN 1: Q19 =+Q203 + +Q200
Q51 = ABS Q200
Q52 = ABS Q204
FN 11: IF +Q51 GT +Q52 GOTO LBL 10
FN 1: Q19 =+Q203 + +Q204
LBL 10
Q48 = ( Q218 / 2 ) - ( Q219 / 2 )
FN 18: SYSREAD Q49 = ID200 NR1
Q49 = ( ( Q219 / 2 ) - Q49) / 2
FN 2: Q20 =+Q203 - -Q200
FN 1: Q28 =+Q203 + +0
FN 4: Q35 =+Q218 DIV +2
FN 4: Q36 =+Q219 DIV +2
Q34 = Q36 - Q1 / Q5
Q32 = Q36 - Q1 / Q5
FN 2: Q40 =+0 - +Q35
Q41 = Q40 + Q1 / Q5
FN 1: Q23 =+Q40 + +Q36
FN 1: Q42 =+0 + +Q35
Q43 = Q42 - Q1 / Q5
FN 2: Q24 =+Q42 - +Q36
FN 1: Q44 =+0 + +Q36
Q45 = Q44 - Q1 / Q5
FN 2: Q46 =+0 - +Q36
Q47 = Q46 + Q1 / Q5
FN 1: Q25 =+0 + +Q32
FN 2: Q26 =+0 - +Q32
Q11 = Q206
CYCL DEF 7.0 NULLPUNKT
CYCL DEF 7.1 IX+Q216
CYCL DEF 7.2 IY+Q217
CYCL DEF 10.0 DREHUNG
CYCL DEF 10.1 IROT+Q224
FN 1: Q0 =+Q109 + +1
FN 18: SYSREAD Q0 = ID270 NR1 IDXQ0
FN 9: IF +Q30 EQU -1 GOTO LBL 120
FN 11: IF +Q0 GT +Q19 GOTO LBL 121
L  Z+Q19 R0 FMAX
FN 9: IF +0 EQU +0 GOTO LBL 121
LBL 120
FN 12: IF +Q0 LT +Q19 GOTO LBL 121
L  Z+Q19 R0 FMAX
LBL 121
L  X+Q23  Y+0 FMAX
L  Z+Q20 FMAX
FN 9: IF +Q215 EQU +2 GOTO LBL 5
Q11 = Q207
L  Z+Q203 R0 FQ207
FN 10: IF +Q30 NE -1 GOTO LBL 30
FN 9: IF +Q28 EQU +Q29 GOTO LBL 3
FN 11: IF +Q28 GT +Q29 GOTO LBL 100
FN 9: IF +0 EQU +0 GOTO LBL 31
LBL 30
FN 9: IF +Q28 EQU +Q29 GOTO LBL 3
FN 12: IF +Q28 LT +Q29 GOTO LBL 100
LBL 31
FN 1: Q28 =+Q28 + -Q27
FN 10: IF +Q30 NE -1 GOTO LBL 32
FN 9: IF +Q28 EQU +Q29 GOTO LBL 3
FN 11: IF +Q28 GT +Q29 GOTO LBL 3
FN 9: IF +0 EQU +0 GOTO LBL 33
LBL 32
FN 9: IF +Q28 EQU +Q29 GOTO LBL 3
FN 12: IF +Q28 LT +Q29 GOTO LBL 3
LBL 33
L  X+Q24  Z+Q28 FQ207
LBL 12
FN 1: Q28 =+Q28 + -Q27
FN 10: IF +Q30 NE -1 GOTO LBL 34
FN 9: IF +Q28 EQU +Q29 GOTO LBL 2
FN 11: IF +Q28 GT +Q29 GOTO LBL 2
FN 9: IF +0 EQU +0 GOTO LBL 35
LBL 34
FN 9: IF +Q28 EQU +Q29 GOTO LBL 2
FN 12: IF +Q28 LT +Q29 GOTO LBL 2
LBL 35
L  X+Q23  Z+Q28 FQ207
FN 1: Q28 =+Q28 + -Q27
FN 10: IF +Q30 NE -1 GOTO LBL 36
FN 9: IF +Q28 EQU +Q29 GOTO LBL 3
FN 11: IF +Q28 GT +Q29 GOTO LBL 3
FN 9: IF +0 EQU +0 GOTO LBL 37
LBL 36
FN 9: IF +Q28 EQU +Q29 GOTO LBL 3
FN 12: IF +Q28 LT +Q29 GOTO LBL 3
LBL 37
L  X+Q24  Y+0  Z+Q28 FQ207
FN 10: IF +Q30 NE -1 GOTO LBL 38
FN 12: IF +Q28 LT +Q29 GOTO LBL 12
FN 9: IF +0 EQU +0 GOTO LBL 2
LBL 38
FN 11: IF +Q28 GT +Q29 GOTO LBL 12
LBL 2
L  X+Q23  Y+0  Z+Q29 FQ207
L  X+Q24  Y+0  Z+Q29 FQ207
FN 9: IF +0 EQU +0 GOTO LBL 5
LBL 3
L  Z+Q29  Y+0  X+Q24 FQ207
L  X+Q23  Y+0  Z+Q29 FQ207
LBL 5
FN 9: IF +Q215 EQU +1 GOTO LBL 100
Q10 = Q29
Q13 = 1.1
FN 9: IF +Q338 EQU +0 GOTO LBL 150
Q10 = Q203 - Q338
Q13 = 0
LBL 151
FN 9: IF +Q30 EQU -1 GOTO LBL 152
FN 9: IF +Q10 EQU +Q29 GOTO LBL 153
FN 12: IF +Q10 LT +Q29 GOTO LBL 153
FN 9: IF +0 EQU +0 GOTO LBL 150
LBL 152
FN 9: IF +Q10 EQU +Q29 GOTO LBL 153
FN 11: IF +Q10 GT +Q29 GOTO LBL 153
FN 9: IF +0 EQU +0 GOTO LBL 150
LBL 153
Q10 = Q29
Q13 = 1.1
LBL 150
L  Z+Q10 R0 FQ11
L  X-Q48  Y+0 R0 FQ207 M110
APPR CT  X-Q35  Y+0  CCA180 R+Q49 RL FQ22
CR  X-Q48  Y-Q36 R+Q36 DR+ FQ207
L  X+Q48  Y-Q36  Z+Q10 FQ207
CR  X+Q48  Y+Q36 R+Q36 DR+ FQ207
L  X-Q48  Y+Q36  Z+Q10 FQ207
CT  X-Q35  Y+0 FQ22
DEP CT  CCA180 R+Q49 FQ207 M111
L  X-Q48  Y+0 R0 FQ207
FN 9: IF +Q13 EQU +1.1 GOTO LBL 100
Q10 = Q10 - Q338
Q11 = Q206
FN 9: IF +0 EQU +0 GOTO LBL 151
LBL 100
L  Z+Q20 R0 FMAX
L  Z+Q19 FMAX
CYCL DEF 10.0 DREHUNG
CYCL DEF 10.1 IROT-Q224
CYCL DEF 7.0 NULLPUNKT
CYCL DEF 7.1 IX-Q216
CYCL DEF 7.2 IY-Q217
FN 9: IF +0 EQU +0 GOTO LBL 99
LBL 98
FN 14: ERROR= 1002
LBL 97
FN 14: ERROR= 1003
LBL 96
FN 14: ERROR= 1021
LBL 99
FN 3: Q200 =+Q200 * +Q30
FN 3: Q202 =+Q202 * +Q30
FN 3: Q204 =+Q204 * +Q30
FN 3: Q338 =+Q338 * +Q30
LBL 0
FN 0: Q215 =+Q2
LBL 254
END PGM 210 MM 
