0  BEGIN PGM 211 MM
1  Q195 = Q197  
2  Q197 = 0  
3  Q200 = ABS Q200  
4  Q202 = ABS Q202  
5  Q204 = ABS Q204  
6  Q215 = ABS Q215  
7  Q219 = ABS Q219  
8  Q244 = ABS Q244  
9  Q248 = ABS Q248  
10  Q338 = ABS Q338  
11  FN 17: SYSWRITE ID212 = +3
12  FN 18: SYSREAD Q5 = ID210 NR4 IDX1
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 10: IF +Q202 NE +0 GOTO LBL 21
24  FN 14: ERROR = 1030
25  LBL 21
26  FN 11: IF +Q248 GT +0 GOTO LBL 195
27  FN 14: ERROR = 1016
28  LBL 195
29  FN 9: IF +Q201 EQU +0 GOTO LBL 254
30  FN 12: IF +Q201 LT +0 GOTO LBL 197
31  FN 0: Q50 = -1
32  FN 9: IF +0 EQU +0 GOTO LBL 194
33  LBL 197
34  FN 0: Q50 = +1
35  LBL 194
36  FN 10: IF +Q195 NE +1 GOTO LBL 196
37  FN 14: ERROR = 1016
38  LBL 196
39  CALL LBL 99
40  FN 18: SYSREAD Q1 = ID200 NR1
41  Q1 = ABS Q1  
42  FN 0: Q2 = +Q215
43  Q27 = (Q219 / Q1) * Q5  
44  FN 11: IF +Q27 GT +6 GOTO LBL 98
45  FN 12: IF +Q27 LT +2 GOTO LBL 97
46  FN 9: IF +Q27 EQU +2 GOTO LBL 200
47  FN 9: IF +0 EQU +0 GOTO LBL 201
48  LBL 200
49  FN 0: Q215 = +1
50  LBL 201
51  Q47 = ABS Q201  
52  Q48 = ABS Q202  
53  FN 11: IF +Q47 GT +Q48 GOTO LBL 202
54  Q27 = Q47 / 2 * Q50  
55  FN 9: IF +0 EQU +0 GOTO LBL 203
56  LBL 202
57  FN 4: Q27 = +Q202 DIV +2
58  LBL 203
59  FN 4: Q22 = +Q207 DIV +2
60  FN 1: Q29 = +Q203 + +Q201
61  FN 1: Q19 = +Q203 + +Q200
62  Q51 = ABS Q200  
63  Q52 = ABS Q204  
64  FN 11: IF +Q51 GT +Q52 GOTO LBL 10
65  FN 1: Q19 = +Q203 + +Q204
66  LBL 10
67  FN 2: Q20 = +Q203 - -Q200
68  FN 1: Q28 = +Q203 + +0
69  FN 4: Q30 = +Q244 DIV +2
70  FN 1: Q33 = +Q245 + +Q248
71  FN 4: Q36 = +Q219 DIV +2
72  FN 2: Q34 = +Q36 - +Q1
73  Q34 = (Q36 * Q5) - Q1  
74  Q32 = (Q34 / 2) * Q5  
75  FN 1: Q40 = +Q30 + +Q36
76  FN 2: Q41 = +Q30 - +Q36
77  CC X+Q216 Y+Q217
78  FN 1: Q0 = +Q109 + +1
79  FN 18: SYSREAD Q0 = ID270 NR1 IDXQ0
80  FN 9: IF +Q30 EQU -1 GOTO LBL 120
81  FN 11: IF +Q0 GT +Q19 GOTO LBL 121
82  L Z+Q19 R0 F MAX
83  FN 9: IF +0 EQU +0 GOTO LBL 121
84  LBL 120
85  FN 12: IF +Q0 LT +Q19 GOTO LBL 121
86  L Z+Q19 R0 F MAX
87  LBL 121
88  LP PR+Q30 PA+Q245 F MAX
89  LBL 6
90  L Z+Q20 F MAX
91  FN 9: IF +Q215 EQU +2 GOTO LBL 5
92  L Z+Q203 R0 F100
93  FN 10: IF +Q50 NE -1 GOTO LBL 30
94  FN 9: IF +Q28 EQU +Q29 GOTO LBL 3
95  FN 11: IF +Q28 GT +Q29 GOTO LBL 100
96  FN 9: IF +0 EQU +0 GOTO LBL 1
97  LBL 30
98  FN 9: IF +Q28 EQU +Q29 GOTO LBL 3
99  FN 12: IF +Q28 LT +Q29 GOTO LBL 100
100  LBL 1
101  FN 1: Q28 = +Q28 + -Q27
102  FN 10: IF +Q50 NE -1 GOTO LBL 32
103  FN 9: IF +Q28 EQU +Q29 GOTO LBL 3
104  FN 11: IF +Q28 GT +Q29 GOTO LBL 3
105  FN 9: IF +0 EQU +0 GOTO LBL 33
106  LBL 32
107  FN 9: IF +Q28 EQU +Q29 GOTO LBL 3
108  FN 12: IF +Q28 LT +Q29 GOTO LBL 3
109  LBL 33
110  CP IPA+Q248 Z+Q28 DR+ FQ207
111  LBL 12
112  FN 1: Q28 = +Q28 + -Q27
113  FN 10: IF +Q50 NE -1 GOTO LBL 34
114  FN 9: IF +Q28 EQU +Q29 GOTO LBL 2
115  FN 11: IF +Q28 GT +Q29 GOTO LBL 2
116  FN 9: IF +0 EQU +0 GOTO LBL 35
117  LBL 34
118  FN 9: IF +Q28 EQU +Q29 GOTO LBL 2
119  FN 12: IF +Q28 LT +Q29 GOTO LBL 2
120  LBL 35
121  CP IPA-Q248 Z+Q28 DR- FQ207
122  FN 1: Q28 = +Q28 + -Q27
123  FN 10: IF +Q50 NE -1 GOTO LBL 36
124  FN 9: IF +Q28 EQU +Q29 GOTO LBL 3
125  FN 11: IF +Q28 GT +Q29 GOTO LBL 3
126  FN 9: IF +0 EQU +0 GOTO LBL 37
127  LBL 36
128  FN 9: IF +Q28 EQU +Q29 GOTO LBL 3
129  FN 12: IF +Q28 LT +Q29 GOTO LBL 3
130  LBL 37
131  CP IPA+Q248 Z+Q28 DR+ FQ207
132  FN 10: IF +Q50 NE -1 GOTO LBL 38
133  FN 12: IF +Q28 LT +Q29 GOTO LBL 12
134  FN 9: IF +0 EQU +0 GOTO LBL 2
135  LBL 38
136  FN 11: IF +Q28 GT +Q29 GOTO LBL 12
137  LBL 2
138  CP PA+Q245 Z+Q29 DR- FQ207
139  CP IPA+Q248 Z+Q29 DR+ FQ207
140  FN 9: IF +Q215 EQU +1 GOTO LBL 100
141  CP PA+Q245 Z+Q29 DR- FQ207
142  FN 9: IF +0 EQU +0 GOTO LBL 5
143  LBL 3
144  CP IPA+Q248 Z+Q29 DR+ FQ207
145  CP PA+Q245 Z+Q29 DR- FQ207
146  FN 9: IF +Q215 EQU +1 GOTO LBL 100
147  LBL 5
148  FN 9: IF +Q215 EQU +1 GOTO LBL 100
149  Q10 = Q29  
150  Q13 = 1.1  
151  FN 9: IF +Q338 EQU +0 GOTO LBL 150
152  Q10 = Q203 - Q338  
153  Q13 = 0  
154  LBL 151
155  FN 9: IF +Q30 EQU -1 GOTO LBL 152
156  FN 9: IF +Q10 EQU +Q29 GOTO LBL 153
157  FN 12: IF +Q10 LT +Q29 GOTO LBL 153
158  FN 9: IF +0 EQU +0 GOTO LBL 150
159  LBL 152
160  FN 9: IF +Q10 EQU +Q29 GOTO LBL 153
161  FN 11: IF +Q10 GT +Q29 GOTO LBL 153
162  FN 9: IF +0 EQU +0 GOTO LBL 150
163  LBL 153
164  Q10 = Q29  
165  Q13 = 1.1  
166  LBL 150
167  L Z+Q10 R0 FQ207
168  LP PR+Q40 PA+Q245 RL FQ207
169  RND RQ32 FQ22
170  CP IPA+Q248 DR+ FQ207
171  CTP PR+Q41 PA+Q33 FQ207
172  CP PA+Q245 DR- FQ207
173  CTP PR+Q40 PA+Q245 FQ207
174  RND RQ32 FQ22
175  LP PR+Q30 PA+Q245 R0 FQ207
176  FN 9: IF +Q13 EQU +1.1 GOTO LBL 100
177  Q10 = Q10 - Q338  
178  FN 9: IF +0 EQU +0 GOTO LBL 151
179  LBL 100
180  L Z+Q20 R0 F MAX
181  L Z+Q19 F MAX
182  LP PR+Q30 PA+Q245 R0 F MAX
183  FN 9: IF +0 EQU +0 GOTO LBL 99
184  LBL 98
185  FN 14: ERROR = 1002
186  LBL 97
187  FN 14: ERROR = 1003
188  LBL 99
189  FN 3: Q200 = +Q200 * +Q50
190  FN 3: Q202 = +Q202 * +Q50
191  FN 3: Q204 = +Q204 * +Q50
192  FN 3: Q338 = +Q338 * +Q50
193  LBL 0
194  FN 0: Q215 = +Q2
195  LBL 254
196  END PGM 211 MM
