BEGIN PGM 221 MM 
Q200 = ABS Q200
Q204 = ABS Q204
Q242 = ABS Q242
Q243 = ABS Q243
Q301 = ABS Q301
Q176 = 0
FN 17: SYSWRITE ID 212 =+3
FN 18: SYSREAD Q147 = ID10 NR3
FN 10: IF +Q147 NE +254 GOTO LBL 212
FN 10: IF +Q367 NE +0 GOTO LBL 212
FN 14: ERROR= 1089
LBL 212
FN 10: IF +Q147 NE +12 GOTO LBL 211
FN 14: ERROR= 1027
LBL 211
FN 10: IF +Q147 NE +0 GOTO LBL 205
FN 14: ERROR= 1027
LBL 205
FN 10: IF +Q147 NE +210 GOTO LBL 204
FN 14: ERROR= 1033
LBL 204
FN 10: IF +Q147 NE +211 GOTO LBL 203
FN 14: ERROR= 1034
LBL 203
FN 10: IF +Q147 NE +230 GOTO LBL 202
FN 14: ERROR= 1027
LBL 202
FN 10: IF +Q147 NE +231 GOTO LBL 201
FN 14: ERROR= 1027
LBL 201
FN 11: IF +Q147 GT +199 GOTO LBL 200
FN 18: SYSREAD Q148 = ID30 NR2
FN 0: Q149 =+Q201
FN 0: Q201 =+Q148
LBL 200
FN 18: SYSREAD Q130 = ID1000 NR7441
Q130 = 2 * FRAC ( Q130 / 2 )
FN 9: IF +Q130 EQU +1 GOTO LBL 199
FN 9: IF +Q147 EQU +17 GOTO LBL 199
FN 9: IF +Q147 EQU +18 GOTO LBL 199
FN 9: IF +Q147 EQU +20 GOTO LBL 199
FN 9: IF +Q147 EQU +207 GOTO LBL 199
FN 9: IF +Q147 EQU +209 GOTO LBL 199
FN 9: IF +Q147 EQU +241 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 Q130 = ID1000 NR7441
Q130 = 8 * FRAC ( Q130 / 8 )
FN 12: IF +Q130 LT +4 GOTO LBL 206
FN 9: IF +Q147 EQU +263 GOTO LBL 207
FN 9: IF +Q147 EQU +264 GOTO LBL 207
FN 9: IF +Q147 EQU +265 GOTO LBL 207
FN 9: IF +Q147 EQU +267 GOTO LBL 207
FN 12: IF +Q201 LT +0 GOTO LBL 206
FN 9: IF +Q201 EQU +0 GOTO LBL 206
FN 9: IF +0 EQU +0 GOTO LBL 208
LBL 207
FN 11: IF +Q201 GT +0 GOTO LBL 208
FN 9: IF +Q147 EQU +265 GOTO LBL 209
FN 9: IF +Q147 EQU +267 GOTO LBL 209
FN 11: IF +Q356 GT +0 GOTO LBL 208
LBL 209
FN 12: IF +Q358 LT +0 GOTO LBL 206
FN 9: IF +Q358 EQU +0 GOTO LBL 206
LBL 208
FN 14: ERROR= 1077
LBL 206
FN 10: IF +Q109 NE -1 GOTO LBL 198
FN 14: ERROR= 1001
LBL 198
FN 9: IF +Q147 EQU +204 GOTO LBL 192
FN 9: IF +Q147 EQU +263 GOTO LBL 191
FN 9: IF +Q147 EQU +264 GOTO LBL 191
FN 9: IF +Q147 EQU +265 GOTO LBL 191
FN 9: IF +Q147 EQU +267 GOTO LBL 191
FN 9: IF +Q147 EQU +240 GOTO LBL 160
FN 9: IF +0 EQU +0 GOTO LBL 161
LBL 160
FN 9: IF +Q343 EQU +0 GOTO LBL 161
FN 12: IF +Q344 LT +0 GOTO LBL 162
FN 0: Q131 =-1
FN 9: IF +0 EQU +0 GOTO LBL 190
LBL 162
FN 0: Q131 =+1
FN 9: IF +0 EQU +0 GOTO LBL 190
LBL 161
FN 9: IF +Q201 EQU +0 GOTO LBL 254
FN 12: IF +Q201 LT +0 GOTO LBL 197
FN 0: Q131 =-1
FN 9: IF +0 EQU +0 GOTO LBL 190
LBL 197
FN 0: Q131 =+1
FN 9: IF +0 EQU +0 GOTO LBL 190
LBL 191
FN 9: IF +Q201 EQU +0 GOTO LBL 253
Q356 = ABS Q356 * ( - 1 )
Q358 = ABS Q358 * ( - 1 )
FN 12: IF +Q201 LT +0 GOTO LBL 187
Q356 = ABS Q356
Q358 = ABS Q358
FN 9: IF +0 EQU +0 GOTO LBL 185
LBL 253
FN 9: IF +Q147 EQU +265 GOTO LBL 252
FN 9: IF +Q147 EQU +267 GOTO LBL 252
FN 9: IF +Q356 EQU +0 GOTO LBL 252
FN 12: IF +Q356 LT +0 GOTO LBL 187
FN 9: IF +0 EQU +0 GOTO LBL 185
LBL 252
FN 9: IF +Q358 EQU +0 GOTO LBL 254
FN 12: IF +Q358 LT +0 GOTO LBL 187
LBL 185
FN 0: Q131 =-1
FN 9: IF +0 EQU +0 GOTO LBL 190
LBL 187
FN 0: Q131 =+1
FN 9: IF +0 EQU +0 GOTO LBL 190
LBL 192
FN 9: IF +Q249 EQU +0 GOTO LBL 254
FN 12: IF +Q249 LT +0 GOTO LBL 195
FN 0: Q131 =+1
FN 9: IF +0 EQU +0 GOTO LBL 190
LBL 195
FN 0: Q131 =-1
LBL 190
CALL LBL 99
FN 0: Q133 =+0
FN 0: Q134 =+0
FN 0: Q137 =+0
FN 0: Q138 =+0
FN 0: Q135 =+Q237
FN 1: Q140 =+Q203 + +Q200
Q143 = ABS Q200
Q144 = ABS Q204
FN 11: IF +Q143 GT +Q144 GOTO LBL 11
FN 1: Q140 =+Q203 + +Q204
LBL 11
FN 1: Q141 =+Q203 + +Q200
CYCL DEF 7.0 NULLPUNKT
CYCL DEF 7.1 IX+Q225
CYCL DEF 7.2 IY+Q226
CYCL DEF 10.0 DREHUNG
CYCL DEF 10.1 IROT+Q224
FN 1: Q130 =+Q109 + +1
FN 18: SYSREAD Q130 = ID270 NR1 IDXQ130
FN 9: IF +Q131 EQU -1 GOTO LBL 120
FN 11: IF +Q130 GT +Q140 GOTO LBL 122
L  Z+Q140 R0 FMAX
FN 9: IF +0 EQU +0 GOTO LBL 122
LBL 120
FN 12: IF +Q130 LT +Q140 GOTO LBL 122
L  Z+Q140 R0 FMAX
FN 9: IF +0 EQU +0 GOTO LBL 122
LBL 2
FN 10: IF +Q301 NE +1 GOTO LBL 122
L  Z+Q140 FMAX
LBL 122
L  X+Q133  Y+Q134 FMAX
L  Z+Q141 R0 FMAX
FN 17: SYSWRITE ID 212 =+0
FN 0: Q197 =+1
CYCL CALL
FN 0: Q197 =+0
FN 17: SYSWRITE ID 212 =+3
FN 1: Q133 =+Q133 + +Q135
FN 1: Q137 =+Q137 + +1
FN 12: IF +Q137 LT +Q242 GOTO LBL 2
FN 0: Q137 =+0
FN 1: Q138 =+Q138 + +1
FN 0: Q139 =+0
FN 0: Q135 =-Q135
FN 1: Q133 =+Q133 + +Q135
FN 1: Q134 =+Q134 + +Q238
FN 12: IF +Q138 LT +Q243 GOTO LBL 2
L  Z+Q140 FMAX
CYCL DEF 10.0 DREHUNG
CYCL DEF 10.1 IROT-Q224
CYCL DEF 7.0 NULLPUNKT
CYCL DEF 7.1 IX-Q225
CYCL DEF 7.2 IY-Q226
LBL 99
FN 3: Q200 =+Q200 * +Q131
FN 3: Q202 =+Q202 * +Q131
FN 3: Q204 =+Q204 * +Q131
FN 3: Q205 =+Q205 * +Q131
FN 3: Q212 =+Q212 * +Q131
FN 3: Q250 =+Q250 * +Q131
FN 3: Q252 =+Q252 * +Q131
FN 3: Q256 =+Q256 * +Q131
FN 3: Q257 =+Q257 * +Q131
FN 3: Q258 =+Q258 * +Q131
FN 3: Q259 =+Q259 * +Q131
FN 3: Q334 =+Q334 * +Q131
LBL 0
FN 11: IF +Q147 GT +199 GOTO LBL 20
FN 0: Q201 =+Q149
LBL 20
LBL 254
END PGM 221 MM 
