01 LBL "ED"
 02 "ROW^COL=?"
 03 PROMPT
 04 STO 03
 05 X<>Y
 06 STO 02
 07 1
 08 -
 09 RCL 14
 10 *
 11 +
 12 14
 13 +
 14 STO 01
 15 SF 01
 16 GTO 00
 17 LBL "MAT"
 18 "ORDER=?"
 19 PROMPT
 20 STO 14
 21 X^2
 22 STO 13
 23 SF 01
 24 CLA
 25 LBL "VU"
 26 15
 27 STO 01
 28 STO 12
 29 RCL 14
 30 1 E3
 31 STO 10
 32 /
 33 1
 34 +
 35 STO 02
 36 STO 03
 37 STO 04
 38 LBL 00
 39 CF 29
 40 "a"
 41 >""
 42 FIX 00
 43 ARCL 02
 44 >","
 45 ARCL 03
 46 >"="
 47 FS? 01
 48 >"?"
 49 FS? 01
 50 PROMPT
 51 FIX 04
 52 FS? 01
 53 STO IND 01
 54 >""
 55 ARCL IND 01
 56 FC? 01
 57 AVIEW
 58 ISG 01
 59 CLA
 60 ISG 03
 61 GTO 00
 62 RCL 04
 63 STO 03
 64 ISG 02
 65 GTO 00
 66 CF 01
 67 SF 29
 68 RTN
 69 LBL "CH POL"
 70 CLD
 71 RCL 12
 72 14
 73 RCL 13
 74 +
 75 RCL 10
 76 /
 77 +
 78 STO 05
 79 RCL 13
 80 +
 81 STO 03
 82 RCL 14
 83 -
 84 STO 01
 85 RCL 13
 86 13
 87 +
 88 STO 08
 89 1
 90 STO 06
 91 RCL 14
 92 1 E5
 93 /
 94 STO 00
 95 RCL 05
 96 +
 97 STO 11
 98 LBL C
 99 ISG 06
100 CLA
101 RCL 01
102 STO 02
103 RCL IND 08
104 X=0?
105 XEQ 10
106 CHS
107 STO 09
108 LBL 02
109 RCL IND 01
110 STO IND 03
111 ISG 03
112 CLA
113 ISG 01
114 GTO 02
115 RCL 02
116 STO 01
117 LBL 03
118 RCL IND 01
119 RCL 09
120 /
121 STO IND 03
122 ISG 03
123 CLA
124 ISG 01
125 GTO 03
126 RCL 06
127 ST- 03
128 RCL IND 08
129 1/X
130 STO IND 03
131 RCL 11
132 STO 01
133 RCL 14
134 ST- 03
135 +
136 RCL 06
137 ST+ 03
138 -
139 STO 02
140 STO 04
141 INT
142 STO 09
143 LBL 04
144 RCL 09
145 RCL 01
146 INT
147 X=Y?
148 XEQ 15
149 XEQ 14
150 LBL 05
151 ISG 03
152 CLA
153 RCL 04
154 STO 02
155 RCL 13
156 1
157 -
158 ST- 01
159 RCL 01
160 INT
161 RCL 14
162 RCL 12
163 +
164 X>Y?
165 GTO 04
166 LBL 06
167 RCL IND 08
168 ST/ IND 04
169 ISG 04
170 GTO 06
171 RCL 11
172 STO 01
173 RCL 13
174 +
175 INT
176 STO 02
177 STO 03
178 RCL 14
179 RCL 06
180 *
181 -
182 STO 03
183 RCL 14
184 +
185 1
186 -
187 RCL 10
188 /
189 ST+ 03
190 0
191 LBL 07
192 RCL IND 01
193 RCL IND 02
194 *
195 +
196 ISG 02
197 CLA
198 ISG 01
199 GTO 07
200 STO IND 03
201 RCL 13
202 1
203 -
204 ST- 01
205 RCL 14
206 ST- 02
207 0
208 ISG 03
209 GTO 07
210 RCL 06
211 RCL 14
212 X=Y?
213 GTO 08
214 1
215 +
216 ST- 08
217 RCL 02
218 STO 03
219 RCL 14
220 RCL 06
221 *
222 -
223 STO 01
224 RCL 14
225 +
226 1
227 -
228 RCL 10
229 /
230 ST+ 01
231 GTO C
232 LBL 08
233 RCL 03
234 RCL 14
235 STO 31
236 -
237 STO 30
238 SF 01
239 -1
240 BEEP
241 LBL 09
242 "b"
243 >""
244 FIX 00
245 ARCL 14
246 >"="
247 FIX 04
248 FC? 01
249 RCL IND 30
250 CHS
251 STO IND 14
252 ARCL X
253 AVIEW
254 PSE
255 DSE 14
256 CLA
257 FC?C 01
258 ISG 30
259 GTO 09
260 RCL 31
261 STO 22
262 STOP
263 LBL 14
264 RCL IND 02
265 RCL IND 03
266 *
267 ST+ IND 01
268 ISG 02
269 CLA
270 ISG 01
271 GTO 14
272 RTN
273 LBL 15
274 RCL 13
275 ST+ 01
276 GTO 05
277 LBL 10
278 RCL 08
279 STO 07
280 LBL 13
281 DSE 08
282 RCL 14
283 RCL 06
284 -
285 STO 09
286 RCL 07
287 RCL 08
288 -
289 STO 04
290 X>Y?
291 GTO 12
292 RCL IND 08
293 X=0?
294 GTO 13
295 RCL 12
296 ST+ 09
297 RCL 09
298 RCL 04
299 -
300 STO 04
301 RCL 11
302 FRC
303 ST+ 04
304 ST+ 09
305 XEQ 11
306 RCL 09
307 XEQ 01
308 STO 09
309 RCL 04
310 XEQ 01
311 STO 04
312 RCL 14
313 +
314 1
315 -
316 RCL 10
317 /
318 ST+ 04
319 XEQ 11
320 RCL 07
321 STO 08
322 RCL IND 08
323 RTN
324 LBL 01
325 RCL 13
326 -
327 RCL 12
328 -
329 INT
330 RCL 14
331 *
332 RCL 12
333 +
334 RTN
335 LBL 12
336 TONE 09
337 STOP
338 LBL 11
339 RCL IND 04
340 RCL IND 09
341 STO IND 04
342 RDN
343 STO IND 09
344 ISG 09
345 CLA
346 ISG 04
347 GTO 11
348 END