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