0  BEGIN PGM 423 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  Q279 = ABS Q279  
7  Q280 = ABS Q280  
8  Q281 = ABS Q281  
9  Q282 = ABS Q282  
10  Q283 = ABS Q283  
11  Q284 = ABS Q284  
12  Q285 = ABS Q285  
13  Q286 = ABS Q286  
14  Q287 = ABS Q287  
15  Q301 = ABS Q301  
16  Q309 = ABS Q309  
17  Q330 = ABS Q330  
18  FN 10: IF +Q109 NE -1 GOTO LBL 139
19  FN 14: ERROR = 1001
20  LBL 139
21  FN 18: SYSREAD Q0 = ID210 NR3
22  FN 9: IF +Q0 EQU +0 GOTO LBL 141
23  FN 14: ERROR = 1008
24  LBL 141
25  FN 18: SYSREAD Q0 = ID210 NR4 IDX1
26  FN 18: SYSREAD Q1 = ID210 NR4 IDX2
27  FN 18: SYSREAD Q2 = ID210 NR4 IDX3
28  Q0 = Q0 + Q1 + Q2  
29  FN 9: IF +Q0 EQU +3 GOTO LBL 142
30  FN 14: ERROR = 1007
31  LBL 142
32  FN 17: SYSWRITE ID212 = +3
33  FN 17: SYSWRITE ID990 NR1 = +1
34  FN 17: SYSWRITE ID990 NR2 = +1
35  FN 18: SYSREAD Q3 = ID1000 NR6140
36  FN 18: SYSREAD Q1 = ID1010 NR6200
37  FN 9: IF +Q1 EQU +0 GOTO LBL 13
38  FN 18: SYSREAD Q1 = ID1000 NR6200
39  FN 9: IF +Q1 EQU +1 GOTO LBL 10
40  LBL 13
41  FN 18: SYSREAD Q58 = ID1000 NR6120
42  FN 18: SYSREAD Q59 = ID1000 NR6150
43  FN 18: SYSREAD Q2 = ID350 NR11
44  FN 9: IF +0 EQU +0 GOTO LBL 11
45  LBL 10
46  FN 18: SYSREAD Q58 = ID1000 NR6360
47  FN 18: SYSREAD Q59 = ID1000 NR6361
48  FN 18: SYSREAD Q2 = ID350 NR31
49  LBL 11
50  FN 18: SYSREAD Q0 = ID1000 NR7411
51  ; Q0 = 2 * FRAC (Q0 / 2)  
52  FN 9: IF +Q0 EQU +0 GOTO LBL 14
53  FN 18: SYSREAD Q2 = ID200 NR1
54  Q2 = ABS Q2  
55  LBL 14
56  FN 10: IF +Q0 NE +0 GOTO LBL 15
57  FN 17: SYSWRITE ID990 NR3 = +1
58  LBL 15
59  Q320 = Q320 + Q2 + Q3  
60  Q1 = Q273 - (Q282 / 2) + Q320  
61  Q11 = Q273 + (Q282 / 2) - Q320  
62  Q2 = Q274 - (Q283 / 2) + Q320  
63  Q12 = Q274 + (Q283 / 2) - Q320  
64  FN 12: IF +Q1 LT +Q273 GOTO LBL 51
65  FN 0: Q1 = +Q273
66  FN 0: Q11 = +Q273
67  FN 0: Q15 = +1.1
68  LBL 51
69  FN 12: IF +Q2 LT +Q274 GOTO LBL 52
70  FN 0: Q2 = +Q274
71  FN 0: Q12 = +Q274
72  FN 0: Q16 = +1.1
73  LBL 52
74  FN 1: Q17 = +Q15 + +Q16
75  FN 12: IF +Q261 LT +Q260 GOTO LBL 140
76  FN 0: Q260 = +Q261
77  FN 0: Q301 = +0
78  LBL 140
79  FN 1: Q0 = +Q109 + +1
80  FN 18: SYSREAD Q0 = ID270 NR1 IDXQ0
81  FN 11: IF +Q0 GT +Q260 GOTO LBL 120
82  L Z+Q260 R0 FQ59
83  LBL 120
84  L X+Q1 Y+Q274 R0 FQ59
85  TCH PROBE 0.0 BEZUGSEBENE Q5 X-
86  TCH PROBE 0.1 Z+Q261
87  FN 9: IF +Q17 EQU +2.2 GOTO LBL 1
88  FN 9: IF +Q301 EQU +0 GOTO LBL 1
89  L Z+Q260 FQ59
90  L X+Q273 Y+Q2 FQ59
91  LBL 1
92  L Y+Q2 FQ59
93  L X+Q273 FQ59
94  TCH PROBE 0.0 BEZUGSEBENE Q7 Y-
95  TCH PROBE 0.1 Z+Q261
96  FN 9: IF +Q17 EQU +2.2 GOTO LBL 2
97  FN 9: IF +Q301 EQU +0 GOTO LBL 2
98  L Z+Q260 FQ59
99  L X+Q11 Y+Q274 FQ59
100  LBL 2
101  L X+Q11 FQ59
102  L Y+Q274 FQ59
103  TCH PROBE 0.0 BEZUGSEBENE Q6 X+
104  TCH PROBE 0.1 Z+Q261
105  FN 9: IF +Q17 EQU +2.2 GOTO LBL 3
106  FN 9: IF +Q301 EQU +0 GOTO LBL 3
107  L Z+Q260 FQ59
108  L X+Q273 Y+Q12 FQ59
109  LBL 3
110  L Y+Q12 FQ59
111  L X+Q273 FQ59
112  TCH PROBE 0.0 BEZUGSEBENE Q8 Y+
113  TCH PROBE 0.1 Z+Q261
114  L Z+Q260 FQ59
115  CALL LBL 253
116  Q154 = ABS (Q6 - Q5)  
117  Q155 = ABS (Q8 - Q7)  
118  Q151 = Q5 + ((Q6 - Q5) / 2)  
119  Q152 = Q7 + ((Q8 - Q7) / 2)  
120  Q161 = Q151 - Q273  
121  Q162 = Q152 - Q274  
122  Q164 = ABS Q154 - ABS Q282  
123  Q165 = ABS Q155 - ABS Q283  
124  Q31 = Q273 + Q279  
125  Q32 = Q273 - Q279  
126  Q33 = Q274 + Q280  
127  Q34 = Q274 - Q280  
128  FN 10: IF +Q113 NE +1 GOTO LBL 170
129  Q31 = Q31 / 25.4  
130  Q32 = Q32 / 25.4  
131  Q33 = Q33 / 25.4  
132  Q34 = Q34 / 25.4  
133  Q273 = Q273 / 25.4  
134  Q274 = Q274 / 25.4  
135  Q282 = Q282 / 25.4  
136  Q283 = Q283 / 25.4  
137  Q261 = Q261 / 25.4  
138  Q284 = Q284 / 25.4  
139  Q285 = Q285 / 25.4  
140  Q286 = Q286 / 25.4  
141  Q287 = Q287 / 25.4  
142  Q151 = Q151 / 25.4  
143  Q152 = Q152 / 25.4  
144  Q154 = Q154 / 25.4  
145  Q155 = Q155 / 25.4  
146  Q161 = Q161 / 25.4  
147  Q162 = Q162 / 25.4  
148  Q164 = Q164 / 25.4  
149  Q165 = Q165 / 25.4  
150  LBL 170
151  FN 10: IF +Q281 NE +1 GOTO LBL 198
152  FN 16: F-PRINT 423PROT  / TCHPR423.TXT 
153  LBL 198
154  FN 0: Q180 = +1
155  FN 0: Q181 = +0
156  FN 0: Q182 = +0
157  FN 17: SYSWRITE ID2000 NR10 IDX4065 = +1
158  FN 17: SYSWRITE ID2000 NR10 IDX4066 = +0
159  FN 17: SYSWRITE ID2000 NR10 IDX4067 = +0
160  FN 12: IF +Q154 LT +Q284 GOTO LBL 110
161  FN 0: Q180 = +0
162  FN 0: Q182 = +1
163  FN 17: SYSWRITE ID2000 NR10 IDX4065 = +0
164  FN 17: SYSWRITE ID2000 NR10 IDX4067 = +1
165  LBL 110
166  FN 11: IF +Q154 GT +Q285 GOTO LBL 111
167  FN 0: Q180 = +0
168  FN 0: Q181 = +1
169  FN 17: SYSWRITE ID2000 NR10 IDX4065 = +0
170  FN 17: SYSWRITE ID2000 NR10 IDX4066 = +1
171  LBL 111
172  FN 12: IF +Q155 LT +Q286 GOTO LBL 112
173  FN 0: Q180 = +0
174  FN 0: Q182 = +1
175  FN 17: SYSWRITE ID2000 NR10 IDX4065 = +0
176  FN 17: SYSWRITE ID2000 NR10 IDX4067 = +1
177  LBL 112
178  FN 11: IF +Q155 GT +Q287 GOTO LBL 113
179  FN 0: Q180 = +0
180  FN 0: Q181 = +1
181  FN 17: SYSWRITE ID2000 NR10 IDX4065 = +0
182  FN 17: SYSWRITE ID2000 NR10 IDX4066 = +1
183  LBL 113
184  FN 9: IF +Q330 EQU +0 GOTO LBL 132
185  FN 18: SYSREAD Q0 = ID50 NR22 IDXQ330
186  FN 9: IF +Q0 EQU +0 GOTO LBL 131
187  Q1 = ABS Q164  
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  Q1 = ABS Q165  
193  FN 11: IF +Q0 GT +Q1 GOTO LBL 131
194  FN 17: SYSWRITE ID50 NR7 IDXQ330 = +1
195  FN 14: ERROR = 1065
196  LBL 131
197  FN 18: SYSREAD Q0 = ID50 NR5 IDXQ330
198  Q0 = Q0 + (Q164 / 2)  
199  FN 17: SYSWRITE ID50 NR5 IDXQ330 = +Q0
200  LBL 132
201  FN 10: IF +Q309 NE +1 GOTO LBL 99
202  FN 12: IF +Q151 LT +Q31 GOTO LBL 100
203  FN 14: ERROR = 1044
204  LBL 100
205  FN 11: IF +Q151 GT +Q32 GOTO LBL 101
206  FN 14: ERROR = 1044
207  LBL 101
208  FN 12: IF +Q152 LT +Q33 GOTO LBL 102
209  FN 14: ERROR = 1045
210  LBL 102
211  FN 11: IF +Q152 GT +Q34 GOTO LBL 103
212  FN 14: ERROR = 1045
213  LBL 103
214  FN 12: IF +Q154 LT +Q284 GOTO LBL 104
215  FN 14: ERROR = 1052
216  LBL 104
217  FN 11: IF +Q154 GT +Q285 GOTO LBL 105
218  FN 14: ERROR = 1050
219  LBL 105
220  FN 12: IF +Q155 LT +Q286 GOTO LBL 106
221  FN 14: ERROR = 1053
222  LBL 106
223  FN 11: IF +Q155 GT +Q287 GOTO LBL 107
224  FN 14: ERROR = 1051
225  LBL 107
226  LBL 99
227  FN 17: SYSWRITE ID990 NR1 = +0
228  FN 17: SYSWRITE ID990 NR2 = +0
229  FN 10: IF +Q113 NE +1 GOTO LBL 171
230  Q273 = Q273 * 25.4  
231  Q274 = Q274 * 25.4  
232  Q282 = Q282 * 25.4  
233  Q283 = Q283 * 25.4  
234  Q261 = Q261 * 25.4  
235  Q284 = Q284 * 25.4  
236  Q285 = Q285 * 25.4  
237  Q286 = Q286 * 25.4  
238  Q287 = Q287 * 25.4  
239  LBL 171
240  FN 9: IF +0 EQU +0 GOTO LBL 254
241  LBL 253
242  FN 9: IF +Q109 EQU +0 GOTO LBL 230
243  FN 9: IF +Q109 EQU +6 GOTO LBL 230
244  FN 9: IF +Q109 EQU +1 GOTO LBL 231
245  FN 9: IF +Q109 EQU +7 GOTO LBL 231
246  FN 9: IF +Q109 EQU +2 GOTO LBL 232
247  FN 9: IF +Q109 EQU +8 GOTO LBL 232
248  LBL 230
249  FN 18: SYSREAD Q0 = ID220 NR2 IDX2
250  FN 18: SYSREAD Q1 = ID220 NR2 IDX3
251  FN 9: IF +0 EQU +0 GOTO LBL 233
252  LBL 231
253  FN 18: SYSREAD Q0 = ID220 NR2 IDX3
254  FN 18: SYSREAD Q1 = ID220 NR2 IDX1
255  FN 9: IF +0 EQU +0 GOTO LBL 233
256  LBL 232
257  FN 18: SYSREAD Q0 = ID220 NR2 IDX1
258  FN 18: SYSREAD Q1 = ID220 NR2 IDX2
259  LBL 233
260  LBL 0
261  LBL 254
262  END PGM 423 MM
