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