0  BEGIN PGM 211 MM 
1  ;Stand: 340490 02
2  Q195 = Q197
3  Q197 = 0
4  Q200 = ABS Q200
5  Q202 = ABS Q202
6  Q204 = ABS Q204
7  Q215 = ABS Q215
8  Q219 = ABS Q219
9  Q244 = ABS Q244
10 Q248 = ABS Q248
11 Q338 = ABS Q338
12 FN 17: SYSWRITE ID 212 =+3
13 FN 18: SYSREAD Q5 = ID210 NR4 IDX1
14 CALL PGM CHECK_MP7441
15 FN 10: IF +Q109 NE -1 GOTO LBL 198
16 FN 14: ERROR= 1001
17 LBL 198
18 FN 10: IF +Q202 NE +0 GOTO LBL 21
19 FN 14: ERROR= 1030
20 LBL 21
21 FN 11: IF +Q248 GT +0 GOTO LBL 195
22 FN 14: ERROR= 1016
23 LBL 195
24 FN 9: IF +Q201 EQU +0 GOTO LBL 254
25 FN 12: IF +Q201 LT +0 GOTO LBL 197
26 FN 0: Q50 =-1
27 FN 9: IF +0 EQU +0 GOTO LBL 194
28 LBL 197
29 FN 0: Q50 =+1
30 LBL 194
31 FN 10: IF +Q195 NE +1 GOTO LBL 196
32 FN 14: ERROR= 1016
33 LBL 196
34 CALL LBL 99
35 FN 18: SYSREAD Q1 = ID200 NR1
36 Q1 = ABS Q1
37 FN 9: IF +Q1 EQU +0 GOTO LBL 96
38 FN 0: Q2 =+Q215
39 Q27 = ( Q219 / Q1 ) * Q5
40 FN 11: IF +Q27 GT +6 GOTO LBL 98
41 FN 12: IF +Q27 LT +2 GOTO LBL 97
42 FN 9: IF +Q27 EQU +2 GOTO LBL 200
43 FN 9: IF +0 EQU +0 GOTO LBL 201
44 LBL 200
45 FN 0: Q215 =+1
46 LBL 201
47 Q47 = ABS Q201
48 Q48 = ABS Q202
49 FN 11: IF +Q47 GT +Q48 GOTO LBL 202
50 Q27 = Q47 / 2 * Q50
51 FN 9: IF +0 EQU +0 GOTO LBL 203
52 LBL 202
53 FN 4: Q27 =+Q202 DIV +2
54 LBL 203
55 FN 4: Q22 =+Q207 DIV +2
56 FN 1: Q29 =+Q203 + +Q201
57 FN 1: Q19 =+Q203 + +Q200
58 Q51 = ABS Q200
59 Q52 = ABS Q204
60 FN 11: IF +Q51 GT +Q52 GOTO LBL 10
61 FN 1: Q19 =+Q203 + +Q204
62 LBL 10
63 FN 2: Q20 =+Q203 - -Q200
64 FN 1: Q28 =+Q203 + +0
65 FN 4: Q30 =+Q244 DIV +2
66 FN 1: Q33 =+Q245 + +Q248
67 FN 4: Q36 =+Q219 DIV +2
68 Q34 = Q36 - Q1 / Q5
69 Q32 = Q34 / 2
70 FN 1: Q40 =+Q30 + +Q36
71 FN 2: Q41 =+Q30 - +Q36
72 Q12 = Q206
73 FN 10: IF +Q206 NE +0 GOTO LBL 11
74 Q12 = Q207
75 LBL 11
76 CC  X+Q216  Y+Q217
77 FN 1: Q0 =+Q109 + +1
78 FN 18: SYSREAD Q0 = ID270 NR1 IDXQ0
79 FN 9: IF +Q30 EQU -1 GOTO LBL 120
80 FN 11: IF +Q0 GT +Q19 GOTO LBL 121
81 L  Z+Q19 R0 FMAX
82 FN 9: IF +0 EQU +0 GOTO LBL 121
83 LBL 120
84 FN 12: IF +Q0 LT +Q19 GOTO LBL 121
85 L  Z+Q19 R0 FMAX
86 LBL 121
87 LP  PR+Q30  PA+Q245 FMAX
88 LBL 6
89 L  Z+Q20 FMAX
90 Q11 = Q207
91 FN 9: IF +Q215 EQU +2 GOTO LBL 5
92 L  Z+Q203 R0 FQ207
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 IPA-Q248  Z+Q29 DR- FQ207
139 CP IPA+Q248  Z+Q29 DR+ FQ207
140 FN 9: IF +Q215 EQU +1 GOTO LBL 100
141 CP IPA-Q248  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 IPA-Q248  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 FQ11
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 IPA-Q248 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 Q11 = Q12
179 FN 9: IF +0 EQU +0 GOTO LBL 151
180 LBL 100
181 L  Z+Q20 R0 FMAX
182 L  Z+Q19 FMAX
183 LP  PR+Q30  PA+Q245 R0 FMAX
184 FN 9: IF +0 EQU +0 GOTO LBL 99
185 LBL 98
186 FN 14: ERROR= 1002
187 LBL 97
188 FN 14: ERROR= 1003
189 LBL 96
190 FN 14: ERROR= 1021
191 LBL 99
192 FN 3: Q200 =+Q200 * +Q50
193 FN 3: Q202 =+Q202 * +Q50
194 FN 3: Q204 =+Q204 * +Q50
195 FN 3: Q338 =+Q338 * +Q50
196 LBL 0
197 FN 0: Q215 =+Q2
198 LBL 254
199 END PGM 211 MM 
