0  BEGIN PGM 221 MM
1  Q200 = ABS Q200  
2  Q204 = ABS Q204  
3  Q242 = ABS Q242  
4  Q243 = ABS Q243  
5  Q301 = ABS Q301  
6  FN 17: SYSWRITE ID212 = +3
7  FN 18: SYSREAD Q55 = ID10 NR3
8  FN 10: IF +Q55 NE +0 GOTO LBL 205
9  FN 14: ERROR = 1027
10  LBL 205
11  FN 10: IF +Q55 NE +210 GOTO LBL 204
12  FN 14: ERROR = 1033
13  LBL 204
14  FN 10: IF +Q55 NE +211 GOTO LBL 203
15  FN 14: ERROR = 1034
16  LBL 203
17  FN 10: IF +Q55 NE +230 GOTO LBL 202
18  FN 14: ERROR = 1027
19  LBL 202
20  FN 10: IF +Q55 NE +231 GOTO LBL 201
21  FN 14: ERROR = 1027
22  LBL 201
23  FN 11: IF +Q55 GT +199 GOTO LBL 200
24  FN 18: SYSREAD Q56 = ID30 NR2
25  FN 0: Q57 = +Q201
26  FN 0: Q201 = +Q56
27  LBL 200
28  FN 18: SYSREAD Q0 = ID1000 NR7441
29  Q0 = 2 * FRAC (Q0 / 2)  
30  FN 9: IF +Q0 EQU +1 GOTO LBL 199
31  FN 9: IF +Q55 EQU +17 GOTO LBL 199
32  FN 9: IF +Q55 EQU +18 GOTO LBL 199
33  FN 9: IF +Q55 EQU +20 GOTO LBL 199
34  FN 9: IF +Q55 EQU +207 GOTO LBL 199
35  FN 9: IF +Q55 EQU +209 GOTO LBL 199
36  FN 9: IF +Q110 EQU +0 GOTO LBL 199
37  FN 9: IF +Q110 EQU +1 GOTO LBL 199
38  FN 14: ERROR = 1000
39  LBL 199
40  FN 10: IF +Q109 NE -1 GOTO LBL 198
41  FN 14: ERROR = 1001
42  LBL 198
43  FN 9: IF +Q55 EQU +204 GOTO LBL 192
44  FN 9: IF +Q55 EQU +263 GOTO LBL 191
45  FN 9: IF +Q55 EQU +264 GOTO LBL 191
46  FN 9: IF +Q55 EQU +265 GOTO LBL 191
47  FN 9: IF +Q201 EQU +0 GOTO LBL 254
48  FN 12: IF +Q201 LT +0 GOTO LBL 197
49  FN 0: Q30 = -1
50  FN 9: IF +0 EQU +0 GOTO LBL 190
51  LBL 197
52  FN 0: Q30 = +1
53  FN 9: IF +0 EQU +0 GOTO LBL 190
54  LBL 191
55  FN 9: IF +Q201 EQU +0 GOTO LBL 253
56  Q356 = ABS Q356 * (-1)  
57  Q358 = ABS Q358 * (-1)  
58  FN 12: IF +Q201 LT +0 GOTO LBL 187
59  Q356 = ABS Q356  
60  Q358 = ABS Q358  
61  FN 9: IF +0 EQU +0 GOTO LBL 185
62  LBL 253
63  FN 9: IF +Q356 EQU +0 GOTO LBL 252
64  FN 12: IF +Q356 LT +0 GOTO LBL 187
65  FN 9: IF +0 EQU +0 GOTO LBL 185
66  LBL 252
67  FN 9: IF +Q358 EQU +0 GOTO LBL 254
68  FN 12: IF +Q358 LT +0 GOTO LBL 187
69  LBL 185
70  FN 0: Q30 = -1
71  FN 9: IF +0 EQU +0 GOTO LBL 190
72  LBL 187
73  FN 0: Q30 = +1
74  FN 9: IF +0 EQU +0 GOTO LBL 190
75  LBL 192
76  FN 9: IF +Q249 EQU +0 GOTO LBL 254
77  FN 12: IF +Q249 LT +0 GOTO LBL 195
78  FN 0: Q30 = +1
79  FN 9: IF +0 EQU +0 GOTO LBL 190
80  LBL 195
81  FN 0: Q30 = -1
82  LBL 190
83  CALL LBL 99
84  FN 0: Q41 = +0
85  FN 0: Q42 = +0
86  FN 0: Q45 = +0
87  FN 0: Q46 = +0
88  FN 0: Q43 = +Q237
89  FN 1: Q48 = +Q203 + +Q200
90  Q51 = ABS Q200  
91  Q52 = ABS Q204  
92  FN 11: IF +Q51 GT +Q52 GOTO LBL 11
93  FN 1: Q48 = +Q203 + +Q204
94  LBL 11
95  FN 1: Q49 = +Q203 + +Q200
96  CYCL DEF 7.0 NULLPUNKT
97  CYCL DEF 7.1 IX+Q225
98  CYCL DEF 7.2 IY+Q226
99  CYCL DEF 10.0 DREHUNG
100  CYCL DEF 10.1 IROT+Q224
101  FN 1: Q0 = +Q109 + +1
102  FN 18: SYSREAD Q0 = ID270 NR1 IDXQ0
103  FN 9: IF +Q30 EQU -1 GOTO LBL 120
104  FN 11: IF +Q0 GT +Q48 GOTO LBL 122
105  L Z+Q48 R0 F MAX
106  FN 9: IF +0 EQU +0 GOTO LBL 122
107  LBL 120
108  FN 12: IF +Q0 LT +Q48 GOTO LBL 122
109  L Z+Q48 R0 F MAX
110  FN 9: IF +0 EQU +0 GOTO LBL 122
111  LBL 2
112  FN 10: IF +Q301 NE +1 GOTO LBL 122
113  L Z+Q48 F MAX
114  LBL 122
115  L X+Q41 Y+Q42 F MAX
116  L Z+Q49 R0 F MAX
117  FN 17: SYSWRITE ID212 = +0
118  FN 0: Q197 = +1
119  CYCL CALL
120  FN 0: Q197 = +0
121  FN 17: SYSWRITE ID212 = +3
122  FN 1: Q41 = +Q41 + +Q43
123  FN 1: Q45 = +Q45 + +1
124  FN 12: IF +Q45 LT +Q242 GOTO LBL 2
125  FN 0: Q45 = +0
126  FN 1: Q46 = +Q46 + +1
127  FN 0: Q47 = +0
128  FN 0: Q43 = -Q43
129  FN 1: Q41 = +Q41 + +Q43
130  FN 1: Q42 = +Q42 + +Q238
131  FN 12: IF +Q46 LT +Q243 GOTO LBL 2
132  L Z+Q48 F MAX
133  CYCL DEF 10.0 DREHUNG
134  CYCL DEF 10.1 IROT-Q224
135  CYCL DEF 7.0 NULLPUNKT
136  CYCL DEF 7.1 IX-Q225
137  CYCL DEF 7.2 IY-Q226
138  LBL 99
139  FN 3: Q200 = +Q200 * +Q30
140  FN 3: Q202 = +Q202 * +Q30
141  FN 3: Q204 = +Q204 * +Q30
142  FN 3: Q205 = +Q205 * +Q30
143  FN 3: Q212 = +Q212 * +Q30
144  FN 3: Q250 = +Q250 * +Q30
145  FN 3: Q252 = +Q252 * +Q30
146  FN 3: Q256 = +Q256 * +Q30
147  FN 3: Q257 = +Q257 * +Q30
148  FN 3: Q258 = +Q258 * +Q30
149  FN 3: Q259 = +Q259 * +Q30
150  FN 3: Q334 = +Q334 * +Q30
151  LBL 0
152  FN 11: IF +Q55 GT +199 GOTO LBL 20
153  FN 0: Q201 = +Q57
154  LBL 20
155  LBL 254
156  END PGM 221 MM
