00 { 65-Byte Prgm }
01▸LBL "CHI2"
02 MVAR "X"
03 MVAR "K"
04 MVAR "Y"
05 RCL "X"
06 RCL "K"
07 2
08 ÷
09 1
10 -
11 Y↑X
12 RCL "X"
13 -2
14 ÷
15 E↑X
16 ×
17 RCL "K"
18 2
19 ÷
20 GAMMA
21 ÷
22 2
23 RCL "K"
24 2
25 ÷
26 Y↑X
27 ÷
28 STO "Z"
29 RCL "Y"
30 -
31 END

00 { 39-Byte Prgm }
01▸LBL "FNORMAL"
02 MVAR "X"
03 MVAR "Y"
04 RCL "X"
05 X↑2
06 2
07 ÷
08 +/-
09 E↑X
10 2
11 PI
12 ×
13 SQRT
14 ÷
15 STO "Z"
16 RCL "Y"
17 -
18 END

00 { 68-Byte Prgm }
01▸LBL "INORMAL"
02 MVAR "LLIM"
03 MVAR "ULIM"
04 MVAR "ACC"
05 MVAR "INORMAL"
06 0
07 STO "Y"
08 PGMINT "FNORMAL"
09 INTEG "X"
10 STO "ZZ"
11 RCL "INORMAL"
12 -
13 END

00 { 75-Byte Prgm }
01▸LBL "TSTUD"
02 MVAR "X"
03 MVAR "K"
04 MVAR "Y"
05 RCL "X"
06 X↑2
07 RCL "K"
08 ÷
09 1
10 +
11 RCL "K"
12 1
13 +
14 -2
15 ÷
16 Y↑X
17 RCL "K"
18 PI
19 ×
20 SQRT
21 ÷
22 RCL "K"
23 2
24 ÷
25 GAMMA
26 ÷
27 RCL "K"
28 1
29 +
30 2
31 ÷
32 GAMMA
33 ×
34 STO "Z"
35 RCL "Y"
36 -
37 END

00 { 66-Byte Prgm }
01▸LBL "ITSTUD"
02 MVAR "K"
03 MVAR "LLIM"
04 MVAR "ULIM"
05 MVAR "ACC"
06 MVAR "ITSTUD"
07 0
08 STO "Y"
09 PGMINT "TSTUD"
10 INTEG "X"
11 STO "ZZ"
12 RCL "ITSTUD"
13 -
14 END

00 { 112-Byte Prgm }
01▸LBL "GRAPHIC"
02 CLLCD
03 INDEX "DISPLAY"
04 1
05 STO "I"
06▸LBL A
07 131
08 RCL "I"
09 X>Y?
10 GTO B
11 1
12 STO "J"
13▸LBL C
14 16
15 RCL "J"
16 X>Y?
17 GTO D
18 RCL "J"
19 RCL "I"
20 STOIJ
21 RCLEL
22 X≠0?
23 GTO E
24 GTO F
25▸LBL E
26 RCL "J"
27 RCL "I"
28 PIXEL
29▸LBL F
30 1
31 STO+ "J"
32 GTO C
33▸LBL D
34 1
35 STO+ "I"
36 GTO A
37▸LBL B
38 CLV "I"
39 CLV "J"
40 END

00 { 62-Byte Prgm }
01▸LBL "ICHI2"
02 MVAR "K"
03 MVAR "LLIM"
04 MVAR "ULIM"
05 MVAR "ACC"
06 MVAR "ICHI2"
07 0
08 STO "Y"
09 PGMINT "CHI2"
10 INTEG "X"
11 STO "ZZ"
12 RCL "ICHI2"
13 -
14 END

