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