0  BEGIN PGM 424 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 +Q261 LT +Q260 GOTO LBL 140
65  FN 0: Q260 = +Q261
66  FN 0: Q301 = +0
67  LBL 140
68  FN 1: Q0 = +Q109 + +1
69  FN 18: SYSREAD Q0 = ID270 NR1 IDXQ0
70  FN 11: IF +Q0 GT +Q260 GOTO LBL 120
71  L Z+Q260 R0 FQ59
72  LBL 120
73  L X+Q1 Y+Q274 R0 FQ59
74  TCH PROBE 0.0 BEZUGSEBENE Q5 X+
75  TCH PROBE 0.1 Z+Q261
76  FN 9: IF +Q301 EQU +0 GOTO LBL 1
77  L Z+Q260 FQ59
78  L X+Q273 Y+Q2 FQ59
79  LBL 1
80  L Y+Q2 FQ59
81  L X+Q273 FQ59
82  TCH PROBE 0.0 BEZUGSEBENE Q7 Y+
83  TCH PROBE 0.1 Z+Q261
84  FN 9: IF +Q301 EQU +0 GOTO LBL 2
85  L Z+Q260 FQ59
86  L X+Q11 Y+Q274 FQ59
87  LBL 2
88  L X+Q11 FQ59
89  L Y+Q274 FQ59
90  TCH PROBE 0.0 BEZUGSEBENE Q6 X-
91  TCH PROBE 0.1 Z+Q261
92  FN 9: IF +Q301 EQU +0 GOTO LBL 3
93  L Z+Q260 FQ59
94  L X+Q273 Y+Q12 FQ59
95  LBL 3
96  L Y+Q12 FQ59
97  L X+Q273 FQ59
98  TCH PROBE 0.0 BEZUGSEBENE Q8 Y-
99  TCH PROBE 0.1 Z+Q261
100  L Z+Q260 FQ59
101  CALL LBL 253
102  Q151 = Q5 + ((Q6 - Q5) / 2)  
103  Q152 = Q7 + ((Q8 - Q7) / 2)  
104  Q154 = ABS (Q6 - Q5)  
105  Q155 = ABS (Q8 - Q7)  
106  FN 2: Q161 = +Q151 - +Q273
107  FN 2: Q162 = +Q152 - +Q274
108  Q164 = ABS Q154 - ABS Q282  
109  Q165 = ABS Q155 - ABS Q283  
110  FN 1: Q31 = +Q273 + +Q279
111  FN 2: Q32 = +Q273 - +Q279
112  FN 1: Q33 = +Q274 + +Q280
113  FN 2: Q34 = +Q274 - +Q280
114  FN 10: IF +Q113 NE +1 GOTO LBL 170
115  Q31 = Q31 / 25.4  
116  Q32 = Q32 / 25.4  
117  Q33 = Q33 / 25.4  
118  Q34 = Q34 / 25.4  
119  Q273 = Q273 / 25.4  
120  Q274 = Q274 / 25.4  
121  Q282 = Q282 / 25.4  
122  Q283 = Q283 / 25.4  
123  Q261 = Q261 / 25.4  
124  Q284 = Q284 / 25.4  
125  Q285 = Q285 / 25.4  
126  Q286 = Q286 / 25.4  
127  Q287 = Q287 / 25.4  
128  Q151 = Q151 / 25.4  
129  Q152 = Q152 / 25.4  
130  Q154 = Q154 / 25.4  
131  Q155 = Q155 / 25.4  
132  Q161 = Q161 / 25.4  
133  Q162 = Q162 / 25.4  
134  Q164 = Q164 / 25.4  
135  Q165 = Q165 / 25.4  
136  LBL 170
137  FN 10: IF +Q281 NE +1 GOTO LBL 198
138  FN 16: F-PRINT 424PROT  / TCHPR424.TXT 
139  LBL 198
140  FN 0: Q180 = +1
141  FN 0: Q181 = +0
142  FN 0: Q182 = +0
143  FN 17: SYSWRITE ID2000 NR10 IDX4065 = +1
144  FN 17: SYSWRITE ID2000 NR10 IDX4066 = +0
145  FN 17: SYSWRITE ID2000 NR10 IDX4067 = +0
146  FN 12: IF +Q154 LT +Q284 GOTO LBL 110
147  FN 0: Q180 = +0
148  FN 0: Q181 = +1
149  FN 17: SYSWRITE ID2000 NR10 IDX4065 = +0
150  FN 17: SYSWRITE ID2000 NR10 IDX4066 = +1
151  LBL 110
152  FN 11: IF +Q154 GT +Q285 GOTO LBL 111
153  FN 0: Q180 = +0
154  FN 0: Q182 = +1
155  FN 17: SYSWRITE ID2000 NR10 IDX4065 = +0
156  FN 17: SYSWRITE ID2000 NR10 IDX4067 = +1
157  LBL 111
158  FN 12: IF +Q155 LT +Q286 GOTO LBL 112
159  FN 0: Q180 = +0
160  FN 0: Q181 = +1
161  FN 17: SYSWRITE ID2000 NR10 IDX4065 = +0
162  FN 17: SYSWRITE ID2000 NR10 IDX4066 = +1
163  LBL 112
164  FN 11: IF +Q155 GT +Q287 GOTO LBL 113
165  FN 0: Q180 = +0
166  FN 0: Q182 = +1
167  FN 17: SYSWRITE ID2000 NR10 IDX4065 = +0
168  FN 17: SYSWRITE ID2000 NR10 IDX4067 = +1
169  LBL 113
170  FN 9: IF +Q330 EQU +0 GOTO LBL 132
171  FN 18: SYSREAD Q0 = ID50 NR22 IDXQ330
172  FN 9: IF +Q0 EQU +0 GOTO LBL 131
173  Q1 = ABS Q164  
174  FN 11: IF +Q0 GT +Q1 GOTO LBL 130
175  FN 17: SYSWRITE ID50 NR7 IDXQ330 = +1
176  FN 14: ERROR = 1065
177  LBL 130
178  Q1 = ABS Q165  
179  FN 11: IF +Q0 GT +Q1 GOTO LBL 131
180  FN 17: SYSWRITE ID50 NR7 IDXQ330 = +1
181  FN 14: ERROR = 1065
182  LBL 131
183  FN 18: SYSREAD Q0 = ID50 NR5 IDXQ330
184  Q0 = Q0 - (Q164 / 2)  
185  FN 17: SYSWRITE ID50 NR5 IDXQ330 = +Q0
186  LBL 132
187  FN 10: IF +Q309 NE +1 GOTO LBL 99
188  FN 12: IF +Q151 LT +Q31 GOTO LBL 100
189  FN 14: ERROR = 1044
190  LBL 100
191  FN 11: IF +Q151 GT +Q32 GOTO LBL 101
192  FN 14: ERROR = 1044
193  LBL 101
194  FN 12: IF +Q152 LT +Q33 GOTO LBL 102
195  FN 14: ERROR = 1045
196  LBL 102
197  FN 11: IF +Q152 GT +Q34 GOTO LBL 103
198  FN 14: ERROR = 1045
199  LBL 103
200  FN 12: IF +Q154 LT +Q284 GOTO LBL 104
201  FN 14: ERROR = 1056
202  LBL 104
203  FN 11: IF +Q154 GT +Q285 GOTO LBL 105
204  FN 14: ERROR = 1054
205  LBL 105
206  FN 12: IF +Q155 LT +Q286 GOTO LBL 106
207  FN 14: ERROR = 1057
208  LBL 106
209  FN 11: IF +Q155 GT +Q287 GOTO LBL 107
210  FN 14: ERROR = 1055
211  LBL 107
212  LBL 99
213  FN 17: SYSWRITE ID990 NR1 = +0
214  FN 17: SYSWRITE ID990 NR2 = +0
215  FN 10: IF +Q113 NE +1 GOTO LBL 171
216  Q273 = Q273 * 25.4  
217  Q274 = Q274 * 25.4  
218  Q282 = Q282 * 25.4  
219  Q283 = Q283 * 25.4  
220  Q261 = Q261 * 25.4  
221  Q284 = Q284 * 25.4  
222  Q285 = Q285 * 25.4  
223  Q286 = Q286 * 25.4  
224  Q287 = Q287 * 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 18: SYSREAD Q0 = ID220 NR2 IDX2
236  FN 18: SYSREAD Q1 = ID220 NR2 IDX3
237  FN 9: IF +0 EQU +0 GOTO LBL 233
238  LBL 231
239  FN 18: SYSREAD Q0 = ID220 NR2 IDX3
240  FN 18: SYSREAD Q1 = ID220 NR2 IDX1
241  FN 9: IF +0 EQU +0 GOTO LBL 233
242  LBL 232
243  FN 18: SYSREAD Q0 = ID220 NR2 IDX1
244  FN 18: SYSREAD Q1 = ID220 NR2 IDX2
245  LBL 233
246  LBL 0
247  LBL 254
248  END PGM 424 MM
