0  BEGIN PGM 426 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  Q272 = ABS Q272  
7  Q281 = ABS Q281  
8  Q288 = ABS Q288  
9  Q289 = ABS Q289  
10  Q309 = ABS Q309  
11  Q311 = ABS Q311  
12  Q330 = ABS Q330  
13  FN 10: IF +Q109 NE -1 GOTO LBL 210
14  FN 14: ERROR = 1001
15  LBL 210
16  FN 18: SYSREAD Q0 = ID210 NR3
17  FN 9: IF +Q0 EQU +0 GOTO LBL 211
18  FN 14: ERROR = 1008
19  LBL 211
20  FN 18: SYSREAD Q0 = ID210 NR4 IDX1
21  FN 18: SYSREAD Q1 = ID210 NR4 IDX2
22  FN 18: SYSREAD Q2 = ID210 NR4 IDX3
23  Q0 = Q0 + Q1 + Q2  
24  FN 9: IF +Q0 EQU +3 GOTO LBL 212
25  FN 14: ERROR = 1007
26  LBL 212
27  FN 18: SYSREAD Q0 = ID210 NR4 IDX1
28  FN 18: SYSREAD Q1 = ID210 NR4 IDX2
29  FN 18: SYSREAD Q2 = ID210 NR4 IDX3
30  Q0 = Q0 + Q1 + Q2  
31  FN 9: IF +Q0 EQU +3 GOTO LBL 112
32  FN 14: ERROR = 1007
33  LBL 112
34  FN 17: SYSWRITE ID212 = +3
35  FN 17: SYSWRITE ID990 NR1 = +1
36  FN 17: SYSWRITE ID990 NR2 = +1
37  FN 18: SYSREAD Q3 = ID1000 NR6140
38  FN 18: SYSREAD Q1 = ID1010 NR6200
39  FN 9: IF +Q1 EQU +0 GOTO LBL 13
40  FN 18: SYSREAD Q1 = ID1000 NR6200
41  FN 9: IF +Q1 EQU +1 GOTO LBL 10
42  LBL 13
43  FN 18: SYSREAD Q58 = ID1000 NR6120
44  FN 18: SYSREAD Q59 = ID1000 NR6150
45  FN 18: SYSREAD Q2 = ID350 NR11
46  FN 9: IF +0 EQU +0 GOTO LBL 11
47  LBL 10
48  FN 18: SYSREAD Q58 = ID1000 NR6360
49  FN 18: SYSREAD Q59 = ID1000 NR6361
50  FN 18: SYSREAD Q2 = ID350 NR31
51  LBL 11
52  FN 18: SYSREAD Q0 = ID1000 NR7411
53  ; Q0 = 2 * FRAC (Q0 / 2)  
54  FN 9: IF +Q0 EQU +0 GOTO LBL 14
55  FN 18: SYSREAD Q2 = ID200 NR1
56  Q2 = ABS Q2  
57  LBL 14
58  FN 10: IF +Q0 NE +0 GOTO LBL 15
59  FN 17: SYSWRITE ID990 NR3 = +1
60  LBL 15
61  Q320 = Q320 + Q2 + Q3  
62  FN 12: IF +Q261 LT +Q260 GOTO LBL 119
63  FN 14: ERROR = 1016
64  LBL 119
65  FN 1: Q1 = +Q109 + +1
66  FN 18: SYSREAD Q0 = ID270 NR1 IDXQ1
67  FN 11: IF +Q0 GT +Q260 GOTO LBL 120
68  L Z+Q260 R0 FQ59
69  LBL 120
70  FN 9: IF +Q272 EQU +2 GOTO LBL 20
71  FN 1: Q1 = +Q263 + +Q320
72  FN 2: Q2 = +Q265 - +Q320
73  L X+Q1 Y+Q264 R0 FQ59
74  TCH PROBE 0.0 BEZUGSEBENE Q5 X-
75  TCH PROBE 0.1 Z+Q261
76  L Z+Q260 FQ59
77  L X+Q2 Y+Q266 FQ59
78  TCH PROBE 0.0 BEZUGSEBENE Q6 X+
79  TCH PROBE 0.1 Z+Q261
80  L Z+Q260 FQ59
81  CALL LBL 253
82  Q156 = ABS (Q5 - Q6)  
83  Q157 = Q6 + (Q156 / 2)  
84  Q166 = Q156 - ABS Q311  
85  FN 9: IF +0 EQU +0 GOTO LBL 197
86  LBL 20
87  FN 1: Q3 = +Q264 + +Q320
88  FN 2: Q4 = +Q266 - +Q320
89  L X+Q263 Y+Q3 FQ59
90  TCH PROBE 0.0 BEZUGSEBENE Q5 Y-
91  TCH PROBE 0.1 Z+Q261
92  L Z+Q260 FQ59
93  L X+Q265 Y+Q4 FQ59
94  TCH PROBE 0.0 BEZUGSEBENE Q6 Y+
95  TCH PROBE 0.1 Z+Q261
96  L Z+Q260 FQ59
97  CALL LBL 253
98  Q156 = ABS (Q5 - Q6)  
99  Q157 = Q6 + (Q156 / 2)  
100  Q166 = Q156 - ABS Q311  
101  LBL 197
102  FN 10: IF +Q113 NE +1 GOTO LBL 170
103  Q288 = Q288 / 25.4  
104  Q289 = Q289 / 25.4  
105  Q311 = Q311 / 25.4  
106  Q156 = Q156 / 25.4  
107  Q157 = Q157 / 25.4  
108  Q166 = Q166 / 25.4  
109  Q261 = Q261 / 25.4  
110  LBL 170
111  FN 10: IF +Q281 NE +1 GOTO LBL 198
112  FN 16: F-PRINT 426PROT  / TCHPR426.TXT 
113  LBL 198
114  FN 0: Q180 = +1
115  FN 0: Q181 = +0
116  FN 0: Q182 = +0
117  FN 17: SYSWRITE ID2000 NR10 IDX4065 = +1
118  FN 17: SYSWRITE ID2000 NR10 IDX4066 = +0
119  FN 17: SYSWRITE ID2000 NR10 IDX4067 = +0
120  FN 12: IF +Q156 LT +Q288 GOTO LBL 110
121  FN 0: Q180 = +0
122  FN 0: Q181 = +1
123  FN 17: SYSWRITE ID2000 NR10 IDX4065 = +0
124  FN 17: SYSWRITE ID2000 NR10 IDX4066 = +1
125  LBL 110
126  FN 11: IF +Q156 GT +Q289 GOTO LBL 111
127  FN 0: Q180 = +0
128  FN 0: Q182 = +1
129  FN 17: SYSWRITE ID2000 NR10 IDX4065 = +0
130  FN 17: SYSWRITE ID2000 NR10 IDX4067 = +1
131  LBL 111
132  FN 9: IF +Q330 EQU +0 GOTO LBL 131
133  FN 18: SYSREAD Q0 = ID50 NR22 IDXQ330
134  FN 9: IF +Q0 EQU +0 GOTO LBL 130
135  Q1 = ABS Q166  
136  FN 11: IF +Q0 GT +Q1 GOTO LBL 130
137  FN 17: SYSWRITE ID50 NR7 IDXQ330 = +1
138  FN 14: ERROR = 1065
139  LBL 130
140  FN 18: SYSREAD Q0 = ID50 NR5 IDXQ330
141  Q0 = Q0 - (Q166 / 2)  
142  FN 17: SYSWRITE ID50 NR5 IDXQ330 = +Q0
143  LBL 131
144  FN 10: IF +Q309 NE +1 GOTO LBL 99
145  FN 12: IF +Q156 LT +Q288 GOTO LBL 100
146  FN 14: ERROR = 1060
147  LBL 100
148  FN 11: IF +Q156 GT +Q289 GOTO LBL 99
149  FN 14: ERROR = 1061
150  LBL 99
151  FN 17: SYSWRITE ID990 NR1 = +0
152  FN 17: SYSWRITE ID990 NR2 = +0
153  FN 10: IF +Q113 NE +1 GOTO LBL 171
154  Q288 = Q288 * 25.4  
155  Q289 = Q289 * 25.4  
156  Q311 = Q311 * 25.4  
157  Q261 = Q261 * 25.4  
158  LBL 171
159  FN 9: IF +0 EQU +0 GOTO LBL 254
160  LBL 253
161  FN 9: IF +Q109 EQU +0 GOTO LBL 230
162  FN 9: IF +Q109 EQU +6 GOTO LBL 230
163  FN 9: IF +Q109 EQU +1 GOTO LBL 231
164  FN 9: IF +Q109 EQU +7 GOTO LBL 231
165  FN 9: IF +Q109 EQU +2 GOTO LBL 232
166  FN 9: IF +Q109 EQU +8 GOTO LBL 232
167  LBL 230
168  FN 18: SYSREAD Q1 = ID220 NR2 IDX2
169  FN 18: SYSREAD Q2 = ID220 NR2 IDX3
170  FN 9: IF +0 EQU +0 GOTO LBL 233
171  LBL 231
172  FN 18: SYSREAD Q1 = ID220 NR2 IDX3
173  FN 18: SYSREAD Q2 = ID220 NR2 IDX1
174  FN 9: IF +0 EQU +0 GOTO LBL 233
175  LBL 232
176  FN 18: SYSREAD Q1 = ID220 NR2 IDX1
177  FN 18: SYSREAD Q2 = ID220 NR2 IDX2
178  LBL 233
179  LBL 0
180  LBL 254
181  END PGM 426 MM
