0  BEGIN PGM 212 MM
1  Q195 = Q197  
2  Q197 = 0  
3  FN 9: IF +Q195 EQU +1 GOTO LBL 200
4  Q200 = ABS Q200  
5  Q202 = ABS Q202  
6  Q204 = ABS Q204  
7  Q218 = ABS Q218  
8  Q219 = ABS Q219  
9  Q220 = ABS Q220  
10  Q221 = ABS Q221  
11  LBL 200
12  FN 17: SYSWRITE ID212 = +3
13  FN 18: SYSREAD Q5 = ID210 NR4 IDX1
14  FN 18: SYSREAD Q6 = ID210 NR4 IDX2
15  FN 18: SYSREAD Q0 = ID1000 NR7441
16  Q0 = 2 * FRAC (Q0 / 2)  
17  FN 9: IF +Q0 EQU +1 GOTO LBL 199
18  FN 9: IF +Q110 EQU +0 GOTO LBL 199
19  FN 9: IF +Q110 EQU +1 GOTO LBL 199
20  FN 14: ERROR = 1000
21  LBL 199
22  FN 18: SYSREAD Q0 = ID1000 NR7441
23  Q0 = 8 * FRAC (Q0 / 8)  
24  FN 12: IF +Q0 LT +4 GOTO LBL 206
25  FN 12: IF +Q201 LT +0 GOTO LBL 206
26  FN 9: IF +Q201 EQU +0 GOTO LBL 206
27  FN 14: ERROR = 1077
28  LBL 206
29  FN 10: IF +Q109 NE -1 GOTO LBL 198
30  FN 14: ERROR = 1001
31  LBL 198
32  FN 9: IF +Q201 EQU +0 GOTO LBL 254
33  FN 12: IF +Q201 LT +0 GOTO LBL 197
34  FN 0: Q30 = -1
35  FN 9: IF +0 EQU +0 GOTO LBL 194
36  LBL 197
37  FN 0: Q30 = +1
38  LBL 194
39  FN 18: SYSREAD Q1 = ID200 NR1
40  Q1 = ABS Q1  
41  Q50 = Q1 * 3  
42  FN 3: Q51 = +Q218 * +Q5
43  FN 3: Q52 = +Q219 * +Q6
44  FN 11: IF +Q51 GT +Q50 GOTO LBL 196
45  FN 9: IF +Q51 EQU +Q50 GOTO LBL 196
46  FN 14: ERROR = 1029
47  LBL 196
48  FN 11: IF +Q52 GT +Q50 GOTO LBL 195
49  FN 9: IF +Q52 EQU +Q50 GOTO LBL 195
50  FN 14: ERROR = 1029
51  LBL 195
52  FN 10: IF +Q202 NE +0 GOTO LBL 21
53  FN 14: ERROR = 1030
54  LBL 21
55  FN 9: IF +Q195 EQU +1 GOTO LBL 193
56  CALL LBL 99
57  LBL 193
58  FN 0: Q3 = +0
59  FN 3: Q4 = +Q220 * +Q5
60  FN 11: IF +Q4 GT +Q1 GOTO LBL 187
61  FN 9: IF +Q4 EQU +Q1 GOTO LBL 187
62  FN 0: Q2 = +Q220
63  Q220 = Q1 / Q5  
64  FN 12: IF +Q5 LT +1 GOTO LBL 6
65  Q220 = Q1 * 1.001   ;  
66  LBL 6
67  FN 0: Q3 = +1
68  Q35 = 2 * Q1  
69  FN 9: IF +0 EQU +0 GOTO LBL 185
70  LBL 187
71  Q35 = 2 * Q220 * Q5  
72  LBL 185
73  FN 11: IF +Q51 GT +Q35 GOTO LBL 191
74  FN 9: IF +Q51 EQU +Q35 GOTO LBL 191
75  FN 14: ERROR = 1023
76  LBL 191
77  FN 11: IF +Q52 GT +Q35 GOTO LBL 190
78  FN 9: IF +Q52 EQU +Q35 GOTO LBL 190
79  FN 14: ERROR = 1023
80  LBL 190
81  FN 3: Q21 = +2 * +Q1
82  FN 4: Q17 = +Q218 DIV +2
83  FN 4: Q18 = +Q219 DIV +2
84  Q26 = (Q1 / 4) / Q5   ;  
85  Q27 = Q221 + Q26 + 2 * Q1 / Q5  
86  FN 4: Q28 = +Q207 DIV +1.5
87  Q29 = Q17 - Q27  
88  FN 11: IF +Q29 GT +0 GOTO LBL 189
89  FN 0: Q27 = +Q17
90  FN 0: Q29 = +0
91  LBL 189
92  FN 1: Q19 = +Q203 + +Q200
93  Q51 = ABS Q200  
94  Q52 = ABS Q204  
95  FN 11: IF +Q51 GT +Q52 GOTO LBL 3
96  FN 1: Q19 = +Q203 + +Q204
97  LBL 3
98  FN 1: Q20 = +Q203 + +Q200
99  FN 0: Q22 = +Q207
100  FN 12: IF +Q206 LT +Q207 GOTO LBL 5
101  FN 0: Q22 = +Q207
102  LBL 5
103  FN 2: Q23 = +Q203 - +Q202
104  FN 2: Q24 = +Q203 - -Q201
105  FN 9: IF +Q195 EQU +1 GOTO LBL 98
106  FN 1: Q0 = +Q109 + +1
107  FN 18: SYSREAD Q0 = ID270 NR1 IDXQ0
108  FN 9: IF +Q30 EQU -1 GOTO LBL 120
109  FN 11: IF +Q0 GT +Q19 GOTO LBL 121
110  L Z+Q19 R0 F MAX
111  FN 9: IF +0 EQU +0 GOTO LBL 121
112  LBL 120
113  FN 12: IF +Q0 LT +Q19 GOTO LBL 121
114  L Z+Q19 R0 F MAX
115  LBL 121
116  L X+Q216 Y+Q217 R0 F MAX
117  LBL 98
118  L IX+Q29 F MAX
119  L Z+Q20 F MAX
120  FN 10: IF +Q30 NE -1 GOTO LBL 30
121  FN 9: IF +Q23 EQU +Q24 GOTO LBL 12
122  FN 11: IF +Q23 GT +Q24 GOTO LBL 12
123  FN 9: IF +0 EQU +0 GOTO LBL 10
124  LBL 30
125  FN 9: IF +Q23 EQU +Q24 GOTO LBL 12
126  FN 12: IF +Q23 LT +Q24 GOTO LBL 12
127  LBL 10
128  CALL LBL 11
129  FN 2: Q23 = +Q23 - +Q202
130  FN 10: IF +Q30 NE -1 GOTO LBL 32
131  FN 9: IF +Q23 EQU +Q24 GOTO LBL 12
132  FN 11: IF +Q23 GT +Q24 GOTO LBL 12
133  FN 9: IF +0 EQU +0 GOTO LBL 10
134  LBL 32
135  FN 9: IF +Q23 EQU +Q24 GOTO LBL 12
136  FN 12: IF +Q23 LT +Q24 GOTO LBL 12
137  FN 9: IF +0 EQU +0 GOTO LBL 10
138  LBL 12
139  FN 0: Q23 = +Q24
140  CALL LBL 11
141  FN 9: IF +0 EQU +0 GOTO LBL 99
142  LBL 11
143  L Z+Q23 FQ206
144  L IX+Q27 IY+0 RL FQ22
145  RND RQ26 FQ28
146  L IY+Q18 FQ207
147  RND RQ220 FQ28
148  L IX-Q218 FQ207
149  RND RQ220 FQ28
150  L IY-Q219 FQ207
151  RND RQ220 FQ28
152  L IX+Q218 FQ207
153  RND RQ220 FQ28
154  L IY+Q18 FQ207
155  RND RQ26 FQ28
156  L IX-Q27 IY+0 R0 FQ22
157  LBL 0
158  LBL 99
159  FN 9: IF +Q195 EQU +1 GOTO LBL 192
160  FN 3: Q200 = +Q200 * +Q30
161  FN 3: Q202 = +Q202 * +Q30
162  FN 3: Q204 = +Q204 * +Q30
163  LBL 0
164  LBL 192
165  FN 10: IF +Q3 NE +1 GOTO LBL 186
166  FN 0: Q220 = +Q2
167  LBL 186
168  L Z+Q20 F MAX
169  FN 9: IF +Q195 EQU +1 GOTO LBL 253
172  FN 0: Q15 = +0
170  L Z+Q19 F MAX
173  LBL 253
FN 9: IF +Q176 EQU +0 GOTO LBL 254
171  L IX-Q29 F MAX
173  LBL 254
174  END PGM 212 MM
