REPORT 128

00000000: 01 08 24 08 0A 00 99 20  22 52 45 50 4F 52 54 45  |..$.... "REPORTE|
00000010: 52 20 2D 20 4A 49 4D 20  42 55 54 54 45 52 46 49  |R - JIM BUTTERFI|
00000020: 45 4C 44 22 00 3F 08 0B  00 99 20 22 56 31 2E 31  |ELD".?.... "V1.1|
00000030: 20 2D 20 31 39 38 37 20  4D 41 59 20 32 39 22 00  | - 1987 MAY 29".|
00000040: 59 08 14 00 83 20 52 45  43 45 49 50 54 53 2C 45  |Y.... RECEIPTS,E|
00000050: 58 50 45 4E 53 45 53 2C  2A 00 62 08 1E 00 87 20  |XPENSES,*.b.... |
00000060: 46 24 00 84 08 28 00 8B  20 46 24 B3 B1 22 2A 22  |F$...(.. F$.."*"|
00000070: 20 A7 20 4A B2 4A AA 31  3A 99 20 4A 3B 46 24 3A  | . J.J.1:. J;F$:|
00000080: 89 20 33 30 00 A4 08 32  00 99 20 22 59 4F 55 52  |. 30...2.. "YOUR|
00000090: 20 43 48 4F 49 43 45 20  28 31 20 54 4F 22 3B 4A  | CHOICE (1 TO";J|
000000A0: 3B 22 29 22 00 BD 08 3C  00 85 20 58 3A 8B 20 58  |;")"...<.. X:. X|
000000B0: B3 31 20 B0 20 58 B1 4A  20 89 20 36 30 00 D6 08  |.1 . X.J . 60...|
000000C0: 46 00 8C 3A 81 20 4A B2  31 20 A4 20 58 3A 87 20  |F..:. J.1 . X:. |
000000D0: 46 24 3A 82 20 4A 00 F3  08 50 00 99 20 22 44 41  |F$:. J...P.. "DA|
000000E0: 54 41 20 46 49 4C 45 20  3C 22 3B 46 24 3B 22 2E  |TA FILE <";F$;".|
000000F0: 44 3E 22 00 23 09 64 00  4D 24 B2 22 20 20 4A 41  |D>".#.d.M$."  JA|
00000100: 4E 46 45 42 4D 41 52 41  50 52 4D 41 59 4A 55 4E  |NFEBMARAPRMAYJUN|
00000110: 4A 55 4C 41 55 47 53 45  50 4F 43 54 4E 4F 56 44  |JULAUGSEPOCTNOVD|
00000120: 45 43 22 00 4A 09 6E 00  4D B2 33 30 30 3A 86 20  |EC".J.n.M.300:. |
00000130: 49 28 4D 29 2C 44 28 4D  29 2C 41 24 28 4D 29 2C  |I(M),D(M),A$(M),|
00000140: 56 28 4D 29 2C 4E 24 28  4D 29 00 7F 09 73 00 86  |V(M),N$(M)...s..|
00000150: 20 41 28 34 29 2C 42 28  34 29 2C 46 28 34 29 2C  | A(4),B(4),F(4),|
00000160: 46 24 28 34 29 2C 43 24  28 34 29 2C 53 28 34 2C  |F$(4),C$(4),S(4,|
00000170: 33 29 2C 48 28 36 2C 32  29 2C 48 24 28 36 29 00  |3),H(6,2),H$(6).|
00000180: 8D 09 78 00 9F 20 31 35  2C 38 2C 31 35 00 A6 09  |..x.. 15,8,15...|
00000190: 82 00 54 39 B2 30 3A 9F  20 31 2C 38 2C 33 2C 46  |..T9.0:. 1,8,3,F|
000001A0: 24 AA 22 2E 44 22 00 B3  09 8C 00 84 31 35 2C 45  |$.".D"......15,E|
000001B0: 2C 45 24 00 C4 09 96 00  8B 20 45 B2 36 32 20 89  |,E$...... E.62 .|
000001C0: 20 32 36 30 00 E7 09 A0  00 4E B2 4E AA 31 3A 84  | 260.....N.N.1:.|
000001D0: 31 2C 44 28 4E 29 2C 41  24 28 4E 29 2C 56 28 4E  |1,D(N),A$(N),V(N|
000001E0: 29 2C 4E 24 28 4E 29 00  0A 0A A5 00 54 39 B2 54  |),N$(N).....T9.T|
000001F0: 39 AA B6 28 56 28 4E 29  29 3A 8B 20 54 39 B2 30  |9..(V(N)):. T9.0|
00000200: 20 A7 20 4E 39 B2 4E 39  AA 31 00 1B 0A AA 00 8B  | . N9.N9.1......|
00000210: 20 53 54 B2 30 20 89 20  31 36 30 00 2E 0A B4 00  | ST.0 . 160.....|
00000220: 84 31 35 2C 45 2C 45 24  2C 45 31 2C 45 32 00 36  |.15,E,E$,E1,E2.6|
00000230: 0A BE 00 A0 20 31 00 60  0A C8 00 8B 20 45 B3 B1  |.... 1.`.... E..|
00000240: 30 20 A7 20 99 20 22 2A  2A 2A 20 45 52 52 4F 52  |0 . . "*** ERROR|
00000250: 20 2A 2A 2A 22 3B 45 24  3B 45 31 3B 45 32 3A 80  | ***";E$;E1;E2:.|
00000260: 00 7E 0A D2 00 99 20 4E  3B 22 49 54 45 4D 53 20  |.~.... N;"ITEMS |
00000270: 46 4F 55 4E 44 20 4F 4E  20 46 49 4C 45 22 00 A8  |FOUND ON FILE"..|
00000280: 0A D7 00 8B 20 4E 39 B1  30 20 A7 20 99 20 22 28  |.... N9.0 . . "(|
00000290: 49 4E 43 4C 55 44 49 4E  47 22 3B 4E 39 3B 22 44  |INCLUDING";N9;"D|
000002A0: 55 4D 4D 49 45 53 29 22  00 B9 0A FA 00 44 B2 44  |UMMIES)".....D.D|
000002B0: 28 4E 29 3A 89 20 33 30  30 00 C6 0A 04 01 A0 20  |(N):. 300...... |
000002C0: 31 3A A0 20 31 35 00 CC  0A 0E 01 80 00 D5 0A 2C  |1:. 15.........,|
000002D0: 01 A0 20 31 35 00 12 0B  36 01 46 24 28 31 29 B2  |.. 15...6.F$(1).|
000002E0: 22 44 41 54 45 22 3A 46  24 28 32 29 B2 22 41 43  |"DATE":F$(2)."AC|
000002F0: 43 4F 55 4E 54 22 3A 46  24 28 33 29 B2 22 41 4D  |COUNT":F$(3)."AM|
00000300: 4F 55 4E 54 22 3A 46 24  28 34 29 B2 22 49 54 45  |OUNT":F$(4)."ITE|
00000310: 4D 22 00 5D 0B 3B 01 43  24 28 31 29 B2 22 45 51  |M".].;.C$(1)."EQ|
00000320: 55 41 4C 22 3A 43 24 28  32 29 B2 22 4E 4F 54 20  |UAL":C$(2)."NOT |
00000330: 45 51 55 41 4C 22 3A 43  24 28 33 29 B2 22 47 52  |EQUAL":C$(3)."GR|
00000340: 45 41 54 45 52 20 54 48  41 4E 22 3A 43 24 28 34  |EATER THAN":C$(4|
00000350: 29 B2 22 4C 45 53 53 20  54 48 41 4E 22 00 97 0B  |)."LESS THAN"...|
00000360: 40 01 85 20 22 57 41 4E  54 20 53 45 4C 45 43 54  |@.. "WANT SELECT|
00000370: 45 44 20 28 53 29 20 49  54 45 4D 53 20 4F 52 20  |ED (S) ITEMS OR |
00000380: 41 4C 4C 20 28 41 29 20  49 54 45 4D 53 20 20 41  |ALL (A) ITEMS  A|
00000390: 9D 9D 9D 22 3B 58 24 00  AA 0B 4A 01 8B 20 58 24  |...";X$...J.. X$|
000003A0: B2 22 41 22 20 89 20 36  38 30 00 BE 0B 54 01 8B  |."A" . 680...T..|
000003B0: 20 58 24 B3 B1 22 53 22  20 89 20 33 32 30 00 C8  | X$.."S" . 320..|
000003C0: 0B 59 01 48 24 B2 22 22  00 D5 0B 5C 01 48 B2 30  |.Y.H$.""...\.H.0|
000003D0: 3A 48 30 B2 30 00 F0 0B  5E 01 99 20 22 53 45 4C  |:H0.0...^.. "SEL|
000003E0: 45 43 54 20 4F 4E 20 46  49 45 4C 44 2E 2E 2E 22  |ECT ON FIELD..."|
000003F0: 00 FE 0B 68 01 81 20 4A  B2 31 20 A4 20 34 00 0C  |...h.. J.1 . 4..|
00000400: 0C 72 01 99 20 4A 3B 46  24 28 4A 29 00 14 0C 7C  |.r.. J;F$(J)...||
00000410: 01 82 20 4A 00 2A 0C 86  01 85 20 22 46 49 45 4C  |.. J.*.... "FIEL|
00000420: 44 20 28 31 2D 34 29 22  3B 46 00 40 0C 90 01 8B  |D (1-4)";F.@....|
00000430: 20 46 B3 30 20 B0 20 46  B1 34 20 89 20 33 39 30  | F.0 . F.4 . 390|
00000440: 00 6B 0C 9A 01 48 28 48  2C 31 29 B2 46 3A 8B 20  |.k...H(H,1).F:. |
00000450: 46 B2 30 20 A7 20 99 20  22 3C 43 41 4E 43 45 4C  |F.0 . . "<CANCEL|
00000460: 4C 45 44 3E 22 3A 89 20  33 32 30 00 83 0C A4 01  |LED>":. 320.....|
00000470: 99 20 22 54 59 50 45 20  4F 46 20 54 45 53 54 2E  |. "TYPE OF TEST.|
00000480: 2E 2E 22 00 91 0C AE 01  81 20 4A B2 31 20 A4 20  |.."...... J.1 . |
00000490: 34 00 AF 0C B8 01 99 20  4A 3B 46 24 28 46 29 3B  |4...... J;F$(F);|
000004A0: 22 20 22 3B 43 24 28 4A  29 3B 22 2E 2E 2E 22 00  |" ";C$(J);"...".|
000004B0: B7 0C C2 01 82 20 4A 00  CC 0C CC 01 85 20 22 57  |..... J...... "W|
000004C0: 48 49 43 48 20 54 45 53  54 22 3B 47 00 E2 0C D6  |HICH TEST";G....|
000004D0: 01 8B 20 47 B3 30 20 B0  20 47 B1 34 20 89 20 34  |.. G.0 . G.4 . 4|
000004E0: 36 30 00 0D 0D DB 01 48  28 48 2C 32 29 B2 47 3A  |60.....H(H,2).G:|
000004F0: 8B 20 47 B2 30 20 A7 20  99 20 22 3C 43 41 4E 43  |. G.0 . . "<CANC|
00000500: 45 4C 4C 45 44 3E 22 3A  89 20 33 32 30 00 13 0D  |ELLED>":. 320...|
00000510: E0 01 99 00 34 0D EA 01  99 20 22 54 45 53 54 3A  |....4.... "TEST:|
00000520: 20 20 22 3B 46 24 28 46  29 3B 22 20 22 3B 43 24  |  ";F$(F);" ";C$|
00000530: 28 47 29 3B 00 4E 0D F4  01 8B 20 46 B2 32 20 B0  |(G);.N.... F.2 .|
00000540: 20 46 B2 34 20 A7 20 85  20 48 24 28 48 29 00 63  | F.4 . . H$(H).c|
00000550: 0D FE 01 8B 20 46 B2 33  20 A7 20 85 20 48 28 48  |.... F.3 . . H(H|
00000560: 2C 30 29 00 7C 0D 03 02  8B 20 46 B2 31 20 A7 20  |,0).|.... F.1 . |
00000570: 99 20 22 3A 22 3A 8D 20  34 30 30 30 00 BE 0D 08  |. ":":. 4000....|
00000580: 02 58 24 B2 22 4E 22 3A  8B 20 48 B3 36 20 A7 20  |.X$."N":. H.6 . |
00000590: 85 20 22 2E 2E 49 53 20  54 48 45 52 45 20 4D 4F  |. "..IS THERE MO|
000005A0: 52 45 20 54 4F 20 54 48  49 53 20 53 45 4C 45 43  |RE TO THIS SELEC|
000005B0: 54 49 4F 4E 20 20 4E 9D  9D 9D 22 3B 58 24 00 E2  |TION  N...";X$..|
000005C0: 0D 12 02 48 B2 48 AA 31  3A 8B 20 58 24 B2 22 59  |...H.H.1:. X$."Y|
000005D0: 22 20 B0 20 58 24 B2 22  59 45 53 22 20 89 20 33  |" . X$."YES" . 3|
000005E0: 35 30 00 0B 0E 1C 02 81  20 4A B2 4E 39 AA 31 20  |50...... J.N9.1 |
000005F0: A4 20 4E 3A 58 30 B2 28  31 B2 31 29 3A 8B 20 49  |. N:X0.(1.1):. I|
00000600: 28 4A 29 B1 30 20 89 20  36 31 30 00 1B 0E 26 02  |(J).0 . 610...&.|
00000610: 81 20 4B B2 30 20 A4 20  48 AB 31 00 31 0E 30 02  |. K.0 . H.1.1.0.|
00000620: 46 B2 48 28 4B 2C 31 29  3A 47 B2 48 28 4B 2C 32  |F.H(K,1):G.H(K,2|
00000630: 29 00 4F 0E 3A 02 91 20  46 20 8D 20 35 30 30 30  |).O.:.. F . 5000|
00000640: 2C 35 31 30 30 2C 35 32  30 30 2C 35 33 30 30 00  |,5100,5200,5300.|
00000650: 5D 0E 44 02 58 30 B2 58  30 20 AF 20 58 00 65 0E  |].D.X0.X0 . X.e.|
00000660: 4E 02 82 20 4B 00 7F 0E  58 02 8B 20 58 30 20 A7  |N.. K...X.. X0 .|
00000670: 20 49 28 4A 29 B2 4A 3A  48 30 B2 48 30 AA 31 00  | I(J).J:H0.H0.1.|
00000680: 87 0E 62 02 82 20 4A 00  A4 0E 6C 02 99 20 48 30  |..b.. J...l.. H0|
00000690: 3B 48 24 3B 22 49 54 45  4D 53 20 53 45 4C 45 43  |;H$;"ITEMS SELEC|
000006A0: 54 45 44 22 00 AA 0E 76  02 99 00 CC 0E 80 02 85  |TED"...v........|
000006B0: 20 22 41 4E 4F 54 48 45  52 20 53 45 4C 45 54 49  | "ANOTHER SELETI|
000006C0: 4F 4E 20 20 4E 9D 9D 9D  22 3B 58 24 00 F6 0E 8A  |ON  N...";X$....|
000006D0: 02 8B 20 58 24 B2 22 59  22 20 B0 20 58 24 B2 22  |.. X$."Y" . X$."|
000006E0: 59 45 53 22 20 A7 20 48  24 B2 22 4E 45 57 20 22  |YES" . H$."NEW "|
000006F0: 3A 89 20 33 34 38 00 00  0F 9E 02 89 20 36 39 30  |:. 348...... 690|
00000700: 00 1C 0F A8 02 81 20 4A  B2 4E 39 AA 31 20 A4 20  |...... J.N9.1 . |
00000710: 4E 3A 49 28 4A 29 B2 4A  3A 82 20 4A 00 24 0F B2  |N:I(J).J:. J.$..|
00000720: 02 48 B2 30 00 4D 0F BC  02 81 20 4A B2 31 20 A4  |.H.0.M.... J.1 .|
00000730: 20 4E 3A 8B 20 49 28 4A  29 B1 30 20 A7 20 48 B2  | N:. I(J).0 . H.|
00000740: 48 AA 31 3A 49 28 48 29  B2 49 28 4A 29 00 55 0F  |H.1:I(H).I(J).U.|
00000750: C6 02 82 20 4A 00 6B 0F  D0 02 99 20 22 3C 22 3B  |... J.k.... "<";|
00000760: 48 3B 22 49 54 45 4D 53  20 3E 22 00 8D 0F DA 02  |H;"ITEMS >".....|
00000770: 99 20 22 2D 2D 2D 2D 20  20 52 45 50 4F 52 54 20  |. "----  REPORT |
00000780: 53 45 43 54 49 4F 4E 20  2D 2D 2D 2D 22 00 AB 0F  |SECTION ----"...|
00000790: EE 02 81 20 4A B2 31 20  A4 20 34 3A 46 28 4A 29  |... J.1 . 4:F(J)|
000007A0: B2 30 3A 82 20 4A 3A 48  30 B2 30 00 C5 0F F8 02  |.0:. J:H0.0.....|
000007B0: 99 20 22 49 54 45 4D 53  20 4F 52 44 45 52 45 44  |. "ITEMS ORDERED|
000007C0: 20 42 59 3A 22 00 E0 0F  FD 02 99 20 30 3B 22 4E  | BY:"...... 0;"N|
000007D0: 4F 20 53 50 45 43 49 41  4C 20 4F 52 44 45 52 22  |O SPECIAL ORDER"|
000007E0: 00 05 10 02 03 81 20 4A  B2 31 20 A4 20 34 3A 8B  |...... J.1 . 4:.|
000007F0: 20 53 28 4A 2C 31 29 B2  30 20 A7 20 99 20 4A 3B  | S(J,1).0 . . J;|
00000800: 46 24 28 4A 29 00 0D 10  0C 03 82 20 4A 00 27 10  |F$(J)...... J.'.|
00000810: 20 03 85 20 58 3A 8B 20  58 B3 30 20 B0 20 58 B1  | .. X:. X.0 . X.|
00000820: 34 20 89 20 38 30 30 00  37 10 2A 03 8B 20 58 B2  |4 . 800.7.*.. X.|
00000830: 30 20 89 20 39 30 30 00  4C 10 34 03 8B 20 53 28  |0 . 900.L.4.. S(|
00000840: 58 2C 31 29 B1 30 20 89  20 38 30 30 00 6A 10 3E  |X,1).0 . 800.j.>|
00000850: 03 48 30 B2 48 30 AA 31  3A 53 28 58 2C 31 29 B2  |.H0.H0.1:S(X,1).|
00000860: 48 30 3A 46 28 48 30 29  B2 58 00 96 10 48 03 8B  |H0:F(H0).X...H..|
00000870: 20 58 B2 33 20 A7 20 85  20 22 49 4E 20 41 53 43  | X.3 . . "IN ASC|
00000880: 45 4E 44 49 4E 47 20 4F  52 44 45 52 20 20 4E 9D  |ENDING ORDER  N.|
00000890: 9D 9D 22 3B 58 24 00 C3  10 49 03 8B 20 58 B3 B1  |..";X$...I.. X..|
000008A0: 33 20 A7 20 85 20 22 49  4E 20 41 53 43 45 4E 44  |3 . . "IN ASCEND|
000008B0: 49 4E 47 20 4F 52 44 45  52 20 20 59 9D 9D 9D 22  |ING ORDER  Y..."|
000008C0: 3B 58 24 00 E6 10 4C 03  8B 20 58 24 B2 22 59 22  |;X$...L.. X$."Y"|
000008D0: 20 B0 20 58 24 B2 22 59  45 53 22 20 A7 20 53 28  | . X$."YES" . S(|
000008E0: 58 2C 32 29 B2 31 00 07  11 52 03 99 20 22 57 41  |X,2).1...R.. "WA|
000008F0: 4E 54 20 53 55 42 54 4F  54 41 4C 53 20 4F 4E 20  |NT SUBTOTALS ON |
00000900: 45 41 43 48 20 22 3B 00  1E 11 53 03 8B 20 58 B2  |EACH ";...S.. X.|
00000910: 31 20 A7 20 99 20 22 4D  4F 4E 54 48 22 3B 00 34  |1 . . "MONTH";.4|
00000920: 11 54 03 8B 20 58 B3 B1  31 20 A7 20 99 20 46 24  |.T.. X..1 . . F$|
00000930: 28 58 29 3B 00 45 11 55  03 85 22 20 20 59 9D 9D  |(X);.E.U.."  Y..|
00000940: 9D 22 3B 58 24 00 68 11  56 03 8B 20 58 24 B2 22  |.";X$.h.V.. X$."|
00000950: 59 22 20 B0 20 58 24 B2  22 59 45 53 22 20 A7 20  |Y" . X$."YES" . |
00000960: 53 28 58 2C 33 29 B2 31  00 79 11 66 03 8B 20 48  |S(X,3).1.y.f.. H|
00000970: 30 B2 34 20 89 20 39 30  30 00 9B 11 70 03 99 3A  |0.4 . 900...p..:|
00000980: 99 20 22 57 49 54 48 49  4E 20 41 42 4F 56 45 2C  |. "WITHIN ABOVE,|
00000990: 20 4F 52 44 45 52 20 42  59 3A 22 00 A5 11 7A 03  | ORDER BY:"...z.|
000009A0: 89 20 37 36 35 00 C3 11  84 03 44 39 B2 31 3A 8B  |. 765.....D9.1:.|
000009B0: 20 53 28 31 2C 31 29 B3  48 30 20 A7 20 44 39 B2  | S(1,1).H0 . D9.|
000009C0: 31 30 30 00 D1 11 8E 03  81 20 4A B2 31 20 A4 20  |100...... J.1 . |
000009D0: 34 00 EB 11 93 03 8B 20  53 28 4A 2C 31 29 B2 30  |4...... S(J,1).0|
000009E0: 20 A7 20 53 28 4A 2C 31  29 B2 35 00 F3 11 98 03  | . S(J,1).5.....|
000009F0: 82 20 4A 00 F9 11 9D 03  99 00 18 12 A2 03 85 20  |. J............ |
00000A00: 22 52 45 50 4F 52 54 20  54 49 54 4C 45 20 20 23  |"REPORT TITLE  #|
00000A10: 9D 9D 9D 22 3B 54 31 24  00 36 12 A7 03 85 20 22  |...";T1$.6.... "|
00000A20: 2E 2E 54 4F 20 50 52 49  4E 54 45 52 20 20 4E 9D  |..TO PRINTER  N.|
00000A30: 9D 9D 22 3B 58 24 00 58  12 AC 03 50 B2 33 3A 8B  |..";X$.X...P.3:.|
00000A40: 20 58 24 B2 22 59 22 20  B0 20 58 24 B2 22 59 45  | X$."Y" . X$."YE|
00000A50: 53 22 20 A7 20 50 B2 34  00 7B 12 B1 03 8B 20 50  |S" . P.4.{.... P|
00000A60: B2 34 20 A7 20 99 20 5B  5B 20 53 45 54 20 55 50  |.4 . . [[ SET UP|
00000A70: 20 99 45 52 20 4E 4F 57  20 5D 5D 00 A6 12 B6 03  | .ER NOW ]].....|
00000A80: 85 20 22 44 45 54 41 49  4C 20 28 44 29 20 4F 52  |. "DETAIL (D) OR|
00000A90: 20 53 55 4D 4D 41 52 59  20 28 53 29 20 20 44 9D  | SUMMARY (S)  D.|
00000AA0: 9D 9D 22 3B 58 24 00 BE  12 BB 03 50 30 B2 30 3A  |..";X$.....P0.0:|
00000AB0: 8B 20 58 24 B2 22 44 22  20 89 20 39 37 30 00 D6  |. X$."D" . 970..|
00000AC0: 12 C0 03 50 30 B2 31 3A  8B 20 58 24 B2 22 53 22  |...P0.1:. X$."S"|
00000AD0: 20 89 20 39 37 30 00 E0  12 C5 03 89 20 39 35 30  | . 970...... 950|
00000AE0: 00 0A 13 CA 03 58 24 B2  22 4E 22 3A 8B 20 50 B2  |.....X$."N":. P.|
00000AF0: 34 20 A7 20 85 20 22 50  41 47 45 20 46 45 45 44  |4 . . "PAGE FEED|
00000B00: 20 20 4E 9D 9D 9D 22 3B  58 24 00 33 13 CF 03 50  |  N...";X$.3...P|
00000B10: 31 B2 30 3A 50 32 B2 30  3A 8B 20 58 24 B2 22 59  |1.0:P2.0:. X$."Y|
00000B20: 22 20 B0 20 58 24 B2 22  59 45 53 22 20 A7 20 50  |" . X$."YES" . P|
00000B30: 31 B2 31 00 3D 13 D4 03  9F 20 34 2C 33 00 58 13  |1.1.=.... 4,3.X.|
00000B40: DE 03 4A B2 30 3A 4A 38  B2 48 3A 8B 20 48 30 B2  |..J.0:J8.H:. H0.|
00000B50: 30 20 89 20 31 39 30 30  00 61 13 E8 03 4A 38 B2  |0 . 1900.a...J8.|
00000B60: 31 00 92 13 F2 03 4A 37  B2 4A 38 3A 81 20 4A 39  |1.....J7.J8:. J9|
00000B70: B2 48 AB 31 20 A4 20 4A  38 20 A9 20 AB 31 3A 4A  |.H.1 . J8 . .1:J|
00000B80: 32 B2 49 28 4A 39 29 3A  4A 33 B2 49 28 4A 39 AA  |2.I(J9):J3.I(J9.|
00000B90: 31 29 00 A9 13 FC 03 4A  38 B2 48 3A 46 B2 30 3A  |1).....J8.H:F.0:|
00000BA0: 44 36 B2 30 3A 44 38 B2  30 00 B8 13 06 04 81 20  |D6.0:D8.0...... |
00000BB0: 4B B2 31 20 A4 20 48 30  00 C4 13 10 04 4B 30 B2  |K.1 . H0.....K0.|
00000BC0: 46 28 4B 29 00 F0 13 1A  04 4B 32 B2 53 28 4B 30  |F(K).....K2.S(K0|
00000BD0: 2C 32 29 AA 31 20 20 3A  8F 20 44 45 53 43 3D 31  |,2).1  :. DESC=1|
00000BE0: 20 20 20 20 20 41 53 43  45 4E 44 49 4E 47 3D 32  |     ASCENDING=2|
00000BF0: 00 0F 14 24 04 91 20 4B  30 20 8D 20 36 30 30 30  |...$.. K0 . 6000|
00000C00: 2C 36 31 30 30 2C 36 32  30 30 2C 36 33 30 30 00  |,6100,6200,6300.|
00000C10: 1F 14 2E 04 8B 20 46 B2  30 20 A7 20 82 20 4B 00  |..... F.0 . . K.|
00000C20: 48 14 38 04 8B 20 46 B2  30 20 A7 20 46 B2 B4 28  |H.8.. F.0 . F..(|
00000C30: 44 36 AB 44 38 29 3A 8B  20 53 28 31 2C 32 29 B2  |D6.D8):. S(1,2).|
00000C40: 30 20 A7 20 46 B2 AB 46  00 71 14 4C 04 8B 20 46  |0 . F..F.q.L.. F|
00000C50: B2 AB 31 20 A7 20 4A 38  B2 4A 39 AA 31 3A 49 28  |..1 . J8.J9.1:I(|
00000C60: 4A 39 29 B2 4A 33 3A 49  28 4A 39 AA 31 29 B2 4A  |J9).J3:I(J9.1).J|
00000C70: 32 00 7A 14 56 04 82 20  4A 39 00 80 14 6C 07 8F  |2.z.V.. J9...l..|
00000C80: 00 98 14 D0 07 8F 20 50  52 49 4E 54 20 53 59 53  |...... PRINT SYS|
00000C90: 54 45 4D 20 48 45 41 44  00 B4 14 EE 07 8B 20 4A  |TEM HEAD...... J|
00000CA0: AA 31 B1 B2 4A 38 20 AF  20 4A 38 B3 48 20 89 20  |.1..J8 . J8.H . |
00000CB0: 31 30 31 30 00 D9 14 F3  07 4A B2 4A AA 31 3A 4A  |1010.....J.J.1:J|
00000CC0: 31 B2 4A 30 3A 4A 30 B2  49 28 4A 29 3A 8B 20 4A  |1.J0:J0.I(J):. J|
00000CD0: B2 31 20 89 20 32 38 35  30 00 EE 14 F8 07 4B B2  |.1 . 2850.....K.|
00000CE0: 30 3A 8B 20 4A B1 48 20  89 20 32 30 38 30 00 FD  |0:. J.H . 2080..|
00000CF0: 14 FD 07 81 20 4B B2 31  20 A4 20 48 30 00 08 15  |.... K.1 . H0...|
00000D00: 02 08 46 B2 46 28 4B 29  00 38 15 07 08 8B 20 46  |..F.F(K).8.... F|
00000D10: B2 31 20 A7 20 8B 20 B5  28 44 28 4A 30 29 AD 31  |.1 . . .(D(J0).1|
00000D20: 30 30 29 B3 B1 B5 28 44  28 4A 31 29 AD 31 30 30  |00)...(D(J1).100|
00000D30: 29 20 89 20 32 30 38 30  00 5C 15 08 08 8B 20 46  |) . 2080.\.... F|
00000D40: B2 32 20 A7 20 8B 20 41  24 28 4A 30 29 B3 B1 41  |.2 . . A$(J0)..A|
00000D50: 24 28 4A 31 29 20 89 20  32 30 38 30 00 7E 15 09  |$(J1) . 2080.~..|
00000D60: 08 8B 20 46 B2 33 20 A7  20 8B 20 56 28 4A 30 29  |.. F.3 . . V(J0)|
00000D70: B3 B1 56 28 4A 31 29 20  89 20 32 30 38 30 00 A2  |..V(J1) . 2080..|
00000D80: 15 0A 08 8B 20 46 B2 34  20 A7 20 8B 20 4E 24 28  |.... F.4 . . N$(|
00000D90: 4A 30 29 B3 B1 4E 24 28  4A 31 29 20 89 20 32 30  |J0)..N$(J1) . 20|
00000DA0: 38 30 00 AA 15 16 08 82  20 4B 00 B5 15 1B 08 4B  |80...... K.....K|
00000DB0: B2 48 30 AA 31 00 D1 15  20 08 4B 30 B2 4B 3A 4B  |.H0.1... .K0.K:K|
00000DC0: 32 B2 30 3A 81 20 4B B2  31 20 A4 20 31 3A 82 20  |2.0:. K.1 . 1:. |
00000DD0: 4B 00 E4 15 2A 08 8B 20  4B 30 B1 48 30 20 89 20  |K...*.. K0.H0 . |
00000DE0: 32 32 38 30 00 F9 15 34  08 81 20 4B B2 48 30 20  |2280...4.. K.H0 |
00000DF0: A4 20 4B 30 20 A9 20 AB  31 00 05 16 3E 08 4B 31  |. K0 . .1...>.K1|
00000E00: B2 46 28 4B 29 00 29 16  7A 08 8B 20 4B B2 30 20  |.F(K).).z.. K.0 |
00000E10: B0 20 53 28 4B 31 2C 33  29 B1 30 20 A7 20 4B 32  |. S(K1,3).0 . K2|
00000E20: B2 31 3A 8D 20 37 30 30  30 00 69 16 84 08 8B 20  |.1:. 7000.i.... |
00000E30: 4B B1 30 20 A7 20 41 28  4B AB 31 29 B2 41 28 4B  |K.0 . A(K.1).A(K|
00000E40: AB 31 29 AA 41 28 4B 29  3A 41 28 4B 29 B2 30 3A  |.1).A(K):A(K).0:|
00000E50: 42 28 4B AB 31 29 B2 42  28 4B AB 31 29 AA 42 28  |B(K.1).B(K.1).B(|
00000E60: 4B 29 3A 42 28 4B 29 B2  30 00 71 16 8E 08 82 20  |K):B(K).0.q.... |
00000E70: 4B 00 88 16 DE 08 8B 20  4B 32 B1 30 20 A7 20 98  |K...... K2.0 . .|
00000E80: 34 3A 8D 20 34 35 30 30  00 A1 16 E3 08 8B 20 50  |4:. 4500...... P|
00000E90: 39 B2 31 20 A7 20 50 39  B2 30 3A 8D 20 34 35 31  |9.1 . P9.0:. 451|
00000EA0: 30 00 C9 16 E8 08 8B 20  50 32 B1 30 20 A7 20 91  |0...... P2.0 . .|
00000EB0: 20 4B 30 20 89 20 32 39  30 30 2C 32 39 35 30 2C  | K0 . 2900,2950,|
00000EC0: 33 30 30 30 2C 33 30 35  30 00 DB 16 F2 08 8B 20  |3000,3050...... |
00000ED0: 4B 30 B2 30 20 89 20 33  35 30 30 00 F3 16 22 0B  |K0.0 . 3500...".|
00000EE0: 8F 20 50 52 49 4E 54 20  53 59 53 54 45 4D 20 48  |. PRINT SYSTEM H|
00000EF0: 45 41 44 00 05 17 2C 0B  98 34 2C 54 31 24 3A 8D  |EAD...,..4,T1$:.|
00000F00: 20 34 35 30 30 00 13 17  36 0B 98 34 3A 8D 20 34  | 4500...6..4:. 4|
00000F10: 35 30 30 00 2A 17 54 0B  8F 20 50 52 49 4E 54 20  |500.*.T.. PRINT |
00000F20: 4D 41 4A 4F 52 20 48 45  41 44 00 41 17 86 0B 8F  |MAJOR HEAD.A....|
00000F30: 20 50 52 49 4E 54 20 4D  49 4E 4F 52 20 48 45 41  | PRINT MINOR HEA|
00000F40: 44 00 57 17 B8 0B 8F 20  50 52 49 4E 54 20 49 54  |D.W.... PRINT IT|
00000F50: 54 59 20 48 45 41 44 00  70 17 EA 0B 8F 20 50 52  |TY HEAD.p.... PR|
00000F60: 49 4E 54 20 4D 49 4E 49  4D 55 4D 20 48 45 41 44  |INT MINIMUM HEAD|
00000F70: 00 83 17 1C 0C 8F 20 50  52 49 4E 54 20 44 45 54  |...... PRINT DET|
00000F80: 41 49 4C 00 95 17 1E 0C  8B 20 50 32 B2 30 20 89  |AIL...... P2.0 .|
00000F90: 20 32 38 35 30 00 A7 17  21 0C 8B 20 50 30 B2 31  | 2850...!.. P0.1|
00000FA0: 20 89 20 33 34 30 30 00  E9 17 26 0C 44 B2 44 28  | . 3400...&.D.D(|
00000FB0: 4A 30 29 3A 44 30 B2 B5  28 44 AD 31 30 30 30 30  |J0):D0..(D.10000|
00000FC0: 29 3A 44 31 B2 44 AB 44  30 AC 31 30 30 30 30 3A  |):D1.D.D0.10000:|
00000FD0: 44 32 B2 B5 28 44 31 AD  31 30 30 29 3A 44 33 B2  |D2..(D1.100):D3.|
00000FE0: 44 31 AB 44 32 AC 31 30  30 00 13 18 30 0C 98 34  |D1.D2.100...0..4|
00000FF0: 2C 44 30 3B CA 28 4D 24  2C 44 32 AC 33 2C 33 29  |,D0;.(M$,D2.3,3)|
00001000: 3B 22 20 22 3B C9 28 C4  28 44 29 2C 32 29 3B 22  |;" ";.(.(D),2);"|
00001010: 20 22 3B 00 38 18 3A 0C  98 34 2C C8 28 41 24 28  | ";.8.:..4,.(A$(|
00001020: 4A 30 29 AA 22 20 20 20  20 20 20 20 20 20 20 20  |J0)."           |
00001030: 20 20 22 2C 31 35 29 3B  00 60 18 44 0C 98 34 2C  |  ",15);.`.D..4,|
00001040: 22 20 22 3B C8 28 4E 24  28 4A 30 29 AA 22 20 20  |" ";.(N$(J0)."  |
00001050: 20 20 20 20 20 20 20 20  20 20 22 2C 31 34 29 3B  |          ",14);|
00001060: 00 73 18 76 0C 56 B2 56  28 4A 30 29 3A 8D 20 38  |.s.v.V.V(J0):. 8|
00001070: 30 30 30 00 87 18 E4 0C  98 34 3A 50 39 B2 31 3A  |000......4:P9.1:|
00001080: 50 32 B2 50 32 AA 31 00  AB 18 48 0D 41 28 48 30  |P2.P2.1...H.A(H0|
00001090: 29 B2 41 28 48 30 29 AA  31 3A 42 28 48 30 29 B2  |).A(H0).1:B(H0).|
000010A0: 42 28 48 30 29 AA 56 28  4A 30 29 00 B6 18 A2 0D  |B(H0).V(J0).....|
000010B0: 89 20 32 30 33 30 00 BE  18 AC 0D A0 20 34 00 C4  |. 2030...... 4..|
000010C0: 18 10 0E 80 00 EB 18 A0  0F 99 20 22 59 45 41 52  |.......... "YEAR|
000010D0: 20 22 3B B5 28 44 28 31  29 AD 31 30 30 30 30 29  | ";.(D(1).10000)|
000010E0: 3B 22 9D 9D 9D 9D 9D 9D  9D 22 3B 00 0C 19 AA 0F  |;".......";.....|
000010F0: 85 20 59 3A 8B 20 59 B3  31 39 30 30 20 B0 20 59  |. Y:. Y.1900 . Y|
00001100: B1 32 31 30 30 20 89 20  34 30 30 30 00 27 19 B4  |.2100 . 4000.'..|
00001110: 0F 85 20 22 4D 4F 4E 54  48 20 20 4A 41 4E 9D 9D  |.. "MONTH  JAN..|
00001120: 9D 9D 9D 22 3B 58 24 00  3B 19 BE 0F 58 24 B2 C8  |...";X$.;...X$..|
00001130: 28 58 24 AA 22 20 20 22  2C 33 29 00 4A 19 C8 0F  |(X$."  ",3).J...|
00001140: 81 20 4D B2 31 20 A4 20  31 32 00 66 19 D2 0F 8B  |. M.1 . 12.f....|
00001150: 20 58 24 B2 CA 28 4D 24  2C 4D AC 33 2C 33 29 20  | X$..(M$,M.3,3) |
00001160: 89 20 34 30 38 30 00 6E  19 DC 0F 82 20 4D 00 79  |. 4080.n.... M.y|
00001170: 19 E6 0F 89 20 34 30 30  30 00 88 19 F0 0F 85 20  |.... 4000...... |
00001180: 22 44 41 59 22 3B 59 30  00 A4 19 FA 0F 48 28 48  |"DAY";Y0.....H(H|
00001190: 2C 30 29 B2 59 AC 31 30  30 30 30 AA 4D AC 31 30  |,0).Y.10000.M.10|
000011A0: 30 AA 59 30 00 AA 19 04  10 8E 00 B6 19 94 11 50  |0.Y0...........P|
000011B0: 32 B2 50 32 AA 31 00 C5  19 9E 11 8B 20 50 31 B2  |2.P2.1...... P1.|
000011C0: 30 20 A7 20 8E 00 D4 19  A8 11 8B 20 50 32 B3 38  |0 . ....... P2.8|
000011D0: 20 A7 20 8E 00 E9 19 B2  11 8B 20 50 32 B2 31 34  | . ....... P2.14|
000011E0: 20 A7 20 50 32 B2 30 3A  8E 00 F7 19 BC 11 98 34  | . P2.0:.......4|
000011F0: 3A 89 20 34 35 30 30 00  15 1A 88 13 91 20 47 20  |:. 4500...... G |
00001200: 89 20 35 30 31 30 2C 35  30 32 30 2C 35 30 33 30  |. 5010,5020,5030|
00001210: 2C 35 30 34 30 00 2B 1A  92 13 58 B2 28 44 28 4A  |,5040.+...X.(D(J|
00001220: 29 B2 48 28 4B 2C 30 29  29 3A 8E 00 42 1A 9C 13  |).H(K,0)):..B...|
00001230: 58 B2 28 44 28 4A 29 B3  B1 48 28 4B 2C 30 29 29  |X.(D(J)..H(K,0))|
00001240: 3A 8E 00 58 1A A6 13 58  B2 28 44 28 4A 29 B1 48  |:..X...X.(D(J).H|
00001250: 28 4B 2C 30 29 29 3A 8E  00 6E 1A B0 13 58 B2 28  |(K,0)):..n...X.(|
00001260: 44 28 4A 29 B3 48 28 4B  2C 30 29 29 3A 8E 00 8C  |D(J).H(K,0)):...|
00001270: 1A EC 13 91 20 47 20 89  20 35 31 31 30 2C 35 31  |.... G . 5110,51|
00001280: 32 30 2C 35 31 33 30 2C  35 31 34 30 00 A2 1A F6  |20,5130,5140....|
00001290: 13 58 B2 28 41 24 28 4A  29 B2 48 24 28 4B 29 29  |.X.(A$(J).H$(K))|
000012A0: 3A 8E 00 B9 1A 00 14 58  B2 28 41 24 28 4A 29 B3  |:......X.(A$(J).|
000012B0: B1 48 24 28 4B 29 29 3A  8E 00 CF 1A 0A 14 58 B2  |.H$(K)):......X.|
000012C0: 28 41 24 28 4A 29 B1 48  24 28 4B 29 29 3A 8E 00  |(A$(J).H$(K)):..|
000012D0: E5 1A 14 14 58 B2 28 41  24 28 4A 29 B3 48 24 28  |....X.(A$(J).H$(|
000012E0: 4B 29 29 3A 8E 00 03 1B  50 14 91 20 47 20 89 20  |K)):....P.. G . |
000012F0: 35 32 31 30 2C 35 32 32  30 2C 35 32 33 30 2C 35  |5210,5220,5230,5|
00001300: 32 34 30 00 19 1B 5A 14  58 B2 28 56 28 4A 29 B2  |240...Z.X.(V(J).|
00001310: 48 28 4B 2C 30 29 29 3A  8E 00 30 1B 64 14 58 B2  |H(K,0)):..0.d.X.|
00001320: 28 56 28 4A 29 B3 B1 48  28 4B 2C 30 29 29 3A 8E  |(V(J)..H(K,0)):.|
00001330: 00 46 1B 6E 14 58 B2 28  56 28 4A 29 B1 48 28 4B  |.F.n.X.(V(J).H(K|
00001340: 2C 30 29 29 3A 8E 00 5C  1B 78 14 58 B2 28 56 28  |,0)):..\.x.X.(V(|
00001350: 4A 29 B3 48 28 4B 2C 30  29 29 3A 8E 00 7A 1B B4  |J).H(K,0)):..z..|
00001360: 14 91 20 47 20 89 20 35  33 31 30 2C 35 33 32 30  |.. G . 5310,5320|
00001370: 2C 35 33 33 30 2C 35 33  34 30 00 90 1B BE 14 58  |,5330,5340.....X|
00001380: B2 28 4E 24 28 4A 29 B2  48 24 28 4B 29 29 3A 8E  |.(N$(J).H$(K)):.|
00001390: 00 A7 1B C8 14 58 B2 28  4E 24 28 4A 29 B3 B1 48  |.....X.(N$(J)..H|
000013A0: 24 28 4B 29 29 3A 8E 00  BD 1B D2 14 58 B2 28 4E  |$(K)):......X.(N|
000013B0: 24 28 4A 29 B1 48 24 28  4B 29 29 3A 8E 00 D3 1B  |$(J).H$(K)):....|
000013C0: DC 14 58 B2 28 4E 24 28  4A 29 B3 48 24 28 4B 29  |..X.(N$(J).H$(K)|
000013D0: 29 3A 8E 00 F5 1B 70 17  44 37 B2 B5 28 44 28 4A  |):....p.D7..(D(J|
000013E0: 32 29 AD 44 39 29 3A 44  38 B2 44 28 4A 32 29 AB  |2).D9):D8.D(J2).|
000013F0: 44 37 AC 44 39 00 17 1C  7A 17 44 35 B2 B5 28 44  |D7.D9...z.D5..(D|
00001400: 28 4A 33 29 AD 44 39 29  3A 44 36 B2 44 28 4A 33  |(J3).D9):D6.D(J3|
00001410: 29 AB 44 35 AC 44 39 00  27 1C 84 17 8B 20 44 35  |).D5.D9.'.... D5|
00001420: B2 44 37 20 A7 20 8E 00  40 1C 8E 17 46 B2 31 3A  |.D7 . ..@...F.1:|
00001430: 91 20 4B 32 20 89 20 36  30 34 30 2C 36 30 36 30  |. K2 . 6040,6060|
00001440: 00 56 1C 98 17 8B 20 44  28 4A 32 29 B1 44 28 4A  |.V.... D(J2).D(J|
00001450: 33 29 20 A7 20 8E 00 61  1C A2 17 46 B2 AB 31 3A  |3) . ..a...F..1:|
00001460: 8E 00 77 1C AC 17 8B 20  44 28 4A 32 29 B3 44 28  |..w.... D(J2).D(|
00001470: 4A 33 29 20 A7 20 8E 00  82 1C B6 17 46 B2 AB 31  |J3) . ......F..1|
00001480: 3A 8E 00 9A 1C D4 17 8B  20 41 24 28 4A 32 29 B2  |:....... A$(J2).|
00001490: 41 24 28 4A 33 29 20 A7  20 8E 00 B3 1C DE 17 46  |A$(J3) . ......F|
000014A0: B2 31 3A 91 20 4B 32 20  89 20 36 31 32 30 2C 36  |.1:. K2 . 6120,6|
000014B0: 31 34 30 00 CB 1C E8 17  8B 20 41 24 28 4A 32 29  |140...... A$(J2)|
000014C0: B1 41 24 28 4A 33 29 20  A7 20 8E 00 D6 1C F2 17  |.A$(J3) . ......|
000014D0: 46 B2 AB 31 3A 8E 00 EE  1C FC 17 8B 20 41 24 28  |F..1:....... A$(|
000014E0: 4A 32 29 B3 41 24 28 4A  33 29 20 A7 20 8E 00 F9  |J2).A$(J3) . ...|
000014F0: 1C 06 18 46 B2 AB 31 3A  8E 00 0F 1D 38 18 8B 20  |...F..1:....8.. |
00001500: 56 28 4A 32 29 B2 56 28  4A 33 29 20 A7 20 8E 00  |V(J2).V(J3) . ..|
00001510: 28 1D 42 18 46 B2 31 3A  91 20 4B 32 20 89 20 36  |(.B.F.1:. K2 . 6|
00001520: 32 32 30 2C 36 32 34 30  00 3E 1D 4C 18 8B 20 56  |220,6240.>.L.. V|
00001530: 28 4A 32 29 B1 56 28 4A  33 29 20 A7 20 8E 00 49  |(J2).V(J3) . ..I|
00001540: 1D 56 18 46 B2 AB 31 3A  8E 00 5F 1D 60 18 8B 20  |.V.F..1:.._.`.. |
00001550: 56 28 4A 32 29 B3 56 28  4A 33 29 20 A7 20 8E 00  |V(J2).V(J3) . ..|
00001560: 6A 1D 6A 18 46 B2 AB 31  3A 8E 00 82 1D 9C 18 8B  |j.j.F..1:.......|
00001570: 20 4E 24 28 4A 32 29 B2  4E 24 28 4A 33 29 20 A7  | N$(J2).N$(J3) .|
00001580: 20 8E 00 9B 1D A6 18 46  B2 31 3A 91 20 4B 32 20  | ......F.1:. K2 |
00001590: 89 20 36 33 32 30 2C 36  33 34 30 00 B3 1D B0 18  |. 6320,6340.....|
000015A0: 8B 20 4E 24 28 4A 32 29  B1 4E 24 28 4A 33 29 20  |. N$(J2).N$(J3) |
000015B0: A7 20 8E 00 BE 1D BA 18  46 B2 AB 31 3A 8E 00 D6  |. ......F..1:...|
000015C0: 1D C4 18 8B 20 4E 24 28  4A 32 29 B3 4E 24 28 4A  |.... N$(J2).N$(J|
000015D0: 33 29 20 A7 20 8E 00 E1  1D CE 18 46 B2 AB 31 3A  |3) . ......F..1:|
000015E0: 8E 00 F4 1D 58 1B 8F 20  50 52 49 4E 54 20 54 4F  |....X.. PRINT TO|
000015F0: 54 41 4C 53 00 0D 1E 59  1B 53 24 B2 22 20 20 20  |TALS...Y.S$."   |
00001600: 20 20 20 20 20 20 20 20  20 20 20 20 22 00 2A 1E  |            ".*.|
00001610: 5C 1B 58 24 B2 22 2A 22  3A 8B 20 4B B2 53 28 31  |\.X$."*":. K.S(1|
00001620: 2C 31 29 20 89 20 37 30  31 30 00 46 1E 5D 1B 58  |,1) . 7010.F.].X|
00001630: 24 B2 22 22 3A 8B 20 4B  B1 53 28 31 2C 31 29 20  |$."":. K.S(1,1) |
00001640: 89 20 37 30 31 30 00 5E  1E 60 1B 98 34 2C C8 28  |. 7010.^.`..4,.(|
00001650: 53 24 2C 31 33 29 3B 3A  89 20 37 30 32 35 00 A0  |S$,13);:. 7025..|
00001660: 1E 62 1B 44 B2 44 28 4A  31 29 3A 44 30 B2 B5 28  |.b.D.D(J1):D0..(|
00001670: 44 AD 31 30 30 30 30 29  3A 44 31 B2 44 AB 44 30  |D.10000):D1.D.D0|
00001680: AC 31 30 30 30 30 3A 44  32 B2 B5 28 44 31 AD 31  |.10000:D2..(D1.1|
00001690: 30 30 29 3A 44 33 B2 44  31 AB 44 32 AC 31 30 30  |00):D3.D1.D2.100|
000016A0: 00 C3 1E 6C 1B 98 34 2C  44 30 3B CA 28 4D 24 2C  |...l..4,D0;.(M$,|
000016B0: 44 32 AC 33 2C 33 29 3B  C8 28 58 24 AA 53 24 2C  |D2.3,3);.(X$.S$,|
000016C0: 34 29 3B 00 E0 1E 71 1B  58 24 B2 22 2A 22 3A 8B  |4);...q.X$."*":.|
000016D0: 20 4B B2 53 28 32 2C 31  29 20 89 20 37 30 33 30  | K.S(2,1) . 7030|
000016E0: 00 FC 1E 72 1B 58 24 B2  22 22 3A 8B 20 4B B1 53  |...r.X$."":. K.S|
000016F0: 28 32 2C 31 29 20 89 20  37 30 33 30 00 0E 1F 74  |(2,1) . 7030...t|
00001700: 1B 98 34 2C 53 24 3B 3A  89 20 37 30 33 35 00 29  |..4,S$;:. 7035.)|
00001710: 1F 76 1B 98 34 2C C8 28  58 24 AA 41 24 28 4A 31  |.v..4,.(X$.A$(J1|
00001720: 29 AA 53 24 2C 31 35 29  3B 00 46 1F 7B 1B 58 24  |).S$,15);.F.{.X$|
00001730: B2 22 2A 22 3A 8B 20 4B  B2 53 28 34 2C 31 29 20  |."*":. K.S(4,1) |
00001740: 89 20 37 30 34 30 00 62  1F 7C 1B 58 24 B2 22 22  |. 7040.b.|.X$.""|
00001750: 3A 8B 20 4B B1 53 28 34  2C 31 29 20 89 20 37 30  |:. K.S(4,1) . 70|
00001760: 34 30 00 74 1F 7E 1B 98  34 2C 53 24 3B 3A 89 20  |40.t.~..4,S$;:. |
00001770: 37 30 35 30 00 93 1F 80  1B 98 34 2C 22 20 22 3B  |7050......4," ";|
00001780: C8 28 58 24 AA 4E 24 28  4A 31 29 AA 53 24 2C 31  |.(X$.N$(J1).S$,1|
00001790: 34 29 3B 00 A5 1F 8A 1B  56 B2 42 28 4B 29 3A 8D  |4);.....V.B(K):.|
000017A0: 20 38 30 30 30 00 C8 1F  94 1B 98 34 2C CA 28 22  | 8000......4,.("|
000017B0: 2A 2A 2A 2A 2A 20 20 20  20 20 22 2C 4B AA 31 2C  |*****     ",K.1,|
000017C0: 35 29 3B 41 28 4B 29 3B  00 D7 1F 9E 1B 98 34 3A  |5);A(K);......4:|
000017D0: 50 32 B2 50 32 AA 31 00  DD 1F 02 1C 8E 00 E3 1F  |P2.P2.1.........|
000017E0: 40 1F 8F 00 00 20 4A 1F  56 33 B2 B6 28 56 29 3A  |@.... J.V3..(V):|
000017F0: 56 30 B2 31 30 30 30 30  30 30 30 3A 56 31 B2 30  |V0.10000000:V1.0|
00001800: 00 0F 20 54 1F 81 20 56  32 B2 31 20 A4 20 38 00  |.. T.. V2.1 . 8.|
00001810: 28 20 5E 1F 56 25 B2 56  33 AD 56 30 3A 56 33 B2  |( ^.V%.V3.V0:V3.|
00001820: 56 33 AB 56 30 AC 56 25  00 4D 20 68 1F 56 31 B2  |V3.V0.V%.M h.V1.|
00001830: 56 31 AA 56 25 3A 8B 20  56 31 B2 30 20 A7 20 98  |V1.V%:. V1.0 . .|
00001840: 34 2C 22 20 22 3B 3A 89  20 38 30 36 30 00 5E 20  |4," ";:. 8060.^ |
00001850: 72 1F 98 34 2C C7 28 56  25 AA 34 38 29 3B 00 78  |r..4,.(V%.48);.x|
00001860: 20 7C 1F 8B 20 56 32 B2  36 20 A7 20 56 31 B2 31  | |.. V2.6 . V1.1|
00001870: 3A 98 34 2C 22 2E 22 3B  00 94 20 86 1F 8B 20 56  |:.4,".";.. ... V|
00001880: 32 B2 33 20 AF 20 56 31  B2 30 20 A7 20 98 34 2C  |2.3 . V1.0 . .4,|
00001890: 22 20 22 3B 00 B1 20 90  1F 8B 20 56 32 B2 33 20  |" ";.. ... V2.3 |
000018A0: AF 20 56 31 B3 B1 30 20  A7 20 98 34 2C 22 2C 22  |. V1..0 . .4,","|
000018B0: 3B 00 BE 20 9A 1F 56 30  B2 56 30 AD 31 30 00 C7  |;.. ..V0.V0.10..|
000018C0: 20 A4 1F 82 20 56 32 00  DC 20 AE 1F 8B 20 56 B3  | ... V2.. ... V.|
000018D0: 30 20 A7 20 98 34 2C 22  43 52 22 3B 00 F2 20 B8  |0 . .4,"CR";.. .|
000018E0: 1F 8B 20 56 B1 B2 30 20  A7 20 98 34 2C 22 20 20  |.. V..0 . .4,"  |
000018F0: 22 3B 00 F8 20 C2 1F 8E  00 02 21 28 23 9F 20 34  |";.. .....!(#. 4|
00001900: 2C 33 00 0D 21 32 23 8D  20 38 30 30 30 00 15 21  |,3..!2#. 8000..!|
00001910: 3C 23 A0 20 34 00 00 00                           |<#. 4...        |

..$.... "REPORTER - JIM BUTTERFIELD".?..
.. "V1.1 - 1987 MAY 29".Y.... RECEIPTS,E
XPENSES,*.B.... F$...(.. F$.."*" . J.J.1
:. J;F$:. 30...2.. "YOUR CHOICE (1 TO";J
;")"...<.. X:. X.1 . X.J . 60.V.F..:. J.
1 . X:. F$:. J...P.. "DATA FILE <";F$;".
D>".#.D.M$."  JANFEBMARAPRMAYJUNJULAUGSE
POCTNOVDEC".J.N.M.300:. I(M),D(M),A$(M),
V(M),N$(M)..S.. A(4),B(4),F(4),F$(4),C$
(4),S(4,3),H(6,2),H$(6)...X.. 15,8,15...
..T9.0:. 1,8,3,F$.".D"......15,E,E$.D...
. E.62 . 260... .N.N.1:.1,D(N),A$(N),V(N
),N$(N).....T9.T9..(V(N)):. T9.0 . N9.N9
.1...... ST.0 . 160......15,E,E$,E1,E2.6
...  1.`.H.. E..0 . . "*** ERROR ***";E$
;E1;E2:..~.R.. N;"ITEMS FOUND ON FILE"..
.W.. N9.0 . . "(INCLUDING";N9;"DUMMIES)"
.....D.D(N):. 300.F...  1:  15.L.....U.,
.  15...6.F$(1)."DATE":F$(2)."ACCOUNT":F
$(3)."AMOUNT":F$(4)."ITEM".].;.C$(1)."EQ
UAL":C$(2)."NOT EQUAL":C$(3)."GREATER TH
AN":C$(4)."LESS THAN"...@.. "WANT SELECT
ED (S) ITEMS OR ALL (A) ITEMS  A...";X$.
..J.. X$."A" . 680...T.. X$.."S" . 320.H
.Y.H$."".U.\.H.0:H0.0...^.. "SELECT ON F
IELD..."...H.. J.1 . 4...R.. J;F$(J)...|
.. J.*.... "FIELD (1-4)";F.@.... F.0 . F
.4 . 390.K...H(H,1).F:. F.0 . . "<CANCEL
LED>":. 320...... "TYPE OF TEST...".....
. J.1 . 4...... J;F$(F);" ";C$(J);"...".
..B.. J.L.L.. "WHICH TEST";G...V.. G.0 .
 G.4 . 460.....H(H,2).G:. G.0 . . "<CANC
ELLED>":. 320.......4.... "TEST:  ";F$(F
);" ";C$(G);.N.... F.2 . F.4 . . H$(H).C
.... F.3 . . H(H,0).|.... F.1 . . ":":. 
4000.....X$."N":. H.6 . . "..IS THERE MO
RE TO THIS SELECTION  N...";X$.....H.H.1
:. X$."Y" . X$."YES" . 350...... J.N9.1 
. N:X0.(1.1):. I(J).0 . 610...&.. K.0 . 
H.1.1.0.F.H(K,1):G.H(K,2).O.:.. F . 5000
,5100,5200,5300.].D.X0.X0 . X.E.N.. K..
X.. X0 . I(J).J:H0.H0.1...B.. J...L.. H0
;H$;"ITEMS SELECTED"...V...L.... "ANOTHE
R SELETION  N...";X$...... X$."Y" . X$."
YES" . H$."NEW ":. 348...... 690...... J
.N9.1 . N:I(J).J:. J.$...H.0.M.... J.1 .
 N:. I(J).0 . H.H.1:I(H).I(J).U.F.. J.K.
P.. "<";H;"ITEMS >"...Z.. "----  REPORT 
SECTION ----"...... J.1 . 4:F(J).0:. J:H
0.0.E.... "ITEMS ORDERED BY:"...... 0;"N
O SPECIAL ORDER"...... J.1 . 4:. S(J,1).
0 . . J;F$(J)...... J.'. .. X:. X.0 . X.
4 . 800.7.*.. X.0 . 900.L.4.. S(X,1).0 .
 800.J.>.H0.H0.1:S(X,1).H0:F(H0).X...H..
 X.3 . . "IN ASCENDING ORDER  N...";X$.C
.I.. X..3 . . "IN ASCENDING ORDER  Y..."
;X$...L.. X$."Y" . X$."YES" . S(X,2).1..
.R.. "WANT SUBTOTALS ON EACH ";...S.. X.
1 . . "MONTH";.4.T.. X..1 . . F$(X);.E.U
.."  Y...";X$.H.V.. X$."Y" . X$."YES" . 
S(X,3).1.Y.F.. H0.4 . 900...P..:. "WITHI
N ABOVE, ORDER BY:"...Z.. 765.C...D9.1:.
 S(1,1).H0 . D9.100.Q.... J.1 . 4...... 
S(J,1).0 . S(J,1).5...... J............ 
"REPORT TITLE  #...";T1$.6.... "..TO PRI
NTER  N...";X$.X...P.3:. X$."Y" . X$."YE
S" . P.4.{.... P.4 . . [[ SET UP .ER NOW
 ]]...... "DETAIL (D) OR SUMMARY (S)  D.
..";X$.....P0.0:. X$."D" . 970.V...P0.1:
. X$."S" . 970...E.. 950...J.X$."N":. P.
4 . . "PAGE FEED  N...";X$.3.O.P1.0:P2.0
:. X$."Y" . X$."YES" . P1.1.=.T.. 4,3.X.
..J.0:J8.H:. H0.0 . 1900.A...J8.1.....J7
.J8:. J9.H.1 . J8 . .1:J2.I(J9):J3.I(J9.
1).....J8.H:F.0:D6.0:D8.0...... K.1 . H0
.D...K0.F(K).....K2.S(K0,2).1  :. DESC=1
     ASCENDING=2...$.. K0 . 6000,6100,62
00,6300...... F.0 . . K.H.8.. F.0 . F..(
D6.D8):. S(1,2).0 . F..F.Q.L.. F..1 . J8
.J9.1:I(J9).J3:I(J9.1).J2.Z.V.. J9...L..
...P.. PRINT SYSTEM HEAD...... J.1..J8 .
 J8.H . 1010.Y...J.J.1:J1.J0:J0.I(J):. J
.1 . 2850.....K.0:. J.H . 2080...... K.1
 . H0.....F.F(K).8.... F.1 . . .(D(J0).1
00)...(D(J1).100) . 2080.\.... F.2 . . A
$(J0)..A$(J1) . 2080.~.... F.3 . . V(J0)
..V(J1) . 2080...... F.4 . . N$(J0)..N$(
J1) . 2080...... K.....K.H0.1.Q. .K0.K:K
2.0:. K.1 . 1:. K...*.. K0.H0 . 2280...4
.. K.H0 . K0 . .1...>.K1.F(K).).Z.. K.0 
. S(K1,3).0 . K2.1:. 7000.I.... K.0 . A(
K.1).A(K.1).A(K):A(K).0:B(K.1).B(K.1).B(
K):B(K).0.Q.... K...... K2.0 . .4:. 4500
...... P9.1 . P9.0:. 4510.I.... P2.0 . .
 K0 . 2900,2950,3000,3050...... K0.0 . 3
500...".. PRINT SYSTEM HEAD...,..4,T1$:.
 4500...6..4:. 4500.*.T.. PRINT MAJOR HE
AD.A.... PRINT MINOR HEAD.W.... PRINT IT
TY HEAD.P.... PRINT MINIMUM HEAD...... P
RINT DETAIL...... P2.0 . 2850...!.. P0.1
 . 3400...&.D.D(J0):D0..(D.10000):D1.D.D
0.10000:D2..(D1.100):D3.D1.D2.100...0..4
,D0;J(M$,D2.3,3);" ";I(D(D),2);" ";.8.:.
.4,H(A$(J0)."             ",15);.`.D..4,
" ";H(N$(J0)."            ",14);.S.V.V.V
(J0):. 8000......4:P9.1:P2.P2.1...H.A(H0
).A(H0).1:B(H0).B(H0).V(J0)...... 2030..
...  4.D....... .. "YEAR ";.(D(1).10000)
;".......";...... Y:. Y.1900 . Y.2100 . 
4000.'.... "MONTH  JAN.....";X$.;...X$.H
(X$."  ",3).J.H.. M.1 . 12.F.R.. X$.J(M$
,M.3,3) . 4080.N.... M.Y.... 4000...... 
"DAY";Y0.....H(H,0).Y.10000.M.100.Y0....
.......P2.P2.1.E.... P1.0 . ..T.... P2.8
 . ....... P2.14 . P2.0:.......4:. 4500.
..... G . 5010,5020,5030,5040.+...X.(D(J
).H(K,0)):..B...X.(D(J)..H(K,0)):..X...X
.(D(J).H(K,0)):..N...X.(D(J).H(K,0)):...
.... G . 5110,5120,5130,5140.....X.(A$(J
).H$(K)):......X.(A$(J)..H$(K)):..O...X.
(A$(J).H$(K)):......X.(A$(J).H$(K)):....
P.. G . 5210,5220,5230,5240...Z.X.(V(J).
H(K,0)):..0.D.X.(V(J)..H(K,0)):..F.N.X.(
V(J).H(K,0)):..\.X.X.(V(J).H(K,0)):..Z..
.. G . 5310,5320,5330,5340.....X.(N$(J).
H$(K)):....H.X.(N$(J)..H$(K)):....R.X.(N
$(J).H$(K)):..S...X.(N$(J).H$(K)):....P.
D7..(D(J2).D9):D8.D(J2).D7.D9...Z.D5..(D
(J3).D9):D6.D(J3).D5.D9.'.... D5.D7 . ..
@...F.1:. K2 . 6040,6060.V.... D(J2).D(J
3) . ..A...F..1:..W.... D(J2).D(J3) . ..
....F..1:....T.. A$(J2).A$(J3) . ......F
.1:. K2 . 6120,6140.K.... A$(J2).A$(J3) 
. ..V...F..1:....... A$(J2).A$(J3) . ...
...F..1:....8.. V(J2).V(J3) . ..(.B.F.1:
. K2 . 6220,6240.>.L.. V(J2).V(J3) . ..I
.V.F..1:.._.`.. V(J2).V(J3) . ..J.J.F..1
:....... N$(J2).N$(J3) . ......F.1:. K2 
. 6320,6340...... N$(J2).N$(J3) . ......
F..1:..V.D.. N$(J2).N$(J3) . ....N.F..1:
....X.. PRINT TOTALS...Y.S$."           
    ".*.\.X$."*":. K.S(1,1) . 7010.F.].X
$."":. K.S(1,1) . 7010.^.`..4,H(S$,13);:
. 7025. .B.D.D(J1):D0..(D.10000):D1.D.D0
.10000:D2..(D1.100):D3.D1.D2.100.C.L..4,
D0;J(M$,D2.3,3);H(X$.S$,4);...Q.X$."*":.
 K.S(2,1) . 7030...R.X$."":. K.S(2,1) . 
7030...T..4,S$;:. 7035.).V..4,H(X$.A$(J1
).S$,15);.F.{.X$."*":. K.S(4,1) . 7040.B
.|.X$."":. K.S(4,1) . 7040.T.~..4,S$;:. 
7050......4," ";H(X$.N$(J1).S$,14);.....
V.B(K):. 8000.H....4,J("*****     ",K.1,
5);A(K);.W....4:P2.P2.1.........@.... J.
V3..(V):V0.10000000:V1.0.. T.. V2.1 . 8.
( ^.V%.V3.V0:V3.V3.V0.V%.M H.V1.V1.V%:. 
V1.0 . .4," ";:. 8060.^ R..4,G(V%.48);.X
 |.. V2.6 . V1.1:.4,".";.. ... V2.3 . V1
.0 . .4," ";.. ... V2.3 . V1..0 . .4,","
;.. ..V0.V0.10.G ... V2.. ... V.0 . .4,"
CR";.. ... V..0 . .4,"  ";.. B....!(#. 4
,3..!2#. 8000..!<#  4...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL