01 LBL "LP"
 02 CF 00
 03 CF 01
 04 CF 02
 05 CF 21
 06 20
 07 XEQ 17
 08 FC?C 25
 09 PROMPT
 10 CLRG
 11 XEQ 15
 12 "MAXIMIZE"
 13 XEQ 16
 14 X=Y?
 15 SF 00
 16 "PRINT TABS"
 17 XEQ 16
 18 X#Y?
 19 SF 02
 20 LBL 02
 21 "ROWS?"
 22 PROMPT
 23 STO 00
 24 "COLS?"
 25 PROMPT
 26 STO 01
 27 1 E5
 28 /
 29 STO 03
 30 LBL 10
 31 RCL 00
 32 11
 33 X<Y?
 34 GTO 02
 35 RCL 01
 36 X<>Y
 37 X<Y?
 38 GTO 02
 39 RDN
 40 *
 41 20
 42 +
 43 STO 02
 44 XEQ 17
 45 FC?C 25
 46 PROMPT
 47 21.9
 48 STO 07
 49 RCL 00
 50 RCL 01
 51 1 E3
 52 ST/ 02
 53 ST/ Z
 54 /
 55 ISG Y
 56 ISG X
 57 STO 06
 58 STO 04
 59 RDN
 60 STO 05
 61 FIX 00
 62 LBL 01
 63 SF 29
 64 "A "
 65 ARCL 05
 66 CF 29
 67 ARCL 04
 68 RCL IND 07
 69 FC? 01
 70 GTO 01
 71 FIX 02
 72 >"="
 73 ARCL X
 74 FIX 00
 75 LBL 01
 76 >"?"
 77 PROMPT
 78 STO IND 07
 79 ISG 07
 80 ISG 04
 81 GTO 01
 82 RCL 06
 83 STO 04
 84 ISG 05
 85 GTO 01
 86 "CHECK"
 87 XEQ 16
 88 X=Y?
 89 GTO 00
 90 SF 01
 91 GTO 10
 92 LBL 00
 93 RCL 02
 94 RCL 03
 95 +
 96 LASTX
 97 1 E2
 98 *
 99 -
100 FRC
101 RCL 01
102 20
103 +
104 +
105 STO 19
106 RCL 02
107 RCL 02
108 1 E3
109 *
110 RCL 01
111 -
112 .999
113 +
114 +
115 STO 20
116 GTO 23
117 LBL 16
118 AON
119 >"?"
120 PROMPT
121 AOFF
122 ASTO X
123 "N"
124 ASTO Y
125 RTN
126 LBL 15
127 9.018
128 STO 07
129 1.001
130 +
131 STO 08
132 LBL 06
133 RCL 08
134 INT
135 STO Y
136 10
137 -
138 1 E2
139 /
140 +
141 STO IND 07
142 ISG 07
143 CLD
144 ISG 08
145 GTO 06
146 RTN
147 LBL 17
148 SF 25
149 1 E2
150 X<>Y
151 RCL IND X
152 1
153 +
154 "XEQ SIZE "
155 X<=Y?
156 >"0"
157 FIX 00
158 CF 29
159 ARCL X
160 SF 29
161 RTN
162 LBL 23
163 "TABLEAU"
164 9.02
165 LBL 04
166 CF IND X
167 ISG X
168 GTO 04
169 RCL 02
170 FRC
171 1 E3
172 *
173 STO 05
174 RCL 19
175 XEQ 21
176 X=0?
177 GTO 03
178 RCL 04
179 STO 07
180 RCL 20
181 SF 09
182 XEQ 28
183 RCL 04
184 STO 08
185 GTO 05
186 LBL 03
187 RCL 20
188 FS? 00
189 SF 09
190 XEQ 21
191 CF 09
192 X=0?
193 GTO 27
194 RCL 04
195 STO 08
196 RCL 19
197 LBL 28
198 STO Y
199 RCL 05
200 RCL 04
201 -
202 -
203 STO 06
204 RDN
205 90
206 SF 24
207 TAN
208 LBL 13
209 RCL IND 06
210 FS? 09
211 CHS
212 X<=0?
213 GTO 00
214 CLX
215 RCL IND Z
216 RCL IND 06
217 /
218 X<Y?
219 XEQ 19
220 LBL 00
221 RDN
222 ISG 06
223 CLD
224 ISG Y
225 GTO 13
226 FS?C 09
227 RTN
228 RCL 04
229 STO 07
230 RDN
231 X=0?
232 SIGN
233 1/X
234 X#0?
235 GTO 05
236 RCL 01
237 RCL 05
238 RCL 04
239 -
240 -
241 10
242 +
243 SF IND X
244 GTO 03
245 LBL 21
246 11.1
247 STO Z
248 CLX
249 LBL 14
250 RCL IND Y
251 FS? IND T
252 CLX
253 FS? 09
254 CHS
255 X<Y?
256 XEQ 19
257 RDN
258 ISG Z
259 ISG Y
260 GTO 14
261 RTN
262 LBL 19
263 X<>Y
264 RDN
265 RCL Y
266 INT
267 STO 04
268 RTN
269 LBL 05
270 ISG 02
271 RCL 02
272 INT
273 RCL 00
274 RCL 01
275 *
276 X<Y?
277 GTO e
278 ARCL Y
279 AVIEW
280 RCL 07
281 RCL 00
282 RCL 01
283 *
284 20
285 +
286 RCL 08
287 -
288 -
289 STO 06
290 RCL 07
291 1 E3
292 /
293 RCL 07
294 RCL 01
295 DSE X
296 -
297 +
298 STO 07
299 RCL 08
300 1 E3
301 /
302 RCL 08
303 RCL 00
304 DSE X
305 RCL 01
306 *
307 -
308 +
309 RCL 03
310 +
311 STO 08
312 STO 05
313 FS? 55
314 XEQ 24
315 LBL 11
316 RCL 07
317 STO 04
318 LBL 12
319 RCL 04
320 RCL 05
321 +
322 INT
323 RCL 06
324 -
325 X<=0?
326 GTO 07
327 RCL 04
328 INT
329 X=Y?
330 GTO 07
331 CLX
332 RCL 05
333 INT
334 X=Y?
335 GTO 07
336 CLX
337 RCL 06
338 X=Y?
339 GTO 07
340 X<>Y
341 RCL IND 04
342 RCL IND 05
343 *
344 RCL IND 06
345 /
346 ST- IND Y
347 LBL 07
348 ISG 04
349 GTO 12
350 ISG 05
351 GTO 11
352 RCL 07
353 RCL IND 06
354 -1
355 ST* IND 06
356 RDN
357 XEQ 25
358 RCL 08
359 X<>Y
360 CHS
361 XEQ 25
362 RCL 08
363 INT
364 12
365 -
366 STO 08
367 RCL 07
368 21
369 -
370 INT
371 RCL 01
372 /
373 9
374 +
375 STO 07
376 RCL IND 08
377 INT
378 STO IND 08
379 CLX
380 LASTX
381 FRC
382 1 E2
383 *
384 RCL IND 07
385 FRC
386 STO IND 07
387 CLX
388 LASTX
389 INT
390 1 E2
391 /
392 ST+ IND 08
393 X<>Y
394 ST+ IND 07
395 GTO 23
396 LBL 24
397 CF 12
398 CF 13
399 FC? 02
400 RTN
401 SF 21
402 XROM 29,08
403 RCL 00
404 1 E3
405 /
406 1
407 +
408 RCL 02
409 FRC
410 21
411 ST+ Y
412 ADV
413 RCL 01
414 STO L
415 RDN
416 SF 09
417 LBL 26
418 "R "
419 FIX 00
420 ARCL Z
421 FS? 09
422 XROM 29,01
423 FIX 02
424 "    "
425 FS?C 09
426 XROM 29,01
427 RCL 06
428 X=Y?
429 "<P> "
430 XROM 29,01
431 RDN
432 RCL IND Y
433 XROM 29,05
434 RDN
435 ADV
436 DSE L
437 GTO 26
438 RCL 01
439 STO L
440 RDN
441 SF 09
442 ISG Z
443 ADV
444 LBL 26
445 ISG X
446 DEG
447 ISG Y
448 GTO 26
449 ADV
450 ADV
451 FIX 00
452 CF 21
453 RTN
454 LBL 25
455 ST/ IND Y
456 ISG Y
457 GTO 25
458 RTN
459 LBL 27
460 0
461 STO 06
462 >"END"
463 FS? 55
464 XEQ 24
465 CF 02
466 SF 21
467 RCL 19
468 STO 08
469 SF 09
470 LBL 30
471 9.1
472 STO 07
473 LBL 08
474 FIX 00
475 "Y"
476 RCL IND 07
477 FS? 09
478 GTO 08
479 FRC
480 1 E2
481 *
482 9
483 X<>Y
484 X<=Y?
485 GTO 00
486 X<>Y
487 MOD
488 ARCL X
489 XEQ 09
490 GTO 00
491 LBL 08
492 "X"
493 INT
494 10
495 X<=Y?
496 GTO 00
497 RDN
498 1
499 +
500 ARCL X
501 XEQ 09
502 LBL 00
503 "Z"
504 ISG 07
505 ISG 08
506 GTO 08
507 ADV
508 FS? 09
509 XEQ 09
510 ADV
511 RCL 20
512 STO 08
513 FS?C 09
514 GTO 30
515 STOP
516 GTO 27
517 LBL 09
518 >"="
519 FIX 02
520 ARCL IND 08
521 AVIEW
522 END