0  BEGIN PGM 267 MM
1  Q195 = Q197  
2  Q197 = 0  
3  FN 9: IF +Q195 EQU +1 GOTO LBL 200
4  Q200 = ABS Q200  
5  Q204 = ABS Q204  
6  Q207 = ABS Q207  
7  Q253 = ABS Q253  
8  Q335 = ABS Q335  
9  Q355 = ABS Q355  
10  LBL 200
11  FN 17: SYSWRITE ID212 = +3
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 10: IF +Q351 NE +0 GOTO LBL 196
23  FN 14: ERROR = 1069
24  LBL 196
25  FN 9: IF +Q201 EQU +0 GOTO LBL 253
26  Q358 = ABS Q358 * (-1)  
27  FN 12: IF +Q201 LT +0 GOTO LBL 197
28  Q358 = ABS Q358  
29  FN 9: IF +0 EQU +0 GOTO LBL 195
30  LBL 253
31  FN 9: IF +Q358 EQU +0 GOTO LBL 254
32  FN 12: IF +Q358 LT +0 GOTO LBL 197
33  LBL 195
34  FN 0: Q30 = -1
35  FN 9: IF +0 EQU +0 GOTO LBL 194
36  LBL 197
37  FN 0: Q30 = +1
38  LBL 194
39  FN 9: IF +Q195 EQU +1 GOTO LBL 193
40  CALL LBL 4
41  LBL 193
42  Q19 = Q203 + Q200  
43  Q11 = ABS Q200  
44  Q12 = ABS Q204  
45  FN 11: IF +Q11 GT +Q12 GOTO LBL 2
46  Q19 = Q203 + Q204  
47  LBL 2
48  Q20 = Q203 + Q200  
49  Q24 = Q203 + Q201  
50  LBL 192
51  FN 18: SYSREAD Q25 = ID200 NR1
52  Q26 = Q335 / 2   ; GEW.-RADIUS 
53  Q29 = ABS (Q239 / 2)   ; EINFAHR-R. 
54  Q27 = Q26 + Q25 + ABS Q239   ; CCX-VERSATZ 
55  Q28 = Q26 - Q29   ; PR 
56  Q22 = ABS Q239 * 0.75  
57  Q14 = Q27 - ((Q27 - Q359) / 2)  
58  FN 11: IF +Q27 GT +Q14 GOTO LBL 191
59  FN 14: ERROR = 1016
60  LBL 191
61  FN 0: Q35 = +1
62  FN 9: IF +Q355 EQU +0 GOTO LBL 10
63  Q33 = ABS (Q201 / (Q239 * Q355))  
64  Q34 = FRAC Q33  
65  Q35 = INT Q33  
66  Q36 = (ABS Q239) * Q355 * Q30   ; VERSATZ IN Z 
67  FN 9: IF +Q34 EQU +0 GOTO LBL 10
68  Q35 = Q35 + 1  
69  LBL 10
70  FN 9: IF +Q109 EQU +0 GOTO LBL 230
71  FN 9: IF +Q109 EQU +6 GOTO LBL 230
72  FN 9: IF +Q109 EQU +1 GOTO LBL 231
73  FN 9: IF +Q109 EQU +7 GOTO LBL 231
74  FN 9: IF +Q109 EQU +2 GOTO LBL 232
75  FN 9: IF +Q109 EQU +8 GOTO LBL 232
76  LBL 230
77  FN 18: SYSREAD Q31 = ID270 NR1 IDX2
78  FN 18: SYSREAD Q32 = ID270 NR1 IDX3
79  FN 9: IF +0 EQU +0 GOTO LBL 233
80  LBL 231
81  FN 18: SYSREAD Q31 = ID270 NR1 IDX3
82  FN 18: SYSREAD Q32 = ID270 NR1 IDX1
83  FN 9: IF +0 EQU +0 GOTO LBL 233
84  LBL 232
85  FN 18: SYSREAD Q31 = ID270 NR1 IDX1
86  FN 18: SYSREAD Q32 = ID270 NR1 IDX2
87  LBL 233
88  CC X+Q31 Y+Q32
89  L Z+Q20 R0 F MAX
90  ; FASE STIRNSEITIG 
91  FN 9: IF +Q358 EQU +0 GOTO LBL 38
92  Q14 = Q27 - ((Q27 - Q359) / 2)  
93  Q15 = Q31 + Q14  
94  LP PR+Q27 PA+0 R0 FQ253
95  L Z+Q358 R0 FQ254 M109
96  CC X+Q15 IY+0
97  CP PA+180 DR+
98  CC X+Q31 Y+Q32
99  CP IPA+360 DR-
100  CC X+Q15 IY+0
101  CP PA+0 DR+ M111
102  LBL 38
103  CC X+Q31 Y+Q32
104  FN 9: IF +Q201 EQU +0 GOTO LBL 99
105  FN 12: IF +Q239 LT +0 GOTO LBL 20
106  FN 3: Q239 = +Q239 * +Q30
107  FN 11: IF +Q351 GT +0 GOTO LBL 25
108  ; Gleichlauf Rechtsgewinde GF 
109  ; Z+ DR+ RL 
110  LBL 11
111  LP PR+Q27 PA+0 R0 FQ253
112  L Z+Q24 R0 FQ253 M109
113  APPR PCT PR+Q28 PA+0 CCA180 R+Q22 RR FQ207
114  LBL 30
115  CP IPA+360 IZ+Q239 DR+ FQ207
116  Q35 = Q35 - 1  
117  FN 10: IF +Q355 NE +1 GOTO LBL 31
118  FN 11: IF +Q35 GT +0 GOTO LBL 30
119  LBL 31
120  DEP CT CCA180 R+Q22 FQ207
121  LP PR+Q27 PA+0 R0 FQ253 M111
122  Q24 = Q24 + Q36  
123  FN 11: IF +Q35 GT +0 GOTO LBL 11
124  FN 9: IF +0 EQU +0 GOTO LBL 99
125  ; Gegenlauf Rechtsgewinde GF 
126  ; Z- DR- RR 
127  LBL 25
128  Q23 = Q24 + ABS Q239 * Q30  
129  LP PR+Q27 PA+0 R0 FQ253
130  FN 9: IF +Q35 EQU +1 GOTO LBL 26
131  Q23 = Q24 + (Q35 - 1) * Q36 + ABS Q239 * Q30  
132  LBL 26
133  L Z+Q23 R0 FQ253 M109
134  APPR PCT PR+Q28 PA+0 CCA180 R+Q22 RL FQ207
135  LBL 32
136  CP IPA-360 IZ-Q239 DR- FQ207
137  Q35 = Q35 - 1  
138  FN 10: IF +Q355 NE +1 GOTO LBL 34
139  FN 11: IF +Q35 GT +0 GOTO LBL 32
140  LBL 34
141  DEP CT CCA180 R+Q22 FQ207
142  LP PR+Q27 PA+0 R0 FQ253 M111
143  Q23 = Q23 - Q36  
144  FN 11: IF +Q35 GT +0 GOTO LBL 26
145  FN 9: IF +0 EQU +0 GOTO LBL 99
146  ; Gegenlauflauf Linksgewinde GF 
147  ; Z+ DR- RR 
148  LBL 20
149  FN 3: Q239 = +Q239 * +Q30
150  FN 12: IF +Q351 LT +0 GOTO LBL 27
151  L Z+Q24 R0 FQ253 M109
152  APPR PCT PR+Q28 PA+0 CCA180 R+Q22 RL FQ207
153  LBL 33
154  CP IPA-360 IZ-Q239 DR- FQ207
155  Q35 = Q35 - 1  
156  FN 10: IF +Q355 NE +1 GOTO LBL 35
157  FN 11: IF +Q35 GT +0 GOTO LBL 33
158  LBL 35
159  DEP CT CCA180 R+Q22 FQ207
160  LP PR+Q27 PA+0 R0 FQ253 M111
161  Q24 = Q24 + Q36  
162  FN 11: IF +Q35 GT +0 GOTO LBL 20
163  FN 9: IF +0 EQU +0 GOTO LBL 99
164  ; Gleichlauf Linksgewinde GF 
165  ; Z- DR+ RL 
166  LBL 27
167  Q23 = Q24 + ABS Q239 * Q30  
168  LP PR+Q27 PA+0 R0 F253
169  FN 9: IF +Q35 EQU +1 GOTO LBL 28
170  Q23 = Q24 + (Q35 - 1) * Q36 + ABS Q239 * Q30  
171  LBL 28
172  L Z+Q23 R0 FQ253 M109
173  APPR PCT PR+Q28 PA+0 CCA180 R+Q22 RR FQ207
174  LBL 36
175  CP IPA+360 IZ+Q239 DR+ FQ207
176  Q35 = Q35 - 1  
177  FN 10: IF +Q355 NE +1 GOTO LBL 37
178  FN 11: IF +Q35 GT +0 GOTO LBL 36
179  LBL 37
180  DEP CT CCA180 R+Q29 FQ207
181  LP PR+Q27 PA+0 R0 FQ253 M111
182  Q23 = Q23 - Q36  
183  FN 11: IF +Q35 GT +0 GOTO LBL 28
184  LBL 99
185  L Z+Q20 R0 F MAX
186  FN 3: Q239 = +Q239 * +Q30
187  FN 9: IF +Q195 EQU +1 GOTO LBL 254
188  L Z+Q19 R0 F MAX
189  LBL 4
190  FN 9: IF +Q195 EQU +1 GOTO LBL 192
191  FN 3: Q200 = +Q200 * +Q30
192  FN 3: Q204 = +Q204 * +Q30
193  LBL 0
194  LBL 254
195  END PGM 267 MM
