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