0  BEGIN PGM 421 MM
1  FN 18: SYSREAD Q0 = ID2000 NR10 IDX4158
2  FN 9: IF +Q0 EQU +1 GOTO LBL 254
3  FN 18: SYSREAD Q0 = ID990 NR2 IDX16
4  FN 9: IF +Q0 EQU +0 GOTO LBL 254
5  Q320 = ABS Q320  
6  Q262 = ABS Q262  
7  Q275 = ABS Q275  
8  Q276 = ABS Q276  
9  Q279 = ABS Q279  
10  Q280 = ABS Q280  
11  Q281 = ABS Q281  
12  Q301 = ABS Q301  
13  Q309 = ABS Q309  
14  Q330 = ABS Q330  
15  FN 10: IF +Q109 NE -1 GOTO LBL 5
16  FN 14: ERROR = 1001
17  LBL 5
18  FN 18: SYSREAD Q0 = ID210 NR3
19  FN 9: IF +Q0 EQU +0 GOTO LBL 107
20  FN 14: ERROR = 1008
21  LBL 107
22  FN 18: SYSREAD Q0 = ID210 NR4 IDX1
23  FN 18: SYSREAD Q1 = ID210 NR4 IDX2
24  FN 18: SYSREAD Q2 = ID210 NR4 IDX3
25  Q0 = Q0 + Q1 + Q2  
26  FN 9: IF +Q0 EQU +3 GOTO LBL 108
27  FN 14: ERROR = 1007
28  LBL 108
29  FN 10: IF +Q247 NE +0 GOTO LBL 150
30  FN 14: ERROR = 1066
31  LBL 150
32  FN 11: IF +Q247 GT +4.9999 GOTO LBL 151
33  FN 12: IF +Q247 LT -4.9999 GOTO LBL 151
34  FN 14: ERROR = 1067
35  LBL 151
36  FN 17: SYSWRITE ID212 = +3
37  FN 17: SYSWRITE ID990 NR1 = +1
38  FN 17: SYSWRITE ID990 NR2 = +1
39  FN 18: SYSREAD Q3 = ID1000 NR6140
40  FN 18: SYSREAD Q1 = ID1010 NR6200
41  FN 9: IF +Q1 EQU +0 GOTO LBL 13
42  FN 18: SYSREAD Q1 = ID1000 NR6200
43  FN 9: IF +Q1 EQU +1 GOTO LBL 30
44  LBL 13
45  FN 18: SYSREAD Q58 = ID1000 NR6120
46  FN 18: SYSREAD Q59 = ID1000 NR6150
47  FN 18: SYSREAD Q2 = ID350 NR11
48  FN 9: IF +0 EQU +0 GOTO LBL 31
49  LBL 30
50  FN 18: SYSREAD Q58 = ID1000 NR6360
51  FN 18: SYSREAD Q59 = ID1000 NR6361
52  FN 18: SYSREAD Q2 = ID350 NR31
53  LBL 31
54  FN 18: SYSREAD Q0 = ID1000 NR7411
55  ; Q0 = 2 * FRAC (Q0 / 2)  
56  FN 9: IF +Q0 EQU +0 GOTO LBL 14
57  FN 18: SYSREAD Q2 = ID200 NR1
58  Q2 = ABS Q2  
59  LBL 14
60  FN 10: IF +Q0 NE +0 GOTO LBL 15
61  FN 17: SYSWRITE ID990 NR3 = +1
62  LBL 15
63  Q320 = Q320 + Q2 + Q3  
64  FN 0: Q9 = +0
65  Q5 = (Q262 / 2) - Q320  
66  FN 11: IF +Q5 GT +0 GOTO LBL 12
67  FN 0: Q5 = +0
68  LBL 12
69  FN 18: SYSREAD Q56 = ID210 NR1
70  FN 18: SYSREAD Q57 = ID210 NR2
71  Q10 = Q325  
72  FN 12: IF +Q261 LT +Q260 GOTO LBL 140
73  FN 0: Q260 = +Q261
74  FN 0: Q301 = +0
75  LBL 140
76  FN 1: Q1 = +Q109 + +1
77  FN 18: SYSREAD Q0 = ID270 NR1 IDXQ1
78  FN 11: IF +Q0 GT +Q260 GOTO LBL 120
79  L Z+Q260 R0 FQ59
80  LBL 120
81  CC X+Q273 Y+Q274
82  LP PR+Q5 PA+Q10 R0 FQ59
83  Q10 = Q325 + Q56 + Q57  
84  TCH PROBE 1.0 BEZUGSPUNKT POLAR
85  TCH PROBE 1.1 X WINKEL: +Q10
86  TCH PROBE 1.2 Z+Q261
87  CALL LBL 253
88  FN 0: Q27 = +Q141
89  FN 0: Q28 = +Q142
90  FN 1: Q10 = +Q10 + +Q247
91  FN 9: IF +Q5 EQU +0 GOTO LBL 23
92  FN 9: IF +Q301 EQU +0 GOTO LBL 21
93  L Z+Q260 R0 FQ59
94  LBL 21
95  FN 12: IF +Q247 LT +0 GOTO LBL 22
96  CP IPA+Q247 DR+ R0 FQ59
97  FN 9: IF +0 EQU +0 GOTO LBL 23
98  LBL 22
99  CP IPA+Q247 DR- R0 FQ59
100  LBL 23
101  TCH PROBE 1.0 BEZUGSPUNKT POLAR
102  TCH PROBE 1.1 X WINKEL: +Q10
103  TCH PROBE 1.2 Z+Q261
104  CALL LBL 253
105  FN 0: Q25 = +Q141
106  FN 0: Q26 = +Q142
107  FN 1: Q10 = +Q10 + +Q247
108  FN 9: IF +Q5 EQU +0 GOTO LBL 26
109  FN 9: IF +Q301 EQU +0 GOTO LBL 24
110  L Z+Q260 R0 FQ59
111  LBL 24
112  FN 12: IF +Q247 LT +0 GOTO LBL 25
113  CP IPA+Q247 DR+ R0 FQ59
114  FN 9: IF +0 EQU +0 GOTO LBL 26
115  LBL 25
116  CP IPA+Q247 DR- R0 FQ59
117  LBL 26
118  TCH PROBE 1.0 BEZUGSPUNKT POLAR
119  TCH PROBE 1.1 X WINKEL: +Q10
120  TCH PROBE 1.2 Z+Q261
121  CALL LBL 253
122  FN 0: Q23 = +Q141
123  FN 0: Q24 = +Q142
124  FN 1: Q10 = +Q10 + +Q247
125  FN 9: IF +Q5 EQU +0 GOTO LBL 29
126  FN 9: IF +Q301 EQU +0 GOTO LBL 27
127  L Z+Q260 R0 FQ59
128  LBL 27
129  FN 12: IF +Q247 LT +0 GOTO LBL 28
130  CP IPA+Q247 DR+ R0 FQ59
131  FN 9: IF +0 EQU +0 GOTO LBL 29
132  LBL 28
133  CP IPA+Q247 DR- R0 FQ59
134  LBL 29
135  TCH PROBE 1.0 BEZUGSPUNKT POLAR
136  TCH PROBE 1.1 X WINKEL: +Q10
137  TCH PROBE 1.2 Z+Q261
138  CALL LBL 253
139  FN 0: Q21 = +Q141
140  FN 0: Q22 = +Q142
141  L Z+Q260 R0 FQ59
142  FN 24: Q151 = CDATA Q21
143  Q153 = (Q153 + Q2) * 2  
144  Q161 = Q151 - Q273  
145  Q162 = Q152 - Q274  
146  FN 2: Q163 = +Q153 - +Q262
147  FN 1: Q31 = +Q273 + +Q279
148  FN 2: Q32 = +Q273 - +Q279
149  FN 1: Q33 = +Q274 + +Q280
150  FN 2: Q34 = +Q274 - +Q280
151  FN 10: IF +Q113 NE +1 GOTO LBL 170
152  Q31 = Q31 / 25.4  
153  Q32 = Q32 / 25.4  
154  Q33 = Q33 / 25.4  
155  Q34 = Q34 / 25.4  
156  Q273 = Q273 / 25.4  
157  Q274 = Q274 / 25.4  
158  Q275 = Q275 / 25.4  
159  Q276 = Q276 / 25.4  
160  Q261 = Q261 / 25.4  
161  Q262 = Q262 / 25.4  
162  Q151 = Q151 / 25.4  
163  Q152 = Q152 / 25.4  
164  Q153 = Q153 / 25.4  
165  Q161 = Q161 / 25.4  
166  Q162 = Q162 / 25.4  
167  Q163 = Q163 / 25.4  
168  LBL 170
169  FN 10: IF +Q281 NE +1 GOTO LBL 198
170  FN 16: F-PRINT 421PROT  / TCHPR421.TXT 
171  LBL 198
172  FN 0: Q180 = +1
173  FN 0: Q181 = +0
174  FN 0: Q182 = +0
175  FN 17: SYSWRITE ID2000 NR10 IDX4065 = +1
176  FN 17: SYSWRITE ID2000 NR10 IDX4066 = +0
177  FN 17: SYSWRITE ID2000 NR10 IDX4067 = +0
178  FN 12: IF +Q153 LT +Q275 GOTO LBL 110
179  FN 0: Q180 = +0
180  FN 0: Q182 = +1
181  FN 17: SYSWRITE ID2000 NR10 IDX4065 = +0
182  FN 17: SYSWRITE ID2000 NR10 IDX4067 = +1
183  LBL 110
184  FN 11: IF +Q153 GT +Q276 GOTO LBL 111
185  FN 0: Q180 = +0
186  FN 0: Q181 = +1
187  FN 17: SYSWRITE ID2000 NR10 IDX4065 = +0
188  FN 17: SYSWRITE ID2000 NR10 IDX4066 = +1
189  LBL 111
190  FN 9: IF +Q330 EQU +0 GOTO LBL 131
191  FN 18: SYSREAD Q0 = ID50 NR22 IDXQ330
192  FN 9: IF +Q0 EQU +0 GOTO LBL 130
193  Q1 = ABS Q163  
194  FN 11: IF +Q0 GT +Q1 GOTO LBL 130
195  FN 17: SYSWRITE ID50 NR7 IDXQ330 = +1
196  FN 14: ERROR = 1065
197  LBL 130
198  FN 18: SYSREAD Q0 = ID50 NR5 IDXQ330
199  Q0 = Q0 + (Q163 / 2)  
200  FN 17: SYSWRITE ID50 NR5 IDXQ330 = +Q0
201  LBL 131
202  FN 10: IF +Q309 NE +1 GOTO LBL 199
203  FN 12: IF +Q151 LT +Q31 GOTO LBL 100
204  FN 14: ERROR = 1044
205  LBL 100
206  FN 11: IF +Q151 GT +Q32 GOTO LBL 101
207  FN 14: ERROR = 1044
208  LBL 101
209  FN 12: IF +Q152 LT +Q33 GOTO LBL 102
210  FN 14: ERROR = 1045
211  LBL 102
212  FN 11: IF +Q152 GT +Q34 GOTO LBL 103
213  FN 14: ERROR = 1045
214  LBL 103
215  FN 12: IF +Q153 LT +Q275 GOTO LBL 104
216  FN 14: ERROR = 1047
217  LBL 104
218  FN 11: IF +Q153 GT +Q276 GOTO LBL 105
219  FN 14: ERROR = 1046
220  LBL 105
221  LBL 199
222  FN 17: SYSWRITE ID990 NR1 = +0
223  FN 17: SYSWRITE ID990 NR2 = +0
224  FN 10: IF +Q113 NE +1 GOTO LBL 171
225  Q273 = Q273 * 25.4  
226  Q274 = Q274 * 25.4  
227  Q275 = Q275 * 25.4  
228  Q276 = Q276 * 25.4  
229  Q261 = Q261 * 25.4  
230  Q262 = Q262 * 25.4  
231  LBL 171
232  FN 9: IF +0 EQU +0 GOTO LBL 254
233  LBL 253
234  FN 9: IF +Q109 EQU +0 GOTO LBL 230
235  FN 9: IF +Q109 EQU +6 GOTO LBL 230
236  FN 9: IF +Q109 EQU +1 GOTO LBL 231
237  FN 9: IF +Q109 EQU +7 GOTO LBL 231
238  FN 9: IF +Q109 EQU +2 GOTO LBL 232
239  FN 9: IF +Q109 EQU +8 GOTO LBL 232
240  LBL 230
241  FN 0: Q141 = +Q115
242  FN 0: Q142 = +Q116
243  FN 0: Q143 = +Q117
244  FN 17: SYSWRITE ID990 NR5 IDX1 = +141
245  FN 0: Q141 = +Q145
246  FN 0: Q142 = +Q146
247  FN 17: SYSWRITE ID990 NR4 IDX1 = +141
248  FN 0: Q141 = +Q143
249  FN 0: Q142 = +Q144
250  FN 9: IF +0 EQU +0 GOTO LBL 233
251  LBL 231
252  FN 0: Q141 = +Q115
253  FN 0: Q142 = +Q116
254  FN 0: Q143 = +Q117
255  FN 17: SYSWRITE ID990 NR5 IDX1 = +141
256  FN 0: Q141 = +Q146
257  FN 0: Q142 = +Q144
258  FN 17: SYSWRITE ID990 NR4 IDX1 = +141
259  FN 0: Q141 = +Q143
260  FN 0: Q142 = +Q144
261  FN 9: IF +0 EQU +0 GOTO LBL 233
262  LBL 232
263  FN 0: Q141 = +Q115
264  FN 0: Q142 = +Q116
265  FN 0: Q143 = +Q117
266  FN 17: SYSWRITE ID990 NR5 IDX1 = +141
267  FN 0: Q141 = +Q144
268  FN 0: Q142 = +Q145
269  FN 17: SYSWRITE ID990 NR4 IDX1 = +141
270  FN 0: Q141 = +Q143
271  FN 0: Q142 = +Q144
272  LBL 233
273  LBL 0
274  LBL 254
275  END PGM 421 MM
