0  BEGIN PGM 422 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  Q277 = ABS Q277  
8  Q278 = ABS Q278  
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 106
20  FN 14: ERROR = 1008
21  LBL 106
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 107
27  FN 14: ERROR = 1007
28  LBL 107
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 NR11
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 18: SYSREAD Q56 = ID210 NR1
67  FN 18: SYSREAD Q57 = ID210 NR2
68  FN 12: IF +Q261 LT +Q260 GOTO LBL 140
69  FN 0: Q260 = +Q261
70  FN 0: Q301 = +0
71  LBL 140
72  FN 1: Q1 = +Q109 + +1
73  FN 18: SYSREAD Q0 = ID270 NR1 IDXQ1
74  FN 11: IF +Q0 GT +Q260 GOTO LBL 120
75  L Z+Q260 R0 FQ59
76  LBL 120
77  Q10 = Q325  
78  CC X+Q273 Y+Q274
79  LP PR+Q5 PA+Q10 R0 FQ59
80  Q10 = Q325 - 180 + Q56 + Q57  
81  TCH PROBE 1.0 BEZUGSPUNKT POLAR
82  TCH PROBE 1.1 X WINKEL: +Q10
83  TCH PROBE 1.2 Z+Q261
84  CALL LBL 253
85  FN 0: Q27 = +Q141
86  FN 0: Q28 = +Q142
87  FN 1: Q10 = +Q10 + +Q247
88  FN 9: IF +Q301 EQU +0 GOTO LBL 21
89  L Z+Q260 R0 FQ59
90  LBL 21
91  FN 12: IF +Q247 LT +0 GOTO LBL 22
92  CP IPA+Q247 DR+ R0 FQ59
93  FN 9: IF +0 EQU +0 GOTO LBL 23
94  LBL 22
95  CP IPA+Q247 DR- R0 FQ59
96  LBL 23
97  TCH PROBE 1.0 BEZUGSPUNKT POLAR
98  TCH PROBE 1.1 X WINKEL: +Q10
99  TCH PROBE 1.2 Z+Q261
100  CALL LBL 253
101  FN 0: Q25 = +Q141
102  FN 0: Q26 = +Q142
103  FN 1: Q10 = +Q10 + +Q247
104  FN 9: IF +Q301 EQU +0 GOTO LBL 24
105  L Z+Q260 R0 FQ59
106  LBL 24
107  FN 12: IF +Q247 LT +0 GOTO LBL 25
108  CP IPA+Q247 DR+ R0 FQ59
109  FN 9: IF +0 EQU +0 GOTO LBL 26
110  LBL 25
111  CP IPA+Q247 DR- R0 FQ59
112  LBL 26
113  TCH PROBE 1.0 BEZUGSPUNKT POLAR
114  TCH PROBE 1.1 X WINKEL: +Q10
115  TCH PROBE 1.2 Z+Q261
116  CALL LBL 253
117  FN 0: Q23 = +Q141
118  FN 0: Q24 = +Q142
119  FN 1: Q10 = +Q10 + +Q247
120  FN 9: IF +Q301 EQU +0 GOTO LBL 27
121  L Z+Q260 R0 FQ59
122  LBL 27
123  FN 12: IF +Q247 LT +0 GOTO LBL 28
124  CP IPA+Q247 DR+ R0 FQ59
125  FN 9: IF +0 EQU +0 GOTO LBL 29
126  LBL 28
127  CP IPA+Q247 DR- R0 FQ59
128  LBL 29
129  TCH PROBE 1.0 BEZUGSPUNKT POLAR
130  TCH PROBE 1.1 X WINKEL: +Q10
131  TCH PROBE 1.2 Z+Q261
132  CALL LBL 253
133  FN 0: Q21 = +Q141
134  FN 0: Q22 = +Q142
135  L Z+Q260 R0 FQ59
136  FN 24: Q151 = CDATA Q21
137  Q153 = (Q153 - Q2) * 2  
138  Q161 = Q151 - Q273  
139  Q162 = Q152 - Q274  
140  FN 2: Q163 = +Q153 - +Q262
141  FN 1: Q31 = +Q273 + +Q279
142  FN 2: Q32 = +Q273 - +Q279
143  FN 1: Q33 = +Q274 + +Q280
144  FN 2: Q34 = +Q274 - +Q280
145  FN 10: IF +Q113 NE +1 GOTO LBL 170
146  Q31 = Q31 / 25.4  
147  Q32 = Q32 / 25.4  
148  Q33 = Q33 / 25.4  
149  Q34 = Q34 / 25.4  
150  Q273 = Q273 / 25.4  
151  Q274 = Q274 / 25.4  
152  Q277 = Q277 / 25.4  
153  Q278 = Q278 / 25.4  
154  Q261 = Q261 / 25.4  
155  Q262 = Q262 / 25.4  
156  Q151 = Q151 / 25.4  
157  Q152 = Q152 / 25.4  
158  Q153 = Q153 / 25.4  
159  Q161 = Q161 / 25.4  
160  Q162 = Q162 / 25.4  
161  Q163 = Q163 / 25.4  
162  LBL 170
163  FN 10: IF +Q281 NE +1 GOTO LBL 198
164  FN 16: F-PRINT 422PROT  / TCHPR422.TXT 
165  LBL 198
166  FN 0: Q180 = +1
167  FN 0: Q181 = +0
168  FN 0: Q182 = +0
169  FN 17: SYSWRITE ID2000 NR10 IDX4065 = +1
170  FN 17: SYSWRITE ID2000 NR10 IDX4066 = +0
171  FN 17: SYSWRITE ID2000 NR10 IDX4067 = +0
172  FN 12: IF +Q153 LT +Q277 GOTO LBL 110
173  FN 0: Q180 = +0
174  FN 0: Q181 = +1
175  FN 17: SYSWRITE ID2000 NR10 IDX4065 = +0
176  FN 17: SYSWRITE ID2000 NR10 IDX4066 = +1
177  LBL 110
178  FN 11: IF +Q153 GT +Q278 GOTO LBL 111
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 111
184  FN 9: IF +Q330 EQU +0 GOTO LBL 131
185  FN 18: SYSREAD Q0 = ID50 NR22 IDXQ330
186  FN 9: IF +Q0 EQU +0 GOTO LBL 130
187  Q1 = ABS Q163  
188  FN 11: IF +Q0 GT +Q1 GOTO LBL 130
189  FN 17: SYSWRITE ID50 NR7 IDXQ330 = +1
190  FN 14: ERROR = 1065
191  LBL 130
192  FN 18: SYSREAD Q0 = ID50 NR5 IDXQ330
193  Q0 = Q0 - (Q163 / 2)  
194  FN 17: SYSWRITE ID50 NR5 IDXQ330 = +Q0
195  LBL 131
196  FN 10: IF +Q309 NE +1 GOTO LBL 199
197  FN 12: IF +Q151 LT +Q31 GOTO LBL 100
198  FN 14: ERROR = 1044
199  LBL 100
200  FN 11: IF +Q151 GT +Q32 GOTO LBL 101
201  FN 14: ERROR = 1044
202  LBL 101
203  FN 12: IF +Q152 LT +Q33 GOTO LBL 102
204  FN 14: ERROR = 1045
205  LBL 102
206  FN 11: IF +Q152 GT +Q34 GOTO LBL 103
207  FN 14: ERROR = 1045
208  LBL 103
209  FN 12: IF +Q153 LT +Q277 GOTO LBL 104
210  FN 14: ERROR = 1049
211  LBL 104
212  FN 11: IF +Q153 GT +Q278 GOTO LBL 105
213  FN 14: ERROR = 1048
214  LBL 105
215  LBL 199
216  FN 17: SYSWRITE ID990 NR1 = +0
217  FN 17: SYSWRITE ID990 NR2 = +0
218  FN 10: IF +Q113 NE +1 GOTO LBL 171
219  Q273 = Q273 * 25.4  
220  Q274 = Q274 * 25.4  
221  Q277 = Q277 * 25.4  
222  Q278 = Q278 * 25.4  
223  Q261 = Q261 * 25.4  
224  Q262 = Q262 * 25.4  
225  LBL 171
226  FN 9: IF +0 EQU +0 GOTO LBL 254
227  LBL 253
228  FN 9: IF +Q109 EQU +0 GOTO LBL 230
229  FN 9: IF +Q109 EQU +6 GOTO LBL 230
230  FN 9: IF +Q109 EQU +1 GOTO LBL 231
231  FN 9: IF +Q109 EQU +7 GOTO LBL 231
232  FN 9: IF +Q109 EQU +2 GOTO LBL 232
233  FN 9: IF +Q109 EQU +8 GOTO LBL 232
234  LBL 230
235  FN 0: Q141 = +Q115
236  FN 0: Q142 = +Q116
237  FN 0: Q143 = +Q117
238  FN 17: SYSWRITE ID990 NR5 IDX1 = +141
239  FN 0: Q141 = +Q145
240  FN 0: Q142 = +Q146
241  FN 17: SYSWRITE ID990 NR4 IDX1 = +141
242  FN 0: Q141 = +Q143
243  FN 0: Q142 = +Q144
244  FN 9: IF +0 EQU +0 GOTO LBL 233
245  LBL 231
246  FN 0: Q141 = +Q115
247  FN 0: Q142 = +Q116
248  FN 0: Q143 = +Q117
249  FN 17: SYSWRITE ID990 NR5 IDX1 = +141
250  FN 0: Q141 = +Q146
251  FN 0: Q142 = +Q144
252  FN 17: SYSWRITE ID990 NR4 IDX1 = +141
253  FN 0: Q141 = +Q143
254  FN 0: Q142 = +Q144
255  FN 9: IF +0 EQU +0 GOTO LBL 233
256  LBL 232
257  FN 0: Q141 = +Q115
258  FN 0: Q142 = +Q116
259  FN 0: Q143 = +Q117
260  FN 17: SYSWRITE ID990 NR5 IDX1 = +141
261  FN 0: Q141 = +Q144
262  FN 0: Q142 = +Q145
263  FN 17: SYSWRITE ID990 NR4 IDX1 = +141
264  FN 0: Q141 = +Q143
265  FN 0: Q142 = +Q144
266  LBL 233
267  LBL 0
268  LBL 254
269  END PGM 422 MM
