The original source was in the form of a series of reels ("volumes") of paper tape punched in Elliott 903 telecode, which is similar to 7 bit ASCII with parity.
A number of helpful "21st Century" comments have been added to the original to aid understanding. These are indicated by the form ([....]) and include links an HTML rendering of the original type-written documentation and scanned images of the original hand-drawn flowcharts.
The annotated original source code can be viewed here.
READAL
in
4 READAL+1
and jump to the defintion of the label READAL.
When you have seen enough of it, you can use the back button to carry on
where you
left off.
1 ([VOLUME 1])
2
3
4 (28 APRIL 1976 CAP DGNH 903 ALGOL TRANSLATOR "JACKDAW".)
5 (ALGOL TRANSLATOR FOR 903/4100 CODE JUNE 1968)
6
7 ([Introductory notes, Description])
8
9 *+8
10 ^+8
11 [CODL INBUF W]
12 W=6090
13 INBUF=6106
14 CODL=6237
15
16 [ADDI ADDRES AR ARITH ARRCOUS
17 BLANKS BN BUFLAG C CHKSUM CNL
18 CODE CODL CODLP CONS CONSTA
19 DECSTA DECTYP DELIM DIM E
20 EXPRES EXPTYP F FALCOU G
21 GRPCOD I INBUF LASTCH LASTCP
22 LASTDL LEVEL LHTYPE LINE LOG
23 LOKTYP M MFAIL MPRINT MREAD
24 NAM NDAP NLP OPTION OUT
25 OUT2 OWNCOD P PARAM PH
26 PP PRCENT PRMCOU PROC PROCPO
27 Q R REL SP SPR
28 SV TITLE TS TYPBOX TYPE
29 W WANTED XX ]
30
31 ([ENTRY POINTS])
32
33 8 START
34 8 START
35 8 REPMOD
36 8 CHECKS
37 8 LIBRA
38 8 OPT12
39 8 DUALM
40 8 ;+0
41
42 8 SETPERM (DUMP)
43 REPMOD
44 4 +18
45 8 START+1
46 CHECKS
47 4 +4
48 8 START+1
49 8 ;+0
50 8 ;+0
51 8 ;+0
52 8 ;+0
53 LIBRA
54 4 +8
55 8 START+1
56 OPT12
57 4 +12
58 8 START+1
59 DUALM
60 4 +16
61 8 START+1
62 8 ;+0
63
64 ([Global variables, Description])
65 >+96
66 OPTION +0
67 PERM +7731
68 ARITH +0
69 +512
70 E +0
71 +256
72 PROC +0
73 +128
74 TYPBOX +0
75 +64
76 LOKTYP +0
77 +64
78 G +0
79 +32
80 XX +0
81 +16
82 SPR +0
83 +15
84 MREAD +0
85 /0 0
86 MPRINT +0
87 8 0
88 LOG +0
89 4 0
90 AR +0
91 2 0
92 REL +0
93 1 0
94 BN +0
95 &017760
96 +0 (FBN)
97 &017760
98 +0 (HBN)
99 &017760
100 DIM +0
101 +15
102 Q +0
103 +8191
104 DECSTA +0
105 /8 0
106 TYPE +0
107 &177760
108 DECTYP +0
109 &177760
110 EXPTYP +0
111 &177760
112 ADDRES +0
113 +8191
114 PROCPO +0
115 +8191
116 I +0
117 +8191
118 NLP +0
119 0 7995 (ABS POINTERS)
120 +0
121 SP +0
122 0 INBUF+41
123 PP +0
124 PRCENT +0
125 FALCOU +0
126 C +0
127 CODLP +0
128 NDAP +0
129 ADDI +0
130 +0 (DIMI)
131 +0 (FMLI)
132 +0 (TYPI)
133 +0 (VI)
134 BUFLAG +0
135 +0
136 +0
137 LINE +0
138 LASTCH +0
139 +0
140 +0 (THISCH AND NEXTCH)
141 GRPCOD +0
142 CONS +0
143 CONSTA +0
144 +0
145 DELIM +0
146 +0
147 LASTDL +0
148 +0
149 CODE +0 (OUTPUT)
150 CHKSUM +0
151 LASTCP +0
152 F +0
153 M +0
154 NAM +0 (SET TO NINE)
155 +0
156 +0
157 +0
158 P +0
159 PH +0
160 CNL +0
161 PRMCOU +0
162 PARAM +0
163 OWNCOD +0
164 R +0
165 SV +0
166 MFAIL +0
167 LEVEL +0
168 TS +0
169 ARRCOU +0
170 WANTED +0
171 LHTYPE +0
172 EXPRES +0
173
174 0 W+1
175 START ([Flowchart])
176 4 +0
177 5 OPTION
178 4 ;-3
179 5 W
180 4 +0
181 0 W
182 /5 0
183 10 W
184 4 W
185 2 PERM
186 7 ;+2
187 8 ;-7
188 4 +50
189 11 BLANKS
190 8 BLANKS+1
191 4 W+1
192 0 W+2
193 /5 ARITH
194 10 W+2
195 10 W+2
196 4 +50
197 2 W+2
198 9 ;-7
199 4 W+1
200 0 W+3
201 /5 PP
202 10 W+3
203 4 +50
204 2 W+3
205 9 ;-6
206 4 SP+1
207 5 SP
208 4 E+1
209 5 E
210 4 +1
211 5 CODL+1
212 5 NDAP
213 4 +3
214 5 CODL+2
215 5 CODLP
216 4 =/0 0
217 5 BUFLAG
218 4 +9
219 5 NAM
220 4 +800
221 5 BN
222 5 BN+2
223 5 BN+4
224 4 PERM
225 5 NLP
226 5 W+1
227 4 =8 7168
228 5 TS
229 0 SP
230 /5 0
231 0 W+1
232 /4 0
233 9 ;+2
234 8 ;+4
235 /4 2
236 6 &677777
237 /5 2
238 4 W+1
239 1 +4
240 5 W+1
241 2 NLP+1
242 7 TITLE
243 8 ;-12
244
245 SETPERM
246 4 NLP
247 5 PERM
248 8 8000
249
250 [TABLE]
251 TABLE
252 /0 67
253 /0 192
254 2 192
255 2 64
256 2 192
257 2 64
258 2 64
259 2 2243
260
261 2 2240
262 2 2048
263 2 2625
264 2 2752
265 2 2112
266 2 2755
267 2 4288
268 2 2624
269
270 8 192
271
272 8 64
273 8 64
274 8 192
275 8 69
276 8 192
277 8 192
278 8 64
279
280 8 64
281 8 192
282 2 2240
283 2 2112
284 2 2496
285 2 2368
286 2 2368
287 2 4288
288
289 2 128
290 4 64
291 4 2
292 4 131
293 4 4
294 4 133
295 4 134
296 4 7
297
298 4 8
299 4 137
300 4 138
301 4 11
302 4 140
303 4 13
304 4 14
305 4 143
306
307 4 16
308 4 145
309 4 146
310 4 19
311 4 148
312 4 21
313 4 22
314 4 151
315
316 4 152
317 4 25
318 4 26
319 2 2203
320 2 28
321 2 2205
322 2 2718
323 2 31
324
325 /4 160
326 /1 5153
327 4 2082
328 /4 3235
329 4 4132
330 /4 5285
331 /4 6310
332 4 7207
333
334 5 40
335 /5 1193
336 /5 2218
337 5 3115
338 /5 4268
339 5 5165
340 5 6190
341 /5 7343
342
343 6 48
344 /6 1201
345 /6 2226
346 6 3123
347 /6 4276
348 6 5173
349 6 6198
350 /6 7351
351
352 /7 184
353 7 1081
354 7 2106
355 /7 3259
356 7 4156
357 /7 5309
358 /7 6334
359 7 7232
360
361 /8 64
362 8 1185
363 8 2210
364 /8 3107
365 8 4260
366 /8 5157
367 /8 6182
368 8 7335
369
370 9 168
371 /9 1065
372 /9 2090
373 9 3243
374 /9 4140
375 9 5293
376 9 6318
377 /9 7215
378
379 10 176
380 /10 1073
381 /10 2098
382 10 3251
383 /10 4148
384 10 5301
385 10 6326
386 /10 7223
387
388 /11 56
389 11 1209
390 11 2234
391 /11 3136
392 11 4288
393 /11 5184
394 /11 6208
395
396 11 7363
397
398 [PRINT
399 C PCHAR TABLE W]
400 PRINT ([Flowchart])
401 +0 (W01234)
402 0 PRINT
403 /4 1
404 6 +8191
405 5 W+1
406 0 W+1
407 /4 0
408 2 C
409 5 W+2
410 NEXWRD
411 4 -3
412 5 W+3
413 10 W+1
414 0 W+1
415 /4 0
416 NEXCH
417 5 W+4
418 14 8180
419 6 +63
420 11 PCHAR
421 8 PCHAR+1
422 10 W+2
423 4 W+2
424 0 PRINT
425 /7 2
426 10 W+3
427 4 W+3
428 7 NEXWRD
429 4 W+4
430 14 6
431 8 NEXCH
432
433 [PCHAR
434 C TABLE W]
435 PCHAR ([Flowchart])
436 +0
437 5 W
438 2 +1
439 7 AWAY
440 0 W
441 /0 TABLE+64
442 14 8
443 ON
444 15 6148
445 0 PCHAR
446 /8 1
447 AWAY
448 4 +141
449 15 6148
450 4 +10
451 15 6148
452 4 C
453 8 ON
454
455 [LISTAD
456 C PCHAR W]
457 LISTAD ([Flowchart])
458 +0 (W01234)
459 5 W+1
460 4 C
461 5 ZSUP
462 4 +3
463 5 W+2
464 RETURN
465 4 +16
466 5 W+3
467 0 W+2
468 /4 POW
469 5 W+4
470 2 W+1
471 5 W+1
472 9 ;+4
473 10 W+3
474 4 W+4
475 8 ;-5
476 1 W+4
477 5 W+1
478 4 -1
479 1 W+2
480 5 W+2
481 4 W+3
482 2 +16
483 7 ;+3
484 10 ZSUP
485 8 ;+3
486 4 ZSUP
487 7 ;+2
488 4 W+3
489 11 PCHAR
490 8 PCHAR+1
491 4 W+2
492 7 ;+2
493 8 RETURN
494 4 W+1
495 1 +16
496 11 PCHAR
497 8 PCHAR+1
498 0 LISTAD
499 /8 1
500 POW
501 +1
502 +10
503 +100
504 +1000
505 ZSUP +0
506
507 [REPORT
508 BN C LISTAD NAM OPTION
509 PRINT PP]
510 REPORT ([Flowchart])
511 +0
512 5 INSERT
513 4 OPTION
514 6 +16
515 7 EXIT
516 4 NAM+1
517 5 A
518 4 NAM+2
519 5 B
520 11 PRINT
521 8 PRINT+1
522 0 TEXT
523 11 PRINT
524 8 PRINT+1
525 0 BETWEN
526 4 PP
527 11 LISTAD
528 8 LISTAD+1
529 EXIT
530 0 REPORT
531 /8 1
532 TEXT
533 +12
534 INSERT
535 +0
536 A +0
537 B +0
538 +0
539 BETWEN
540 +5
541 &004144
542 &620000
543
544
545 [FAIL
546 ARITH BCR BLANKS C CNL
547 DECL DECSTA DECTYP DELIM DEMICO
548 E ENDPRO END40F ENT2 EXPTYP
549 F FALCOU GETCHA INBUF LASTDL
550 LEVEL LINE LISTAD M MFAIL
551 MIDTRM MPRINT MREAD NLP OPTION
552 OUT2 PCHAR PH PRINT PROC
553 Q R RCLAPS RESTO STATRM
554 SV TS W WAIT WM
555 WMESS]
556 FNO +0
557 WM +0
558 FY +0
559 LINO +0 ([Flowchart])
560 11 PRINT
561 8 PRINT+1
562 0 TALK
563 4 LINE
564 1 +1
565 11 LISTAD
566 8 LISTAD+1
567 4 +1
568 11 PCHAR
569 8 PCHAR+1
570 11 PRINT
571 8 PRINT+1
572 0 INBUF-1
573 4 GETCHA-4
574 1 +39
575 5 W+1
576 0 C
577 14 1
578 1 W+1
579 1 GETCHA-5
580 2 -2
581 5 W+1
582 4 W+1
583 7 ;+8
584 9 ;+2
585 8 LINEX
586 4 C
587 11 PCHAR
588 8 PCHAR+1
589 10 W+1
590 8 ;-8
591 4 +62
592 11 PCHAR
593 8 PCHAR+1
594 LINEX
595 0 LINO
596 /8 1
597
598 10 FALCOU
599 10 FALCOU
600 10 FALCOU
601 10 FALCOU
602 10 FALCOU
603 10 FALCOU
604 10 FALCOU
605 10 FALCOU
606
607 10 FALCOU
608 10 FALCOU
609 10 FALCOU
610 10 FALCOU
611 10 FALCOU
612 10 FALCOU
613 10 FALCOU
614 10 FALCOU
615
616 10 FALCOU
617 10 FALCOU
618 10 FALCOU
619 10 FALCOU
620 10 FALCOU
621 10 FALCOU
622 10 FALCOU
623 10 FALCOU
624
625 10 FALCOU
626 10 FALCOU
627 10 FALCOU
628 10 FALCOU
629 10 FALCOU
630 10 FALCOU
631 10 FALCOU
632 10 FALCOU
633
634 10 FALCOU
635 10 FALCOU
636 10 FALCOU
637 10 FALCOU
638 10 FALCOU
639 10 FALCOU
640 10 FALCOU
641 10 FALCOU
642
643 10 FALCOU
644 10 FALCOU
645 10 FALCOU
646 10 FALCOU
647 10 FALCOU
648 10 FALCOU
649 10 FALCOU
650 10 FALCOU
651
652 10 FALCOU
653 10 FALCOU
654 10 FALCOU
655 10 FALCOU
656 10 FALCOU
657 10 FALCOU
658 10 FALCOU
659 10 FALCOU
660
661 10 FALCOU
662 10 FALCOU
663 10 FALCOU
664 10 FALCOU
665 10 FALCOU
666 10 FALCOU
667 10 FALCOU
668 10 FALCOU
669
670 10 FALCOU
671 10 FALCOU
672 10 FALCOU
673 10 FALCOU
674 10 FALCOU
675 10 FALCOU
676 10 FALCOU
677 10 FALCOU
678
679 10 FALCOU
680 10 FALCOU
681 10 FALCOU
682 10 FALCOU
683 10 FALCOU
684 10 FALCOU
685 10 FALCOU
686 10 FALCOU
687
688 10 FALCOU
689 10 FALCOU
690 10 FALCOU
691 10 FALCOU
692 10 FALCOU
693 10 FALCOU
694 10 FALCOU
695 10 FALCOU
696
697 10 FALCOU
698 10 FALCOU
699 10 FALCOU
700 10 FALCOU
701 10 FALCOU
702 10 FALCOU
703 10 FALCOU
704 10 FALCOU
705
706 10 FALCOU
707 10 FALCOU
708 10 FALCOU
709 10 FALCOU
710 10 FALCOU
711 10 FALCOU
712 10 FALCOU
713 10 FALCOU
714
715 10 FALCOU
716 10 FALCOU
717 10 FALCOU
718 10 FALCOU
719 10 FALCOU
720 10 FALCOU
721 10 FALCOU
722 10 FALCOU
723
724
725 FAIL ([Description, Flowchart])
726 4 FALCOU
727 5 FNO
728 2 +18
729 7 ;+2
730 8 ;+8
731 4 &106500
732 5 DECTYP
733 4 C
734 11 DECL
735 8 DECL+1
736 4 C
737 5 DECTYP
738 4 C
739 5 FALCOU
740 4 +20
741 11 BLANKS
742 8 BLANKS+1
743 4 -1
744 5 MFAIL
745 11 PRINT
746 8 PRINT+1
747 0 CHAT
748 4 FNO
749 11 LISTAD
750 8 LISTAD+1
751 11 LINO
752 8 LINO+1
753 4 OPTION
754 6 &777755
755 1 +18
756 5 OPTION
757 6 +1
758
759 7 ;+3
760 11 WAIT
761 8 WAIT+1
762 4 CNL
763 9 RCLAPS
764 RETURN
765 4 TS
766 2 =/1 5120
767 7 OK
768 2 =8 6144
769 7 OK
770 2 =7 6144
771 9 ;+4
772 2 C
773 2 =/15 5120
774 9 OK
775 11 RESTO
776 8 RESTO+1
777 +0
778 8 RETURN
779 OK
780 4 C
781 5 EXPTYP
782 5 DECTYP
783 5 ARITH
784 5 F
785 5 PROC
786 5 MREAD
787 5 MPRINT
788 5 SV
789 5 M
790 4 E+1
791 5 E
792
793 OL
794 4 =3 3072
795 5 LASTDL
796 4 DELIM
797 2 =8 7168
798 7 OUT2
799 2 =0 3072
800 7 FEND
801 1 =5 1024
802 7 FSEMCO
803 4 +4
804 11 BCR
805 8 BCR+1
806 8 OL
807 FSEMCO
808 4 PH
809 7 FEND+1
810 4 +3
811 11 BCR
812 8 BCR+1
813 4 M
814 7 ;+2
815 8 OFF
816 4 DELIM
817 2 =10 3072
818 9 OFF
819 2 =1 0
820 9 OFF
821 8 OL
822 OFF
823 4 C
824 5 PH
825 8 OUT2
826 FEND
827 4 =8 0
828 1 =8 0
829 5 DECSTA
830 11 STATRM
831 8 MIDTRM
832 4 FNO
833 1 -40
834 7 END40F
835 4 DECSTA
836 9 ENT2
837 8 DEMICO
838 WMESS ([Flowchart])
839 +0
840 5 W+6
841 4 OPTION
842 14 13
843 9 ;+3
844 EX
845 0 WMESS
846 /8 1
847 4 WM
848 9 ;+2
849 8 ;+8
850 4 +20
851 11 BLANKS
852 8 BLANKS+1
853 11 PRINT
854 8 PRINT+1
855 0 THING
856 10 WM
857 0 W+6
858 /8 ;+0
859 8 ONE
860 8 TWO
861 8 THREE
862 ONE
863 11 LINO
864 8 LINO+1
865 8 EX
866 TWO
867 0 Q
868 8 ;+2
869 THREE
870 0 NLP
871 /4 0
872 5 ;+9
873 /4 1
874 5 ;+8
875 11 PRINT
876 8 PRINT+1
877 0 ;+2
878 8 EX
879 +9
880 +1
881 +0
882 +0
883 THING
884 +9
885 &011267
886 \ARN
887 \ING
888 TALK
889 +11
890 &015451
891 \NE
892 \NO
893 +0
894 CHAT
895 +11
896 &014562
897 \ROR
898 &005657
899 +0
900
901
902 [TAKCHA
903 C FAIL GETCHA GRPCOD LASTCH
904 PROC TABLE]
905 TAKCHA ([Description, Flowchart])
906 +0
907 11 GETCHA
908 8 GETCHA+1
909 9 GETCHA+1
910 4 LASTCH+1
911 2 +26
912 7 COL
913 2 +17
914 7 BRAK
915 EXIT
916 4 GRPCOD
917 0 TAKCHA
918 /8 1
919 COL
920 4 LASTCH+2
921 2 +29
922 7 BECOM
923 8 EXIT
924 BRAK
925 4 PROC
926 7 EXIT
927 ON
928 0 LASTCH+2
929 /4 TABLE
930 9 SEP
931 6 =4 0
932 2 =4 0
933 7 LETTER
934 4 +9
935 8 BECOM+3
936 SEP
937 11 GETCHA
938 8 GETCHA+1
939 8 ON
940 BECOM
941 11 GETCHA
942 8 GETCHA+1
943 4 +97
944 5 LASTCH+1
945 4 +2048
946 5 GRPCOD
947 8 EXIT
948 LETTER
949 11 GETCHA
950 8 GETCHA+1
951 9 GETCHA+1
952 6 =4 0
953 7 ;+2
954 8 GETCHA+1
955 4 LASTCH+1
956 2 +26
957 7 ;+2
958 8 FAIL-56
959 11 GETCHA
960 8 GETCHA+1
961 9 GETCHA+1
962 4 LASTCH+1
963 2 +8
964 7 COMA
965 8 FAIL-56
966 COMA
967 4 +12
968 8 BECOM+3
969
970 [IDENT
971 C LASTCH M NAM TAKCHA
972 W]
973 ADDCHA
974 +0
975 1 W+4
976 5 W+3
977 0 C
978 14 6
979 5 W+4
980 10 W+1
981 4 W+1
982 0 ADDCHA
983 /9 1
984 4 W+3
985 /8 2
986
987 IDENT ([Description, Flowchart])
988 +0
989 4 +1
990 5 M
991 4 C
992 5 NAM+2
993 5 W+4
994 4 -2
995 5 W+2
996 4 -3
997 5 W+1
998 RETURN
999 4 LASTCH+1
1000 11 ADDCHA
1001 8 ADDCHA+1
1002 8 ;+6
1003 0 W+2
1004 /5 NAM+3
1005 10 W+2
1006 4 -3
1007 5 W+1
1008 11 TAKCHA
1009 8 TAKCHA+1
1010 6 =12 0
1011 7 ;+4
1012 4 W+2
1013 7 ;-5
1014 8 RETURN
1015 4 W+2
1016 7 EXIT
1017 4 C
1018 11 ADDCHA
1019 8 ADDCHA+1
1020 8 ;-3
1021 0 W+2
1022 /5 NAM+3
1023 EXIT
1024 0 IDENT
1025 /8 1
1026
1027 [EVALNA
1028 C FAIL LASTCH P TABLE
1029 TAKCHA W]
1030 EVALNA ([Description, Flowchart])
1031 +0
1032 4 C
1033 5 W
1034 REPEAT
1035 11 TAKCHA
1036 8 TAKCHA+1
1037 4 LASTCH+1
1038 2 +2
1039 7 WRDEND
1040 0 LASTCH+2
1041 /4 TABLE
1042 14 6
1043 9 FAIL-15
1044 0 C
1045 4 W
1046 14 5
1047 1 W
1048 14 1
1049 1 W
1050 1 LASTCH+1
1051 6 =3 8191
1052 5 W
1053 8 REPEAT
1054 WRDEND
1055 4 C
1056 5 W+1
1057 LOOP
1058 0 W+1
1059 /4 T
1060 6 =3 8191
1061 2 W
1062 7 FOUND
1063 /4 T
1064 1 +1
1065 7 FAIL-15
1066 10 W+1
1067 8 LOOP
1068 FOUND
1069 /4 T
1070 6 =/12 0
1071 14 8190
1072 6 =7 0
1073 5 W+3
1074 0 C
1075 4 W+1
1076 1 +65
1077 14 10
1078 5 W+2
1079 0 EVALNA
1080 /8 1
1081
1082 T
1083 +16719
1084 +2785
1085 +9941
1086 +5371
1087
1088 +28965
1089 +2138
1090 +25905
1091 +25001
1092
1093 +2925
1094 +13135
1095 +12368
1096 +29254
1097
1098 +2146
1099 +20949
1100 +15560
1101 +30527
1102
1103 +23173
1104 +564
1105 +1761
1106 +8002
1107
1108 +20811
1109 +35753
1110 +35418
1111 +35887
1112
1113 -106770
1114 -111900
1115 -127873
1116 -110889
1117
1118 -117985
1119 +27585
1120 +24241
1121 +2459
1122 +0
1123 +10068
1124 +15834
1125 +27449
1126 +66101
1127 -1
1128
1129
1130 [NUMBER
1131 C CONS CONSTA FAIL GRPCOD
1132 LASTCH M TAKCHA W]
1133 STAND ([Flowchart])
1134 +0
1135 4 W+3
1136 7 NOUGHT
1137 L2
1138 4 W+4
1139 5 W+9
1140 4 W+3
1141 5 W+8
1142 SHIFT
1143 0 W+9
1144 14 1
1145 4 W+8
1146 14 1
1147 5 W+8
1148 3 W+9
1149 9 L4
1150 4 W+5
1151 1 -1
1152 5 W+5
1153 1 +64
1154 7 END
1155 8 SHIFT
1156 L4
1157 0 W+9
1158 14 1
1159 4 W+8
1160 14 8191
1161 3 W+4
1162 6 =15 8191
1163 5 W+3
1164 L3
1165 0 STAND
1166 /8 1
1167 NOUGHT
1168 4 W+4
1169 7 ;+2
1170 8 L2
1171 4 C
1172 5 W+5
1173 8 L3
1174 END
1175 4 C
1176 5 W+4
1177 5 W+5
1178 5 W+3
1179 8 L3
1180 POWER ([Flowchart])
1181 +0
1182 5 PWS
1183 7 PEXIT
1184 5 PMKR
1185 9 NEGP
1186 2 +20
1187 9 FAILA
1188 4 PWS
1189 2 C
1190 5 PWS
1191 P1
1192 4 PMKR
1193 9 ;+7
1194 0 W+4
1195 14 1
1196 4 W+3
1197 14 8190
1198 3 W+2
1199 8 ;+6
1200 0 W+4
1201 14 1
1202 4 W+3
1203 14 8191
1204 3 W+2
1205 1 W+3
1206 5 W+3
1207 4 W+2
1208 1 W+4
1209 9 ;+2
1210 8 ;+3
1211 10 W+3
1212 6 =15 8191
1213 5 W+4
1214 0 W+4
1215 14 1
1216 4 W+3
1217 14 8191
1218 3 W+4
1219 6 =15 8191
1220 5 W+3
1221 4 PMKR
1222 9 N1
1223 4 W+5
1224 1 +4
1225 5 W+5
1226 11 STAND
1227 8 STAND+1
1228 10 PWS
1229 4 PWS
1230 9 P1
1231 PEXIT
1232 0 POWER
1233 /8 1
1234 PWS +0
1235 PMKR +0
1236
1237 NEGP
1238 4 +10
1239 2 C
1240 5 W+1
1241 4 W+3
1242 5 W+6
1243 4 W+4
1244 5 W+7
1245 4 C
1246 5 W+8
1247 5 W+9
1248 8 P1
1249 N1
1250 0 W+9
1251 14 1
1252 4 W+8
1253 14 8188
1254 3 W+2
1255 1 W+3
1256 5 W+8
1257 4 W+2
1258 1 W+4
1259 9 ;+2
1260 8 ;+3
1261 10 W+8
1262 6 =15 8191
1263 5 W+9
1264 4 W+6
1265 5 W+3
1266 4 W+7
1267 5 W+4
1268 10 W+1
1269 4 W+1
1270 9 P1
1271 4 W+8
1272 5 W+3
1273 4 W+9
1274 5 W+4
1275 4 +3
1276 2 W+5
1277 5 W+5
1278 11 STAND
1279 8 STAND+1
1280 10 PWS
1281 4 PWS
1282 9 NEGP
1283 8 PEXIT
1284
1285 FAILA
1286 4 =15 8191
1287 5 CONSTA
1288 4 =15 8127
1289 5 CONSTA+1
1290 8 EXIT
1291 PACK
1292 4 W+4
1293 1 +64
1294 9 ;+2
1295 8 ;+2
1296 10 W+3
1297 6 &377600
1298 5 W+4
1299 4 W+3
1300 9 ADJUST
1301 RETURN
1302 4 W+5
1303 2 +63
1304 9 FAILA
1305 4 W+5
1306 1 +64
1307 9 UNDER
1308 4 W+5
1309 6 +127
1310 1 W+4
1311 5 CONSTA+1
1312 4 W+3
1313 5 CONSTA
1314 8 EXIT
1315 ADJUST
1316 10 W+5
1317 0 W+4
1318 14 1
1319 4 W+3
1320 14 8191
1321 3 W+4
1322 6 =15 8191
1323 5 W+3
1324 8 RETURN
1325 UNDER
1326 4 =8 0
1327 5 CONSTA
1328 4 +64
1329 5 CONSTA+1
1330 EXIT
1331 0 NUMBER
1332 /8 1
1333 NUMBER ([Description, Flowchart])
1334 +0
1335 4 +2
1336 5 M
1337 4 C
1338 5 LASTCH
1339 5 SIGN
1340 5 W+3
1341 5 W+4
1342 5 W+5
1343 5 EXP
1344 5 DEC
1345 5 POINT
1346 5 MAX
1347 NLOOP
1348 4 GRPCOD
1349 6 =8 0
1350 7 NOTDIG
1351 4 MAX
1352 7 MZ
1353 MNZ
1354 4 DEC
1355 1 -1
1356 5 DEC
1357 PNT
1358 4 POINT
1359 7 TCHA
1360 10 DEC
1361 TCHA
1362 11 TAKCHA
1363 8 TAKCHA+1
1364 8 NLOOP
1365 SIGN +0
1366 EXP +0
1367 DEC +0
1368 POINT +0
1369 MAX +0
1370 NOTDIG
1371 4 LASTCH+1
1372 2 +14
1373 7 APNT
1374 4 LASTCH
1375 2 +14
1376 7 FAIL-7
1377 2 +1
1378 7 FAIL-7
1379 1 +2
1380 7 FAIL-7
1381 4 LASTCH+1
1382 2 +31
1383 7 SUBTEN
1384 4 LASTCH
1385 2 +31
1386 7 TENSUB
1387 4 EXP
1388 7 EXPZ
1389 4 SIGN
1390 7 SKIP
1391 4 W+4
1392 2 C
1393 5 W+4
1394 SKIP
1395 4 W+4
1396 2 DEC
1397 5 DEC
1398 4 CONSTA
1399 5 W+3
1400 4 CONSTA+1
1401 5 W+4
1402 FIN
1403 4 +34
1404 5 W+5
1405 11 STAND
1406 8 STAND+1
1407 4 C
1408 5 CONS
1409 4 DEC
1410 2 C
1411 11 POWER
1412 8 POWER+1
1413 8 PACK
1414 MZ
1415 0 W+4
1416 14 1
1417 4 W+3
1418 14 1
1419 5 W+1
1420 3 W+2
1421 14 2
1422 1 W+1
1423 5 W+1
1424 3 W
1425 4 W
1426 1 W+2
1427 9 ;+3
1428 5 W+2
1429 8 ;+4
1430 6 =15 8191
1431 5 W+2
1432 10 W+1
1433 4 W+2
1434 1 LASTCH+1
1435 1 -16
1436 9 ;+3
1437 5 W+2
1438 8 ;+4
1439 6 =15 8191
1440 5 W+2
1441 10 W+1
1442 4 W+1
1443 2 &016715
1444 7 SPEC (>999 999 999)
1445 9 TOBIG
1446 OK
1447 4 W+1
1448 5 W+3
1449 4 W+2
1450 5 W+4
1451 4 EXP
1452 7 PNT
1453 8 TCHA
1454 APNT
1455 4 EXP
1456 1 POINT
1457 7 ;+2
1458 8 FAIL-7
1459 4 +1
1460 5 POINT
1461 8 TCHA
1462 SUBTEN
1463 4 EXP
1464 7 ;+2
1465 8 FAIL-7
1466 5 MAX
1467 4 LASTCH
1468 7 BLA
1469 4 W+3
1470 5 CONSTA
1471 4 W+4
1472 5 CONSTA+1
1473 8 CLEAR
1474 BLA
1475 4 +1
1476 5 CONSTA+1
1477 4 C
1478 5 CONSTA
1479 CLEAR
1480 4 C
1481 5 W+3
1482 5 W+4
1483 4 +1
1484 5 EXP
1485 8 TCHA
1486 TENSUB
1487 4 LASTCH+1
1488 2 +13
1489 7 NGTV
1490 2 +2
1491 7 TCHA
1492 8 FAIL-7
1493 EXPZ
1494 4 POINT
1495 7 PZ
1496 8 FIN
1497 SPEC
1498 4 W+2
1499 2 &145000
1500 9 TOBIG
1501 8 OK
1502 TOBIG
1503 4 +1
1504 5 MAX
1505 8 MNZ
1506 NGTV
1507 4 +1
1508 5 SIGN
1509 8 TCHA
1510 PZ
1511 4 MAX
1512 7 OKQ
1513 8 FAIL-8
1514 OKQ
1515 4 W+3
1516 7 ;+2
1517 8 FIN
1518 4 W+4
1519 9 FIN
1520 5 CONSTA
1521 4 +1
1522 5 CONS
1523 8 EXIT
1524
1525 [BCR
1526 C CONS CONSTA DELIM EVALNA
1527 FAIL GRPCOD IDENT LASTCH LASTDL
1528 M NUMBER P TAKCHA W]
1529 BCR ([Description, Flowchart])
1530 +0
1531 5 P
1532 4 C
1533 5 M
1534 L1
1535 11 TAKCHA
1536 8 TAKCHA+1
1537 L2
1538 4 LASTCH+1
1539 2 +2
1540 7 UNDER
1541 4 GRPCOD
1542 6 +2048
1543 7 LETNUM
1544 4 LASTCH+1
1545 0 C
1546 14 10
1547 5 W+2
1548 4 GRPCOD
1549 14 5
1550 6 =7 0
1551 5 W+3
1552 JOIN
1553 4 DELIM
1554 5 LASTDL
1555 4 DELIM+1
1556 5 LASTDL+1
1557 4 W+2
1558 5 DELIM
1559 4 W+3
1560 5 DELIM+1
1561 4 LASTDL
1562 2 =7 5120
1563 7 ;+4
1564 2 =6 4096
1565 7 ;+2
1566 8 ;+4
1567 4 M
1568 7 ;+2
1569 8 FAIL-33
1570 4 P
1571 2 +2
1572 9 EXIT
1573 4 P
1574 2 M
1575 7 EXIT
1576 8 FAIL-10
1577 UNDER
1578 11 EVALNA
1579 8 EVALNA+1
1580 4 W+2
1581 2 =10 5120
1582 7 FALS
1583 2 =0 1024
1584 7 TRU
1585 2 =/14 6144
1586 7 COMMEN
1587 8 JOIN
1588 LETNUM
1589 4 P
1590 2 +4
1591 7 L1
1592 4 M
1593 7 ;+2
1594 8 FAIL-11
1595 4 GRPCOD
1596 6 =8 4096
1597 7 LET
1598 11 NUMBER
1599 8 NUMBER+1
1600 8 L2
1601 EXIT
1602 0 BCR
1603 /8 1
1604
1605 FALS
1606 4 C
1607 8 ;+2
1608 TRU
1609 4 +1
1610 5 W
1611 4 P
1612 2 +4
1613 7 L1
1614 4 M
1615 7 ;+2
1616 8 FAIL-12
1617 4 W
1618 5 CONSTA
1619 4 +2
1620 5 M
1621 5 CONS
1622 8 L1
1623 COMMEN
1624 4 P
1625 2 +4
1626 7 JOIN
1627 4 M
1628 7 ;+2
1629 8 FAIL-13
1630 4 DELIM
1631 2 =8 7168
1632 7 ;+4
1633 2 =5 4096
1634 7 ;+2
1635 8 FAIL-13
1636 L3
1637 11 TAKCHA
1638 8 TAKCHA+1
1639 4 LASTCH+1
1640 2 +27
1641 7 L1
1642 8 L3
1643 LET
1644 11 IDENT
1645 8 IDENT+1
1646 8 L2
1647
1648 [COMPIL
1649 BLANKS C CODE LASTCP OPTION
1650 PP PUNGRP W]
1651 COMPIL ([Flowchart])
1652 +0
1653 0 COMPIL
1654 /4 1
1655 5 W+4
1656 4 C
1657 0 W+4
1658 14 3
1659 1 PP
1660 5 PP
1661 4 C
1662 14 3
1663 5 W+5
1664 4 C
1665 14 3
1666 3 W+6
1667 REST
1668 5 CODE
1669 10 COMPIL
1670 0 COMPIL
1671 /4 1
1672 11 PUNGRP
1673 8 PUNGRP+1
1674 4 OPTION
1675 14 2
1676 6 +8
1677 1 CODE
1678 2 +3
1679 7 ;+2
1680 8 NOT3
1681 5 CODE
1682 11 PUNGRP
1683 8 PUNGRP+1
1684 4 +3
1685 11 BLANKS
1686 8 BLANKS+1
1687 NOT3
1688 4 +1
1689 2 W+5
1690 5 W+5
1691 7 ;+6
1692 4 C
1693 0 W+6
1694 14 4
1695 3 W+6
1696 8 REST
1697 0 COMPIL
1698 /4 1
1699 5 LASTCP
1700 /8 2
1701
1702 [COMP
1703 ADDI BN COMPIL LIVE Q]
1704 COMP ([Flowchart])
1705 +0
1706 1 BN+2
1707 1 ADDI
1708 8 ;+2
1709 1 Q
1710 5 ;+4
1711 11 COMPIL
1712 8 COMPIL+1
1713 &111000
1714 LIVE
1715 +0
1716 0 COMP
1717 /8 1
1718
1719 [COMP2
1720 ADDI COMPIL]
1721 COMP2 ([Flowchart])
1722 +0
1723 1 ADDI
1724 5 ;+4
1725 11 COMPIL
1726 8 COMPIL+1
1727 &112000
1728 +0
1729 0 COMP2
1730 /8 1
1731
1732 [FOMPIL
1733 ADDI BLANKS C CODE COMP
1734 COMPIL COMP2 FAIL I MPRINT
1735 MREAD OPTION PP PUNGRP W
1736 WANTED]
1737 FOMPIL ([Flowchart])
1738 +0
1739 4 ADDI+4
1740 7 ;+2
1741 8 FAIL-107
1742 4 ADDI+2
1743 7 NOTF
1744 4 =/6 0
1745 11 COMP
1746 8 COMP+1
1747 EXIT
1748 0 FOMPIL
1749 /8 1
1750 NOTF
1751 0 I
1752 /4 2
1753 5 W
1754 6 =2 0
1755 7 NOTIN
1756 4 W
1757 6 &377
1758 5 W+1
1759 4 W
1760 6 &017400
1761 0 C
1762 14 5
1763 5 W
1764 1 W+1
1765 5 W+1
1766 4 W
1767 2 =15 0
1768 7 IN
1769 4 W+1
1770 8 NT
1771 IN
1772 4 MPRINT
1773 1 MREAD
1774 7 ;-4
1775 4 W+1
1776 1 +11
1777 NT
1778 11 COMP
1779 8 COMP+3
1780 8 EXIT
1781 NOTIN
1782 4 W
1783 6 =1 0
1784 7 NOTOWN
1785 10 WANTED
1786 4 +4
1787 5 CODE
1788 10 PP
1789 0 I
1790 /4 0
1791 11 PUNGRP
1792 8 PUNGRP+1
1793 4 +2
1794 5 CODE
1795 0 I
1796 /4 1
1797 11 PUNGRP
1798 8 PUNGRP+1
1799 4 C
1800 5 CODE
1801 4 =/5 0
1802 11 PUNGRP
1803 8 PUNGRP+1
1804 4 OPTION
1805 6 +2
1806 7 ;+2
1807 8 EXIT
1808 11 PUNGRP
1809 8 PUNGRP+2 (NB +2)
1810 4 +6
1811 11 BLANKS
1812 8 BLANKS+1
1813 8 EXIT
1814 NOTOWN
1815 4 =/5 0
1816 11 COMP2
1817 8 COMP2+1
1818 8 EXIT
1819
1820 [FOMCOM
1821 ADDI FAIL FOMPIL I UPDATE]
1822 FOMCOM ([Flowchart])
1823 +0
1824 11 FOMPIL
1825 8 FOMPIL+1
1826 4 ADDI+1
1827 7 EXIT
1828 2 +15
1829 7 ;+2
1830 8 FAIL-99
1831 5 ADDI+1
1832 0 I
1833 /4 3
1834 6 -16
1835 /5 3
1836 11 UPDATE
1837 8 UPDATE+1
1838 EXIT
1839 0 FOMCOM
1840 /8 1
1841
1842 [RESTO
1843 C ENDPRO PRESTO SP TS
1844 W]
1845 RESTO ([Flowchart])
1846 +0
1847 4 -3
1848 8 ;+2
1849 PRESTO ([Flowchart])
1850 4 C
1851 5 W
1852 0 RESTO
1853 /4 1
1854 5 W+1
1855 4 W
1856 7 AWAY
1857 4 W+1
1858 6 +511
1859 7 ;+2
1860 4 -3
1861 1 W
1862 AWAY
1863 1 SP
1864 5 W
1865 NEW
1866 4 -3
1867 5 W+4
1868 LOOP
1869 4 C
1870 0 W+1
1871 14 4
1872 3 W+1
1873 BACK
1874 1 -2
1875 9 ON
1876 5 W+2
1877 10 RESTO
1878 0 RESTO
1879 /4 1
1880 5 W+3
1881 0 SP
1882 /4 0
1883 0 W+3
1884 /6 1
1885 /5 0
1886 4 W+2
1887 8 BACK
1888 ON
1889 10 SP
1890 10 W+4
1891 4 W+4
1892 9 LOOP
1893 4 +6
1894 2 SP
1895 5 SP
1896 4 W+1
1897 7 ;+2
1898 8 NEW
1899 4 W
1900 5 SP
1901 0 SP
1902 /4 0
1903 6 =/15 7168
1904 5 TS
1905 4 SP+1
1906 2 SP
1907 9 ENDPRO
1908 0 RESTO
1909 /8 2
1910
1911 [UNSTAK
1912 ADDI ADDRES BN C COMP
1913 COMPIL DIM FAIL LASTCP LIVE
1914 LOKTYP P PP PRESTO RESTO
1915 SP SPR TS TYPBOX W]
1916 UNSTAK ([Description, Flowchart])
1917 +0 (W0 TO 10)
1918 5 W+7
1919 11 RESTO
1920 8 PRESTO
1921 &221000
1922 0 LOKTYP
1923 0 SPR
1924 0 BN+2
1925 0 DIM
1926 0 ADDRES
1927 4 TYPBOX
1928 2 LOKTYP
1929 5 W+9
1930
1931 ([VOLUME 2])
1932
1933 0 UNSTAK
1934 4 W+7
1935 2 SPR
1936 /9 1
1937 4 SP
1938 2 SP+1
1939 /7 1
1940 4 SPR
1941 2 +12
1942 7 TWELVE
1943 2 +4
1944 7 EIGHT
1945 4 TS
1946 2 =/0 1024
1947 7 COLECT
1948 1 +1024
1949 7 COLECT
1950 1 +5120
1951 7 ;+4
1952 1 +1024
1953 7 COLECT
1954 8 PAGTWO
1955 4 W+9
1956 7 COLECT
1957 4 TYPBOX
1958 7 ;+13
1959 4 =8 2
1960 1 PP
1961 5 ;+6
1962 4 ADDRES
1963 5 ;+5
1964 11 COMPIL
1965 8 COMPIL+1
1966 &232310
1967 +0
1968 +0
1969 /15 13
1970 8 BACK
1971 4 TYPBOX+1
1972 5 TYPBOX
1973 11 COMPIL
1974 8 COMPIL+1
1975 &111000
1976 /15 13
1977 COLECT
1978 4 ADDRES
1979 5 ;+4
1980 11 COMPIL
1981 8 COMPIL+1
1982 &013000
1983 +0
1984 BACK
1985 4 SP
1986 1 -3
1987 5 SP
1988 8 UNSTAK+2
1989 &425320 (GT)
1990 &423130 (GTF)
1991 &435310 (GTS)
1992 &437160 (GTFS)
1993 &271465 (AND)
1994 &267466 (OR)
1995 &263467 (EQUIV)
1996 &265470 (IMPL)
1997
1998 &273471 (NOT)
1999 &302423 (ST)
2000 &440424 (STA)
2001 &442017 (NEG)
2002 &026036 (+)
2003 &032040 (-)
2004 &024042 (*)
2005 &036344 (/)
2006
2007 &174247 (^)
2008 &072055 (=)
2009 &260057 (NE)
2010 &074061 (>)
2011
2012 &256063 (GE)
2013 &070051 (<)
2014 &254053 (LE)
2015 &312014 (DIV)
2016
2017 TABEND
2018 +0
2019 0 ;-25
2020 TWELVE
2021 4 P
2022 7 INDA
2023 2 +3
2024 7 INDR
2025 2 +2
2026 7 INDR
2027 8 FAIL-64
2028 INDR
2029 4 =1 0
2030 INDA
2031 1 =12 0
2032 1 DIM
2033 1 DIM
2034 1 DIM
2035 BLOGGS
2036 5 LIVE
2037
2038 11 COMP
2039 8 COMP+6
2040 8 BACK
2041 EIGHT
2042 4 W+7
2043 2 +8
2044 7 FAIL-34
2045 PAGTWO
2046 4 TABEND+1
2047 5 W+8
2048 4 TS
2049 5 TABEND
2050 0 W+8
2051 /2 0
2052 6 =/15 7168
2053 7 ;+3
2054 10 W+8
2055 8 ;-7
2056 /4 0
2057 1 W+9
2058 2 &174347
2059 7 UPARR
2060 /4 0
2061 6 +63
2062 1 =/15 0
2063 5 LIVE
2064 4 +64
2065 5 LOKTYP
2066 /4 0
2067 14 8
2068 9 BOOL
2069 14 1
2070 9 ST
2071 14 1
2072 5 W+10
2073 4 TYPBOX
2074 2 W+9
2075 7 SPESHL
2076 FGETIT
2077 4 W+9
2078 7 CONT
2079 4 LIVE
2080 2 =/15 15
2081 7 CONT
2082 4 TYPBOX
2083 14 8186
2084 JOIN
2085 1 =/15 13
2086 5 ;+4
2087 11 COMPIL
2088 8 COMPIL+1
2089 &111000
2090 +0
2091 END
2092 4 LIVE
2093 6 +63
2094 2 +12
2095 7 FAIL-104
2096 10 LIVE
2097 END1
2098 4 LOKTYP
2099 5 TYPBOX
2100 4 TS
2101 2 =11 5120
2102 9 ;+9
2103 1 =/15 0
2104 9 ;+5
2105 1 =/9 1024
2106 9 ;+5
2107 2 +2048
2108 9 ;+3
2109 4 C
2110 5 TYPBOX
2111 8 BLOGGS+1
2112 CONT
2113 4 TYPBOX
2114 7 BLOGGS+1
2115 8 END
2116 UPARR
2117 4 =/15 28
2118 5 LIVE
2119 8 END1
2120 BOOL
2121 14 1
2122 9 BLOGGS+1
2123 14 1
2124 6 =/15 0
2125 1 ADDRES
2126 9 ;+3
2127 1 BN+2
2128 8 BLOGGS
2129 1 =/0 0
2130 8 BLOGGS
2131 ST
2132 4 W+9
2133 7 INC
2134 4 TYPBOX
2135 7 JOIN
2136 4 C
2137 5 LOKTYP
2138 4 +5
2139 8 JOIN
2140 SPESHL
2141 4 W+10
2142 9 ;+2
2143 8 FGETIT
2144 14 1
2145 9 END1
2146 4 LASTCP
2147 6 =/15 0
2148 2 =/2 0
2149 7 ;+2
2150 8 END1
2151 4 +1
2152 2 LIVE
2153 8 BLOGGS
2154 INC
2155 10 LIVE
2156 8 BLOGGS+1
2157
2158 [EXP
2159 C E FAIL P PROC
2160 TS UNSTAK]
2161 EXP ([Description, Flowchart])
2162 +0
2163 5 P
2164 4 E
2165 7 EZ
2166 4 +12
2167 11 UNSTAK
2168 8 UNSTAK+1
2169 4 TS
2170 2 =/2 0
2171 7 YES
2172 2 =5 7168
2173 7 YES
2174 4 PROC
2175 7 PROCZ
2176 FIN
2177 4 C
2178 5 E
2179 EXIT
2180 0 EXP
2181 /8 1
2182 PROCZ
2183 4 P
2184 2 +3
2185 7 FAIL-35
2186 8 EXIT
2187 YES
2188 4 P
2189 2 +2
2190 7 FAIL-55
2191 8 FIN
2192 EZ
2193 4 P
2194 2 +2
2195 7 FAIL-55
2196 8 EXIT
2197
2198 [PAMTAB]
2199 PAMTAB
2200 &116524 (IPZ)
2201 &115124 (BPZ)
2202
2203 &106507 (I)
2204 &105107 (B)
2205
2206 &106106 (R)
2207 &306102 (VR)
2208
2209 &046504 (IA)
2210 &045104 (BA)
2211
2212 &046104 (RA)
2213 &246100 (VRA)
2214
2215 &036504 (IP)
2216 &035104 (BP)
2217
2218 &036104 (RP)
2219 &116124 (RPZ)
2220
2221 &020104 (P)
2222 &100124 (PZ)
2223
2224 &040205 (SW)
2225 &246500 (VIA)
2226
2227 &100205 (L)
2228 &300201 (VL)
2229
2230 &000040 (STR)
2231 &245100 (VBA)
2232
2233 &306502 (VI)
2234 &305102 (VB)
2235 -1
2236
2237
2238 [PRAMCH
2239 ADDI BN C COMP COMPIL
2240 COMP2 CONS DIM FAIL FOMCOM
2241 I PAMTAB PRESTO PRMCOU PROCPO
2242 RESTO Q TYPBOX W]
2243 PRAMCH ([Description, Flowchart])
2244 +0 (W0 TO 11)
2245 5 W
2246 0 PROCPO
2247 /4 2
2248 9 EX
2249 /4 3
2250 6 +15
2251 2 PRMCOU
2252 2 C
2253 9 FAIL-51
2254 4 PRMCOU
2255 2 PROCPO
2256 5 W+1
2257 0 W+1
2258 /4 0
2259 FMT
2260 5 W+7
2261 6 =8 0
2262 5 W+8
2263 4 W+7
2264 6 =7 8176
2265 5 W+9
2266 2 ADDI+3
2267 5 W+10
2268 4 C
2269 5 W+14
2270 4 W
2271 7 IDENT
2272 2 +3
2273 7 ;+2
2274 8 USUAL
2275 4 +10
2276 8 JOIN
2277 IDENT
2278 4 W+8
2279 7 ;+2
2280 8 USUAL
2281 5 W+1
2282 LOOP
2283 0 W+1
2284 /4 PAMTAB
2285 6 &177760
2286 2 ADDI+3
2287 7 REVEAL
2288 /4 PAMTAB
2289 1 +1
2290 7 USUAL
2291 10 W+1
2292 8 LOOP
2293 REVEAL
2294 4 W+1
2295 14 8191
2296 5 W+1
2297 7 SPEC
2298 2 +2
2299 9 ;+2
2300 8 USUAL
2301 4 W+1
2302 8 JOIN
2303 SPEC
2304 4 +5
2305 JOIN
2306 5 W+14
2307 USUAL
2308 4 C
2309 5 W+1
2310 REPEAT
2311 0 W+1
2312 /4 PAMTAB
2313 5 W+2
2314 2 -1
2315 7 END
2316 4 W+2
2317 6 &777760
2318 2 W+7
2319 7 FOUND
2320 10 W+1
2321 8 REPEAT
2322 FOUND
2323 4 W+2
2324 6 +15
2325 8 ;+2
2326 END
2327 4 +3
2328 5 W+11
2329 0 W
2330 /8 ;+1
2331 8 WZERO
2332 8 WONE
2333 8 WTWO
2334 8 WTHREE
2335 8 WFOUR
2336 8 WFIVE
2337
2338 EX
2339 4 W
2340 2 +1
2341 7 ;+3
2342 4 ADDI+3
2343 8 FMT
2344 0 CONS
2345 /4 ;+2
2346 8 FMT
2347 &106100
2348 &106500
2349 &105100
2350
2351 EXIT
2352 4 W+14
2353 7 REXIT
2354 1 +60
2355 1 =/15 0
2356 11 COMP
2357 8 COMP+5
2358 REXIT
2359 0 PRAMCH
2360 /8 1
2361 FUNNY
2362 4 =/15 27
2363 11 COMP
2364 8 COMP+5
2365 11 FOMCOM
2366 8 FOMCOM+1
2367 ITOP
2368 4 ADDI+3
2369 14 8
2370 14 8176
2371 5 W
2372 4 W+9
2373 14 8
2374 14 8176
2375 5 W+1
2376 1 W
2377 9 TEST
2378 2 +1
2379 7 ;+2
2380 8 EXIT
2381 4 W+1
2382 7 ;+2
2383 RTOI
2384 4 +5
2385 ITOR
2386 1 =/15 13
2387 11 COMP
2388 8 COMP+3
2389 8 EXIT
2390 TEST
2391 1 +4
2392 7 EXIT
2393 8 FAIL-5
2394 FRED
2395 +0
2396 4 ADDI+3
2397 2 &100120
2398 7 FAIL-5
2399 6 +16
2400 0 FRED
2401
2402 7 FUNNY
2403 /8 1
2404 WZERO
2405 4 ADDI+2
2406 7 PAGTWO
2407 4 ADDI+3
2408 6 &104120
2409 2 &104100
2410 7 SCALAR
2411 4 W+11
2412 2 +2
2413 11 FRED
2414 7 FRED+1
2415 8 FA
2416 SCALAR
2417 4 W+9
2418 6 &104120
2419 2 &104100
2420 7 ;+2
2421 8 FAIL-5
2422 4 ADDI+4
2423 7 NAM
2424 4 W+8
2425 7 ON
2426 4 =/8 0
2427 11 COMP
2428 8 COMP+1
2429 8 ITOP
2430 ON
2431 4 ADDI+3
2432 2 &106100
2433 7 ;+2
2434 4 =/15 0
2435 1 =/13 0
2436 8 COMBIN
2437 NAM
2438 4 W+8
2439 7 ;+5
2440 4 =/10 0
2441 11 COMP
2442 8 COMP+1
2443 8 ITOP
2444 FA
2445 4 =/8 0
2446 COMBIN
2447 11 COMP
2448 8 COMP+1
2449 4 W+10
2450 7 EXIT
2451 1 &717760
2452 7 EXIT
2453 8 FAIL-5
2454 WONE
2455 0 CONS
2456 /8 ;+1
2457 8 CZERO
2458 8 CONE
2459 8 CTWO
2460 CZERO
2461 4 W+9
2462 2 &106100
2463 7 CREAL
2464 4 W+8
2465 7 FAIL-5
2466 4 =/4 0
2467 11 COMP
2468 8 COMP+4
2469 8 RTOI
2470 CREAL
2471 4 W+8
2472 7 ;+2
2473 4 =1 0
2474 1 =/3 0
2475 CONST
2476 11 COMP
2477 8 COMP+4
2478 8 EXIT
2479 CONE
2480 4 W+9
2481 2 &106500
2482 7 CINT
2483 4 W+8
2484 7 FAIL-5
2485 4 =/2 0
2486 11 COMP
2487 8 COMP+4
2488 4 C
2489 8 ITOR
2490 CINT
2491 4 W+8
2492 7 ;+2
2493 4 =1 0
2494 1 =/1 0
2495 8 CONST
2496 CTWO
2497 4 W+9
2498 2 &105100
2499 7 CINT
2500 8 FAIL-5
2501 WTWO
2502 4 W+8
2503 7 FAIL-5
2504 4 W+9
2505 2 &106100
2506 7 PR
2507 4 W+9
2508 2 &106500
2509 7 PI
2510 4 W+9
2511 2 &105100
2512 7 EXIT
2513 8 FAIL-5
2514 PR
2515 4 TYPBOX
2516 7 ITOR
2517 8 EXIT
2518 PI
2519 4 TYPBOX
2520 7 EXIT
2521 8 RTOI
2522 WTHREE
2523 4 W+9
2524 2 +32
2525 7 EXIT
2526 8 FAIL-5
2527 WFOUR
2528 4 W+9
2529 2 &100200
2530 7 ;+2
2531 8 FAIL-5
2532 4 W+8
2533 7 FAIL-5
2534 4 ADDI+2
2535 7 ;+5
2536 4 =5 0
2537 11 COMP
2538 8 COMP+1
2539 8 EXIT
2540 4 =/11 0
2541 COMEX
2542 11 COMP
2543 8 COMP+2
2544 8 EXIT
2545 WFIVE
2546 4 W+9
2547 6 &104120
2548 2 &104100
2549 7 ;+2
2550 8 FAIL-5
2551 PAGTWO
2552 0 W+11
2553 /8 ;+1
2554
2555 8 NZ
2556 8 N1
2557 8 N2
2558 8 FAIL-94
2559 8 N4
2560 8 N5
2561 8 N6
2562 8 N7
2563
2564 N1
2565 4 W+10
2566 7 ;+2
2567 8 FAIL-5
2568 4 =/1 0
2569 8 COMEX
2570 N2
2571 4 ADDI+3
2572 2 &106100
2573 7 TRR
2574 4 ADDI+3
2575 2 &106500
2576 7 TIR
2577 4 ADDI+3
2578 2 &105100
2579 7 TIRP
2580 4 ADDI+3
2581 6 &040000
2582 7 ;+2
2583 8 ARRY
2584 11 FRED
2585 8 FRED+1
2586 8 ITOP
2587 EXCOM
2588 11 COMP2
2589 8 COMP2+1
2590 8 EXIT
2591
2592 PROCED ([Description])
2593 11 RESTO
2594 8 RESTO+1
2595 +0
2596 8 ITOP
2597 TRR
2598 4 =4 0
2599 11 COMP
2600 8 COMP+2
2601 8 ITOP
2602 TIR
2603 4 =2 0
2604 8 TRR+1
2605 TIRP
2606 4 W+10
2607 7 TIR
2608 8 FAIL-5
2609 ARRY
2610 11 RESTO
2611 8 PRESTO
2612 &010000
2613 0 DIM
2614 4 ADDI+3
2615 2 &045100
2616 7 ;+8
2617 4 =13 0
2618 1 DIM
2619 1 DIM
2620 1 DIM
2621 11 COMP
2622 8 COMP+3
2623 8 PROCED
2624 4 W+9
2625 2 &105100
2626 7 ;-9
2627 8 FAIL-5
2628 N4
2629 4 ADDI+3
2630 6 &020000
2631 7 NAMOK
2632 TESNAM
2633 4 ADDI+1
2634 2 C
2635 5 W
2636 4 I
2637 5 W+1
2638 CYCLE
2639 4 +1
2640 2 W+1
2641 5 W+1
2642 0 W+1
2643 /4 0
2644 6 =8 0
2645 7 ;+2
2646 8 FAIL-108
2647 10 W
2648 4 W
2649 9 CYCLE
2650 NZ
2651 NAMOK
2652 4 W+10
2653 7 ;+2
2654 8 FAIL-5
2655 4 ADDI+3
2656 6 &040000
2657 7 EXCOM
2658 4 =1 0
2659 8 COMEX
2660 N5
2661 4 =/1 0
2662 8 ;+4
2663 N6
2664 4 =3 0
2665 8 ;+2
2666 N7
2667 4 =1 0
2668 5 W
2669 4 W+10
2670 7 ;+2
2671 8 FAIL-5
2672 4 W
2673 8 COMEX
2674
2675 [ADDI
2676 ADJI C I]
2677 ADJI +0 ([Flowchart])
2678 0 I
2679 /4 2
2680 6 +8191
2681 5 ADDI
2682 /4 3
2683 6 +15
2684 5 ADDI+1
2685 /4 2
2686 6 =/0 0
2687 5 ADDI+2
2688 /4 3
2689 6 &177760
2690 5 ADDI+3
2691 /4 2
2692 6 =8 0
2693 5 ADDI+4
2694 0 ADJI
2695 /8 1
2696
2697 [SEARCH
2698 ADDI ADJI BN C CHECK
2699 DECTYP DELIM EXPTYP FAIL I
2700 LASTDL M NAM NLP PROC
2701 TYPBOX W]
2702 SEARCH ([Description, Flowchart])
2703 +0
2704 5 W
2705 4 BN
2706 5 BN+2
2707 4 NLP
2708 5 I
2709 LOOP
2710 0 I
2711 /4 0
2712 2 NAM+1
2713 7 ;+2
2714 8 NOT
2715 /4 1
2716 2 NAM+2
2717 7 FOUND
2718 NOT
2719 /4 0
2720 1 +1
2721 7 STOP
2722 RETURN
2723 4 I
2724 2 NLP+1
2725 7 FIN
2726 4 I
2727 1 +4
2728 5 I
2729 8 LOOP
2730 STOP
2731 4 W
2732 7 WZ
2733 2 +1
2734 7 EXIT
2735 1 +2
2736 7 FILLIN
2737 8 FAIL-17
2738 FILLIN
2739 4 +4
2740 2 NLP
2741 5 NLP
2742 5 I
2743 11 CHECK
2744 8 CHECK+1
2745 0 I
2746 4 NAM+1
2747 /5 0
2748 4 NAM+2
2749 /5 1
2750 4 C
2751 /5 2
2752 4 DECTYP
2753 /5 3
2754 8 EXIT
2755 WZ
2756 /4 1
2757 5 BN+2
2758 8 RETURN
2759 FIN
2760 4 W
2761 2 +1
2762 7 EXIT
2763 8 FAIL-18
2764 FOUND
2765 11 ADJI
2766 8 ADJI+1
2767 4 W
2768 7 ;+4
2769 2 +2
2770 7 EXIT
2771 8 FAIL-48
2772 4 EXPTYP
2773 6 +128
2774 7 NOTLS
2775 4 ADDI+3
2776 6 +128
2777 7 FAIL-87
2778 NOTLS
2779 4 ADDI+3
2780 6 &7600
2781 2 &6000
2782 7 RL
2783 1 &776000
2784 9 IN
2785 TEST
2786 4 M
2787 7 EXIT
2788 4 ADDI+3
2789 6 &040000
2790 7 OK
2791 4 DELIM
2792 2 =7 3072
2793 7 OK
2794 2 =5 7168
2795 7 RET
2796 1 +3072
2797 7 ;+2
2798 8 FAIL-99
2799 4 LASTDL
2800 2 =1 4096
2801 7 RET
2802 2 +4096
2803 7 RET
2804 8 FAIL-99
2805 RET
2806 4 PROC
2807 7 FAIL-99
2808 OK
2809 4 DELIM
2810 2 =7 3072
2811 7 SBRAK
2812 2 =6 3072
2813 7 RBRAK
2814 8 EXIT
2815 RBRAK
2816 4 ADDI+3
2817 6 &20000
2818 7 NOCBIT
2819 8 EXIT
2820 SBRAK
2821 4 ADDI+3
2822 6 &040000
2823 7 FAIL-38
2824 EXIT
2825 4 W
2826 7 ;+2
2827 8 ;+6
2828 0 I
2829 /4 2
2830 6 &677777
2831 1 =4 0
2832 /5 2
2833 0 SEARCH
2834 /8 1
2835 RL
2836 4 TYPBOX+1
2837 8 ;+2
2838 IN
2839 4 C
2840 5 TYPBOX
2841 8 TEST
2842 NOCBIT
2843 4 ADDI+2
2844 7 FAIL-61
2845 0 I
2846 /4 2
2847 14 2
2848 9 FAIL-99
2849 4 ADDI+3
2850 6 +16
2851 7 FAIL-61
2852 8 EXIT
2853
2854 [CHECK
2855 C CODL CODLP NLP FAIL]
2856 CHECK ([Flowchart])
2857 +0
2858 4 NLP
2859 2 LOCAL
2860 1 CODLP
2861 0 CHECK
2862 /9 1
2863 8 FAIL-85
2864 LOCAL
2865 0 CODL
2866
2867
2868 [SECODL
2869 C CHECK CODL CODLP CONS
2870 CONSTA FAIL NLP Q]
2871
2872 SECODL +0 ([Description, Flowchart])
2873 4 C
2874 5 Q
2875 LOOP
2876 4 Q
2877 2 CODLP
2878 7 INSERT
2879 0 Q
2880 /4 CODL
2881 2 CONSTA
2882 7 MAYBE
2883 NOT
2884 10 Q
2885 8 LOOP
2886 INSERT
2887 4 CONSTA
2888 /5 CODL+1
2889 4 CONS
2890 7 REAL
2891 4 +1
2892 RETURN
2893 1 Q
2894 5 CODLP
2895 11 CHECK
2896 8 CHECK+1
2897 EXIT
2898 0 SECODL
2899 /8 1
2900 MAYBE
2901 4 CONS
2902 7 ;+2
2903 8 EXIT
2904 /4 CODL+1
2905 2 CONSTA+1
2906 7 EXTRA
2907 8 NOT
2908 REAL
2909 4 CONSTA+1
2910 /5 CODL+2
2911 4 +2
2912 8 RETURN
2913 EXTRA
2914 4 Q
2915 1 +1
2916 2 CODLP
2917 7 ;+2
2918 8 EXIT
2919 10 CODLP
2920 8 EXIT-2
2921
2922 [STACK
2923 C CODL FAIL SP TS
2924 W]
2925 0 CODL-2
2926 STACK ([Flowchart])
2927 +0
2928 4 SP
2929 1 -3
2930 5 SP
2931 0 STACK
2932 /4 1
2933 5 W+6
2934 INTER
2935 4 -3
2936 5 W+5
2937 OUTER
2938 4 C
2939 0 W+6
2940 14 4
2941 3 W+6
2942 7 ;+4
2943 10 STACK
2944 0 STACK
2945 /4 1
2946 0 SP
2947 /5 3
2948 10 SP
2949 10 W+5
2950 4 W+5
2951 9 OUTER
2952 /4 1
2953 6 =/15 7168
2954 5 TS
2955 4 STACK-1
2956 2 SP
2957 9 ;+2
2958 8 FAIL-83
2959 0 STACK
2960 4 W+6
2961 /7 2
2962 8 INTER
2963
2964 [TAKID
2965 ADDI BN C COMP COMPIL
2966 COMP2 DECTYP FAIL FOMCOM I
2967 P SEARCH STACK TS TYPBOX
2968 W]
2969 TAKID ([Description, Flowchart])
2970 +0
2971 4 C
2972 11 SEARCH
2973 8 SEARCH+1
2974 4 DECTYP
2975 6 &44100
2976 2 &44100
2977 7 ARRAY
2978 TEST
2979 4 ADDI+3
2980 2 &040200
2981 7 EXIT
2982 4 ADDI+3
2983 2 &100200
2984 7 LAB
2985 4 ADDI+3
2986 6 &044100
2987 2 &044100
2988 7 ARR
2989 4 ADDI+3
2990 6 &010000
2991 7 OTHER
2992 4 P
2993 7 PZ
2994 11 COMPIL
2995 8 COMPIL+1
2996 &111000
2997 /15 27
2998 4 ADDI+3
2999 6 &017600
3000 2 &016000
3001 7 ;+3
3002 4 C
3003 8 ;+2
3004 4 TYPBOX+1
3005 5 TYPBOX
3006 11 FOMCOM
3007 8 FOMCOM+1
3008 8 EXIT
3009 PZ
3010 4 ADDI+2
3011 7 ;+2
3012 8 FAIL-46
3013 0 I
3014 /4 3
3015 6 =/8 0
3016 2 =/8 0
3017 7 FAIL-46
3018 /4 3
3019 6 =7 8191
3020 1 =8 0
3021 /5 3
3022 ZZ
3023 4 C
3024 5 W
3025 4 ADDI+3
3026 6 &7600
3027 2 &6000
3028 7 ;+2
3029 4 =/15 0
3030 1 =/13 0
3031 1 BN+2
3032 1 W
3033 8 COM3
3034 AC
3035 4 ADDI+3
3036 14 12
3037 9 FAIL-31
3038 AF
3039 4 =/8 0
3040 COM1
3041 1 BN+2
3042 COM2
3043 1 ADDI
3044 COM3
3045 11 COMP
3046 8 COMP+5
3047 EXIT
3048 0 TAKID
3049 /8 1
3050 ARR
3051 4 ADDI+2
3052 7 COMX
3053 4 =/8 0
3054 8 COM1
3055 LAB
3056 4 TS
3057 2 =/1 2048
3058 7 ;+2
3059 8 FAIL-22
3060 4 ADDI
3061 5 L3
3062 4 ADDI+2
3063 7 ;+6
3064 4 =/1 1026
3065 5 L1
3066 4 BN+2
3067 5 L2
3068 8 ;+4
3069 5 L2
3070 4 =/1 2050
3071 5 L1
3072 11 STACK
3073 8 STACK+1
3074 &111000
3075 L1 +0
3076 L2 +0
3077 L3 +0
3078 8 EXIT
3079 ARRAY
3080 4 BN
3081 2 BN+2
3082 7 FAIL-41
3083 8 TEST
3084 OTHER
3085 4 ADDI+2
3086 1 ADDI+4
3087 14 8177
3088 1 P
3089 6 +7
3090 5 W
3091 0 W
3092 /8 ;+1
3093 8 AA
3094 8 AB
3095 8 AA
3096 8 AB
3097 8 AC
3098 8 AD
3099 8 AE
3100 8 AF
3101 AA
3102 4 ADDI+3
3103 6 &017600
3104 7 FAIL-25
3105 4 ADDI+3
3106 2 &106100
3107 7 ;+3
3108 4 =1 0
3109 8 COM2
3110 4 =3 0
3111 8 COM2
3112 AB
3113 4 ADDI+3
3114 2 &106100
3115 7 ;+3
3116 4 =2 0
3117 8 COM2
3118 4 =4 0
3119 8 COM2
3120 AD
3121 4 ADDI+3
3122 6 &40
3123 7 ;+2
3124 4 =/14 0
3125 1 =/10 0
3126 8 COM1
3127 AE
3128 4 ADDI
3129 5 W
3130 8 ZZ+2
3131 COMX
3132 4 =1 0
3133 8 COM2
3134
3135 [TAKE
3136 ARITH C COMP COMPIL CONS
3137 FAIL LASTDL M P Q
3138 SECODL TAKID TYPBOX UNSTAK]
3139 TAKE ([Description, Flowchart])
3140 +0
3141 5 P
3142 4 M
3143 7 MZ
3144 2 +1
3145 7 MONE
3146 4 P
3147 7 FAIL-31
3148 4 CONS
3149 2 +2
3150 7 CTWO
3151 SEEK
3152 11 SECODL
3153 8 SECODL+1
3154 4 CONS
3155 7 ;+5
3156 4 C
3157 5 TYPBOX
3158 4 =/2 0
3159 8 ;+4
3160 4 TYPBOX+1
3161 5 TYPBOX
3162 4 =/4 0
3163 11 COMP
3164 8 COMP+4
3165 EXIT
3166 0 TAKE
3167 /8 1
3168 MZ
3169 4 LASTDL
3170 2 =7 5120
3171 7 SBR
3172 2 =6 4096
3173 7 RBR
3174 8 FAIL-30
3175 MONE
3176 11 TAKID
3177 8 TAKID+1
3178 8 EXIT
3179 CTWO
3180 4 ARITH
3181 7 SEEK
3182 8 FAIL-45
3183 SBR
3184 4 +12
3185 11 UNSTAK
3186 8 UNSTAK+1
3187 8 EXIT
3188 RBR
3189 4 P
3190 7 FAIL-30
3191 8 EXIT
3192
3193 [TYPCHK
3194 COMP COMPIL LOKTYP TYPBOX]
3195 TYPCHK ([Description, Flowchart])
3196 +0
3197 4 LOKTYP
3198 2 TYPBOX
3199 7 EXIT
3200 4 LOKTYP
3201 7 ;+3
3202 4 =/15 13
3203 8 ;+2
3204 4 =/15 18
3205 11 COMP
3206 8 COMP+5
3207 4 LOKTYP
3208 5 TYPBOX
3209 EXIT
3210 0 TYPCHK
3211 /8 1
3212
3213 [UPDATE
3214 ADDI BLANKS CODE I OPTION
3215 PP PUNGRP SP W]
3216 UPDATE ([Flowchart])
3217 +0
3218 4 OPTION
3219 6 +2
3220 7 ;+2
3221 8 EXIT
3222 4 I
3223 5 W
3224 LOOP
3225 0 W
3226 /4 4
3227 1 +1
3228 7 ;+5
3229 4 W
3230 1 +4
3231 5 W
3232 8 LOOP
3233 4 +3
3234 5 CODE
3235 /4 2
3236 6 +8191
3237 1 ADDI
3238 11 PUNGRP
3239 8 PUNGRP+1
3240 4 +0
3241 5 CODE
3242 4 PP
3243 2 ADDI+1
3244 11 PUNGRP
3245 8 PUNGRP+1
3246 4 +3
3247 11 BLANKS
3248 8 BLANKS+1
3249 EXIT
3250 0 UPDATE
3251 /8 1
3252
3253 [ACTOP
3254 BN C E FAIL LASTDL
3255 M PRAMCH PRMCOU RESTO SEARCH
3256 SECODL TAKE TS UNSTAK]
3257 ACTOP ([Description, Flowchart])
3258 +0
3259 10 PRMCOU
3260 4 PRMCOU
3261 2 +14
3262 9 FAIL-6
3263 4 E
3264 7 ACTA
3265 4 LASTDL
3266 2 =7 5120
3267 7 LOOK
3268 2 =3 5120
3269 7 STRING
3270 2 =/13 4096
3271 7 ;+4
3272 2 =0 4096
3273 7 ;+2
3274 8 FAIL-5
3275 4 M
3276 7 FAIL-49
3277 2 +2
3278 7 ACTWO
3279 4 C
3280 11 SEARCH
3281 8 SEARCH+1
3282 4 C
3283 8 ACTEND
3284 ACTWO
3285 11 SECODL
3286 8 SECODL+1
3287 4 +1
3288 8 ACTEND
3289 STRING
3290 4 +3
3291 8 ACTEND
3292 LOOK
3293 4 TS
3294 2 =/1 6144
3295 7 ;+4
3296 2 =/15 7168
3297 7 ;+2
3298 8 ROND
3299 11 RESTO
3300 8 RESTO+1
3301 &010000
3302 0 BN+2
3303 4 +4
3304 11 PRAMCH
3305 8 PRAMCH+1
3306 EXIT
3307 0 ACTOP
3308 /8 1
3309 ACTA
3310 4 TS
3311 2 =/2 4096
3312 7 ROND
3313 4 +1
3314 11 TAKE
3315 8 TAKE+1
3316 4 +2
3317 11 UNSTAK
3318 8 UNSTAK+1
3319 4 E+1
3320 5 E
3321 4 +2
3322 ACTEND
3323 11 PRAMCH
3324 8 PRAMCH+1
3325 8 EXIT
3326 ROND
3327 4 E+1
3328 5 E
3329 4 +5
3330 8 ACTEND
3331
3332 [ARRBND
3333 C COMPIL DELIM FAIL SP
3334 TAKE TS TYPBOX UNSTAK W]
3335 ARRBND ([Description, Flowchart])
3336 +0
3337 4 +1
3338 11 TAKE
3339 8 TAKE+1
3340 4 +1
3341 11 UNSTAK
3342 8 UNSTAK+1
3343 4 TYPBOX
3344 7 ;+5
3345 11 COMPIL
3346 8 COMPIL+1
3347 &111000
3348 /15 18
3349 4 TS
3350 2 =/1 3072
3351 7 SQUAD
3352 2 =10 0
3353 7 ;+2
3354 8 FAIL-66
3355 4 DELIM
3356 2 =3 2048
3357 7 FAIL-50
3358 RETURN
3359 0 SP
3360 /10 1
3361 EXIT
3362 0 ARRBND
3363 /8 1
3364 SQUAD
3365 0 SP
3366 4 DELIM
3367 2 =3 2048
3368 7 ;+7
3369 /4 0
3370 6 +16
3371 7 FAIL-103
3372 /2 0
3373 /5 0
3374 8 RETURN
3375 /4 0
3376 6 +16
3377 7 ;+2
3378 8 FAIL-103
3379 /4 0
3380 1 +16
3381 /5 0
3382 8 EXIT
3383
3384 [DEC
3385 BN C CHECK COMPIL DECSTA
3386 E FAIL M NLP P
3387 PP SP STACK TS]
3388 DEC ([Description, Flowchart])
3389 +0
3390 5 P
3391 4 M
3392 7 ;+2
3393 8 FAIL-36
3394 4 E
3395 7 ;-2
3396 4 DECSTA
3397 9 FAIL-54
3398 7 ;+6
3399 4 P
3400 2 +2
3401 7 ;+3
3402 EXIT
3403 0 DEC
3404 /8 1
3405 4 TS
3406 2 =/0 4096
3407 7 EXIT
3408 2 =0 1024
3409 7 TR
3410 1 =7 4096
3411 7 ;+2
3412 8 FAIL-63
3413 4 +4
3414 2 NLP
3415 5 NLP
3416 11 CHECK
3417 8 CHECK+1
3418 0 NLP
3419 4 -1
3420 /5 0
3421 4 BN
3422 /5 1
3423 4 BN+4
3424 1 +16
3425 5 BN+4
3426 5 BN
3427 8 ;+4
3428 TR
3429 4 +3
3430 2 SP
3431 5 SP
3432 4 BN
3433 5 L1
3434 5 L2
3435 4 P
3436 2 +2
3437 7 TWO
3438 11 STACK
3439 8 STACK+1
3440 &010100
3441 L1 +0
3442 /0 3072
3443 COM
3444 4 =8 0
3445 5 DECSTA
3446 8 EXIT
3447 TWO
3448 4 PP
3449 1 +1
3450 5 L3
3451 4 BN
3452 1 =/7 0
3453 5 L4
3454 11 STACK
3455 8 STACK+1
3456 &011100
3457 L2 +0
3458 L3 +0
3459 /0 4096
3460 11 COMPIL
3461 8 COMPIL+1
3462 &331110
3463 /15 1
3464 8 8191
3465 L4 +0
3466 8 COM
3467
3468 [DECL
3469 ARRCOU BN C CODL CODLP
3470 DECTYP FAIL I M NAM
3471 NDAP NLP OWNCOD PP SEARCH
3472 W]
3473 DECL ([Description, Flowchart])
3474 +0
3475 5 W+1
3476 4 M
3477 2 +1
3478 7 ;+2
3479 8 FAIL-27
3480 4 +3
3481 11 SEARCH
3482 8 SEARCH+1
3483 0 W+1
3484 /8 ;+1
3485 8 ZERO
3486 8 ONE
3487 8 TWO
3488 8 THREE
3489 8 FOUR
3490 ZERO
3491 0 I
3492 4 NDAP
3493 /5 2
3494 4 DECTYP
3495 2 &106100
3496 7 ;+3
3497 10 NDAP
3498 8 EXIT
3499 10 NDAP
3500 8 ;-3
3501 ONE
3502 0 I
3503 4 CODLP
3504 /5 2
3505 10 CODLP
3506 /10 3
3507 8 EXIT
3508 TWO
3509 0 I
3510 4 OWNCOD
3511 7 ;+7
3512 /4 3
3513 1 =8 0
3514 /5 3
3515 4 OWNCOD
3516 1 I
3517 8 ;+2
3518 4 PP
3519 1 =8 0
3520 /5 2
3521 8 EXIT
3522 THREE
3523 10 ARRCOU
3524 8 EXIT
3525 FOUR
3526 0 I
3527 4 CODLP
3528 /5 2
3529 0 CODLP
3530 4 BN
3531 /5 CODL+1
3532 10 CODLP
3533 10 CODLP
3534 EXIT
3535 0 DECL
3536 /8 1
3537
3538
3539 [ENDSTA
3540 ADDI ARITH BN C COMPIL
3541 DECSTA E EXP EXPTYP FAIL
3542 FOMCOM I LASTDL M MPRINT
3543 MREAD SEARCH SV TAKE]
3544 ENDSTA ([Description, Flowchart])
3545 +0
3546 4 SV
3547 7 SVZ
3548 RETURN
3549 4 C
3550 5 SV
3551 4 MREAD
3552 7 ;+6
3553 4 C
3554 5 MREAD
3555 RESET
3556 4 E+1
3557 5 E
3558 8 EXIT
3559 4 MPRINT
3560 7 CONTIN
3561 4 C
3562 5 MPRINT
3563 8 RESET
3564 CONTIN
3565 4 =/0 0
3566 5 DECSTA
3567 4 +1
3568 11 EXP
3569 8 EXP+1
3570 4 E
3571 7 EZ
3572 4 M
3573 7 EXIT
3574 2 +1
3575 7 ;+2
3576 8 FAIL-32
3577 11 SEARCH
3578 8 SEARCH+1
3579 4 ADDI+3
3580 2 &100120
3581 7 ;+2
3582 8 FAIL-32
3583 11 FOMCOM
3584 8 FOMCOM+1
3585 EXTRA
3586 4 C
3587 5 EXPTYP
3588 EXIT
3589 0 ENDSTA
3590 /8 1
3591 SVZ
3592 4 LASTDL
3593 2 =7 5120
3594 7 FAIL-20
3595 8 RETURN
3596 EZ
3597 4 +1
3598 11 TAKE
3599 8 TAKE+1
3600 4 E+1
3601 5 E
3602 4 C
3603 5 ARITH
3604 8 EXTRA
3605
3606 [FORCOM
3607 C COMP COMPIL DELIM FAIL
3608 LOKTYP OUT RESTO SP TAKE
3609 TS TYPCHK UNSTAK W]
3610 FORCOM ([Description, Flowchart])
3611 +0
3612 4 +1
3613 11 TAKE
3614 8 TAKE+1
3615 4 +2
3616 11 UNSTAK
3617 8 UNSTAK+1
3618 4 TS
3619 5 W+7
3620 2 =7 3072
3621 7 SBRAK
3622 11 RESTO
3623 8 RESTO+1
3624 &100000
3625 0 LOKTYP
3626 4 W+7
3627 2 =12 4096
3628 7 ;+3
3629 11 TYPCHK
3630 8 TYPCHK+1
3631 4 W+7
3632 2 =/0 6144
3633 7 SIMPLE
3634 2 =4 2048
3635 7 WHILE
3636 1 =0 1024
3637 7 UNTIL
3638 8 FAIL-96
3639 WHILE
3640 1 +3
3641 UNTIL
3642 1 +20
3643 SIMPLE
3644 1 =/15 6
3645 11 COMP
3646 8 COMP+5
3647 4 TS
3648 2 =8 3072
3649 7 EXIT
3650 8 FAIL-96
3651 EXIT
3652 0 FORCOM
3653 /8 1
3654 SBRAK
3655 4 DELIM
3656 2 =12 0
3657 7 FAIL-43
3658 0 SP
3659 /10 1
3660 8 OUT
3661
3662 [FCLAPS
3663 C FAIL NLP W WM
3664 WMESS]
3665 FCLAPS ([Description, Flowchart])
3666 +0
3667 4 -1
3668 5 WM
3669 4 C
3670 0 NLP
3671 /5 4
3672 /4 3
3673 14 5
3674 9 FD
3675 RET
3676 /4 2
3677 6 &577777
3678 /5 2
3679 /4 3
3680 14 2
3681 9 EXIT
3682 /4 3
3683 6 +15
3684 2 C
3685 5 W+7
3686 2 +3
3687 6 +28
3688 2 NLP
3689 5 W+8
3690 4 +4
3691 2 NLP
3692 5 NLP
3693 5 W+9
3694 RETURN
3695 4 W+7
3696 7 END
3697 0 NLP
3698 /4 2
3699 6 =4 0
3700 7 W0
3701 BACK
3702 0 NLP
3703 /4 2
3704 6 =8 0
3705 5 W+3
3706 /4 3
3707 6 &177760
3708 1 W+3
3709 0 W+9
3710 /5 3
3711 4 +4
3712 2 NLP
3713 5 NLP
3714 10 W+7
3715 4 +1
3716 2 W+9
3717 5 W+9
3718 8 RETURN
3719 FD
3720 /4 3
3721 9 FAIL-16
3722 14 1
3723 9 ;+2
3724 8 FAIL-16
3725 /4 3
3726 1 =/0 0
3727 /5 3
3728 8 RET
3729 END
3730 4 W+8
3731 2 NLP
3732 7 ;+9
3733 4 W+8
3734 5 NLP
3735 0 NLP
3736 /4 0
3737 9 ;+2
3738 8 ;+3
3739 4 C
3740 /5 0
3741 EXIT
3742 0 FCLAPS
3743 /8 1
3744 W0
3745 4 +3
3746 11 WMESS
3747 8 WMESS+1
3748 8 BACK
3749
3750 [STATRM
3751 ADDRES BN COMPIL DECTYP ENDSTA
3752 FAIL INOUT MIDTRM NCLAPS RESTO
3753 TS UNSTAK]
3754 STATRM ([Description, Flowchart])
3755 +0
3756 4 +1
3757 11 INOUT
3758 8 INOUT+1
3759 4 DECTYP
3760 7 ;+2
3761 8 FAIL-93
3762 11 ENDSTA
3763 8 ENDSTA+1
3764 MIDTRM
3765 4 +1
3766 11 UNSTAK
3767 8 UNSTAK+1
3768 0 STATRM
3769 4 TS
3770 2 =/0 5120
3771 7 ;+2
3772 /8 1
3773 11 RESTO
3774 8 RESTO+1
3775 &001000
3776 0 ADDRES
3777 11 NCLAPS
3778
3779 8 NCLAPS+1
3780 4 ADDRES
3781 5 ;+5
3782 11 COMPIL
3783 8 COMPIL+1
3784 &121300
3785 /15 10
3786 +0
3787 8 MIDTRM
3788
3789 [INOUT
3790 ADDI C COMP COMPIL E
3791 EXPRES FAIL FOMPIL LASTDL M
3792 MPRINT MREAD OUT SEARCH TAKE
3793 TS TYPBOX UNSTAK W]
3794 SETPRO ([Flowchart])
3795 +0
3796 4 M
3797 7 FAIL-35
3798 2 +2
3799 7 EXIT2
3800 4 C
3801 11 SEARCH
3802 8 SEARCH+1
3803 4 ADDI+3
3804 2 &100120
3805 7 ;+7
3806 4 ADDI+3
3807 6 &060000
3808 7 ;+2
3809 8 FAIL-99
3810 EXIT2
3811 0 SETPRO
3812 /8 1
3813 11 FOMPIL
3814 8 FOMPIL+1
3815 8 L1
3816 INOUT ([Flowchart])
3817 +0
3818 5 W+11
3819 4 MREAD
3820
3821 ([VOLUME 3])
3822
3823 7 RZ
3824 4 LASTDL
3825 2 =7 5120
3826
3827 7 ;+5
3828 2 =6 4096
3829 7 L5
3830 11 SETPRO
3831 8 SETPRO+1
3832 4 C
3833 11 TAKE
3834 8 TAKE+1
3835 4 E+1
3836 5 E
3837
3838 4 TYPBOX
3839 7 ;+2
3840 4 +1
3841 1 +1
3842 COM
3843 1 =15 0
3844 11 COMP
3845 8 COMP+5
3846 L1
3847 4 C
3848 5 EXPRES
3849 4 W+11
3850 7 OUT
3851 EXIT
3852 0 INOUT
3853 /8 1
3854 RZ
3855 4 MPRINT
3856 7 EXIT
3857 4 LASTDL
3858 2 =7 5120
3859 7 L2
3860 2 =3 5120
3861 7 L1
3862 1 =2 7168
3863 7 L3
3864 11 SETPRO
3865 8 SETPRO+1
3866 L2
3867 4 +1
3868 11 TAKE
3869 8 TAKE+1
3870 L4
3871 4 +2
3872 11 UNSTAK
3873 8 UNSTAK+1
3874 4 C
3875 5 E
3876 4 ADDI+3
3877 14 12
3878 9 EXTLAB
3879 4 TYPBOX
3880 7 ;+2
3881 4 +1
3882 1 +3
3883 8 COM
3884 EXTLAB
3885 4 +15
3886 8 COM
3887 L3
3888 4 EXPRES
3889
3890 9 L4
3891 4 ADDI+3
3892 6 &010000
3893 7 L1
3894 8 L2
3895 L5
3896 4 EXPRES
3897 9 FAIL-3
3898 8 L1
3899
3900 [NCLAPS
3901 BN C CNL CODL FAIL
3902 NLP RCLAPS W WM WMESS]
3903 NCLAPS ([Description, Flowchart])
3904 +0
3905 4 -1
3906 5 WM
3907 5 CNL
3908 4 +816
3909 2 BN
3910 7 ;+2
3911 8 ;+3
3912 4 NLP
3913 5 NLP+2
3914 RETURN
3915 0 NLP
3916 /4 0
3917 1 +1
3918 7 EXIT
3919 9 ;+2
3920 8 END
3921 /4 2
3922 6 =4 0
3923 7 CONT
3924 /4 3
3925 6 &177760
3926 2 &100200
3927 7 ;+2
3928 8 END
3929 /4 2
3930 6 +8191
3931 5 W
3932 0 W
3933 /4 CODL
3934 7 FAIL-79
3935 8 END
3936 CONT
3937 /4 3
3938 6 &040200
3939 2 &040200
3940 7 RCLAPS
3941 4 +3
3942 11 WMESS
3943 8 WMESS+1
3944 RCLAPS
3945 END
3946 4 NLP
3947 1 +4
3948 5 NLP
3949 8 RETURN
3950 EXIT
3951 /4 1
3952 5 BN
3953 4 NLP
3954 1 +4
3955 5 NLP
3956 4 C
3957 5 CNL
3958 0 NCLAPS
3959 /8 1
3960 (*)
3961
3962 [ARRAY
3963 ARENT2 ARRCOU C DEC DECTYP
3964 FAIL OUT STACK]
3965 ARRAY ([Description, Flowchart])
3966 4 +2
3967 11 DEC
3968 8 DEC+1
3969 4 DECTYP
3970 7 RAR
3971 6 &104120
3972 2 &104100
3973 7 ;+2
3974 8 FAIL-72
3975 4 DECTYP
3976 6 &037760
3977 1 &040000
3978 RETURN
3979 5 DECTYP
3980 ARENT2 ([Flowchart])
3981 11 STACK
3982 8 STACK+4
3983 &100000
3984 /2 2048
3985 4 C
3986 5 ARRCOU
3987 8 OUT
3988 RAR
3989 4 &046100
3990 8 RETURN
3991
3992 [BOOL INT REAL
3993 BCR C DEC DECL DECTYP
3994 DELIM FAIL OUT OUT2 W]
3995 REAL ([Description, Flowchart])
3996 4 &106100
3997 8 ;+4
3998 INT ([Description, Flowchart])
3999 4 &106500
4000 8 ;+2
4001 BOOL ([Description, Flowchart])
4002 4 &105100
4003 5 W
4004 4 DECTYP
4005 7 ;+2
4006 8 FAIL-47
4007 4 W
4008 5 DECTYP
4009 4 +1
4010 11 DEC
4011 8 DEC+1
4012 4 +3
4013 11 BCR
4014 8 BCR+1
4015 4 DELIM
4016 2 =10 0
4017 7 OUT2
4018 2 +2048
4019 7 OUT2
4020 BACK
4021 1 =6 3072
4022 7 ;+4
4023 1 =1 7168
4024 7 ;+2
4025 8 FAIL-76
4026 11 DECL
4027 8 DECL+1
4028 4 DELIM
4029 2 =3 3072
4030 7 ;+7
4031 4 +1
4032 11 BCR
4033 8 BCR+1
4034 4 DELIM
4035 1 =/6 2048
4036 8 BACK
4037 5 DECTYP
4038 8 OUT
4039
4040 [BEGIN
4041 C DECSTA E F FAIL
4042 M OUT PROC STACK TS]
4043 BEGIN ([Description, Flowchart])
4044 4 E
4045 7 FAIL-60
4046 4 F
4047 2 PROC
4048 1 M
4049 7 ;+2
4050 8 FAIL-60
4051 4 C
4052 5 DECSTA
4053 4 TS
4054 2 =/2 0
4055 7 FAIL-60
4056 2 =5 7168
4057 7 FAIL-60
4058 11 STACK
4059 8 STACK+4
4060 &100000
4061 8 7168
4062 8 OUT
4063
4064 [DO
4065 ADDRES ARITH BN C COMPIL
4066 E F FORCOM OUT RESTO
4067 STACK]
4068 DO ([Description, Flowchart])
4069 11 FORCOM
4070 8 FORCOM+1
4071 11 RESTO
4072 8 RESTO+1
4073 &001000
4074 0 ADDRES
4075 4 ADDRES
4076 1 +1
4077 5 LIV
4078 1 +2
4079 5 L2
4080 11 COMPIL
4081 8 COMPIL+1
4082 &121300
4083 /15 11
4084 LIV +0
4085 11 STACK
4086 8 STACK+4
4087 &101000
4088 /0 5120
4089 L2 +0
4090 4 E+1
4091 5 E
4092 4 C
4093 5 F
4094 5 ARITH
4095 8 OUT
4096
4097 [ELSE
4098 ADDRES ARITH C COMPIL E
4099 ENDSTA EXPTYP FAIL INOUT OUT
4100 PP RESTO STACK TAKE TS
4101 TYPBOX UNSTAK]
4102 ELSE ([Description, Flowchart])
4103 4 +2
4104 11 INOUT
4105 8 INOUT+1
4106 4 TS
4107 2 =/0 2048
4108 7 THENS
4109 4 +1
4110 11 TAKE
4111 8 TAKE+1
4112 4 +2
4113 11 UNSTAK
4114 8 UNSTAK+1
4115 4 TS
4116 2 =/0 2048
4117 7 JOIN
4118 2 =0 1024
4119 7 THENE
4120 8 FAIL-70
4121 THENS
4122 11 ENDSTA
4123 8 ENDSTA+1
4124 JOIN
4125 4 E+1
4126 5 E
4127 4 C
4128 5 ARITH
4129 5 EXPTYP
4130 4 =/1 1
4131 5 ALIVO
4132 8 COMBIN
4133 THENE
4134 4 =/0 7170
4135 1 TYPBOX
4136 8 ;-4
4137 COMBIN
4138 11 RESTO
4139 8 RESTO+1
4140 &001000
4141 0 ADDRES
4142 4 ADDRES
4143 5 LIVE
4144 4 PP
4145 5 L
4146 11 STACK
4147 8 STACK+4
4148 &101000
4149 ALIVO +0
4150 L +0
4151 11 COMPIL
4152 8 COMPIL+1
4153 &121300
4154 8 8191
4155 LIVE +0
4156 8 OUT
4157
4158 [END
4159 BCR BN C COMPIL DELIM
4160 ENDPRO END40F ENT2 FAIL M
4161 NAM NCLAPS OUT2 Q REPORT
4162 RESTO SP STATRM TS W
4163 WM WMESS]
4164 END ([Description, Flowchart])
4165 11 STATRM
4166 8 STATRM+1
4167 ENT2 ([Flowchart])
4168 4 +0
4169 5 NAM+1
4170 5 NAM+2
4171
4172 4 &014500
4173 11 REPORT
4174 8 REPORT+1
4175 4 -1
4176 5 WM
4177 4 TS
4178 2 =/0 4096
4179 7 BEGALL
4180 2 =0 1024
4181 7 BEGTR
4182 1 =7 4096
4183 7 BEG
4184 8 FAIL-40
4185 BEGALL
4186 4 -1
4187 BEGTR
4188 5 LIVE
4189 11 RESTO
4190 8 RESTO+1
4191 &000011
4192 0 BN
4193 0 Q
4194 4 LIVE
4195 7 RETURN
4196 4 Q
4197 5 LIVE
4198 11 COMPIL
4199 8 COMPIL+1
4200 &121300
4201 /15 17
4202 LIVE +0
4203 RETURN
4204 11 NCLAPS
4205 8 NCLAPS+1
4206 8 ;+4
4207 BEG
4208 11 RESTO
4209 8 RESTO+1
4210 +0
4211 END40F
4212 4 SP
4213 2 SP+1
4214 7 ENDPRO
4215 4 C
4216 5 W+12
4217 LOOP
4218 4 +4
4219 11 BCR
4220 8 BCR+1
4221 4 DELIM
4222 2 =11 7168
4223 7 OK
4224 2 =3 3072
4225 7 OK
4226 1 =5 1024
4227 7 OK
4228 4 W+12
4229 7 WARN
4230 8 LOOP
4231 OK
4232 4 C
4233 5 M
4234 8 OUT2
4235 WARN
4236 4 +1
4237 11 WMESS
4238 8 WMESS+1
4239 4 +1
4240 5 W+12
4241 8 LOOP
4242
4243 [FOR
4244 ARITH BCR BN C CHECK
4245 COMPIL DECSTA DELIM E EXP
4246 F FAIL M NLP OUT
4247 PP STACK TAKE TYPBOX]
4248 FOR ([Description, Flowchart])
4249 4 F
4250 2 M
4251 7 ;+2
4252 8 FAIL-44
4253 4 +2
4254 11 EXP
4255 8 EXP+1
4256 4 =/0 0
4257 5 DECSTA
4258 4 PP
4259 5 ;+5
4260 11 STACK
4261 8 STACK+4
4262 &101000
4263 8 3072
4264 +0
4265 4 +4
4266 2 NLP
4267 5 NLP
4268 11 CHECK
4269 8 CHECK+1
4270 0 NLP
4271 4 -1
4272 /5 0
4273 4 BN
4274 /5 1
4275 4 BN+4
4276 1 +16
4277 5 BN+4
4278 5 BN
4279 5 ;+6
4280 11 COMPIL
4281 8 COMPIL+1
4282 &441111
4283 /15 9
4284 +8191
4285 +0
4286 +8191
4287 4 -1
4288 5 F
4289 4 +1
4290 11 BCR
4291 8 BCR+1
4292 4 DELIM
4293 2 =12 1024
4294 7 ;+2
4295 8 FAIL-21
4296 11 TAKE
4297 8 TAKE+1
4298 4 =/0 6144
4299 1 TYPBOX
4300 5 ;+4
4301 11 STACK
4302 8 STACK+4
4303 &100000
4304 +0
4305 4 C
4306 5 E
4307 4 ARITH+1
4308 5 ARITH
4309 8 OUT
4310
4311 [GOTO
4312 C DECSTA E EXP EXPTYP
4313 FAIL M OUT STACK SV]
4314 GOTO ([Description, Flowchart])
4315 4 M
4316 7 ;+2
4317 8 FAIL-42
4318 4 +2
4319 11 EXP
4320 8 EXP+1
4321 4 =/0 0
4322 5 DECSTA
4323 5 SV
4324 11 STACK
4325 8 STACK+4
4326 &100000
4327 /1 2050
4328 4 C
4329 5 E
4330 4 &140200
4331 5 EXPTYP
4332 8 OUT
4333
4334 [IF
4335 ARITH C DECSTA DECTYP E
4336 EXP EXPTYP FAIL LASTDL M
4337 MPRINT MREAD OUT PROC STACK]
4338 IF ([Description, Flowchart])
4339 4 M
4340 1 MREAD
4341 1 MPRINT
4342 7 ;+2
4343 8 FAIL-67
4344 4 LASTDL
4345 2 =11 6144
4346 7 FAIL-67
4347 2 =4 1024
4348 7 FAIL-67
4349 1 =6 4096
4350 7 FAIL-67
4351 4 +1
4352 11 EXP
4353 8 EXP+1
4354 4 E
4355 7 TEST
4356 4 DECTYP
4357 7 DECZ
4358 6 &044100
4359 2 &044100
4360 7 ARRAY
4361 8 FAIL-68
4362 DECZ
4363 4 =/0 0
4364 5 DECSTA
4365 AVOID
4366 ARRAY
4367 4 ARITH
4368 1 E
4369 5 ALIVO
4370 4 EXPTYP
4371 5 LIVE
4372 11 STACK
4373 8 STACK+4
4374 &101100
4375 ALIVO +0
4376 LIVE +0
4377 8 2048
4378 4 C
4379 5 ARITH
4380 5 E
4381 8 OUT
4382 TEST
4383 4 LASTDL+1
4384 6 =7 0
4385 7 AVOID
4386 8 FAIL-100
4387
4388 [PROCED
4389 ADDI BCR BN C COMP
4390 COMPIL DEC DECL DECSTA DECTYP
4391 DELIM FAIL FCLAPS I LIVE
4392 M NAM NLP OUT OUT2
4393 OWNCOD PAMTAB PH PP PRCENT
4394 PRMCOU PROC REPORT SEARCH SP
4395 STACK W]
4396 PROCED ([Description, Flowchart])
4397 4 +1
4398 11 DEC
4399 8 DEC+1
4400 4 +1
4401 11 BCR
4402 8 BCR+1
4403 4 +1
4404 11 SEARCH
4405 8 SEARCH+1
4406 4 +4
4407 2 NLP
4408 5 NLP
4409 4 -1
4410 5 PH
4411 0 NLP
4412 /5 0
4413 4 BN
4414 /5 1
4415 4 DECTYP
4416 7 OK
4417 6 &104120
4418 2 &104100
4419 7 OK
4420 8 FAIL-86
4421 OK
4422 4 OWNCOD
4423 7 ;+2
4424 8 SKIP
4425 4 BN
4426 5 NB
4427 4 BN+4
4428 1 +16
4429 5 BN+4
4430 5 BN
4431 4 +4
4432 2 DECSTA
4433 1 NLP
4434 5 ;+6
4435 4 PP
4436 5 ;+7
4437 11 STACK
4438 8 STACK+4
4439 &001111
4440 +0
4441 /1 5120
4442 NB +0
4443 +0
4444 11 COMPIL
4445 8 COMPIL+1
4446 &111000
4447 8 8191
4448 4 &016000
4449 11 REPORT
4450 8 REPORT+1
4451 SKIP
4452 4 C
4453 5 PRMCOU
4454 4 =/0 0
4455 5 DECSTA
4456 4 DELIM
4457 2 =3 3072
4458 7 SMICOL
4459 2 =2 3072
4460 7 BRAK
4461 8 FAIL-101
4462 BRAK
4463 4 DECTYP
4464 7 ;+3
4465 6 &007600
4466 1 &010000
4467 1 &020100
4468 5 DECTYP
4469 4 +2
4470 11 DECL
4471 8 DECL+1
4472 4 I
4473 5 PRCENT
4474 4 PROC+1
4475 5 PROC
4476 LOOP1
4477 10 PRMCOU
4478 4 PRMCOU
4479 2 +14
4480 9 FAIL-6
4481 4 +1
4482 11 BCR
4483 8 BCR+1
4484 4 +1
4485 11 SEARCH
4486 8 SEARCH+1
4487 4 +4
4488 2 NLP
4489 5 NLP
4490 2 SP
4491 9 ;+2
4492 8 FAIL-85
4493 0 NLP
4494 4 NAM+1
4495 /5 0
4496 4 NAM+2
4497 /5 1
4498 4 PRMCOU
4499 1 =/0 0
4500 /5 2
4501 4 C
4502 /5 3
4503 4 DELIM
4504 2 =1 4096
4505 7 LOOP1
4506 2 =0 3072
4507 7 PAGE2
4508 8 FAIL-88
4509 SMICOL
4510 4 DECTYP
4511 7 ;+2
4512 1 &707700
4513 1 &100120
4514 5 DECTYP
4515 4 +2
4516 11 DECL
4517 8 DECL+1
4518 4 I
4519 5 PRCENT
4520 4 OWNCOD
4521 7 ;+2
4522 8 ;+5
4523 4 =/7 0
4524 1 BN
4525 11 COMP
4526 8 COMP+5
4527 4 C
4528 5 DECTYP
4529 4 +3
4530 11 BCR
4531 8 BCR+1
4532 8 ENDIT
4533 PAGE2
4534 4 OWNCOD
4535 7 ;+2
4536 8 BYPASS
4537 4 =/7 0
4538 1 BN
4539 1 PRMCOU
4540 11 COMP
4541 8 COMP+5
4542 BYPASS
4543 0 PRCENT
4544 /4 3
4545 6 &777760
4546 1 PRMCOU
4547 /5 3
4548 4 C
4549 5 DECTYP
4550 5 PROC
4551 11 BCR
4552 8 BCR+1
4553 4 DELIM
4554 2 =3 3072
4555 7 ;+2
4556 8 FAIL-102
4557 11 BCR
4558 8 BCR+1
4559 4 DELIM
4560 2 =10 3072
4561 7 VALUE
4562 8 PAGE3
4563 VALUE
4564 4 +1
4565 11 BCR
4566 8 BCR+1
4567 4 +2
4568 11 SEARCH
4569 8 SEARCH+1
4570 4 ADDI+2
4571 7 FAIL-17
4572 0 I
4573 /4 2
4574 6 &577777
4575 1 =8 0
4576 /5 2
4577 4 DELIM
4578 2 =3 3072
4579 7 ;+4
4580 2 =1 7168
4581 7 VALUE
4582 8 FAIL-90
4583 11 BCR
4584 8 BCR+1
4585 PAGE3
4586 4 C
4587 5 W
4588 4 DELIM
4589 0 C
4590 14 2
4591 5 W+1
4592 REPEAT
4593 0 W
4594 /4 TABLE
4595 5 W+2
4596 1 +1
4597 7 FAIL-65
4598 4 W+2
4599 6 =/15 4096
4600 2 W+1
4601 7 FOUND
4602 10 W
4603 8 REPEAT
4604 TABLE
4605 &154304
4606 &144324
4607 &134244
4608 &162304
4609
4610 &204005
4611 &172010
4612 &224010
4613 &210002
4614
4615 -1
4616 FOUND
4617 4 W+2
4618 6 &007777
4619 0 C
4620 14 4
4621 5 DECTYP
4622 4 +3
4623 11 BCR
4624 8 BCR+1
4625 4 M
4626 7 OK1
4627 2 +1
4628 7 JOIN
4629 8 FAIL-109
4630 OK1
4631 4 DECTYP
4632 6 &104120
4633 2 &104100
4634 7 ;+2
4635 8 FAIL-110
4636 4 DELIM
4637 2 =10 0
4638 7 PRCD
4639 2 =0 2048
4640 7 ARRAY
4641 8 FAIL-110
4642 ARRAY
4643 4 =/14 0
4644 8 ;+2
4645 PRCD
4646 4 &010020
4647 1 DECTYP
4648 5 DECTYP
4649 LOOP2
4650 4 +1
4651 11 BCR
4652 8 BCR+1
4653 JOIN
4654 4 +2
4655 11 SEARCH
4656 8 SEARCH+1
4657 4 ADDI+3
4658 7 ;+2
4659 8 FAIL-17
4660 4 ADDI+2
4661 7 FAIL-17
4662 0 I
4663 /4 3
4664 6 &600017
4665 1 DECTYP
4666 /5 3
4667 4 DECTYP
4668 2 &040200
4669 7 SWITCH
4670 4 DECTYP
4671 6 &040020
4672 7 COMBIN
4673 8 PROCAR
4674
4675 SWITCH
4676 4 +1
4677 8 ;+2
4678 PROCAR
4679 4 +15
4680 5 W
4681 0 I
4682 /4 3
4683 6 &777760
4684 1 W
4685 /5 3
4686 COMBIN
4687 4 DELIM
4688 2 =3 3072
4689 7 PAGE4
4690 2 =1 7168
4691 7 LOOP2
4692 8 FAIL-90
4693 PAGE4
4694 4 C
4695 5 DECTYP
4696 4 +3
4697 11 BCR
4698 8 BCR+1
4699 4 M
4700 7 ;+2
4701 8 GOON
4702 4 DELIM
4703 2 =10 2048
4704 9 GOON
4705 2 =0 7168
4706 9 GOON
4707 8 PAGE3
4708 GOON
4709 4 PRCENT
4710 5 W+12
4711 RPT
4712 4 +4
4713 2 W+12
4714 5 W+12
4715 4 C
4716 5 LIVE
4717 5 W+1
4718 0 W+12
4719 /4 3
4720 6 &177760
4721 7 FAIL-92
4722 5 W
4723 /4 2
4724 14 1
4725 9 ;+2
4726 8 OWNTES
4727 4 W
4728 2 &040200
4729 7 FAIL-94
4730 6 &000040
4731 7 VAL
4732 8 FAIL-94
4733 VAL
4734 4 +16
4735 5 LIVE
4736 OWNTES
4737 4 OWNCOD
4738 7 ;+2
4739 8 OMIT
4740 CYCLE1
4741 0 W+1
4742 /4 PAMTAB
4743 6 &177760
4744 2 W
4745 7 FOU
4746 /4 PAMTAB
4747 1 +1
4748 7 FAIL-65
4749 10 W+1
4750 8 CYCLE1
4751 FOU
4752 4 W+1
4753 14 8191
4754 7 ;+2
4755 8 ;+2
4756 4 +5
4757 1 LIVE
4758 0 C
4759 14 13
4760 5 LIVE
4761 4 W
4762 2 &040200
4763 7 NOWT
4764 4 W
4765 6 &060020
4766 7 NOWT
4767 4 LIVE
4768 1 +8191
4769 5 LIVE
4770 NOWT
4771 11 COMP
4772 8 COMP+6
4773 OMIT
4774 4 NLP
4775 2 W+12
4776 7 ENDIT
4777 8 RPT
4778 ENDIT
4779 4 C
4780 5 PH
4781 4 DELIM
4782 2 =9 1024
4783 7 ;+2
4784 8 OUT2
4785 5 OWNCOD
4786 4 PRCENT
4787 5 NLP
4788 4 =8 0
4789 5 DECSTA
4790 11 FCLAPS
4791 8 FCLAPS+1
4792 4 +3
4793 11 BCR
4794 8 BCR+1
4795 4 DELIM
4796 2 =3 3072
4797 7 ;+2
4798 8 OUT2
4799 4 M
4800 7 OUT
4801 8 OUT2
4802
4803 [STEP
4804 ARITH C COMPIL DELIM F
4805 FAIL G LOKTYP OUT RESTO
4806 STACK TAKE TS TYPBOX TYPCHK
4807 UNSTAK]
4808 STEP ([Description, Flowchart])
4809 4 F
4810 7 FAIL-78
4811 4 +1
4812 11 TAKE
4813 8 TAKE+1
4814 4 +2
4815 11 UNSTAK
4816 8 UNSTAK+1
4817 4 TS
4818 2 =/0 6144
4819 7 ;+2
4820 8 FAIL-21
4821 11 RESTO
4822 8 RESTO+1
4823 &200000
4824 0 G
4825 0 LOKTYP
4826 11 TYPCHK
4827 8 TYPCHK+1
4828 4 DELIM
4829 2 =12 3072
4830 7 NTL
4831 2 =0 1024
4832 7 STP
4833 WHI
4834 4 C
4835 5 ARITH
4836 4 G
4837 7 ;+2
4838 8 FAIL-80
4839 4 =/15 7
4840 5 ALIVO
4841 4 =12 4096
4842 8 JOIN
4843 NTL
4844 4 G
4845 7 FAIL-80
4846 4 =12 3072
4847 1 TYPBOX
4848 5 LIVE
4849 8 COMBIN
4850 STP
4851 4 G
4852 7 ;+2
4853 8 FAIL-80
4854 4 =/15 22
4855 5 ALIVO
4856 4 =/0 6144
4857 1 G+1
4858 JOIN
4859 1 TYPBOX
4860 5 LIVE
4861 11 COMPIL
4862 8 COMPIL+1
4863 &111000
4864 ALIVO +0
4865 COMBIN
4866 11 STACK
4867 8 STACK+4
4868 &100000
4869 LIVE +0
4870 8 OUT
4871
4872 [SWITCH
4873 BCR C CODL CODLP DEC
4874 DECL DECTYP DELIM E FAIL
4875 OUT W]
4876 SWITCH ([Description, Flowchart])
4877 4 DECTYP
4878 7 ;+2
4879 8 FAIL-26
4880 4 &040200
4881 5 DECTYP
4882 4 +2
4883 11 DEC
4884 8 DEC+1
4885 4 +1
4886 11 BCR
4887 8 BCR+1
4888 4 DELIM
4889 2 =12 1024
4890 7 ;+2
4891 8 FAIL-26
4892 5 W+12
4893 4 +1
4894 11 DECL
4895 8 DECL+1
4896 4 &100200
4897 5 DECTYP
4898 LOOP
4899 4 +1
4900 11 BCR
4901 8 BCR+1
4902 10 W+12
4903 4 +4
4904 11 DECL
4905 8 DECL+1
4906 4 DELIM
4907 2 =3 3072
4908 7 SMICOL
4909 2 =1 7168
4910 7 LOOP
4911 8 FAIL-4
4912 SMICOL
4913 4 W+12
4914 1 W+12
4915 2 CODLP
4916 5 W
4917 0 W
4918 4 W+12
4919 /5 CODL-1
4920 4 C
4921 5 DECTYP
4922 4 E+1
4923 5 E
4924 8 OUT
4925
4926 [THEN
4927 ARITH C COMPIL E EXPTYP
4928 FAIL OUT PP RESTO SP
4929 STACK TAKE THEN TS UNSTAK]
4930 THEN ([Description, Flowchart])
4931 4 E
4932 7 ;+2
4933 8 FAIL-97
4934 4 +1
4935 11 TAKE
4936 8 TAKE+1
4937 4 +2
4938 11 UNSTAK
4939 8 UNSTAK+1
4940 4 TS
4941 2 =8 2048
4942 7 ;+2
4943 8 FAIL-69
4944 11 RESTO
4945 8 RESTO+1
4946 &000201
4947 0 ARITH
4948 0 E
4949 0 EXPTYP
4950 4 E
4951 7 ;+3
4952 4 =/0 2049
4953 8 ;+2
4954 4 =/0 1024
4955 5 ;+6
4956 4 PP
4957 5 ;+5
4958 11 STACK
4959 8 STACK+4
4960 &101000
4961 +0
4962 +0
4963 11 COMPIL
4964 8 COMPIL+1
4965 &111000
4966 7 8191
4967 8 OUT
4968
4969 [BECOMS
4970 ADDI C DECSTA DECTYP E
4971 F FAIL LHTYPE M MPRINT
4972 MREAD OUT PROC STACK SV
4973 TAKE TS TYPBOX]
4974 BECOMS ([Description, Flowchart])
4975 4 E
4976 7 FAIL-28
4977 4 M
4978 2 +2
4979 7 FAIL-28
4980 4 MREAD
4981 1 MPRINT
4982 7 ;+2
4983 8 FAIL-28
4984 4 DECTYP
4985 7 ;+2
4986 8 FAIL-52
4987 4 F
4988 7 ;+2
4989 8 FAIL-7
4990 4 PROC
4991 7 ;+2
4992 8 FAIL-52
4993 4 =/0 0
4994 5 DECSTA
4995 5 SV
4996 4 C
4997 11 TAKE
4998 8 TAKE+1
4999 4 =/2 2
5000 1 TYPBOX
5001 5 ALIVE
5002 4 TS
5003 2 =/2 0
5004 7 TEST
5005 2 =5 7168
5006 7 TEST
5007 4 TYPBOX
5008 5 LHTYPE
5009 4 ALIVE
5010 1 =/10 1024
5011 5 ALIVE
5012 EXIT
5013 11 STACK
5014 8 STACK+4
5015 &100000
5016 ALIVE +0
5017 8 OUT
5018 TEST
5019 4 TYPBOX
5020 2 LHTYPE
5021 7 EXIT
5022 8 FAIL-112
5023
5024 [SEMICO
5025 ADDRES BN C COMPIL DECL
5026 DECSTA DEMICO FAIL FCLAPS LASTDL
5027 M NLP OUT RESTO SP
5028 STATRM TS]
5029 SEMICO ([Description, Flowchart])
5030 11 STATRM
5031 8 STATRM+1
5032 DEMICO ([Description, Flowchart])
5033 4 TS
5034 2 =/1 5120
5035 7 PROCBG
5036 2 =1 1024
5037 7 OUT
5038 1 =0 1024
5039 7 OUT
5040 1 =7 4096
5041 7 OUT
5042 8 FAIL-53
5043 NLMASK +0
5044 +8191
5045 PROCBG
5046 11 RESTO
5047 8 RESTO+1
5048 &011002
5049 0 BN
5050 0 ADDRES
5051 0 DECSTA
5052 0 NLMASK
5053 4 NLMASK
5054 5 NLP
5055 4 ADDRES
5056 5 LIV
5057 11 COMPIL
5058 8 COMPIL+1
5059 &121300
5060 /15 17
5061 LIV +0
5062 11 FCLAPS
5063 8 FCLAPS+1
5064 8 OUT
5065
5066 [AOP
5067 C DELIM E EXP FAIL
5068 LASTDL M OUT STACK TAKE
5069 TYPBOX UNSTAK W]
5070 AOP ([Description, Flowchart])
5071 1 +1
5072 1 +1
5073 1 +9
5074 5 W+12
5075 4 LASTDL
5076 2 &216000
5077 7 FAIL-57
5078 1 &130000
5079 7 FAIL-57
5080 4 E
5081 5 ESAVE
5082 4 +3
5083 11 EXP
5084 8 EXP+1
5085 4 M
5086 7 MZ
5087 SBRAK
5088 4 +1
5089 11 TAKE
5090 8 TAKE+1
5091 RBRAK
5092 4 W+12
5093 11 UNSTAK
5094 8 UNSTAK+1
5095 MIN
5096 4 DELIM
5097 1 TYPBOX
5098 1 W+12
5099 5 ;+6
5100 4 DELIM+1
5101 5 ;+5
5102 11 STACK
5103 8 STACK+4
5104 &110000
5105 +0
5106 +0
5107 8 OUT
5108 MZ
5109 4 LASTDL+1
5110 2 &040000
5111 7 FAIL-30
5112 4 LASTDL
5113 2 =7 5120
5114 7 SBRAK
5115 2 =6 4096
5116 7 RBRAK
5117 4 DELIM
5118 2 =1 5120
5119 7 MINUS
5120 2 =0 2048
5121 7 ;+2
5122 8 FAIL-57
5123 4 ESAVE
5124 5 E
5125 8 OUT
5126 ESAVE +0
5127 MINUS
5128 10 W+12
5129 4 =/2 1024
5130 5 DELIM
5131 8 MIN
5132
5133 [RLT
5134 ARITH C DELIM E EXP
5135 FAIL OUT STACK TAKE TYPBOX
5136 UNSTAK]
5137 RLT ([Description, Flowchart])
5138 4 ARITH
5139 7 ;+2
5140 8 FAIL-58
5141 4 +3
5142 11 EXP
5143 8 EXP+1
5144 4 +1
5145 11 TAKE
5146 8 TAKE+1
5147 4 +8
5148 11 UNSTAK
5149 8 UNSTAK+1
5150 4 DELIM
5151 1 TYPBOX
5152 1 +8
5153 5 ;+6
5154 4 DELIM+1
5155 5 ;+5
5156 11 STACK
5157 8 STACK+4
5158 &110000
5159 +0
5160 +0
5161 8 OUT
5162
5163 [LOGOP
5164 ARITH C DELIM E EXP
5165 FAIL LASTDL M OUT STACK
5166 TAKE UNSTAK W]
5167 LOGOP ([Description, Flowchart])
5168 1 +1
5169 1 +1
5170 1 +1
5171 1 +1
5172 1 +3
5173 5 W+12
5174 4 ARITH
5175 7 ;+2
5176 8 FAIL-58
5177 4 +3
5178 11 EXP
5179 8 EXP+1
5180 4 DELIM
5181 2 =11 5120
5182 7 NN
5183 4 +1
5184 11 TAKE
5185 8 TAKE+1
5186 4 W+12
5187 11 UNSTAK
5188 8 UNSTAK+1
5189 YES
5190 4 DELIM
5191 1 W+12
5192 5 ;+4
5193 11 STACK
5194 8 STACK+4
5195 &100000
5196 +0
5197 8 OUT
5198 NN
5199 4 LASTDL
5200 2 =11 5120
5201 7 FAIL-59
5202 2 =4 0
5203 7 FAIL-59
5204 1 =6 4096
5205 7 FAIL-59
5206 4 LASTDL+1
5207 6 =3 0
5208 7 ;+2
5209 8 FAIL-59
5210 4 M
5211 7 YES
5212 8 FAIL-59
5213
5214 [LSBRAK
5215 ADDI ARITH BN C DECL
5216 DECSTA DECTYP E EXPTYP FAIL
5217 I LASTDL M MPRINT MREAD
5218 OUT PROC RESTO STACK TAKE
5219 TS TYPBOX]
5220 LSBRAK ([Description, Flowchart])
5221 4 LASTDL
5222 2 =7 5120
5223 7 FAIL-33
5224 2 =6 4096
5225 7 FAIL-33
5226 4 M
5227 7 FAIL-73
5228 4 DECTYP
5229 7 ZERO
5230 4 TS
5231 2 =/2 2048
5232 7 MAMPS
5233 4 C
5234 5 E
5235 11 TAKE
5236 8 TAKE+1
5237 TWO
5238 4 ARITH
5239 1 E
5240 5 LA
5241 4 MREAD
5242 1 MPRINT
5243 5 LB
5244 4 EXPTYP
5245 5 LC
5246 4 PROC
5247 1 TYPBOX
5248 1 =7 3072
5249 5 LD
5250 4 I
5251 5 LE
5252 11 STACK
5253 8 STACK+4
5254 &111111
5255 LA +0
5256 LB +0
5257 LC +0
5258 LD +0
5259 +1
5260 LE +0
5261 4 C
5262 5 PROC
5263 5 MPRINT
5264 5 MREAD
5265 JOIN
5266 4 C
5267 5 E
5268 5 EXPTYP
5269 5 TYPBOX
5270 4 ARITH+1
5271 5 ARITH
5272 8 OUT
5273 ZERO
5274 4 =/0 0
5275 5 DECSTA
5276 4 C
5277 11 TAKE
5278 8 TAKE+1
5279 4 ADDI+3
5280 2 &040200
5281 7 ;+2
5282 8 TWO
5283 4 &040200
5284 5 EXPTYP
5285 4 TS
5286 2 =/1 2048
5287 7 YES
5288 4 PROC
5289 7 FAIL-24
5290 RETURN
5291 4 ADDI+2
5292 7 GTS
5293 4 BN+2
5294 5 LIV
5295 4 =/1 7170
5296 8 COMBIN
5297 MAMPS
5298 4 +3
5299 11 DECL
5300 8 DECL+1
5301 4 =/1 3072
5302 5 LP
5303 4 I
5304 5 LQ
5305 11 STACK
5306 8 STACK+4
5307 &111000
5308 LP +0
5309 +1
5310 LQ +0
5311 8 JOIN
5312 YES
5313 11 RESTO
5314 8 RESTO+1
5315 +0
5316 8 RETURN
5317 GTS
5318 5 LIV
5319 4 =/1 6146
5320 COMBIN
5321 5 ALIVE
5322 4 ADDI
5323 5 LIVO
5324 11 STACK
5325 8 STACK+4
5326 &111000
5327 ALIVE +0
5328 LIV +0
5329 LIVO +0
5330 8 TWO
5331
5332
5333 [RSBRAK
5334 ADDI ADJI ARENT2 ARITH ARRCOU
5335 BCR C COMP COMPIL DECTYP
5336 DELIM DIM E EXPTYP FAIL
5337 I MPRINT MREAD NDAP OUT
5338 PP PROC RESTO STACK TAKE
5339 TS TYPBOX UNSTAK UPDATE XX]
5340 RSBRAK ([Description, Flowchart])
5341 4 +1
5342 11 TAKE
5343 8 TAKE+1
5344 4 +1
5345 11 UNSTAK
5346 8 UNSTAK+1
5347 4 TYPBOX
5348 7 ITGR
5349 11 COMPIL
5350 8 COMPIL+1
5351 &111000
5352 /15 18
5353 ITGR
5354 4 TS
5355 2 =/1 3072
5356 7 AD
5357 2 =10 0
5358 7 LB
5359 8 FAIL-74
5360 AD
5361 11 RESTO
5362 8 RESTO+1
5363 &111000
5364 0 XX
5365 0 DIM
5366 0 I
5367 11 ADJI
5368 8 ADJI+1
5369 4 XX
5370 7 FAIL-75
5371 4 E+1
5372 5 E
5373 4 C
5374 5 ARITH
5375 4 TS
5376 2 =/2 2048
5377 7 MMP
5378 8 FAIL-23
5379 LB
5380 11 RESTO
5381 8 RESTO+1
5382 &211221
5383 0 PROC
5384 0 TYPBOX
5385 0 DIM
5386 0 I
5387 0 ARITH
5388 0 E
5389 0 MREAD
5390 0 MPRINT
5391 0 EXPTYP
5392 11 ADJI
5393 8 ADJI+1
5394 4 ADDI+1
5395 2 DIM
5396 7 TEST
5397 4 ADDI+1
5398 2 +15
5399 7 DIMOK
5400 8 FAIL-51
5401 MMP
5402 11 RESTO
5403 8 RESTO+1
5404 +0
5405 0 C
5406 4 ARRCOU
5407 1 -1
5408 14 2
5409 1 I
5410 5 I
5411 4 DIM
5412 14 6
5413 1 ARRCOU
5414 1 =6 0
5415 11 COMP
5416 8 COMP+5
5417 0 I
5418 /4 3
5419 6 &177760
5420 2 &046100
5421 7 ;+2
5422 4 =/0 0
5423 1 =/0 0
5424 1 NDAP
5425 11 COMP
5426 8 COMP+5
5427 LOOP
5428 0 I
5429 /4 2
5430 6 =/15 0
5431 1 NDAP
5432 /5 2
5433 /4 3
5434 6 -16
5435 1 DIM
5436 /5 3
5437 10 NDAP
5438 10 NDAP
5439 4 +4
5440 2 I
5441 5 I
5442 4 +1
5443 2 ARRCOU
5444 5 ARRCOU
5445 7 ;+2
5446 8 LOOP
5447 4 C
5448 11 BCR
5449 8 BCR+1
5450 4 DELIM
5451 2 =3 3072
5452 7 DECZ
5453 2 =1 7168
5454 7 ARENT2
5455 8 FAIL-39
5456 DECZ
5457 5 DECTYP
5458 8 OUT
5459 DIMOK
5460 0 I
5461 /4 3
5462 6 -16
5463 1 DIM
5464 /5 3
5465 4 DIM
5466 5 ADDI+1
5467 11 UPDATE
5468 8 UPDATE+1
5469 TEST
5470 4 EXPTYP
5471 2 &040200
5472 7 SWIT
5473 4 E
5474 7 EZ
5475 4 ADDI+1
5476 5 ;+5
5477 11 STACK
5478 8 STACK+4
5479 &110000
5480 /1 4108
5481 +0
5482 8 OUT
5483 SWIT
5484 4 DIM
5485 2 +1
5486 7 OUT
5487 8 FAIL-95
5488 EZ
5489 4 ADDI+1
5490 1 ADDI+1
5491 1 ADDI+1
5492 1 =13 0
5493 11 COMP
5494 8 COMP+5
5495 8 OUT
5496
5497 [COLON
5498 ADDI ARRBND BN C CHECK
5499 CODL CODLP DECSTA DECTYP EXP
5500 FAIL I M NLP OUT
5501 PP REPORT SEARCH TS W]
5502 COLON ([Description, Flowchart])
5503 4 DECTYP
5504 7 EMPTY
5505 6 &040100
5506 2 &040100
5507 7 ARRAY
5508 8 FAIL-29
5509 ARRAY
5510 11 ARRBND
5511 8 ARRBND+1
5512 8 OUT
5513 EMPTY
5514 4 +2
5515 11 EXP
5516 8 EXP+1
5517 4 &015400
5518 11 REPORT
5519 8 REPORT+1
5520 4 M
5521 7 FAIL-35
5522 2 +2
5523 7 FAIL-106
5524 4 =/0 0
5525 5 DECSTA
5526 4 C
5527 11 SEARCH
5528 8 SEARCH+1
5529 4 ADDI+3
5530 2 &100200
5531 7 ;+2
5532 8 FAIL-48
5533 0 ADDI
5534 /4 CODL
5535 7 ;+2
5536 8 FAIL-9
5537 0 ADDI
5538 /4 CODL+1
5539 2 BN
5540 7 UPDATE
5541 4 BN
5542 /5 CODL+1
5543 4 +4
5544 2 C
5545 5 W
5546 1 NLP
5547 5 NLP
5548 5 W+1
5549 11 CHECK
5550 8 CHECK+1
5551 LOOP
5552 0 I
5553 /4 0
5554 5 W+2
5555 4 C
5556 /5 0
5557 4 W+2
5558 0 W+1
5559 /5 0
5560 10 I
5561 10 W+1
5562 10 W
5563 4 W
5564 9 LOOP
5565 UPDATE
5566 0 ADDI
5567 4 PP
5568 1 =/0 0
5569 /5 CODL
5570 8 OUT
5571
5572 [COMMA
5573 ACTOP ARITH ARRBND ARRCOU C
5574 DECL DECTYP E EXPTYP F
5575 FAIL FORCOM INOUT M MPRINT
5576 MREAD OUT PROC STACK TS
5577 TYPBOX]
5578 COMMA ([Description, Flowchart])
5579 4 C
5580 11 INOUT
5581 8 INOUT+1
5582 4 PROC
5583 7 PZ
5584 11 ACTOP
5585 8 ACTOP+1
5586 4 C
5587 5 EXPTYP
5588 4 E+1
5589 5 E
5590 8 OUT
5591 PZ
5592 4 F
5593 7 FZ
5594 11 FORCOM
5595 8 FORCOM+1
5596 4 =/0 6144
5597 1 TYPBOX
5598
5599 ([VOLUME 4])
5600
5601 5 ;+4
5602 11 STACK
5603 8 STACK+4
5604 &100000
5605 +0
5606 4 ARITH+1
5607 5 ARITH
5608 8 OUT
5609 FZ
5610 4 DECTYP
5611 7 DECZ
5612 4 TS
5613 2 =/2 2048
5614 7 MAMP
5615 DECZ
5616 11 ARRBND
5617 8 ARRBND+1
5618 8 OUT
5619 MAMP
5620 4 M
5621 7 FAIL-77
5622 4 +3
5623 11 DECL
5624 8 DECL+1
5625 8 OUT
5626
5627
5628 [LRBRAK I
5629 ADDI ARITH BN C COMPIL
5630 DECSTA DECTYP DELIM E EXP
5631 EXPTYP EXPRES FAIL GETCHA LASTCH
5632 LASTDL M MPRINT MREAD NAM
5633 OPTION OUT PRMCOU PROC PROCPO
5634 SEARCH SP STACK TS W]
5635 LRBRAK ([Description, Flowchart])
5636 4 M
5637 2 +2
5638 7 FAIL-61
5639 4 LASTDL
5640 2 =7 5120
5641 7 FAIL-61
5642 2 =6 4096
5643 7 FAIL-61
5644 4 DECTYP
5645 7 DZ
5646 6 &044000
5647 2 &044000
5648 7 ARR
5649 8 FAIL-82
5650 DZ
5651 4 M
5652 7 MZ
5653 4 OPTION
5654 6 +4
5655 7 ;+2
5656 8 NT
5657 4 NAM+1
5658 2 \CHE
5659 7 ;+2
5660 8 NT
5661 4 \CKS
5662 2 NAM+2
5663 7 IGNORE
5664 1 +1
5665 7 IGN
5666 1 +9
5667 7 IGN
5668 1 +7
5669 7 IGN
5670 8 NT
5671 IGN
5672 5 M
5673 5 E
5674 8 MZ
5675 IGNORE
5676 11 GETCHA
5677 8 GETCHA+1
5678 4 LASTCH+1
5679 2 +9
5680 7 ;+2
5681 8 IGNORE
5682 4 LASTDL
5683 5 DELIM
5684 4 LASTDL+1
5685 5 DELIM+1
5686 8 OUT
5687 NT
5688 4 =/0 0
5689 5 DECSTA
5690 4 +1
5691 11 EXP
5692 8 EXP+1
5693 MONE
5694 4 EXPTYP
5695 6 +128
5696 7 ;+2
5697 8 FAIL-62
5698 4 C
5699 11 SEARCH
5700 8 SEARCH+1
5701 4 DECTYP
5702 6 &044000
5703 2 &044000
5704 7 ARRAY
5705 TEST
5706 4 ADDI+3
5707 6 &010000
5708 7 NOTYP
5709 4 C
5710 5 E
5711 4 LASTDL
5712 1 &562000
5713 7 FAIL-61
5714 1 &130000
5715 7 FAIL-61
5716 0 I
5717 /4 2
5718 6 =2 0
5719 7 ;+2
5720 8 ENZ
5721 11 COMPIL
5722 8 COMPIL+1
5723 &111000
5724 /15 27
5725 ENZ
5726 4 ARITH
5727 1 E
5728 5 L1
5729 4 MREAD
5730 1 MPRINT
5731 1 BN+2
5732 5 L2
5733 4 EXPTYP
5734 5 L3
5735 4 =/2 4096
5736 1 PROC
5737 5 L4
5738 4 PRMCOU
5739 5 L5
5740 4 PROCPO
5741 5 L6
5742 11 STACK
5743 8 STACK+4
5744 &111111
5745 L1 +0
5746 L2 +0
5747 L3 +0
5748 L4 +0
5749 L5 +0
5750 L6 +0
5751 4 I
5752 5 PROCPO
5753 4 E+1
5754 5 E
5755 4 PROC+1
5756 5 PROC
5757 4 C
5758 5 PRMCOU
5759 5 ARITH
5760 5 EXPTYP
5761 5 MPRINT
5762 5 MREAD
5763 8 OUT
5764 ARR
5765 4 E
5766 7 ;+3
5767 4 PROC
5768 7 FAIL-61
5769 4 M
5770 7 MZZ
5771 8 MONE
5772 MZ
5773 4 +3
5774 11 EXP
5775 8 EXP+1
5776 4 MPRINT
5777 1 MREAD
5778 7 ;+3
5779 4 -1
5780 5 EXPRES
5781 MZZ
5782 4 TS
5783 2 =/2 4096
5784 7 ;+2
5785 8 ;+7
5786 0 SP
5787 4 +1024
5788 /1 0
5789 /5 0
5790 4 C
5791 5 E
5792 4 MPRINT
5793 5 ;+8
5794 4 =1 0
5795 1 PROC
5796 5 ;+4
5797 11 STACK
5798 8 STACK+4
5799 &110000
5800 +0
5801 +0
5802 4 C
5803 5 PROC
5804 5 MPRINT
5805 8 OUT
5806 ARRAY
5807 4 BN
5808 2 BN+2
5809 7 FAIL-41
5810 8 TEST
5811 NOTYP
5812 4 E
5813 7 ;+2
5814 8 ENZ
5815 4 MPRINT
5816 1 MREAD
5817 7 FAIL-25
5818 4 LASTDL
5819 2 =8 6144
5820 7 ENZ
5821 2 =0 1024
5822 7 ENZ
5823 1 =7 0
5824 1 =0 1024
5825 7 ENZ
5826 8 FAIL-25
5827
5828
5829 [RRBRAK
5830 ACTOP ADDI ADJI ARITH BCR
5831 BLANKS BN C CODE COMP
5832 COMPIL DELIM DIM E EXPTYP
5833 FAIL FOMPIL GETCHA GRPCOD I
5834 LASTCH LASTDL M MPRINT MREAD
5835 OPTION OUT OUT2 PP PRMCOU
5836 PROC PROCPO PUNGRP Q QUOTE
5837 RESTO TAKE TS TYPBOX UNSTAK
5838 UPDATE W]
5839 RRBRAK ([Description, Flowchart])
5840 4 PROC
5841 7 PZ
5842 11 ACTOP
5843 8 ACTOP+1
5844 STRENT ([Description, Flowchart])
5845 4 TS
5846 2 =/2 4096
5847 7 ;+4
5848 1 +1024
5849 7 ;+2
5850 8 FAIL-5
5851 4 PROCPO
5852 5 I
5853 11 ADJI
5854 8 ADJI+1
5855 11 RESTO
5856 8 RESTO+1
5857 &111231
5858 0 PROC
5859 0 DIM
5860 0 PROCPO
5861 0 ARITH
5862 0 E
5863 0 MREAD
5864 0 MPRINT
5865 0 BN+2
5866 0 EXPTYP
5867 4 ADDI+1
5868 2 PRMCOU
5869 7 OK
5870 4 ADDI+2
5871 7 FAIL-51
5872 4 ADDI+1
5873 2 +15
5874 7 ;+2
5875 8 FAIL-111
5876 0 I
5877 /4 3
5878 6 -16
5879 1 PRMCOU
5880 1 &717760
5881 /5 3
5882 4 PRMCOU
5883 5 ADDI+1
5884 11 UPDATE
5885 8 UPDATE+1
5886 OK
5887 4 DIM
5888 5 PRMCOU
5889 11 FOMPIL
5890 8 FOMPIL+1
5891 8 ETEST
5892 PZ
5893 4 E
5894 7 ;+2
5895 8 FAIL-81
5896 4 +1
5897 11 TAKE
5898 8 TAKE+1
5899 4 +2
5900 11 UNSTAK
5901 8 UNSTAK+1
5902 4 TS
5903 2 =1 0
5904 7 ;+2
5905 8 FAIL-82
5906 11 RESTO
5907 8 RESTO+1
5908 &110000
5909 0 PROC
5910 0 MPRINT
5911 8 OUT
5912 ETEST
5913 4 E
5914 7 EZ
5915 4 C
5916 11 BCR
5917 8 BCR+1
5918 4 DELIM
5919 2 =11 7168
5920 7 OUT2
5921 2 =3 3072
5922 7 OUT2
5923 1 =5 1024
5924 7 OUT2
5925 1 =2 2048
5926 7 OUT2
5927 4 MREAD
5928 1 MPRINT
5929 7 FAIL-84
5930 4 DELIM
5931 2 =1 4096
5932 7 OUT2
5933 8 FAIL-84
5934 EZ
5935 4 ADDI+3
5936 6 &1400
5937 7 ;+3
5938 14 8182
5939 8 ;+2
5940 4 TYPBOX+1
5941 5 TYPBOX
5942 8 OUT
5943
5944 QUOTE ([Description, Flowchart])
5945 4 M
5946 7 ;+2
5947 8 FAIL-5
5948 4 PROC
5949 7 ;+2
5950 8 MTEST
5951 4 MPRINT
5952 7 FAIL-35
5953 4 LASTDL
5954 2 =8 5120
5955 7 OK2
5956 2 =7 1024
5957 7 OK2
5958 8 FAIL-35
5959 MTEST
5960 4 LASTDL
5961 2 =1 4096
5962 7 OK2
5963 2 +4096
5964 7 OK2
5965 8 FAIL-5
5966 OK2
5967 4 PP
5968 5 L1
5969 1 +1
5970 5 L2
5971 4 +1
5972 5 W+12
5973 11 COMPIL
5974 8 COMPIL+1
5975 &111000
5976 8 8191
5977 RESET
5978 4 C
5979 5 PROC
5980 5 W
5981 5 W+2
5982 5 W+3
5983 LOOP
5984 0 W
5985 4 LASTCH+1
5986 /5 W+1
5987 4 W+12
5988 7 FREE
5989 11 GETCHA
5990 8 GETCHA+1
5991 4 LASTCH+1
5992 2 +32
5993 7 CLSQTE
5994 4 W+12
5995 1 -1
5996 7 ORDSTR
5997 4 GRPCOD
5998 6 =12 0
5999 7 FAIL-71
6000 ORDSTR
6001 4 LASTCH+1
6002 2 +7
6003 7 OPNQTE
6004 LOOPA
6005 10 W
6006 4 W
6007 2 +3
6008 7 FIN
6009 8 LOOP
6010 FREE
6011 4 PROC+1
6012 5 PROC
6013 8 FIN
6014 11 COMPIL
6015 8 COMPIL+1
6016 &123200
6017 L1 +0
6018 L2 +0
6019 4 =4 0
6020 5 DELIM
6021 4 C
6022 11 BCR
6023 8 BCR+1
6024 4 MPRINT
6025 7 ;+2
6026 8 CMP
6027 4 DELIM
6028 2 =1 4096
6029 7 ;+4
6030 2 =0 3072
6031 7 ;+2
6032 8 FAIL-105
6033 11 ACTOP
6034 8 ACTOP+1
6035 JOIN
6036 4 E+1
6037 5 E
6038 4 DELIM
6039 2 =1 1024
6040 7 STRENT
6041 8 OUT
6042 CLSQTE
6043 4 +1
6044 2 W+12
6045 5 W+12
6046 8 LOOPA
6047 OPNQTE
6048 10 W+12
6049 8 LOOPA
6050 FIN
6051 0 C
6052 4 W+1
6053 14 6
6054 1 W+2
6055 14 6
6056 1 W+3
6057 11 COMP
6058 8 COMP+5
6059 4 PROC
6060 7 RESET
6061 8 FREE+3
6062 CMP
6063 11 COMPIL
6064 8 COMPIL+1
6065 &111000
6066 15 15
6067 4 C
6068 5 PROC
6069 5 E
6070 4 DELIM
6071 2 =1 4096
6072 7 OUT
6073 1 =1 7168
6074 7 OUT2
6075 1 =5 1024
6076 7 OUT2
6077 1 =3 3072
6078 7 OUT2
6079 8 FAIL-105
6080
6081 [AOP ARRAY BCR BEGIN BECOMS
6082 BOOL C COMPIL COMMA COLON
6083 DECSTA DELIM DO E ELSE
6084 END FAIL FOR GOTO IF
6085 INT LASTDL LOGOP LRBRAK LSBRAK
6086 M MPRINT MREAD OUT OUT2
6087 OWNCOD PROCED QUOTE REAL RLT
6088 RRBRAK RSBRAK SEMICO STEP SV
6089 SWITCH THEN W]
6090 OUT ([Description, Flowchart])
6091 4 +3
6092 11 BCR
6093 8 BCR+1
6094 OUT2
6095 4 DELIM
6096 9 ;+0
6097 14 8177
6098 5 W
6099 0 W
6100 /4 TAB
6101 5 W
6102 LOOP
6103 4 DELIM
6104 14 3
6105 0 W
6106 /2 0
6107 6 =/15 0
6108 7 FOUND
6109 /4 0
6110 1 +1
6111 7 FAIL-19
6112 10 W
6113 8 LOOP
6114 TAB
6115 0 TAB1
6116 0 TAB2
6117 0 TAB3
6118 0 TAB4
6119 FOUND
6120 /4 0
6121 6 +8191
6122 5 W
6123 0 W
6124 4 C
6125 /8 0
6126 CODE ([Flowchart])
6127 4 =1 0
6128 5 OWNCOD
6129 8 OUT
6130 CHKINO
6131 +0
6132 5 W
6133 4 E
6134 7 FAILB
6135 4 M
6136 7 ;+4
6137 FAILB
6138 4 W
6139 1 +1
6140 8 FAIL+1
6141 4 LASTDL
6142 2 =12 0
6143 7 OK
6144 2 =0 1024
6145 7 OK
6146 1 =0 1024
6147 7 OK
6148 1 =2 7168
6149 7 OK
6150 1 =0 3072
6151 7 OK
6152 1 =5 1024
6153 7 OK
6154 1 =0 1024
6155 7 OK
6156 8 FAILB
6157 OK
6158 0 CHKINO
6159 /8 1
6160 READ ([Flowchart])
6161 4 C
6162 11 CHKINO
6163 8 CHKINO+1
6164 4 MREAD+1
6165 5 MREAD
6166 8 ;+8
6167 PRINT ([Flowchart])
6168 4 +1
6169 11 CHKINO
6170 8 CHKINO+1
6171 4 C
6172 5 E
6173 4 MPRINT+1
6174 5 MPRINT
6175 11 COMPIL
6176 8 COMPIL+1
6177 &111000
6178 15 20
6179 4 =/0 0
6180 5 SV
6181 5 DECSTA
6182 8 OUT
6183 TAB1
6184 7 QUOTE
6185 8 LRBRAK
6186 9 RRBRAK
6187 10 AOP+1
6188 11 AOP+2
6189 12 COMMA
6190 13 AOP+2
6191 15 AOP+1
6192 /10 COLON
6193 /11 SEMICO
6194 /12 RLT
6195 /13 RLT
6196 /14 RLT
6197 -1
6198 TAB2
6199 /11 LSBRAK
6200 /13 RSBRAK
6201 /14 AOP
6202 -1
6203 TAB3
6204 1 GOTO
6205 2 IF
6206 3 FOR
6207 4 END
6208 5 PRINT
6209 6 READ
6210 7 BEGIN
6211 8 CODE
6212 11 BOOL
6213 12 INT
6214 13 REAL
6215 14 ARRAY
6216 15 SWITCH
6217 /0 PROCED
6218 /6 RLT
6219 /7 RLT
6220 /8 RLT
6221 /9 LOGOP+4
6222 /10 LOGOP+3
6223 /11 LOGOP+2
6224 /12 LOGOP+1
6225 /13 LOGOP
6226 /14 THEN
6227 /15 ELSE
6228 -1
6229 TAB4
6230 0 DO
6231 1 BECOMS
6232 2 STEP
6233 3 STEP
6234 4 STEP
6235 5 AOP+1
6236 -1
6237
6238 [WAIT]
6239 WAIT +0
6240 4 WAIT
6241 6 +8191
6242 1 =8 1
6243 5 9
6244 8 ;+0
6245
6246 [BLANKS
6247 C W]
6248 BLANKS +0 ([Flowchart])
6249 2 C
6250 5 W
6251 4 C
6252 15 6144
6253 10 W
6254 4 W
6255 9 ;-4
6256 0 BLANKS
6257 /8 1
6258
6259 [PUNCHA
6260 C CHKSUM W]
6261 PUNCHA +0 ([Flowchart])
6262 5 W
6263 1 CHKSUM
6264 5 CHKSUM
6265 4 W
6266 8 PN
6267 3 W
6268 0 W
6269 14 5
6270 PN
6271 15 6144
6272 0 PUNCHA
6273 /8 1
6274
6275 [PUNGRP
6276 C CODE MFAIL OPTION PUNCHA
6277 W]
6278 PUNGRP +0 ([Flowchart])
6279 5 W+3
6280 4 OPTION
6281 14 16
6282 9 EXIT
6283 4 MFAIL
6284 9 EXIT
6285 4 CODE
6286 0 W+3
6287 14 4
6288 3 W+3
6289 11 PUNCHA
6290 8 PUNCHA+1
6291 4 C
6292 0 W+3
6293 14 8
6294 3 W+3
6295 11 PUNCHA
6296 8 PUNCHA+1
6297 4 C
6298 0 W+3
6299 14 8
6300 11 PUNCHA
6301 8 PUNCHA+1
6302 EXIT
6303 0 PUNGRP
6304 /8 1
6305
6306 [GETCHA
6307 BUFLAG C FAIL GRPCOD INBUF
6308 LASTCH LINE TABLE W WAIT]
6309 RW +0
6310 +0
6311 +0
6312 +0
6313 +0
6314 GETCHA +0 ([Flowchart])
6315 4 LASTCH+1
6316 5 LASTCH
6317 4 LASTCH+2
6318 5 LASTCH+1
6319 4 BUFLAG
6320 9 FILBUF
6321 10 RW
6322 4 RW
6323 9 L1
6324 NEWTRI
6325 4 -3
6326 5 RW
6327 0 RW+1
6328 10 RW+1
6329 /0 INBUF+40
6330 4 +0
6331 14 6
6332 3 RW+4
6333 L2
6334 5 LASTCH+2
6335 1 -1
6336 7 NLCR
6337 8 EXIT
6338 L1
6339 0 RW+4
6340 4 +0
6341 14 7
6342 3 RW+4
6343 8 L2
6344 NLCR
6345 4 =/0 0
6346 5 BUFLAG
6347 EXIT
6348 0 LASTCH+1
6349 /4 TABLE
6350 6 -64
6351 5 GRPCOD
6352 9 ;+2
6353 10 BUFLAG+1
6354 0 GETCHA
6355 /8 1
6356 FILBUF
6357 4 BUFLAG+2
6358 7 ;+3
6359 11 WAIT
6360 8 WAIT+1
6361 4 C
6362 5 BUFLAG
6363 5 W+7
6364 5 INBUF-1
6365 4 -40
6366 5 RW+1
6367 4 BUFLAG+2
6368 9 ;+6
6369 4 BUFLAG+1
6370 7 ;+4
6371 10 LINE
6372 4 C
6373 5 BUFLAG+1
6374 4 C
6375 5 BUFLAG+2
6376 NEXWRD
6377 4 -3
6378 5 RW
6379 4 C
6380 5 RW+2
6381 NEXCHA
6382 10 INBUF-1
6383 15 2048
6384 5 W+8
6385 6 +127
6386 5 RW+3
6387 0 RW+3
6388 4 W+8
6389 6 +128
6390 /2 TABLE
6391 6 +128
6392 7 ;+2
6393 8 VOID
6394 /4 TABLE
6395 6 +127
6396 1 -64
6397 9 ORDIN
6398 ACTION
6399 5 W+8
6400 4 +0
6401 0 W+8
6402 /8 ACTAB
6403 ORDIN
6404 6 +63
6405 STROKE
6406 5 W+8
6407 4 C
6408 8 COMMON
6409 CONTIN
6410 10 RW+1
6411 4 RW+1
6412 9 NEXWRD
6413 BUFOVR
6414 4 -1
6415 5 BUFLAG
6416 8 FAIL-91
6417 VOID
6418 4 =/0 0
6419 5 W+7
6420 4 +63
6421 8 STROKE
6422 ACTAB
6423 8 VOID
6424 8 NEWLIN
6425 8 VOID
6426 8 NEXCHA+1
6427 8 VOID
6428 STOP
6429 4 -1
6430 5 BUFLAG+2
6431 NEWLIN
6432 4 +1
6433 5 W+8
6434 COMMON
6435 5 W+9
6436 4 W+8
6437 1 RW+2
6438 5 RW+2
6439 RETURN
6440 10 RW
6441 4 RW
6442 9 JSTIFY
6443 4 RW+2
6444 0 RW+1
6445 /5 INBUF+40
6446 4 W+9
6447 7 CONTIN
6448 4 -40
6449 5 RW+1
6450 4 W+7
6451 7 NEWTRI
6452 8 FAIL-98
6453 JSTIFY
6454 4 RW+2
6455 0 C
6456 14 6
6457 5 RW+2
6458 4 W+9
6459 7 NEXCHA
6460 8 RETURN
6461
6462
6463 [ENDPRO
6464 BCR BLANKS C CHKSUM CODE
6465 CODL CODLP COMPIL DELIM FAIL
6466 LISTAD MFAIL NAM NDAP NLP
6467 OPTION OUT OUT2 PP PRINT
6468 PUNGRP SP TITLE W WAIT
6469 WANTED]
6470 PUNGLB +0
6471 4 +4
6472 5 CODE
6473 0 PUNGLB
6474 /4 1
6475 11 PUNGRP
6476 8 PUNGRP+1
6477 4 +1
6478 5 CODE
6479 0 PUNGLB
6480 /4 2
6481 11 PUNGRP
6482 8 PUNGRP+1
6483 4 +6
6484 11 BLANKS
6485 8 BLANKS+1
6486 0 PUNGLB
6487 /8 3
6488 ENDPRO ([Flowchart])
6489 11 COMPIL
6490 8 COMPIL+1
6491 &111000
6492 /15 8
6493 4 +21
6494 11 BLANKS
6495 8 BLANKS+1
6496 4 MFAIL
6497 7 ;+2
6498 8 ERROR
6499 4 OPTION
6500 14 13
6501 9 REPEND
6502 DUAL
6503
6504 11 PUNGLB
6505 8 PUNGLB+1
6506 \QAC
6507 \ODL
6508 4 C
6509 5 W+9
6510 REPEAT
6511 4 W+9
6512 2 CODLP
6513 7 NXJOB
6514 4 +1
6515 5 CODE
6516 0 W+9
6517 /4 CODL
6518 9 ;+2
6519 8 ;+2
6520 10 CODE
6521 6 =15 8191
6522 11 PUNGRP
6523 8 PUNGRP+1
6524 10 W+9
6525 8 REPEAT
6526 NXJOB
6527 4 +6
6528 5 CODE
6529 4 CHKSUM
6530 11 PUNGRP
6531 8 PUNGRP+1
6532 4 WANTED
6533 7 OUTEND
6534 4 OPTION
6535 6 +8
6536 7 OUTEND
6537 11 WAIT
6538 8 WAIT+1
6539 NEXT
6540 4 NLP+2
6541 2 SP+1
6542 1 +10
6543 14 8191
6544 5 W+2
6545 4 SP+1
6546 5 W
6547 RESET
6548 4 C
6549 5 W+3
6550 15 2048
6551 7 ;-1
6552 8 ;+3
6553 JOIN
6554 4 C
6555 15 2048
6556 5 W+1
6557 15 2048
6558 15 2048
6559 0 W
6560 /5 1
6561 4 W+1
6562 14 8188
6563 /5 0
6564 10 W
6565 10 W
6566 10 W+2
6567 /0 0
6568 /8 ;+1
6569 8 L1
6570 8 L1
6571 8 L2
6572 8 L3
6573 8 L3
6574 8 L4
6575 8 TEST
6576 8 OUTEND
6577 L1
6578 0 W+3
6579 /8 ;+1
6580 8 L6
6581 8 L5
6582 8 L3
6583 8 L5
6584 L2
6585 4 W+3
6586 7 L4
6587 L3
6588 10 W+3
6589 L4
6590 4 W+2
6591 9 JOIN
6592 8 TEST
6593 L5
6594 4 C
6595 0 W
6596 /5 0
6597 /5 1
6598 10 W
6599 10 W
6600 10 W+2
6601 L6
6602 4 W+2
6603 9 RESET
6604 TEST
6605 4 NLP+1
6606 5 W
6607 LOOP
6608 0 W
6609 /4 2
6610 6 &120000
6611 2 &120000
6612 7 MAYBE
6613 NOT
6614 4 +4
6615 2 W
6616 5 W
6617 2 NLP+2
6618 9 LOOP
6619 7 LOOP
6620 8 NEXT
6621 MAYBE
6622 /4 2
6623 6 +8191
6624 5 W+3
6625 0 W+3
6626 /4 0
6627 0 SP+1
6628 /2 1
6629 7 PRAPS
6630 8 NOT
6631 PRAPS
6632 0 W+3
6633 /4 1
6634 0 SP+1
6635 /2 3
6636 7 ;+2
6637 8 NOT
6638 4 W+2
6639 9 YES
6640 4 +2
6641 5 OPTION
6642 8 ERROR
6643 YES
6644 4 +21
6645 11 BLANKS
6646 8 BLANKS+1
6647 4 SP+1
6648 5 W+9
6649 4 C
6650 5 W+8
6651 RETURN
6652 0 W+9
6653 /4 0
6654 5 CODE
6655 2 +6
6656 7 LAST
6657 REJOIN
6658 /4 1
6659 11 PUNGRP
6660 8 PUNGRP+1
6661 10 W+9
6662 10 W+9
6663 4 W+8
6664 7 RETURN
6665 8 NEXT
6666 LAST
6667 10 W+8
6668 8 REJOIN
6669 OUTEND
6670 4 C
6671 5 CHKSUM
6672 11 PUNGLB
6673 8 PUNGLB+1
6674 \QAV
6675 \NDA
6676 4 +5
6677 5 CODE
6678 4 NDAP
6679 11 PUNGRP
6680 8 PUNGRP+1
6681 4 +6
6682 5 CODE
6683 4 CHKSUM
6684 11 PUNGRP
6685 8 PUNGRP+1
6686 4 +21
6687 11 BLANKS
6688 8 BLANKS+1
6689 4 +7
6690 5 CODE
6691 4 C
6692 11 PUNGRP
6693 8 PUNGRP+1
6694 8 TRAIL
6695 ERROR
6696 11 PRINT
6697 8 PRINT+1
6698 0 TEXT
6699 4 HALTCD
6700 15 6144
6701 4 +21
6702 11 BLANKS
6703 8 BLANKS+1
6704 4 +129
6705 15 6144
6706 4 +102
6707 15 6144
6708 4 +24
6709 15 6144
6710 4 +102
6711 15 6144
6712 4 +129
6713 15 6144
6714 TRAIL
6715 4 +50
6716 11 BLANKS
6717 8 BLANKS+1
6718 4 -1281
6719 15 6144
6720 1 +256
6721 9 ;-2
6722 4 +100
6723 11 BLANKS
6724 8 BLANKS+1
6725 R2
6726 4 C
6727 15 2048
6728 5 W
6729 4 OPTION
6730 6 +2
6731 7 R1
6732 R3
6733 4 W
6734 2 HALTCD
6735 7 R4
6736 8 R2
6737 R1
6738 4 W
6739 15 6144
6740 8 R3
6741 R4
6742 4 +100
6743 11 BLANKS
6744 8 BLANKS+1
6745 HALT
6746 4 ;+2
6747 5 9
6748 8 9
6749 TEXT
6750 +6
6751 &010146
6752 \AIL
6753 REPEND
6754 11 PRINT
6755 8 PRINT+1
6756 0 T1
6757 4 PP
6758 1 CODLP
6759 11 LISTAD
6760 8 LISTAD+1
6761 11 PRINT
6762 8 PRINT+1
6763 0 T2
6764 4 NDAP
6765 11 LISTAD
6766 8 LISTAD+1
6767 4 OPTION
6768 6 +2
6769 7 DUAL
6770 8 TRAIL
6771 T1
6772 +9
6773 &016062
6774 \OGR
6775 \AM
6776 T2
6777 +9
6778 &016343
6779 \ALA
6780 \RS
6781 HALTCD
6782 +20
6783 TITLE ([Flowchart])
6784 4 +1
6785 11 BCR
6786 8 BCR+1
6787 4 OPTION
6788 6 +16
6789 7 MO
6790 11 PRINT
6791 8 PRINT+1
6792 0 CRS
6793 11 PRINT
6794 8 PRINT+1
6795 0 NAM
6796 MO
6797 4 NAM+1
6798 5 M1
6799 5 M2
6800 4 NAM+2
6801 5 M3
6802 5 M4
6803 11 PUNGLB
6804 8 PUNGLB+1
6805 M1 +0
6806 M3 +0
6807 11 COMPIL
6808 8 COMPIL+1
6809 &441112
6810 15 20
6811 /2 2
6812 15 17
6813 8 9
6814 11 COMPIL
6815 8 COMPIL+1
6816 &441111
6817 &070754
6818 &234000
6819 M2 +0
6820 M4 +0
6821 11 COMPIL
6822 8 COMPIL+1
6823 &331210
6824 &010140
6825 0 4
6826 15 15
6827 TESTBG
6828 4 C
6829 11 BCR
6830 8 BCR+1
6831 4 DELIM
6832 2 =8 7168
6833 7 OUT2
6834 8 FAIL-50
6835 CRS +2
6836 &000101
6837 %