0  BEGIN PGM 204 MM
1  Q195 = Q197  
2  Q197 = 0  
3  FN 9: IF +Q195 EQU +1 GOTO LBL 200
4  Q200 = ABS Q200  
5  Q204 = ABS Q204  
6  Q214 = ABS Q214  
7  Q250 = ABS Q250  
8  Q251 = ABS Q251  
9  Q252 = ABS Q252  
10  Q336 = ABS Q336  
11  LBL 200
12  FN 17: SYSWRITE ID212 = +3
13  FN 18: SYSREAD Q0 = ID1000 NR7441
14  Q0 = 2 * FRAC (Q0 / 2)  
15  FN 9: IF +Q0 EQU +1 GOTO LBL 199
16  FN 9: IF +Q110 EQU +0 GOTO LBL 199
17  FN 9: IF +Q110 EQU +1 GOTO LBL 199
18  FN 14: ERROR = 1000
19  LBL 199
20  FN 10: IF +Q109 NE -1 GOTO LBL 198
21  FN 14: ERROR = 1001
22  LBL 198
23  FN 18: SYSREAD Q13 = ID1000 NR7442
24  FN 10: IF +Q13 NE +0 GOTO LBL 178
25  FN 14: ERROR = 1074
26  LBL 178
27  FN 9: IF +Q249 EQU +0 GOTO LBL 189
28  FN 12: IF +Q249 LT +0 GOTO LBL 197
29  FN 0: Q58 = +1
30  FN 9: IF +0 EQU +0 GOTO LBL 194
31  LBL 197
32  FN 0: Q58 = -1
33  LBL 194
34  FN 9: IF +Q195 EQU +1 GOTO LBL 193
35  CALL LBL 99
36  LBL 193
37  FN 10: IF +Q214 NE +0 GOTO LBL 192
38  FN 14: ERROR = 1041
39  LBL 192
40  FN 0: Q61 = +Q110
41  FN 0: Q62 = +Q111
42  FN 18: SYSREAD Q196 = ID210 NR3
43  FN 17: SYSWRITE ID210 NR3 = +0
44  LBL 100
45  FN 1: Q19 = +Q203 + +Q200
46  Q51 = ABS Q200  
47  Q52 = ABS Q204  
48  FN 11: IF +Q51 GT +Q52 GOTO LBL 12
49  FN 1: Q19 = +Q203 + +Q204
50  FN 1: Q20 = +Q203 + +Q200
51  LBL 12
52  Q31 = Q203 - Q250 - Q252 - Q200  
53  Q32 = Q31 + Q200 + Q249  
54  FN 0: Q25 = +Q253
55  FN 10: IF +Q253 NE +0 GOTO LBL 14
56  FN 0: Q25 = +Q254
57  LBL 14
58  L Z+Q20 R0 F MAX
59  FN 18: SYSREAD Q1 = ID20 NR5
60  FN 9: IF +Q1 EQU +0 GOTO LBL 201
61  FN 9: IF +Q1 EQU +1 GOTO LBL 201
62  FN 9: IF +Q0 EQU +1 GOTO LBL 183
63  LBL 201
64  FN 18: SYSREAD Q36 = ID210 NR1
65  FN 18: SYSREAD Q37 = ID210 NR2
66  Q36 = Q336 + Q36 + Q37  
67  FN 11: IF +Q13 GT +0 GOTO LBL 177
68  FN 17: SYSWRITE ID990 NR8 = +Q36
69  FN 9: IF +0 EQU +0 GOTO LBL 176
70  LBL 177
71  CYCL DEF 13.0 ORIENTIERUNG
72  CYCL DEF 13.1 WINKEL Q36
73  L MQ13
74  LBL 176
75  FN 20: WAIT FOR M4000==1 
76  LBL 183
77  FN 10: IF +Q214 NE +0 GOTO LBL Q214
78  FN 9: IF +0 EQU +0 GOTO LBL 99
79  LBL 1
80  L IX-Q251 R0 FQ25
81  L Z+Q31 R0 FQ25
82  L IX+Q251 R0 FQ25
83  CALL LBL 10
84  L Z+Q32 R0 FQ254
85  FN 9: IF +Q255 EQU +0 GOTO LBL 179
86  CYCL DEF 9.0 VERWEILZEIT
87  CYCL DEF 9.1 V.ZEIT Q255
88  LBL 179
89  L Z+Q31 R0 FQ25
90  FN 18: SYSREAD Q1 = ID20 NR5
91  FN 9: IF +Q1 EQU +0 GOTO LBL 202
92  FN 9: IF +Q1 EQU +1 GOTO LBL 202
93  FN 9: IF +Q0 EQU +1 GOTO LBL 184
94  LBL 202
95  FN 11: IF +Q13 GT +0 GOTO LBL 175
96  FN 17: SYSWRITE ID990 NR8 = +Q36
97  FN 9: IF +0 EQU +0 GOTO LBL 174
98  LBL 175
99  CYCL DEF 13.0 ORIENTIERUNG
100  CYCL DEF 13.1 WINKEL Q36
101  L MQ13
102  LBL 174
103  FN 20: WAIT FOR M4000==1 
104  LBL 184
105  L IX-Q251 R0 FQ25
106  L Z+Q20 R0 FQ25
107  FN 9: IF +Q195 EQU +1 GOTO LBL 120
108  L Z+Q19 R0 F MAX
109  LBL 120
110  L IX+Q251 R0 FQ25
111  FN 9: IF +0 EQU +0 GOTO LBL 99
112  LBL 2
113  L IY-Q251 R0 FQ25
114  L Z+Q31 R0 FQ25
115  L IY+Q251 R0 FQ25
116  CALL LBL 10
117  L Z+Q32 R0 FQ254
118  FN 9: IF +Q255 EQU +0 GOTO LBL 180
119  CYCL DEF 9.0 VERWEILZEIT
120  CYCL DEF 9.1 V.ZEIT Q255
121  LBL 180
122  L Z+Q31 R0 FQ25
123  FN 18: SYSREAD Q1 = ID20 NR5
124  FN 9: IF +Q1 EQU +0 GOTO LBL 203
125  FN 9: IF +Q1 EQU +1 GOTO LBL 203
126  FN 9: IF +Q0 EQU +1 GOTO LBL 185
127  LBL 203
128  FN 11: IF +Q13 GT +0 GOTO LBL 173
129  FN 17: SYSWRITE ID990 NR8 = +Q36
130  FN 9: IF +0 EQU +0 GOTO LBL 172
131  LBL 173
132  CYCL DEF 13.0 ORIENTIERUNG
133  CYCL DEF 13.1 WINKEL Q36
134  L MQ13
135  LBL 172
136  FN 20: WAIT FOR M4000==1 
137  LBL 185
138  L IY-Q251 R0 FQ25
139  L Z+Q20 R0 FQ25
140  FN 9: IF +Q195 EQU +1 GOTO LBL 121
141  L Z+Q19 R0 F MAX
142  LBL 121
143  L IY+Q251 R0 FQ25
144  FN 9: IF +0 EQU +0 GOTO LBL 99
145  LBL 3
146  L IX+Q251 R0 FQ25
147  L Z+Q31 R0 FQ25
148  L IX-Q251 R0 FQ25
149  CALL LBL 10
150  L Z+Q32 R0 FQ254
151  FN 9: IF +Q255 EQU +0 GOTO LBL 181
152  CYCL DEF 9.0 VERWEILZEIT
153  CYCL DEF 9.1 V.ZEIT Q255
154  LBL 181
155  L Z+Q31 R0 FQ25
156  FN 18: SYSREAD Q1 = ID20 NR5
157  FN 9: IF +Q1 EQU +0 GOTO LBL 204
158  FN 9: IF +Q1 EQU +1 GOTO LBL 204
159  FN 9: IF +Q0 EQU +1 GOTO LBL 186
160  LBL 204
161  FN 11: IF +Q13 GT +0 GOTO LBL 171
162  FN 17: SYSWRITE ID990 NR8 = +Q36
163  FN 9: IF +0 EQU +0 GOTO LBL 170
164  LBL 171
165  CYCL DEF 13.0 ORIENTIERUNG
166  CYCL DEF 13.1 WINKEL Q36
167  L MQ13
168  LBL 170
169  FN 20: WAIT FOR M4000==1 
170  LBL 186
171  L IX+Q251 R0 FQ25
172  L Z+Q20 R0 FQ25
173  FN 9: IF +Q195 EQU +1 GOTO LBL 122
174  L Z+Q19 R0 F MAX
175  LBL 122
176  L IX-Q251 R0 FQ25
177  FN 9: IF +0 EQU +0 GOTO LBL 99
178  LBL 4
179  L IY+Q251 R0 FQ25
180  L Z+Q31 R0 FQ25
181  L IY-Q251 R0 FQ25
182  CALL LBL 10
183  L Z+Q32 R0 FQ254
184  FN 9: IF +Q255 EQU +0 GOTO LBL 182
185  CYCL DEF 9.0 VERWEILZEIT
186  CYCL DEF 9.1 V.ZEIT Q255
187  LBL 182
188  L Z+Q31 R0 FQ25
189  FN 18: SYSREAD Q1 = ID20 NR5
190  FN 9: IF +Q1 EQU +0 GOTO LBL 205
191  FN 9: IF +Q1 EQU +1 GOTO LBL 205
192  FN 9: IF +Q0 EQU +1 GOTO LBL 188
193  LBL 205
194  FN 11: IF +Q13 GT +0 GOTO LBL 169
195  FN 17: SYSWRITE ID990 NR8 = +Q36
196  FN 9: IF +0 EQU +0 GOTO LBL 168
197  LBL 169
198  CYCL DEF 13.0 ORIENTIERUNG
199  CYCL DEF 13.1 WINKEL Q36
200  L MQ13
201  LBL 168
202  FN 20: WAIT FOR M4000==1 
203  LBL 188
204  L IY+Q251 R0 FQ25
205  L Z+Q20 R0 FQ25
206  FN 9: IF +Q195 EQU +1 GOTO LBL 123
207  L Z+Q19 R0 F MAX
208  LBL 123
209  L IY-Q251 R0 FQ25
210  LBL 99
211  FN 9: IF +Q195 EQU +1 GOTO LBL 187
212  FN 3: Q200 = +Q200 * +Q58
213  FN 3: Q204 = +Q204 * +Q58
214  FN 3: Q252 = +Q252 * +Q58
215  FN 3: Q250 = +Q250 * +Q58
216  LBL 0
217  LBL 187
218  FN 17: SYSWRITE ID210 NR3 = +Q196
219  LBL 10
220  FN 10: IF +Q62 NE +1 GOTO LBL 191
221  L M8
222  LBL 191
223  FN 10: IF +Q61 NE +0 GOTO LBL 190
224  L M3
225  FN 9: IF +0 EQU +0 GOTO LBL 189
226  LBL 190
227  L M4
228  LBL 189
229  LBL 0
230  END PGM 204 MM
