0  BEGIN PGM 265 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  Q359 = ABS Q359  
10  Q360 = ABS Q360  
11  LBL 200
12  FN 17: SYSWRITE ID212 = +3
13  FN 18: SYSREAD Q0 = ID1000 NR7441
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  FN 9: IF +Q201 EQU +0 GOTO LBL 253
24  Q358 = ABS Q358 * (-1)  
25  FN 12: IF +Q201 LT +0 GOTO LBL 197
26  Q358 = ABS Q358  
27  FN 9: IF +0 EQU +0 GOTO LBL 195
28  LBL 253
29  FN 9: IF +Q358 EQU +0 GOTO LBL 254
30  FN 12: IF +Q358 LT +0 GOTO LBL 197
31  LBL 195
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  Q13 = Q203 + Q358  
49  Q37 = Q254  
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 - Q29   ; CCX-VERSATZ 
55  Q28 = Q29 + Q25   ; PR 
56  FN 0: Q35 = +1
57  Q33 = ABS (Q201 / Q239)  
58  Q34 = FRAC Q33  
59  Q35 = INT Q33  
60  Q36 = (ABS Q239) * Q30   ; VERSATZ IN Z 
61  FN 9: IF +Q34 EQU +0 GOTO LBL 10
62  Q35 = Q35 + 1  
63  LBL 10
64  Q23 = Q24 + ABS Q239 * Q30  
65  FN 9: IF +Q35 EQU +1 GOTO LBL 26
66  Q23 = Q24 + (Q35 - 1) * Q36 + ABS Q239 * Q30  
67  LBL 26
68  FN 9: IF +Q109 EQU +0 GOTO LBL 230
69  FN 9: IF +Q109 EQU +6 GOTO LBL 230
70  FN 9: IF +Q109 EQU +1 GOTO LBL 231
71  FN 9: IF +Q109 EQU +7 GOTO LBL 231
72  FN 9: IF +Q109 EQU +2 GOTO LBL 232
73  FN 9: IF +Q109 EQU +8 GOTO LBL 232
74  LBL 230
75  FN 18: SYSREAD Q31 = ID270 NR1 IDX2
76  FN 18: SYSREAD Q32 = ID270 NR1 IDX3
77  FN 9: IF +0 EQU +0 GOTO LBL 233
78  LBL 231
79  FN 18: SYSREAD Q31 = ID270 NR1 IDX3
80  FN 18: SYSREAD Q32 = ID270 NR1 IDX1
81  FN 9: IF +0 EQU +0 GOTO LBL 233
82  LBL 232
83  FN 18: SYSREAD Q31 = ID270 NR1 IDX1
84  FN 18: SYSREAD Q32 = ID270 NR1 IDX2
85  LBL 233
86  CC X+Q31 Y+Q32
87  L Z+Q20 R0 F MAX
88  FN 9: IF +Q358 EQU +0 GOTO LBL 35
89  FN 9: IF +Q360 EQU +1 GOTO LBL 35
90  LBL 34
91  ; SENKEN STIRNSEITE 
92  Q14 = Q359 / 2  
93  Q15 = Q31 - Q14  
94  L Z+Q13 R0 FQ37 M110
95  CC X+Q15 IY+0
96  CP PA+180 DR+ FQ254
97  CC X+Q31 Y+Q32
98  CP IPA+360 DR+
99  CC X+Q15 IY+0
100  CP PA+0 DR+
101  CC X+Q31 Y+Q32
102  LP PR+0 PA+0 R0 FQ253 M111
103  LBL 0
104  LBL 35
105  FN 9: IF +201 EQU +0 GOTO LBL 99
106  FN 12: IF +Q239 LT +0 GOTO LBL 20
107  FN 3: Q239 = +Q239 * +Q30
108  ; Gegenlauf Rechtsgewinde GF 
109  ; Z- DR- RR 
110  CC IX-Q27 IY+0
111  L Z+Q23 R0 FQ253 M110
112  APPR PCT PR+Q28 PA+180 CCA90 R+Q29 RR FQ207
113  CC X+Q31 Y+Q32
114  LBL 32
115  CP IPA-360 IZ-Q239 DR- FQ207
116  Q35 = Q35 - 1  
117  FN 11: IF +Q35 GT +0 GOTO LBL 32
118  CC IX-Q27 IY+0
119  DEP CT CCA90 R+Q29 FQ207
120  CC X+Q31 Y+Q32
121  LP PR+0 PA+0 R0 FQ253 M111
122  FN 9: IF +0 EQU +0 GOTO LBL 99
123  LBL 20
124  FN 3: Q239 = +Q239 * +Q30
125  ; Gleichlauf Linksgewinde GF 
126  ; Z- DR+ RL 
127  CC IX-Q27 IY+0
128  L Z+Q23 R0 FQ253 M110
129  APPR PCT PR+Q28 PA+180 CCA90 R+Q29 RL FQ207
130  CC X+Q31 Y+Q32
131  LBL 36
132  CP IPA+360 IZ+Q239 DR+ FQ207
133  Q35 = Q35 - 1  
134  FN 11: IF +Q35 GT +0 GOTO LBL 36
135  CC IX-Q27 IY+0
136  DEP CT CCA90 R+Q29 FQ207
137  CC X+Q31 Y+Q32
138  LP PR+0 PA+0 R0 FQ253 M111
139  LBL 99
140  FN 9: IF +Q360 EQU +0 GOTO LBL 28
141  Q37 = Q253  
142  CALL LBL 34
143  LBL 28
144  L Z+Q20 R0 F MAX
145  FN 3: Q239 = +Q239 * +Q30
146  FN 9: IF +Q195 EQU +1 GOTO LBL 254
147  L Z+Q19 R0 F MAX
148  LBL 4
149  FN 9: IF +Q195 EQU +1 GOTO LBL 192
150  FN 3: Q200 = +Q200 * +Q30
151  FN 3: Q204 = +Q204 * +Q30
152  LBL 0
153  LBL 254
154  END PGM 265 MM
