0  BEGIN PGM 427 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  Q305 = ABS Q305  
7  Q272 = ABS Q272  
8  Q281 = ABS Q281  
9  Q309 = ABS Q309  
10  Q330 = ABS Q330  
11  FN 10: IF +Q109 NE -1 GOTO LBL 100
12  FN 14: ERROR = 1001
13  LBL 100
14  FN 18: SYSREAD Q0 = ID210 NR3
15  FN 9: IF +Q0 EQU +0 GOTO LBL 102
16  FN 14: ERROR = 1008
17  LBL 102
18  FN 18: SYSREAD Q0 = ID210 NR4 IDX1
19  FN 18: SYSREAD Q1 = ID210 NR4 IDX2
20  FN 18: SYSREAD Q2 = ID210 NR4 IDX3
21  Q0 = Q0 + Q1 + Q2  
22  FN 9: IF +Q0 EQU +3 GOTO LBL 103
23  FN 14: ERROR = 1007
24  LBL 103
25  FN 17: SYSWRITE ID212 = +3
26  FN 17: SYSWRITE ID990 NR1 = +1
27  FN 17: SYSWRITE ID990 NR2 = +1
28  FN 18: SYSREAD Q3 = ID1000 NR6140
29  FN 18: SYSREAD Q1 = ID1010 NR6200
30  FN 9: IF +Q1 EQU +0 GOTO LBL 13
31  FN 18: SYSREAD Q1 = ID1000 NR6200
32  FN 9: IF +Q1 EQU +1 GOTO LBL 10
33  LBL 13
34  FN 18: SYSREAD Q58 = ID1000 NR6120
35  FN 18: SYSREAD Q59 = ID1000 NR6150
36  FN 18: SYSREAD Q2 = ID350 NR11
37  FN 9: IF +0 EQU +0 GOTO LBL 11
38  LBL 10
39  FN 18: SYSREAD Q58 = ID1000 NR6360
40  FN 18: SYSREAD Q59 = ID1000 NR6361
41  FN 18: SYSREAD Q2 = ID350 NR31
42  LBL 11
43  FN 18: SYSREAD Q0 = ID1000 NR7411
44  ; Q0 = 2 * FRAC (Q0 / 2)  
45  FN 9: IF +Q0 EQU +0 GOTO LBL 14
46  FN 18: SYSREAD Q2 = ID200 NR1
47  Q2 = ABS Q2  
48  LBL 14
49  FN 10: IF +Q0 NE +0 GOTO LBL 15
50  FN 17: SYSWRITE ID990 NR3 = +1
51  LBL 15
52  FN 10: IF +Q267 NE +0 GOTO LBL 12
53  FN 14: ERROR = 1042
54  LBL 12
55  Q320 = Q320 + Q2 + Q3  
56  FN 12: IF +Q261 LT +Q260 GOTO LBL 130
57  FN 0: Q260 = +Q261
58  LBL 130
59  FN 1: Q1 = +Q109 + +1
60  FN 18: SYSREAD Q0 = ID270 NR1 IDXQ1
61  FN 11: IF +Q0 GT +Q260 GOTO LBL 120
62  L Z+Q260 R0 FQ59
63  LBL 120
64  FN 9: IF +Q272 EQU +1 GOTO LBL 21
65  FN 9: IF +Q272 EQU +2 GOTO LBL 31
66  FN 9: IF +Q272 EQU +3 GOTO LBL 41
67  FN 14: ERROR = 1064
68  LBL 21
69  FN 9: IF +Q267 EQU -1 GOTO LBL 22
70  Q1 = Q263 - Q320  
71  L X+Q1 Y+Q264 R0 FQ59
72  TCH PROBE 0.0 BEZUGSEBENE Q160 X+
73  TCH PROBE 0.1 Z+Q261
74  ; FN 18: SYSREAD Q2 = ID220 NR2 IDX1 
75  ; CALL LBL 253 
76  ; Q160 = Q160 + Q2  
77  FN 9: IF +0 EQU +0 GOTO LBL 98
78  LBL 22
79  Q1 = Q263 + Q320  
80  L X+Q1 Y+Q264 R0 FQ59
81  TCH PROBE 0.0 BEZUGSEBENE Q160 X-
82  TCH PROBE 0.1 Z+Q261
83  ; FN 18: SYSREAD Q2 = ID220 NR2 IDX1 
84  ; CALL LBL 253 
85  ; Q160 = Q160 + Q2  
86  FN 9: IF +0 EQU +0 GOTO LBL 98
87  LBL 31
88  FN 9: IF +Q267 EQU -1 GOTO LBL 32
89  Q3 = Q264 - Q320  
90  L X+Q263 Y+Q3 R0 FQ59
91  TCH PROBE 0.0 BEZUGSEBENE Q160 Y+
92  TCH PROBE 0.1 Z+Q261
93  ; FN 18: SYSREAD Q2 = ID220 NR2 IDX2 
94  ; CALL LBL 253 
95  ; Q160 = Q160 + Q2  
96  FN 9: IF +0 EQU +0 GOTO LBL 98
97  LBL 32
98  Q3 = Q264 + Q320  
99  L X+Q263 Y+Q3 R0 FQ59
100  TCH PROBE 0.0 BEZUGSEBENE Q160 Y-
101  TCH PROBE 0.1 Z+Q261
102  ; FN 18: SYSREAD Q2 = ID220 NR2 IDX2 
103  ; CALL LBL 253 
104  ; Q160 = Q160 + Q2  
105  FN 9: IF +0 EQU +0 GOTO LBL 98
106  LBL 41
107  FN 9: IF +Q267 EQU -1 GOTO LBL 42
108  Q1 = Q261 - Q320  
109  L X+Q263 Y+Q264 R0 FQ59
110  TCH PROBE 0.0 BEZUGSEBENE Q160 Z+
111  TCH PROBE 0.1 Z+Q1
112  ; FN 18: SYSREAD Q2 = ID220 NR2 IDX3 
113  ; CALL LBL 253 
114  ; Q160 = Q160 + Q2  
115  FN 9: IF +0 EQU +0 GOTO LBL 98
116  LBL 42
117  Q1 = Q261 + Q320  
118  L X+Q263 Y+Q264 R0 FQ59
119  TCH PROBE 0.0 BEZUGSEBENE Q160 Z-
120  TCH PROBE 0.1 Z+Q1
121  ; FN 18: SYSREAD Q2 = ID220 NR2 IDX3 
122  ; CALL LBL 253 
123  ; Q160 = Q160 + Q2  
124  LBL 98
125  L Z+Q260 FQ59
126  FN 10: IF +Q272 NE +1 GOTO LBL 150
127  ; Messachse = 1. Achse  
128  Q168 = Q160 - Q263  
129  FN 9: IF +0 EQU +0 GOTO LBL 160
130  LBL 150
131  FN 10: IF +Q272 NE +2 GOTO LBL 151
132  ; Messachse = 2. Achse  
133  Q168 = Q160 - Q264  
134  FN 9: IF +0 EQU +0 GOTO LBL 160
135  LBL 151
136  ; Messachse = 3. Achse  
137  Q168 = Q160 - Q261  
138  LBL 160
139  FN 10: IF +Q113 NE +1 GOTO LBL 170
140  Q288 = Q288 / 25.4  
141  Q289 = Q289 / 25.4  
142  Q263 = Q263 / 25.4  
143  Q264 = Q264 / 25.4  
144  Q160 = Q160 / 25.4  
145  Q168 = Q168 / 25.4  
146  Q261 = Q261 / 25.4  
147  LBL 170
148  FN 10: IF +Q281 NE +1 GOTO LBL 99
149  FN 16: F-PRINT 427PROT  / TCHPR427.TXT 
150  LBL 99
151  FN 0: Q180 = +1
152  FN 0: Q181 = +0
153  FN 0: Q182 = +0
154  FN 17: SYSWRITE ID2000 NR10 IDX4065 = +1
155  FN 17: SYSWRITE ID2000 NR10 IDX4066 = +0
156  FN 17: SYSWRITE ID2000 NR10 IDX4067 = +0
157  FN 12: IF +Q160 LT +Q288 GOTO LBL 110
158  FN 0: Q180 = +0
159  FN 0: Q182 = +1
160  FN 17: SYSWRITE ID2000 NR10 IDX4065 = +0
161  FN 17: SYSWRITE ID2000 NR10 IDX4067 = +1
162  LBL 110
163  FN 11: IF +Q160 GT +Q289 GOTO LBL 111
164  FN 0: Q180 = +0
165  FN 0: Q181 = +1
166  FN 17: SYSWRITE ID2000 NR10 IDX4065 = +0
167  FN 17: SYSWRITE ID2000 NR10 IDX4066 = +1
168  LBL 111
169  FN 9: IF +Q330 EQU +0 GOTO LBL 181
170  FN 11: IF +Q272 GT +2 GOTO LBL 184
171  FN 18: SYSREAD Q0 = ID50 NR22 IDXQ330
172  FN 9: IF +Q0 EQU +0 GOTO LBL 180
173  Q1 = ABS Q168  
174  FN 11: IF +Q0 GT +Q1 GOTO LBL 180
175  FN 17: SYSWRITE ID50 NR7 IDXQ330 = +1
176  FN 14: ERROR = 1065
177  LBL 184
178  FN 18: SYSREAD Q0 = ID50 NR21 IDXQ330
179  FN 9: IF +Q0 EQU +0 GOTO LBL 180
180  Q1 = ABS Q168  
181  FN 11: IF +Q0 GT +Q1 GOTO LBL 180
182  FN 17: SYSWRITE ID50 NR7 IDXQ330 = +1
183  FN 14: ERROR = 1065
184  LBL 180
185  FN 11: IF +Q272 GT +2 GOTO LBL 185
186  FN 18: SYSREAD Q0 = ID50 NR5 IDXQ330 ; DR 
187  Q0 = Q0 - (Q168 * NEG Q267)  
188  FN 17: SYSWRITE ID50 NR5 IDXQ330 = +Q0
189  FN 9: IF +0 EQU +0 GOTO LBL 181
190  LBL 185
191  FN 18: SYSREAD Q0 = ID50 NR4 IDXQ330 ; DL 
192  Q0 = Q0 - Q168  
193  FN 17: SYSWRITE ID50 NR4 IDXQ330 = +Q0
194  LBL 181
195  FN 10: IF +Q309 NE +1 GOTO LBL 183
196  FN 12: IF +Q160 LT +Q288 GOTO LBL 182
197  FN 14: ERROR = 1058
198  LBL 182
199  FN 11: IF +Q160 GT +Q289 GOTO LBL 183
200  FN 14: ERROR = 1059
201  LBL 183
202  FN 17: SYSWRITE ID990 NR1 = +0
203  FN 17: SYSWRITE ID990 NR2 = +0
204  FN 10: IF +Q113 NE +1 GOTO LBL 171
205  Q288 = Q288 / 25.4  
206  Q289 = Q289 / 25.4  
207  Q263 = Q263 * 25.4  
208  Q264 = Q264 * 25.4  
209  Q261 = Q261 * 25.4  
210  LBL 171
211  FN 9: IF +0 EQU +0 GOTO LBL 254
212  LBL 253
213  FN 9: IF +Q109 EQU +0 GOTO LBL 230
214  FN 9: IF +Q109 EQU +6 GOTO LBL 230
215  FN 9: IF +Q109 EQU +1 GOTO LBL 231
216  FN 9: IF +Q109 EQU +7 GOTO LBL 231
217  FN 9: IF +Q109 EQU +2 GOTO LBL 232
218  FN 9: IF +Q109 EQU +8 GOTO LBL 232
219  LBL 230
220  FN 0: Q141 = +Q116
221  FN 0: Q142 = +Q117
222  FN 17: SYSWRITE ID990 NR4 IDX1 = +141
223  FN 0: Q141 = +Q143
224  FN 0: Q142 = +Q144
225  FN 0: Q143 = +Q115
226  FN 9: IF +0 EQU +0 GOTO LBL 233
227  LBL 231
228  FN 0: Q141 = +Q117
229  FN 0: Q142 = +Q115
230  FN 17: SYSWRITE ID990 NR4 IDX1 = +141
231  FN 0: Q141 = +Q143
232  FN 0: Q142 = +Q144
233  FN 0: Q143 = +Q116
234  FN 9: IF +0 EQU +0 GOTO LBL 233
235  LBL 232
236  FN 0: Q141 = +Q115
237  FN 0: Q142 = +Q116
238  FN 17: SYSWRITE ID990 NR4 IDX1 = +141
239  FN 0: Q141 = +Q143
240  FN 0: Q142 = +Q144
241  FN 0: Q143 = +Q117
242  LBL 233
243  LBL 0
244  LBL 254
245  END PGM 427 MM
