0  BEGIN PGM 264 MM
1  Q195 = Q197  
2  Q197 = 0  
3  FN 9: IF +Q195 EQU +1 GOTO LBL 200
4  Q200 = ABS Q200  
5  Q202 = ABS Q202  
6  Q204 = ABS Q204  
7  Q206 = ABS Q206  
8  Q207 = ABS Q207  
9  Q253 = ABS Q253  
10  Q256 = ABS Q256  
11  Q257 = ABS Q257  
12  Q258 = ABS Q258  
13  Q335 = ABS Q335  
14  Q359 = ABS Q359  
15  LBL 200
16  FN 17: SYSWRITE ID212 = +3
17  FN 18: SYSREAD Q0 = ID1000 NR7441
18  FN 18: SYSREAD Q25 = ID200 NR1
19  Q0 = 2 * FRAC (Q0 / 2)  
20  FN 9: IF +Q0 EQU +1 GOTO LBL 199
21  FN 9: IF +Q110 EQU +0 GOTO LBL 199
22  FN 9: IF +Q110 EQU +1 GOTO LBL 199
23  FN 14: ERROR = 1000
24  LBL 199
25  FN 10: IF +Q109 NE -1 GOTO LBL 198
26  FN 14: ERROR = 1001
27  LBL 198
28  Q18 = (Q335 - ABS Q239) / 2  
29  FN 11: IF +Q18 GT +Q25 GOTO LBL 201
30  FN 14: ERROR = 1003
31  LBL 201
32  Q16 = ABS Q201 + ABS Q239 / 3  
33  Q17 = ABS Q356  
34  FN 12: IF +Q16 LT +Q17 GOTO LBL 202
35  FN 9: IF +Q17 EQU +0 GOTO LBL 202
36  FN 14: ERROR = 1070
37  LBL 202
38  FN 10: IF +Q351 NE +0 GOTO LBL 196
39  FN 14: ERROR = 1069
40  LBL 196
41  FN 9: IF +Q201 EQU +0 GOTO LBL 253
42  Q356 = ABS Q356 * (-1)  
43  Q358 = ABS Q358 * (-1)  
44  FN 12: IF +Q201 LT +0 GOTO LBL 197
45  Q356 = ABS Q356  
46  Q358 = ABS Q358  
47  FN 9: IF +0 EQU +0 GOTO LBL 195
48  LBL 253
49  FN 9: IF +Q356 EQU +0 GOTO LBL 252
50  FN 12: IF +Q356 LT +0 GOTO LBL 197
51  FN 9: IF +0 EQU +0 GOTO LBL 195
52  LBL 252
53  FN 9: IF +Q358 EQU +0 GOTO LBL 254
54  FN 12: IF +Q358 LT +0 GOTO LBL 197
55  LBL 195
56  FN 0: Q30 = -1
57  FN 9: IF +0 EQU +0 GOTO LBL 194
58  LBL 197
59  FN 0: Q30 = +1
60  LBL 194
61  FN 9: IF +Q195 EQU +1 GOTO LBL 193
62  CALL LBL 4
63  LBL 193
64  FN 1: Q19 = +Q203 + +Q200
65  Q38 = ABS Q200  
66  Q39 = ABS Q204  
67  FN 11: IF +Q38 GT +Q39 GOTO LBL 7
68  FN 1: Q19 = +Q203 + +Q204
69  LBL 7
70  FN 1: Q20 = +Q203 + +Q200
71  FN 1: Q24 = +Q203 + +Q356
72  FN 0: Q15 = +Q203
73  FN 0: Q34 = +Q258
74  FN 0: Q22 = +Q202
75  FN 0: Q35 = +0
76  Q10 = Q203 + Q201  
77  Q11 = Q10 + ABS Q239 * Q30  
78  Q13 = Q203 + Q358  
79  L Z+Q20 R0 F MAX
80  FN 9: IF +Q356 EQU +0 GOTO LBL 31
81  FN 4: Q21 = +Q34 DIV +Q356
82  LBL 2
83  FN 1: Q35 = +Q35 + -Q22
84  FN 9: IF +Q30 EQU -1 GOTO LBL 50
85  FN 11: IF +Q35 GT +Q356 GOTO LBL 3
86  FN 0: Q35 = +Q356
87  LBL 3
88  FN 9: IF +0 EQU +0 GOTO LBL 51
89  LBL 50
90  FN 12: IF +Q35 LT +Q356 GOTO LBL 51
91  FN 0: Q35 = +Q356
92  LBL 51
93  FN 2: Q36 = +Q203 - -Q35
94  FN 9: IF +Q257 EQU +0 GOTO LBL 6
95  LBL 5
96  FN 2: Q15 = +Q15 - +Q257
97  FN 9: IF +Q30 EQU -1 GOTO LBL 40
98  FN 12: IF +Q15 LT +Q36 GOTO LBL 6
99  FN 9: IF +0 EQU +0 GOTO LBL 41
100  LBL 40
101  FN 11: IF +Q15 GT +Q36 GOTO LBL 6
102  LBL 41
103  L Z+Q15 R0 FQ206
104  L IZ+Q256 F3000
105  FN 9: IF +Q30 EQU -1 GOTO LBL 42
106  FN 11: IF +Q15 GT +Q36 GOTO LBL 5
107  FN 9: IF +0 EQU +0 GOTO LBL 6
108  LBL 42
109  FN 12: IF +Q15 LT +Q36 GOTO LBL 5
110  LBL 6
111  L Z+Q36 R0 FQ206
112  FN 0: Q15 = +Q36
113  FN 9: IF +Q35 EQU +Q356 GOTO LBL 45
114  L Z+Q20 R0 F MAX
115  FN 1: Q37 = +Q36 + +Q34
116  L Z+Q37 R0 F MAX
117  FN 9: IF +0 EQU +0 GOTO LBL 2
118  LBL 45
119  LBL 31
120  Q26 = Q335 / 2   ; GEW.-RADIUS 
121  Q27 = (Q26 - Q25) / 2   ; CCX-VERSATZ 
122  Q28 = Q26 - Q27   ; PR 
123  Q29 = Q27   ; EINFAHR-R. 
124  FN 9: IF +Q109 EQU +0 GOTO LBL 230
125  FN 9: IF +Q109 EQU +6 GOTO LBL 230
126  FN 9: IF +Q109 EQU +1 GOTO LBL 231
127  FN 9: IF +Q109 EQU +7 GOTO LBL 231
128  FN 9: IF +Q109 EQU +2 GOTO LBL 232
129  FN 9: IF +Q109 EQU +8 GOTO LBL 232
130  LBL 230
131  FN 18: SYSREAD Q31 = ID270 NR1 IDX2
132  FN 18: SYSREAD Q32 = ID270 NR1 IDX3
133  FN 9: IF +0 EQU +0 GOTO LBL 233
134  LBL 231
135  FN 18: SYSREAD Q31 = ID270 NR1 IDX3
136  FN 18: SYSREAD Q32 = ID270 NR1 IDX1
137  FN 9: IF +0 EQU +0 GOTO LBL 233
138  LBL 232
139  FN 18: SYSREAD Q31 = ID270 NR1 IDX1
140  FN 18: SYSREAD Q32 = ID270 NR1 IDX2
141  LBL 233
142  CC X+Q31 Y+Q32
143  FN 9: IF +Q358 EQU +0 GOTO LBL 35
144  LBL 34
145  ; SENKEN STIRNSEITE 
146  Q14 = Q359 / 2  
147  Q12 = Q31 - Q14  
148  L Z+Q13 R0 FQ253 M110
149  CC X+Q12 IY+0
150  CP PA+180 DR+ FQ206
151  CC X+Q31 Y+Q32
152  CP IPA+360 DR+
153  CC X+Q12 IY+0
154  CP PA+0 DR+
155  CC X+Q31 Y+Q32
156  LP PR+0 PA+0 R0 FQ253 M111
157  LBL 35
158  FN 9: IF +Q201 EQU +0 GOTO LBL 99
159  FN 12: IF +Q239 LT +0 GOTO LBL 20
160  FN 3: Q239 = +Q239 * +Q30
161  FN 12: IF +Q351 LT +0 GOTO LBL 25
162  ; Gleichlauf Rechtsgewinde GF 
163  ; Z+ DR+ RL 
164  LBL 11
165  L Z+Q10 R0 FQ253 M110
166  CC IX-Q27 IY+0
167  APPR PCT PR+Q28 PA+180 CCA180 R+Q29 RL FQ207
168  CC X+Q31 Y+Q32
169  CP IPA+360 IZ+Q239 DR+ FQ207
170  CC IX-Q27 IY+0
171  DEP CT CCA180 R+Q29 FQ207
172  CC X+Q31 Y+Q32
173  LP PR+0 PA+0 R0 FQ253 M111
174  FN 9: IF +0 EQU +0 GOTO LBL 99
175  ; Gegenlauf Rechtsgewinde GF 
176  ; Z- DR- RR 
177  LBL 25
178  CC IX-Q27 IY+0
179  L Z+Q11 R0 FQ253 M110
180  APPR PCT PR+Q28 PA+180 CCA180 R+Q29 RR FQ207
181  CC X+Q31 Y+Q32
182  CP IPA-360 IZ-Q239 DR- FQ207
183  CC IX-Q27 IY+0
184  DEP CT CCA180 R+Q29 FQ207
185  CC X+Q31 Y+Q32
186  LP PR+0 PA+0 R0 FQ253 M111
187  FN 9: IF +0 EQU +0 GOTO LBL 99
188  ; Gegenlauflauf Linksgewinde GF 
189  ; Z+ DR- RR 
190  LBL 20
191  FN 3: Q239 = +Q239 * +Q30
192  FN 11: IF +Q351 GT +0 GOTO LBL 27
193  CC IX-Q27 IY+0
194  L Z+Q10 R0 FQ253 M110
195  APPR PCT PR+Q28 PA+180 CCA180 R+Q29 RR FQ207
196  CC X+Q31 Y+Q32
197  CP IPA-360 IZ-Q239 DR- FQ207
198  CC IX-Q27 IY+0
199  DEP CT CCA180 R+Q29 FQ207
200  CC X+Q31 Y+Q32
201  LP PR+0 PA+0 R0 FQ253 M111
202  FN 9: IF +0 EQU +0 GOTO LBL 99
203  ; Gleichlauf Linksgewinde GF 
204  ; Z- DR+ RL 
205  LBL 27
206  CC IX-Q27 IY+0
207  L Z+Q11 R0 FQ253 M110
208  APPR PCT PR+Q28 PA+180 CCA180 R+Q29 RL FQ207
209  CC X+Q31 Y+Q32
210  CP IPA+360 IZ+Q239 DR+ FQ207
211  CC IX-Q27 IY+0
212  DEP CT CCA180 R+Q29 FQ207
213  CC X+Q31 Y+Q32
214  LP PR+0 PA+0 R0 FQ253 M111
215  LBL 99
216  LBL 4
217  FN 9: IF +Q195 EQU +1 GOTO LBL 192
218  FN 3: Q239 = +Q239 * +Q30
219  FN 3: Q200 = +Q200 * +Q30
220  FN 3: Q202 = +Q202 * +Q30
221  FN 3: Q204 = +Q204 * +Q30
222  FN 3: Q256 = +Q256 * +Q30
223  FN 3: Q257 = +Q257 * +Q30
224  FN 3: Q258 = +Q258 * +Q30
225  LBL 0
226  LBL 192
227  L Z+Q20 R0 F MAX
228  FN 9: IF +Q195 EQU +1 GOTO LBL 254
229  L Z+Q19 R0 F MAX
230  LBL 254
231  END PGM 264 MM