00 { 3631-Byte Prgm }
01▸LBL "STATS"
02 ΣREG 11
03 CLV "Y-VAL"
04 CLV "MIN"
05 CLV "MAX"
06 CLV "MED"
07 CLV "HIST"
08▸LBL 00
09 CLMENU
10 "CALC"
11 KEY 1 XEQ 94
12 KEY 9 GTO 09
13 MENU
14 "RCL A "
15 ├"Y MATR"
16 ├"IX"
17 AVIEW
18 STOP
19 GTO 00
20▸LBL 09
21 CLV "Y-VAL"
22 CLV "MIN"
23 CLV "MAX"
24 CLV "MED"
25 CLV "HIST"
26 RTN
27▸LBL 11
28 CLMENU
29 "TOTAL"
30 KEY 1 XEQ 20
31 "MEAN"
32 KEY 2 XEQ 21
33 "MEDN"
34 KEY 3 XEQ 22
35 "STDEV"
36 KEY 4 XEQ 23
37 "RANG"
38 KEY 5 XEQ 64
39 "MORE"
40 KEY 6 GTO 12
41 KEY 7 GTO 12
42 KEY 8 GTO 12
43 KEY 9 GTO 40
44 MENU
45 STOP
46 GTO 11
47▸LBL 12
48 CLMENU
49 "MIN"
50 KEY 1 XEQ 62
51 "MAX"
52 KEY 2 XEQ 63
53 "SORT"
54 KEY 3 XEQ 65
55 "FRCST"
56 KEY 4 XEQ 36
57 "HIST"
58 KEY 5 XEQ 10
59 "MORE"
60 KEY 6 GTO 11
61 KEY 7 GTO 11
62 KEY 8 GTO 11
63 KEY 9 GTO 40
64 MENU
65 STOP
66 GTO 12
67▸LBL 40
68 CLV "Y-VAL"
69 CLV "MIN"
70 CLV "MAX"
71 CLV "MED"
72 CLV "HIST"
73 RTN
74▸LBL 36
75 CLST
76▸LBL 02
77 CLMENU
78 "LIN"
79 KEY 1 XEQ 89
80 "LOG"
81 KEY 2 XEQ 90
82 "EXP"
83 KEY 3 XEQ 91
84 "PWR"
85 KEY 4 XEQ 92
86 KEY 9 GTO 93
87 MENU
88 "RCL A "
89 ├"X MATR"
90 ├"IX"
91 AVIEW
92 STOP
93 GTO 02
94▸LBL 93
95 CLΣ
96 RCL "Y-VAL"
97 XEQ 13
98 CLV "X-VAL"
99 CLV "XMIN"
100 CLV "XMAX"
101 CLV "YMIN"
102 CLV "YMAX"
103 RTN
104▸LBL 04
105 CLMENU
106 "XLIST"
107 KEY 1 XEQ 03
108 "YLIST"
109 KEY 2 XEQ 05
110 "CORR"
111 KEY 3 XEQ 24
112 "M"
113 KEY 4 XEQ 07
114 "B"
115 KEY 5 XEQ 08
116 "MORE"
117 KEY 6 GTO 06
118 KEY 7 GTO 14
119 KEY 8 GTO 06
120 KEY 9 GTO 25
121 MENU
122 STOP
123 GTO 04
124▸LBL 06
125 CLMENU
126 "PLOT"
127 KEY 1 XEQ 38
128 "W.MN"
129 KEY 2 XEQ 26
130 "G.SD"
131 KEY 3 XEQ 28
132 "SIZE"
133 KEY 4 XEQ 27
134 "MORE"
135 KEY 6 GTO 14
136 KEY 7 GTO 04
137 KEY 8 GTO 14
138 KEY 9 GTO 25
139 MENU
140 STOP
141 GTO 06
142▸LBL 14
143 CLMENU
144 "ΣX"
145 KEY 1 XEQ 31
146 "ΣY"
147 KEY 2 XEQ 32
148 "ΣX2"
149 KEY 3 XEQ 33
150 "ΣY2"
151 KEY 4 XEQ 34
152 "ΣXY"
153 KEY 5 XEQ 35
154 "MORE"
155 KEY 6 GTO 04
156 KEY 7 GTO 06
157 KEY 8 GTO 04
158 KEY 9 GTO 25
159 MENU
160 STOP
161 GTO 14
162▸LBL 25
163 RTN
164▸LBL 13
165 STO "Y-VAL"
166 CF 01
167 CF 02
168 CF 04
169 XEQ 44
170 FS?C 01
171 GTO 15
172 GTO 16
173▸LBL 16
174 "NOT A "
175 ├"MATRIX"
176 CLV "Y-VAL"
177 AVIEW
178 TONE 9
179 RTN
180▸LBL 15
181 XEQ 48
182 FS?C 02
183 GTO 17
184 GTO 18
185▸LBL 18
186 "NOT A Nx"
187 ├"1 MATR"
188 ├"IX"
189 CLV "Y-VAL"
190 AVIEW
191 TONE 9
192 RTN
193▸LBL 17
194 CLΣ
195 INDEX "Y-VAL"
196 CLST
197▸LBL 19
198 0
199 RCLEL
200 Σ+
201 RCLIJ
202 X<>Y
203 1
204 X=Y?
205 GTO 66
206 GTO 67
207▸LBL 66
208 RCLEL
209 STO "MIN"
210 STO "MAX"
211 GTO 68
212▸LBL 67
213 RCL "MIN"
214 RCLEL
215 X<Y?
216 GTO 69
217 GTO 70
218▸LBL 69
219 RCLEL
220 STO "MIN"
221 GTO 71
222▸LBL 70
223 RCL "MAX"
224 RCLEL
225 X>Y?
226 GTO 72
227 GTO 73
228▸LBL 72
229 RCLEL
230 STO "MAX"
231 GTO 74
232▸LBL 73
233▸LBL 74
234▸LBL 71
235▸LBL 68
236 I+
237 FS? 77
238 GTO 41
239 GTO 42
240▸LBL 41
241 CLST
242 SF 04
243 GTO 43
244▸LBL 42
245 GTO 19
246▸LBL 43
247 RTN
248▸LBL 20
249 SUM
250 RTN
251▸LBL 21
252 MEAN
253 RTN
254▸LBL 22
255 SF 25
256 RCL "MED"
257 FS?C 25
258 GTO 78
259 RCL "Y-VAL"
260 XEQ "SORT"
261 STO "M-MED"
262 INDEX "M-MED"
263 RCL 16
264 2
265 ÷
266 IP
267 2
268 ×
269 RCL 16
270 X=Y?
271 GTO 75
272 GTO 76
273▸LBL 75
274 RCL 16
275 2
276 ÷
277 STO "J"
278 1
279 STOIJ
280 RCLEL
281 STO "XJ"
282 RCL "J"
283 1
284 +
285 1
286 STOIJ
287 RCLEL
288 RCL "XJ"
289 +
290 2
291 ÷
292 STO "MED"
293 GTO 78
294▸LBL 76
295 RCL 16
296 1
297 +
298 2
299 ÷
300 1
301 STOIJ
302 RCLEL
303 STO "MED"
304▸LBL 78
305 CLV "M-MED"
306 CLV "XJ"
307 CLV "J"
308 RTN
309▸LBL 23
310 SF 25
311 SDEV
312 FC?C 25
313 XEQ 80
314 RTN
315▸LBL 80
316 "UNDEFI"
317 ├"NED"
318 AVIEW
319 TONE 9
320 RTN
321▸LBL 44
322 MAT?
323 GTO 45
324 GTO 46
325▸LBL 45
326 SF 01
327 GTO 47
328▸LBL 46
329 CF 01
330▸LBL 47
331 RTN
332▸LBL 48
333 DIM?
334 1
335 X=Y?
336 GTO 49
337 GTO 50
338▸LBL 49
339 SF 02
340 GTO 51
341▸LBL 50
342 CF 02
343▸LBL 51
344 RTN
345▸LBL "SORT"
346 STO "MSORT"
347 CF 01
348 CF 02
349 XEQ 44
350 FS?C 01
351 GTO 52
352 "NOT A "
353 ├"MATRIX"
354 CLV "MSORT"
355 AVIEW
356 TONE 9
357 RTN
358▸LBL 52
359 XEQ 48
360 FS?C 02
361 GTO 53
362 "NOT A Nx"
363 ├"1 MATR"
364 ├"IX"
365 CLV "MSORT"
366 AVIEW
367 TONE 9
368 RTN
369▸LBL 53
370 RCL "MSORT"
371 DIM?
372 X<>Y
373 STO "N"
374 INDEX "MSORT"
375 1
376 STO "I"
377▸LBL A
378 RCL "N"
379 RCL "I"
380 X>Y?
381 GTO B
382 RCL "I"
383 1
384 STOIJ
385 RCLEL
386 STO "S-EL1"
387 RCL "I"
388 STO "J"
389▸LBL C
390 RCL "N"
391 RCL "J"
392 X>Y?
393 GTO D
394 RCL "J"
395 1
396 STOIJ
397 RCLEL
398 STO "S-EL2"
399 RCL "S-EL1"
400 X>Y?
401 GTO 60
402 GTO 61
403▸LBL 60
404 RCL "I"
405 1
406 STOIJ
407 RCL "S-EL2"
408 STOEL
409 RCL "J"
410 1
411 STOIJ
412 RCL "S-EL1"
413 STOEL
414 RCL "S-EL2"
415 STO "S-EL1"
416▸LBL 61
417 1
418 STO+ "J"
419 GTO C
420▸LBL D
421 1
422 STO+ "I"
423 GTO A
424▸LBL B
425 RCL "MSORT"
426 CLV "MSORT"
427 CLV "S-EL1"
428 CLV "S-EL2"
429 CLV "N"
430 CLV "I"
431 CLV "J"
432 RTN
433▸LBL 62
434 RCL "MIN"
435 RTN
436▸LBL 63
437 RCL "MAX"
438 RTN
439▸LBL 64
440 RCL "MAX"
441 RCL "MIN"
442 -
443 RTN
444▸LBL 65
445 RCL "Y-VAL"
446 XEQ "SORT"
447 RTN
448▸LBL 82
449 STO "X-VAL"
450 CLV "MIN"
451 CLV "MAX"
452 CF 01
453 CF 02
454 CF 03
455 XEQ 44
456 FS?C 01
457 GTO 83
458 "NOT A "
459 ├"MATRIX"
460 CLV "X-VAL"
461 AVIEW
462 TONE 9
463 SF 03
464 RTN
465▸LBL 83
466 RCL "X-VAL"
467 XEQ 48
468 FS?C 02
469 GTO 84
470 "NOT A Nx"
471 ├"1 MATR"
472 ├"IX"
473 CLV "X-VAL"
474 AVIEW
475 TONE 9
476 SF 03
477 RTN
478▸LBL 84
479 RCL "X-VAL"
480 DIM?
481 X<>Y
482 RCL 16
483 X≠Y?
484 GTO 01
485 GTO 86
486▸LBL 01
487 "NOT OF "
488 ├"THE SA"
489 ├"ME SIZ"
490 ├"E"
491 CLV "X-VAL"
492 AVIEW
493 TONE 9
494 SF 03
495 RTN
496▸LBL 86
497 RCL 16
498 STO "N"
499 CLΣ
500 1
501 STO "I"
502▸LBL 88
503 RCL "N"
504 RCL "I"
505 X>Y?
506 GTO 87
507 INDEX "X-VAL"
508 RCL "I"
509 1
510 STOIJ
511 RCLEL
512 STO "X-V"
513 INDEX "Y-VAL"
514 RCL "I"
515 1
516 STOIJ
517 RCLEL
518 STO "Y-V"
519 RCL "X-V"
520 Σ+
521 1
522 STO+ "I"
523 GTO 88
524▸LBL 87
525 INDEX "X-VAL"
526 [MIN]
527 STO "XMIN"
528 [MAX]
529 STO "XMAX"
530 INDEX "Y-VAL"
531 [MIN]
532 STO "YMIN"
533 [MAX]
534 STO "YMAX"
535 CLV "X-V"
536 CLV "I"
537 CLV "Y-V"
538 CLV "N"
539 RTN
540▸LBL 89
541 LINF
542 XEQ 82
543 FS?C 03
544 RTN
545 XEQ 04
546 RTN
547▸LBL 90
548 LOGF
549 XEQ 82
550 FS?C 03
551 RTN
552 XEQ 04
553 RTN
554▸LBL 91
555 EXPF
556 XEQ 82
557 FS?C 03
558 RTN
559 XEQ 04
560 RTN
561▸LBL 92
562 PWRF
563 XEQ 82
564 FS?C 03
565 RTN
566 XEQ 04
567 RTN
568▸LBL 94
569 XEQ 13
570 FS?C 04
571 GTO 95
572 GTO 96
573▸LBL 95
574 XEQ 11
575▸LBL 96
576 RTN
577▸LBL 03
578 SF 25
579 FCSTX
580 FC?C 25
581 XEQ 37
582 RTN
583▸LBL 05
584 SF 25
585 FCSTY
586 FC?C 25
587 XEQ 37
588 RTN
589▸LBL 07
590 SF 25
591 SLOPE
592 FC?C 25
593 XEQ 37
594 RTN
595▸LBL 08
596 SF 25
597 YINT
598 FC?C 25
599 XEQ 37
600 RTN
601▸LBL 24
602 SF 25
603 CORR
604 FC?C 25
605 XEQ 37
606 RTN
607▸LBL 37
608 "Invalid Forec"
609 ├"ast Model"
610 AVIEW
611 TONE 9
612 RTN
613▸LBL 26
614 WMEAN
615 RTN
616▸LBL 27
617 RCL 16
618 RTN
619▸LBL 28
620 RCL 13
621 1
622 X=Y?
623 GTO 81
624 GTO 59
625▸LBL 81
626 XEQ 80
627 RTN
628▸LBL 59
629 0
630 STO "GSD"
631 1
632 STO "I"
633▸LBL 29
634 RCL 16
635 RCL "I"
636 X>Y?
637 GTO 30
638 INDEX "X-VAL"
639 RCL "I"
640 1
641 STOIJ
642 RCLEL
643 STO "X-V"
644 INDEX "Y-VAL"
645 RCL "I"
646 1
647 STOIJ
648 RCLEL
649 STO "Y-V"
650 RCL "X-V"
651 X↑2
652 ×
653 STO+ "GSD"
654 1
655 STO+ "I"
656 GTO 29
657▸LBL 30
658 RCL 15
659 X↑2
660 RCL 13
661 ÷
662 +/-
663 RCL "GSD"
664 +
665 RCL 13
666 1
667 -
668 ÷
669 SQRT
670 STO "GSD"
671 CLV "I"
672 CLV "Y-V"
673 CLV "X-V"
674 CLV "GSD"
675 RTN
676▸LBL 31
677 RCL 11
678 RTN
679▸LBL 32
680 RCL 13
681 RTN
682▸LBL 33
683 RCL 12
684 RTN
685▸LBL 34
686 RCL 14
687 RTN
688▸LBL 35
689 RCL 15
690 RTN
691▸LBL "XPIXEL"
692 130
693 RCL "XFUN"
694 ×
695 RCL "XMAX"
696 RCL "XMIN"
697 -
698 ÷
699 130
700 RCL "XMAX"
701 RCL "XMIN"
702 -
703 ÷
704 RCL "XMIN"
705 ×
706 -
707 1
708 +
709 STO "XPIXEL"
710 RTN
711▸LBL "YPIXEL"
712 15
713 RCL "YFUN"
714 ×
715 RCL "YMAX"
716 RCL "YMIN"
717 -
718 ÷
719 15
720 RCL "YMAX"
721 RCL "YMIN"
722 -
723 ÷
724 RCL "YMIN"
725 ×
726 -
727 1
728 +
729 +/-
730 17
731 +
732 STO "YPIXEL"
733 RTN
734▸LBL 38
735 16
736 131
737 NEWMAT
738 STO "DISPLAY"
739 1
740 STO "I"
741▸LBL 39
742 RCL 16
743 RCL "I"
744 X>Y?
745 GTO 55
746 INDEX "X-VAL"
747 RCL "I"
748 1
749 STOIJ
750 RCLEL
751 STO "XFUN"
752 INDEX "Y-VAL"
753 RCL "I"
754 1
755 STOIJ
756 RCLEL
757 STO "YFUN"
758 XEQ "XPIXEL"
759 IP
760 X=0?
761 1
762 STO "X-V"
763 XEQ "YPIXEL"
764 IP
765 X=0?
766 1
767 STO "Y-V"
768 INDEX "DISPLAY"
769 RCL "Y-V"
770 RCL "X-V"
771 STOIJ
772 1
773 STOEL
774 1
775 STO+ "I"
776 GTO 39
777▸LBL 55
778 INDEX "DISPLAY"
779 1
780 STO "I"
781▸LBL 56
782 131
783 RCL "I"
784 X>Y?
785 GTO 57
786 RCL "I"
787 STO "XPIXEL"
788 XEQ "XFUN"
789 SF 25
790 FCSTY
791 FC?C 25
792 GTO 57
793 STO "YFUN"
794 XEQ "YPIXEL"
795 IP
796 STO "Y-V"
797 16
798 RCL "Y-V"
799 X>Y?
800 GTO 58
801 1
802 RCL "Y-V"
803 X<Y?
804 GTO 58
805 RCL "Y-V"
806 RCL "XPIXEL"
807 STOIJ
808 1
809 STOEL
810▸LBL 58
811 1
812 STO+ "I"
813 GTO 56
814▸LBL 57
815 CLV "I"
816 CLV "Y-V"
817 CLV "X-V"
818 CLV "XPIXEL"
819 CLV "YPIXEL"
820 CLV "YFUN"
821 CLV "XFUN"
822 XEQ "GRAPHIC"
823 PRLCD
824 RTN
825▸LBL "XFUN"
826 130
827 RCL "XMIN"
828 ×
829 RCL "XMAX"
830 RCL "XMIN"
831 -
832 ÷
833 RCL "XPIXEL"
834 +
835 1
836 -
837 RCL "XMAX"
838 RCL "XMIN"
839 -
840 ×
841 130
842 ÷
843 STO "XFUN"
844 RTN
845▸LBL 10
846 RCL "MAX"
847 RCL "MIN"
848 -
849 X≠0?
850 GTO F
851 XEQ 80
852 RTN
853▸LBL F
854 10
855 3
856 NEWMAT
857 STO "HIST"
858 RCL "MAX"
859 RCL "MIN"
860 -
861 10
862 ÷
863 STO "STEP"
864 INDEX "HIST"
865 1
866 1
867 STOIJ
868 RCL "MIN"
869 STOEL
870 1
871 2
872 STOIJ
873 RCL "MIN"
874 RCL "STEP"
875 +
876 STOEL
877 2
878 1
879 STOIJ
880 RCL "MIN"
881 RCL "STEP"
882 +
883 STOEL
884 2
885 2
886 STOIJ
887 RCL "MIN"
888 RCL "STEP"
889 2
890 ×
891 +
892 STOEL
893 3
894 1
895 STOIJ
896 RCL "MIN"
897 RCL "STEP"
898 2
899 ×
900 +
901 STOEL
902 3
903 2
904 STOIJ
905 RCL "MIN"
906 RCL "STEP"
907 3
908 ×
909 +
910 STOEL
911 4
912 1
913 STOIJ
914 RCL "MIN"
915 RCL "STEP"
916 3
917 ×
918 +
919 STOEL
920 4
921 2
922 STOIJ
923 RCL "MIN"
924 RCL "STEP"
925 4
926 ×
927 +
928 STOEL
929 5
930 1
931 STOIJ
932 RCL "MIN"
933 RCL "STEP"
934 4
935 ×
936 +
937 STOEL
938 5
939 2
940 STOIJ
941 RCL "MIN"
942 RCL "STEP"
943 5
944 ×
945 +
946 STOEL
947 6
948 1
949 STOIJ
950 RCL "MIN"
951 RCL "STEP"
952 5
953 ×
954 +
955 STOEL
956 6
957 2
958 STOIJ
959 RCL "MIN"
960 RCL "STEP"
961 6
962 ×
963 +
964 STOEL
965 7
966 1
967 STOIJ
968 RCL "MIN"
969 RCL "STEP"
970 6
971 ×
972 +
973 STOEL
974 7
975 2
976 STOIJ
977 RCL "MIN"
978 RCL "STEP"
979 7
980 ×
981 +
982 STOEL
983 8
984 1
985 STOIJ
986 RCL "MIN"
987 RCL "STEP"
988 7
989 ×
990 +
991 STOEL
992 8
993 2
994 STOIJ
995 RCL "MIN"
996 RCL "STEP"
997 8
998 ×
999 +
1000 STOEL
1001 9
1002 1
1003 STOIJ
1004 RCL "MIN"
1005 RCL "STEP"
1006 8
1007 ×
1008 +
1009 STOEL
1010 9
1011 2
1012 STOIJ
1013 RCL "MIN"
1014 RCL "STEP"
1015 9
1016 ×
1017 +
1018 STOEL
1019 10
1020 1
1021 STOIJ
1022 RCL "MIN"
1023 RCL "STEP"
1024 9
1025 ×
1026 +
1027 STOEL
1028 10
1029 2
1030 STOIJ
1031 RCL "MIN"
1032 RCL "STEP"
1033 11
1034 ×
1035 +
1036 STOEL
1037 1
1038 STO "I"
1039▸LBL G
1040 RCL 16
1041 RCL "I"
1042 X>Y?
1043 GTO H
1044 INDEX "Y-VAL"
1045 RCL "I"
1046 1
1047 STOIJ
1048 RCLEL
1049 STO "Y-V"
1050 1
1051 STO "J"
1052▸LBL I
1053 10
1054 RCL "J"
1055 X>Y?
1056 GTO J
1057 INDEX "HIST"
1058 RCL "J"
1059 1
1060 STOIJ
1061 RCLEL
1062 RCL "Y-V"
1063 X<Y?
1064 GTO 54
1065 RCL "J"
1066 2
1067 STOIJ
1068 RCLEL
1069 RCL "Y-V"
1070 X≥Y?
1071 GTO 54
1072 RCL "J"
1073 3
1074 STOIJ
1075 RCLEL
1076 1
1077 +
1078 STOEL
1079▸LBL 54
1080 1
1081 STO+ "J"
1082 GTO I
1083▸LBL J
1084 1
1085 STO+ "I"
1086 GTO G
1087▸LBL H
1088 INDEX "HIST"
1089 10
1090 2
1091 STOIJ
1092 RCL "MAX"
1093 STOEL
1094 1
1095 3
1096 STOIJ
1097 [MAX]
1098 STO "YMAX"
1099 0
1100 STO "YMIN"
1101 16
1102 131
1103 NEWMAT
1104 STO "DISPLAY"
1105 1
1106 STO "I"
1107▸LBL 77
1108 10
1109 RCL "I"
1110 X>Y?
1111 GTO 99
1112 INDEX "HIST"
1113 RCL "I"
1114 3
1115 STOIJ
1116 RCLEL
1117 STO "YFUN"
1118 INDEX "DISPLAY"
1119 XEQ "YPIXEL"
1120 RCL "I"
1121 STO "XINI"
1122 XEQ E
1123 RCL "YPIXEL"
1124 IP
1125 STO "YPIXEL"
1126 RCL "XPIC"
1127 RCL "YPIXEL"
1128 STO "J"
1129▸LBL 79
1130 16
1131 RCL "J"
1132 X>Y?
1133 GTO 98
1134 RCL "XPIC"
1135 STO "K"
1136▸LBL 85
1137 RCL "XPIC"
1138 11
1139 +
1140 RCL "K"
1141 X>Y?
1142 GTO 97
1143 RCL "J"
1144 RCL "K"
1145 STOIJ
1146 1
1147 STOEL
1148 1
1149 STO+ "K"
1150 GTO 85
1151▸LBL 97
1152 1
1153 STO+ "J"
1154 GTO 79
1155▸LBL 98
1156 1
1157 STO+ "I"
1158 GTO 77
1159▸LBL 99
1160 CLV "I"
1161 CLV "J"
1162 CLV "K"
1163 CLV "XPIC"
1164 CLV "YPIXEL"
1165 CLV "YFUN"
1166 CLV "XINI"
1167 CLV "STEP"
1168 CLV "YMAX"
1169 CLV "YMIN"
1170 CLV "Y-V"
1171 CLV "STEP"
1172 XEQ "GRAPHIC"
1173 PRLCD
1174 RCL "HIST"
1175 RTN
1176▸LBL E
1177 13
1178 RCL "XINI"
1179 ×
1180 -11
1181 +
1182 STO "XPIC"
1183 RTN
1184 END