0  BEGIN PGM 210 MM
1  Q195 = Q197  
2  Q197 = 0  
3  Q200 = ABS Q200  
4  Q202 = ABS Q202  
5  Q204 = ABS Q204  
6  Q215 = ABS Q215  
7  Q218 = ABS Q218  
8  Q219 = ABS Q219  
9  Q338 = ABS Q338  
10  FN 17: SYSWRITE ID212 = +3
11  FN 18: SYSREAD Q5 = ID210 NR4 IDX1
12  FN 18: SYSREAD Q0 = ID1000 NR7441
13  Q0 = 2 * FRAC (Q0 / 2)  
14  FN 9: IF +Q0 EQU +1 GOTO LBL 199
15  FN 9: IF +Q110 EQU +0 GOTO LBL 199
16  FN 9: IF +Q110 EQU +1 GOTO LBL 199
17  FN 14: ERROR = 1000
18  LBL 199
19  FN 10: IF +Q109 NE -1 GOTO LBL 198
20  FN 14: ERROR = 1001
21  LBL 198
22  FN 11: IF +Q218 GT +Q219 GOTO LBL 197
23  FN 14: ERROR = 1032
24  LBL 197
25  FN 9: IF +Q201 EQU +0 GOTO LBL 254
26  FN 12: IF +Q201 LT +0 GOTO LBL 196
27  FN 0: Q30 = -1
28  FN 9: IF +0 EQU +0 GOTO LBL 194
29  LBL 196
30  FN 0: Q30 = +1
31  LBL 194
32  FN 10: IF +Q202 NE +0 GOTO LBL 21
33  FN 14: ERROR = 1030
34  LBL 21
35  FN 10: IF +Q195 NE +1 GOTO LBL 195
36  FN 14: ERROR = 1016
37  LBL 195
38  CALL LBL 99
39  FN 0: Q2 = +Q215
40  FN 18: SYSREAD Q1 = ID200 NR1
41  Q1 = ABS Q1  
42  Q27 = (Q219 / Q1) * Q5  
43  FN 11: IF +Q27 GT +6 GOTO LBL 98
44  FN 12: IF +Q27 LT +2 GOTO LBL 97
45  FN 9: IF +Q27 EQU +2 GOTO LBL 200
46  FN 9: IF +0 EQU +0 GOTO LBL 201
47  LBL 200
48  FN 0: Q215 = +1
49  LBL 201
50  Q57 = ABS Q201  
51  Q58 = ABS Q202  
52  FN 11: IF +Q57 GT +Q58 GOTO LBL 202
53  Q27 = Q57 / 2 * Q30  
54  FN 9: IF +0 EQU +0 GOTO LBL 203
55  LBL 202
56  FN 4: Q27 = +Q202 DIV +2
57  LBL 203
58  FN 4: Q22 = +Q207 DIV +2
59  FN 1: Q29 = +Q203 + +Q201
60  FN 1: Q19 = +Q203 + +Q200
61  Q51 = ABS Q200  
62  Q52 = ABS Q204  
63  FN 11: IF +Q51 GT +Q52 GOTO LBL 10
64  FN 1: Q19 = +Q203 + +Q204
65  LBL 10
66  FN 2: Q20 = +Q203 - -Q200
67  FN 1: Q28 = +Q203 + +0
68  FN 4: Q35 = +Q218 DIV +2
69  FN 4: Q36 = +Q219 DIV +2
70  FN 2: Q34 = +Q36 - +Q1
71  FN 2: Q32 = +Q36 - +Q1
72  FN 2: Q40 = +0 - +Q35
73  FN 1: Q41 = +Q40 + +Q1
74  FN 1: Q23 = +Q40 + +Q36
75  FN 1: Q42 = +0 + +Q35
76  FN 2: Q43 = +Q42 - +Q1
77  FN 2: Q24 = +Q42 - +Q36
78  FN 1: Q44 = +0 + +Q36
79  FN 2: Q45 = +Q44 - +Q1
80  FN 2: Q46 = +0 - +Q36
81  FN 1: Q47 = +Q46 + +Q1
82  FN 1: Q25 = +0 + +Q32
83  FN 2: Q26 = +0 - +Q32
84  CYCL DEF 7.0 NULLPUNKT
85  CYCL DEF 7.1 IX+Q216
86  CYCL DEF 7.2 IY+Q217
87  CYCL DEF 10.0 DREHUNG
88  CYCL DEF 10.1 IROT+Q224
89  FN 1: Q0 = +Q109 + +1
90  FN 18: SYSREAD Q0 = ID270 NR1 IDXQ0
91  FN 9: IF +Q30 EQU -1 GOTO LBL 120
92  FN 11: IF +Q0 GT +Q19 GOTO LBL 121
93  L Z+Q19 R0 F MAX
94  FN 9: IF +0 EQU +0 GOTO LBL 121
95  LBL 120
96  FN 12: IF +Q0 LT +Q19 GOTO LBL 121
97  L Z+Q19 R0 F MAX
98  LBL 121
99  L X+Q23 Y+0 F MAX
100  L Z+Q20 F MAX
101  FN 9: IF +Q215 EQU +2 GOTO LBL 5
102  L Z+Q203 R0 F100
103  FN 10: IF +Q30 NE -1 GOTO LBL 30
104  FN 9: IF +Q28 EQU +Q29 GOTO LBL 3
105  FN 11: IF +Q28 GT +Q29 GOTO LBL 100
106  FN 9: IF +0 EQU +0 GOTO LBL 31
107  LBL 30
108  FN 9: IF +Q28 EQU +Q29 GOTO LBL 3
109  FN 12: IF +Q28 LT +Q29 GOTO LBL 100
110  LBL 31
111  FN 1: Q28 = +Q28 + -Q27
112  FN 10: IF +Q30 NE -1 GOTO LBL 32
113  FN 9: IF +Q28 EQU +Q29 GOTO LBL 3
114  FN 11: IF +Q28 GT +Q29 GOTO LBL 3
115  FN 9: IF +0 EQU +0 GOTO LBL 33
116  LBL 32
117  FN 9: IF +Q28 EQU +Q29 GOTO LBL 3
118  FN 12: IF +Q28 LT +Q29 GOTO LBL 3
119  LBL 33
120  L X+Q24 Z+Q28 FQ207
121  LBL 12
122  FN 1: Q28 = +Q28 + -Q27
123  FN 10: IF +Q30 NE -1 GOTO LBL 34
124  FN 9: IF +Q28 EQU +Q29 GOTO LBL 2
125  FN 11: IF +Q28 GT +Q29 GOTO LBL 2
126  FN 9: IF +0 EQU +0 GOTO LBL 35
127  LBL 34
128  FN 9: IF +Q28 EQU +Q29 GOTO LBL 2
129  FN 12: IF +Q28 LT +Q29 GOTO LBL 2
130  LBL 35
131  L X+Q23 Z+Q28 FQ207
132  FN 1: Q28 = +Q28 + -Q27
133  FN 10: IF +Q30 NE -1 GOTO LBL 36
134  FN 9: IF +Q28 EQU +Q29 GOTO LBL 3
135  FN 11: IF +Q28 GT +Q29 GOTO LBL 3
136  FN 9: IF +0 EQU +0 GOTO LBL 37
137  LBL 36
138  FN 9: IF +Q28 EQU +Q29 GOTO LBL 3
139  FN 12: IF +Q28 LT +Q29 GOTO LBL 3
140  LBL 37
141  L X+Q24 Y+0 Z+Q28 FQ207
142  FN 10: IF +Q30 NE -1 GOTO LBL 38
143  FN 12: IF +Q28 LT +Q29 GOTO LBL 12
144  FN 9: IF +0 EQU +0 GOTO LBL 2
145  LBL 38
146  FN 11: IF +Q28 GT +Q29 GOTO LBL 12
147  LBL 2
148  L X+Q23 Y+0 Z+Q29 FQ207
149  L X+Q24 Y+0 Z+Q29 FQ207
150  FN 9: IF +0 EQU +0 GOTO LBL 5
151  LBL 3
152  L Z+Q29 Y+0 X+Q24 FQ207
153  L X+Q23 Y+0 Z+Q29 FQ207
154  LBL 5
155  FN 9: IF +Q215 EQU +1 GOTO LBL 100
156  Q10 = Q29  
157  Q13 = 1.1  
158  FN 9: IF +Q338 EQU +0 GOTO LBL 150
159  Q10 = Q203 - Q338  
160  Q13 = 0  
161  LBL 151
162  FN 9: IF +Q30 EQU -1 GOTO LBL 152
163  FN 9: IF +Q10 EQU +Q29 GOTO LBL 153
164  FN 12: IF +Q10 LT +Q29 GOTO LBL 153
165  FN 9: IF +0 EQU +0 GOTO LBL 150
166  LBL 152
167  FN 9: IF +Q10 EQU +Q29 GOTO LBL 153
168  FN 11: IF +Q10 GT +Q29 GOTO LBL 153
169  FN 9: IF +0 EQU +0 GOTO LBL 150
170  LBL 153
171  Q10 = Q29  
172  Q13 = 1.1  
173  LBL 150
174  L Z+Q10 R0 FQ207
175  L X+Q25 Y+0 R0 FQ207
176  CR X+0 Y+Q45 R+Q32 DR+ FQ22
177  L X+Q23 Y+Q45 Z+Q10 FQ207
178  CR Y+Q47 X+Q23 R+Q34 DR+ FQ207
179  L X+Q24 Y+Q47 Z+Q10 FQ207
180  CR Y+Q45 X+Q24 R+Q34 DR+ FQ207
181  L X+0 Y+Q45 Z+Q10 FQ207
182  CT X+Q26 Y+0 R0 FQ22
183  L X+0 Z+Q10 Y+0 R0 FQ207
184  FN 9: IF +Q13 EQU +1.1 GOTO LBL 100
185  Q10 = Q10 - Q338  
186  FN 9: IF +0 EQU +0 GOTO LBL 151
187  LBL 100
188  L Z+Q20 X+0 Y+0 R0 F MAX
189  L Z+Q19 F MAX
190  CYCL DEF 10.0 DREHUNG
191  CYCL DEF 10.1 IROT-Q224
192  CYCL DEF 7.0 NULLPUNKT
193  CYCL DEF 7.1 IX-Q216
194  CYCL DEF 7.2 IY-Q217
195  FN 9: IF +0 EQU +0 GOTO LBL 99
196  LBL 98
197  FN 14: ERROR = 1002
198  LBL 97
199  FN 14: ERROR = 1003
200  LBL 99
201  FN 3: Q200 = +Q200 * +Q30
202  FN 3: Q202 = +Q202 * +Q30
203  FN 3: Q204 = +Q204 * +Q30
204  FN 3: Q338 = +Q338 * +Q30
205  LBL 0
206  FN 0: Q215 = +Q2
207  LBL 254
208  END PGM 210 MM
