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