0  BEGIN PGM 417 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  FN 10: IF +Q109 NE -1 GOTO LBL 100
8  FN 14: ERROR = 1001
9  LBL 100
10  FN 18: SYSREAD Q0 = ID210 NR3
11  FN 9: IF +Q0 EQU +0 GOTO LBL 101
12  FN 14: ERROR = 1008
13  LBL 101
14  FN 18: SYSREAD Q0 = ID210 NR4 IDX1
15  FN 18: SYSREAD Q1 = ID210 NR4 IDX2
16  FN 18: SYSREAD Q2 = ID210 NR4 IDX3
17  Q0 = Q0 + Q1 + Q2  
18  FN 9: IF +Q0 EQU +3 GOTO LBL 102
19  FN 14: ERROR = 1007
20  LBL 102
21  FN 17: SYSWRITE ID212 = +3
22  FN 17: SYSWRITE ID990 NR1 = +1
23  FN 17: SYSWRITE ID990 NR2 = +1
24  FN 18: SYSREAD Q3 = ID1000 NR6140
25  FN 18: SYSREAD Q1 = ID1010 NR6200
26  FN 9: IF +Q1 EQU +0 GOTO LBL 13
27  FN 18: SYSREAD Q1 = ID1000 NR6200
28  FN 9: IF +Q1 EQU +1 GOTO LBL 10
29  LBL 13
30  FN 18: SYSREAD Q58 = ID1000 NR6120
31  FN 18: SYSREAD Q59 = ID1000 NR6150
32  FN 18: SYSREAD Q2 = ID350 NR11
33  FN 9: IF +0 EQU +0 GOTO LBL 11
34  LBL 10
35  FN 18: SYSREAD Q58 = ID1000 NR6360
36  FN 18: SYSREAD Q59 = ID1000 NR6361
37  FN 18: SYSREAD Q2 = ID350 NR31
38  LBL 11
39  FN 18: SYSREAD Q0 = ID1000 NR7411
40  ; Q0 = 2 * FRAC (Q0 / 2)  
41  FN 9: IF +Q0 EQU +0 GOTO LBL 14
42  FN 18: SYSREAD Q2 = ID200 NR1
43  Q2 = ABS Q2  
44  LBL 14
45  FN 10: IF +Q0 NE +0 GOTO LBL 15
46  FN 17: SYSWRITE ID990 NR3 = +1
47  LBL 15
48  Q320 = Q320 + Q2 + Q3  
49  FN 12: IF +Q294 LT +Q260 GOTO LBL 130
50  FN 0: Q260 = +Q294
51  LBL 130
52  FN 1: Q1 = +Q109 + +1
53  FN 18: SYSREAD Q0 = ID270 NR1 IDXQ1
54  FN 11: IF +Q0 GT +Q260 GOTO LBL 120
55  L Z+Q260 R0 FQ59
56  LBL 120
57  Q294 = Q294 + Q320  
58  L X+Q263 Y+Q264 R0 FQ59
59  TCH PROBE 0.0 BEZUGSEBENE Q1 Z-
60  TCH PROBE 0.1 Z+Q294
61  CALL LBL 253
62  Q1 = Q1 + Q32  
63  L Z+Q260 FQ59
64  FN 11: IF +Q305 GT +0 GOTO LBL 4
65  FN 9: IF +Q109 EQU +0 GOTO LBL 30
66  FN 9: IF +Q109 EQU +6 GOTO LBL 31
67  FN 9: IF +Q109 EQU +1 GOTO LBL 32
68  FN 9: IF +Q109 EQU +7 GOTO LBL 33
69  FN 9: IF +Q109 EQU +2 GOTO LBL 34
70  FN 9: IF +Q109 EQU +8 GOTO LBL 35
71  LBL 30
72  FN 25: PRESET = X /+Q1 /+Q333
73  FN 9: IF +0 EQU +0 GOTO LBL 99
74  LBL 31
75  FN 25: PRESET = U /+Q1 /+Q333
76  FN 9: IF +0 EQU +0 GOTO LBL 99
77  LBL 32
78  FN 25: PRESET = Y /+Q1 /+Q333
79  FN 9: IF +0 EQU +0 GOTO LBL 99
80  LBL 33
81  FN 25: PRESET = V /+Q1 /+Q333
82  FN 9: IF +0 EQU +0 GOTO LBL 99
83  LBL 34
84  FN 25: PRESET = Z /+Q1 /+Q333
85  FN 9: IF +0 EQU +0 GOTO LBL 99
86  LBL 35
87  FN 25: PRESET = W /+Q1 /+Q333
88  FN 9: IF +0 EQU +0 GOTO LBL 99
89  LBL 4
90  FN 18: SYSREAD Q4 = ID1000 NR7475
91  FN 9: IF +Q4 EQU +0 GOTO LBL 38
92  Q1 = Q1 + Q31 - Q333  
93  FN 9: IF +0 EQU +0 GOTO LBL 39
94  LBL 38
95  Q1 = Q1 - Q333  
96  LBL 39
97  FN 9: IF +Q109 EQU +0 GOTO LBL 40
98  FN 9: IF +Q109 EQU +6 GOTO LBL 41
99  FN 9: IF +Q109 EQU +1 GOTO LBL 42
100  FN 9: IF +Q109 EQU +7 GOTO LBL 43
101  FN 9: IF +Q109 EQU +2 GOTO LBL 44
102  FN 9: IF +Q109 EQU +8 GOTO LBL 45
103  LBL 40
104  FN 18: SYSREAD Q4 = ID1000 NR7475
105  FN 9: IF +Q4 EQU +0 GOTO LBL 196
106  Q2 = 1  
107  CALL LBL 90
108  CALL LBL 77
109  Q1 = Q4  
110  Q2 = Q3  
111  CALL LBL 60
112  FN 17: SYSWRITE ID501 NRQ305 IDXQ2 = +Q1
113  FN 9: IF +0 EQU +0 GOTO LBL 99
114  LBL 196
115  FN 17: SYSWRITE ID500 NRQ305 IDX7 = +Q1
116  FN 9: IF +0 EQU +0 GOTO LBL 99
117  LBL 41
118  FN 17: SYSWRITE ID500 NRQ305 IDX7 = +Q1
119  FN 9: IF +0 EQU +0 GOTO LBL 99
120  LBL 42
121  FN 18: SYSREAD Q4 = ID1000 NR7475
122  FN 9: IF +Q4 EQU +0 GOTO LBL 197
123  Q2 = 2  
124  CALL LBL 90
125  CALL LBL 77
126  Q1 = Q4  
127  Q2 = Q3  
128  CALL LBL 60
129  FN 17: SYSWRITE ID501 NRQ305 IDXQ2 = +Q1
130  FN 9: IF +0 EQU +0 GOTO LBL 99
131  LBL 197
132  FN 17: SYSWRITE ID500 NRQ305 IDX2 = +Q1
133  FN 9: IF +0 EQU +0 GOTO LBL 99
134  LBL 43
135  FN 17: SYSWRITE ID500 NRQ305 IDX8 = +Q1
136  FN 9: IF +0 EQU +0 GOTO LBL 99
137  LBL 44
138  FN 18: SYSREAD Q4 = ID1000 NR7475
139  FN 9: IF +Q4 EQU +0 GOTO LBL 198
140  Q2 = 3  
141  CALL LBL 90
142  CALL LBL 77
143  Q1 = Q4  
144  Q2 = Q3  
145  CALL LBL 60
146  FN 17: SYSWRITE ID501 NRQ305 IDXQ2 = +Q1
147  FN 9: IF +0 EQU +0 GOTO LBL 99
148  LBL 198
149  FN 17: SYSWRITE ID500 NRQ305 IDX3 = +Q1
150  FN 9: IF +0 EQU +0 GOTO LBL 99
151  LBL 45
152  FN 17: SYSWRITE ID500 NRQ305 IDX9 = +Q1
153  LBL 99
154  FN 17: SYSWRITE ID990 NR1 = +0
155  FN 17: SYSWRITE ID990 NR2 = +0
156  FN 9: IF +0 EQU +0 GOTO LBL 254
157  LBL 253
158  FN 9: IF +Q109 EQU +0 GOTO LBL 230
159  FN 9: IF +Q109 EQU +6 GOTO LBL 230
160  FN 9: IF +Q109 EQU +1 GOTO LBL 231
161  FN 9: IF +Q109 EQU +7 GOTO LBL 231
162  FN 9: IF +Q109 EQU +2 GOTO LBL 232
163  FN 9: IF +Q109 EQU +8 GOTO LBL 232
164  LBL 230
165  FN 18: SYSREAD Q31 = ID220 NR4 IDX1
166  FN 18: SYSREAD Q32 = ID220 NR2 IDX1
167  FN 9: IF +0 EQU +0 GOTO LBL 233
168  LBL 231
169  FN 18: SYSREAD Q31 = ID220 NR4 IDX2
170  FN 18: SYSREAD Q32 = ID220 NR2 IDX2
171  FN 9: IF +0 EQU +0 GOTO LBL 233
172  LBL 232
173  FN 18: SYSREAD Q31 = ID220 NR4 IDX3
174  FN 18: SYSREAD Q32 = ID220 NR2 IDX3
175  LBL 233
176  LBL 0
177  LBL 77
178  Q5 = Q2 - 1  
179  FN 17: SYSWRITE ID990 NR5 IDX5 = +5
180  FN 9: IF +Q6 EQU +0 GOTO LBL 78
181  FN 9: IF +Q6 EQU +1 GOTO LBL 79
182  FN 9: IF +Q6 EQU +2 GOTO LBL 80
183  FN 14: ERROR = 1013
184  LBL 78
185  Q3 = Q6 + 1  
186  Q4 = Q43  
187  FN 9: IF +0 EQU +0 GOTO LBL 81
188  LBL 79
189  Q3 = Q6 + 1  
190  Q4 = Q44  
191  FN 9: IF +0 EQU +0 GOTO LBL 81
192  LBL 80
193  Q3 = Q6 + 1  
194  Q4 = Q45  
195  LBL 81
196  LBL 0
197  LBL 60
198  FN 18: SYSREAD Q21 = ID220 NR3 IDXQ2
199  FN 18: SYSREAD Q22 = ID220 NR4 IDXQ2
200  Q1 = Q1 - Q21 + Q22  
201  LBL 0
202  LBL 90
203  Q40 = Q115  
204  Q41 = Q116  
205  Q42 = Q117  
206  FN 18: SYSREAD Q6 = ID200 NR2
207  FN 17: SYSWRITE ID990 NR5 IDX1 = +40
208  FN 9: IF +Q109 EQU +0 GOTO LBL 91
209  FN 9: IF +Q109 EQU +1 GOTO LBL 92
210  FN 9: IF +Q109 EQU +2 GOTO LBL 93
211  FN 9: IF +0 EQU +0 GOTO LBL 94
212  LBL 91
213  Q43 = Q43 - Q6 - Q333 
214  FN 9: IF +0 EQU +0 GOTO LBL 94
215  LBL 92
216  Q44 = Q44 - Q6 - Q333 
217  FN 9: IF +0 EQU +0 GOTO LBL 94
218  LBL 93
219  Q45 = Q45 - Q6 - Q333 
220  LBL 94
221  Q40 = Q43  
222  Q41 = Q44  
223  Q42 = Q45  
224  FN 17: SYSWRITE ID990 NR5 IDX4 = +40
225  LBL 0
226  LBL 254
227  END PGM 417 MM

