REPORTMASTER

00000000: 01 08 0A 08 0A 00 89 35  36 35 00 25 08 0F 00 8F  |.......565.%....|
00000010: 2A 2A 2A 20 46 4F 52 4D  41 54 20 53 43 52 45 45  |*** FORMAT SCREE|
00000020: 4E 20 2A 2A 2A 00 36 08  14 00 99 22 93 22 3A 81  |N ***.6....".":.|
00000030: 5A B2 31 A4 54 4C 00 60  08 19 00 99 C8 28 43 44  |Z.1.TL.`.....(CD|
00000040: 24 2C C5 28 46 24 28 5A  2C 30 29 29 29 3B C8 28  |$,.(F$(Z,0)));.(|
00000050: 43 52 24 2C C5 28 46 24  28 5A 2C 31 29 29 29 3B  |CR$,.(F$(Z,1)));|
00000060: 00 85 08 1E 00 99 46 24  28 5A 2C 32 29 3B 3A 46  |......F$(Z,2);:F|
00000070: 31 B2 C5 28 46 24 28 5A  2C 33 29 29 3A 8B 46 31  |1..(F$(Z,3)):.F1|
00000080: B2 30 89 35 30 00 B3 08  23 00 99 C8 28 43 44 24  |.0.50...#...(CD$|
00000090: 2C C5 28 46 24 28 5A 2C  34 29 29 29 3B C8 28 43  |,.(F$(Z,4)));.(C|
000000A0: 52 24 2C C5 28 46 24 28  5A 2C 35 29 29 29 3B 22  |R$,.(F$(Z,5)));"|
000000B0: 92 22 3B 00 CA 08 28 00  8B 46 24 28 5A 2C 36 29  |.";...(..F$(Z,6)|
000000C0: B2 22 31 22 A7 99 22 12  22 3B 00 D9 08 2D 00 99  |."1"..".";...-..|
000000D0: 52 24 28 53 2C 46 31 29  3B 00 E7 08 32 00 99 22  |R$(S,F1);...2.."|
000000E0: 92 22 3A 82 5A 3A 8E 00  00 09 37 00 8F 2A 2A 2A  |.":.Z:....7..***|
000000F0: 20 49 54 45 4D 20 53 45  41 52 43 48 20 2A 2A 2A  | ITEM SEARCH ***|
00000100: 00 1E 09 3C 00 81 5A B2  31 A4 54 52 3A 53 B2 53  |...<..Z.1.TR:S.S|
00000110: 52 28 5A 29 3A 8B 4D 53  B2 30 89 31 33 30 00 2C  |R(Z):.MS.0.130.,|
00000120: 09 41 00 8B 4D 53 B2 32  89 31 30 35 00 48 09 46  |.A..MS.2.105.H.F|
00000130: 00 8F 2A 2A 2A 20 4C 45  41 44 49 4E 47 20 53 54  |..*** LEADING ST|
00000140: 52 49 4E 47 20 2A 2A 2A  00 70 09 4B 00 41 24 B2  |RING ***.p.K.A$.|
00000150: C8 28 52 24 28 53 2C 46  31 29 2C 4C 29 3A 8B 42  |.(R$(S,F1),L):.B|
00000160: 24 B2 22 4C 22 AF 41 24  B3 44 49 24 89 31 38 35  |$."L".A$.DI$.185|
00000170: 00 87 09 50 00 8B 42 24  B2 22 45 22 AF 41 24 B2  |...P..B$."E".A$.|
00000180: 44 49 24 89 31 38 35 00  9F 09 55 00 8B 42 24 B2  |DI$.185...U..B$.|
00000190: 22 4E 22 AF 41 24 B3 B1  44 49 24 89 31 38 35 00  |"N".A$..DI$.185.|
000001A0: B6 09 5A 00 8B 42 24 B2  22 47 22 AF 41 24 B1 44  |..Z..B$."G".A$.D|
000001B0: 49 24 89 31 38 35 00 BF  09 5F 00 89 31 39 30 00  |I$.185..._..190.|
000001C0: DB 09 64 00 8F 2A 2A 2A  20 53 4C 49 44 49 4E 47  |..d..*** SLIDING|
000001D0: 20 53 54 52 49 4E 47 20  2A 2A 2A 00 FF 09 69 00  | STRING ***...i.|
000001E0: 51 51 B2 30 3A 41 24 B2  52 24 28 53 2C 46 31 29  |QQ.0:A$.R$(S,F1)|
000001F0: 3A 81 51 B2 31 A4 C3 28  41 24 29 AB 4C AA 31 00  |:.Q.1..(A$).L.1.|
00000200: 1C 0A 6E 00 8B CA 28 41  24 2C 51 2C 4C 29 B2 44  |..n...(A$,Q,L).D|
00000210: 49 24 A7 51 B2 39 39 3A  51 51 B2 31 00 2D 0A 73  |I$.Q.99:QQ.1.-.s|
00000220: 00 82 51 3A 8B 51 51 B2  31 89 31 38 35 00 36 0A  |..Q:.QQ.1.185.6.|
00000230: 78 00 89 31 39 30 00 4E  0A 7D 00 8F 2A 2A 2A 20  |x..190.N.}..*** |
00000240: 57 48 4F 4C 45 20 49 54  45 4D 20 2A 2A 2A 00 72  |WHOLE ITEM ***.r|
00000250: 0A 82 00 41 24 B2 52 24  28 53 2C 46 31 29 3A 8B  |...A$.R$(S,F1):.|
00000260: 4E 53 B2 31 A7 4B 4D B2  C5 28 41 24 29 3A 89 31  |NS.1.KM..(A$):.1|
00000270: 36 30 00 89 0A 87 00 8B  42 24 B2 22 4C 22 AF 41  |60......B$."L".A|
00000280: 24 B3 44 49 24 89 31 38  35 00 A0 0A 8C 00 8B 42  |$.DI$.185......B|
00000290: 24 B2 22 45 22 AF 41 24  B2 44 49 24 89 31 38 35  |$."E".A$.DI$.185|
000002A0: 00 B8 0A 91 00 8B 42 24  B2 22 4E 22 AF 41 24 B3  |......B$."N".A$.|
000002B0: B1 44 49 24 89 31 38 35  00 CF 0A 96 00 8B 42 24  |.DI$.185......B$|
000002C0: B2 22 47 22 AF 41 24 B1  44 49 24 89 31 38 35 00  |."G".A$.DI$.185.|
000002D0: D8 0A 9B 00 89 31 39 30  00 EE 0A A0 00 8B 42 24  |.....190......B$|
000002E0: B2 22 4C 22 AF 4B 4D B3  4B 56 89 31 38 35 00 04  |."L".KM.KV.185..|
000002F0: 0B A5 00 8B 42 24 B2 22  45 22 AF 4B 4D B2 4B 56  |....B$."E".KM.KV|
00000300: 89 31 38 35 00 1C 0B AA  00 8B 42 24 B2 22 4E 22  |.185......B$."N"|
00000310: AF 41 24 B3 B1 44 49 24  89 31 38 35 00 32 0B AF  |.A$..DI$.185.2..|
00000320: 00 8B 42 24 B2 22 47 22  AF 4B 4D B1 4B 56 89 31  |..B$."G".KM.KV.1|
00000330: 38 35 00 3B 0B B4 00 89  31 39 30 00 5F 0B B9 00  |85.;....190._...|
00000340: 99 5A 3B A3 35 29 3B 52  24 28 53 2C 46 31 29 3A  |.Z;.5);R$(S,F1):|
00000350: 45 58 B2 45 58 AA 31 3A  57 28 45 58 29 B2 5A 00  |EX.EX.1:W(EX).Z.|
00000360: 8D 0B BE 00 82 3A 8B 45  58 B2 30 A7 99 22 11 11  |.....:.EX.0.."..|
00000370: 12 CE 4F 4E 45 20 46 4F  55 4E 44 22 3A 81 51 B2  |..ONE FOUND":.Q.|
00000380: 31 A4 34 30 30 30 3A 82  3A 89 35 32 35 00 96 0B  |1.4000:.:.525...|
00000390: C3 00 89 34 32 30 00 B5  0B C8 00 8F 2A 2A 2A 20  |...420......*** |
000003A0: 45 58 54 52 41 43 54 45  44 20 52 45 43 4F 52 44  |EXTRACTED RECORD|
000003B0: 53 20 2A 2A 2A 00 D4 0B  CD 00 53 B2 53 52 28 52  |S ***.....S.SR(R|
000003C0: 29 3A 8D 32 30 3A 99 C8  28 43 44 24 2C 32 33 29  |):.20:..(CD$,23)|
000003D0: 3B 4C 4E 24 00 F5 0B D2  00 99 4E 24 3B 22 20 22  |;LN$......N$;" "|
000003E0: 3B A3 32 35 29 22 20 D2  45 43 4F 52 44 22 3B 52  |;.25)" .ECORD";R|
000003F0: 3A 99 43 4D 24 00 FE 0B  D7 00 8D 34 38 35 00 2C  |:.CM$......485.,|
00000400: 0C DC 00 8B 43 24 B2 22  2E 22 A7 53 58 B2 53 58  |....C$.".".SX.SX|
00000410: AA 31 3A 8B 53 58 B1 45  58 A7 53 58 B2 45 58 3A  |.1:.SX.EX.SX.EX:|
00000420: 52 B2 57 28 53 58 29 3A  89 32 31 35 00 58 0C E1  |R.W(SX):.215.X..|
00000430: 00 8B 43 24 B2 22 2C 22  A7 53 58 B2 53 58 AB 31  |..C$.",".SX.SX.1|
00000440: 3A 8B 53 58 B3 31 A7 53  58 B2 31 3A 52 B2 57 28  |:.SX.1.SX.1:R.W(|
00000450: 53 58 29 3A 89 32 31 35  00 78 0C E6 00 8B 43 24  |SX):.215.x....C$|
00000460: B2 22 2E 22 B0 43 24 B2  22 2C 22 A7 52 B2 57 28  |.".".C$.",".R.W(|
00000470: 53 58 29 3A 89 32 30 35  00 8E 0C EB 00 8B 43 24  |SX):.205......C$|
00000480: B2 22 4D 22 A7 45 58 B2  30 3A 89 35 32 35 00 A5  |."M".EX.0:.525..|
00000490: 0C F0 00 8B 43 24 B2 22  48 22 A7 8D 31 31 33 35  |....C$."H"..1135|
000004A0: 3A 89 32 30 35 00 AE 0C  F5 00 89 32 31 35 00 CC  |:.205......215..|
000004B0: 0C FA 00 8F 2A 2A 2A 20  49 54 45 4D 20 53 45 41  |....*** ITEM SEA|
000004C0: 52 43 48 20 4D 45 4E 55  20 2A 2A 2A 00 EB 0C FF  |RCH MENU ***....|
000004D0: 00 99 22 93 22 A3 39 29  22 12 20 D2 45 43 4F 52  |..".".9)". .ECOR|
000004E0: 44 20 D3 45 41 52 43 48  20 11 22 00 0A 0D 04 01  |D .EARCH .".....|
000004F0: 99 22 93 22 A3 39 29 22  12 20 D2 45 43 4F 52 44  |.".".9)". .ECORD|
00000500: 20 D3 45 41 52 43 48 20  11 22 00 20 0D 09 01 99  | .EARCH .". ....|
00000510: 4C 4E 24 3A 46 32 B2 30  3A 81 5A B2 31 A4 54 4C  |LN$:F2.0:.Z.1.TL|
00000520: 00 3C 0D 0E 01 46 31 B2  C5 28 46 24 28 5A 2C 33  |.<...F1..(F$(Z,3|
00000530: 29 29 3A 8B 46 31 B2 30  89 32 38 30 00 65 0D 13  |)):.F1.0.280.e..|
00000540: 01 46 32 B2 46 32 AA 31  3A 57 28 46 32 29 B2 46  |.F2.F2.1:W(F2).F|
00000550: 31 3A 99 46 32 3B A3 38  29 3B 22 12 22 3B 46 24  |1:.F2;.8);".";F$|
00000560: 28 5A 2C 32 29 00 71 0D  18 01 82 5A 3A 99 4C 4E  |(Z,2).q....Z:.LN|
00000570: 24 00 A4 0D 1D 01 99 3A  99 22 11 CE 55 4D 42 45  |$......:."..UMBE|
00000580: 52 20 4F 46 20 12 20 C9  54 45 4D 20 92 20 54 4F  |R OF . .TEM . TO|
00000590: 20 42 45 20 53 45 41 52  43 48 3F 20 22 3B 3A 8D  | BE SEARCH? ";:.|
000005A0: 31 32 31 30 00 C1 0D 22  01 46 31 B2 C5 28 42 24  |1210...".F1..(B$|
000005B0: 29 3A 8B 46 31 B1 46 32  B0 46 31 B3 31 89 32 38  |):.F1.F2.F1.1.28|
000005C0: 35 00 F1 0D 27 01 46 31  B2 57 28 46 31 29 3A 81  |5...'.F1.W(F1):.|
000005D0: 4A B2 31 A4 54 4C 3A 8B  C5 28 46 24 28 4A 2C 33  |J.1.TL:..(F$(J,3|
000005E0: 29 29 B2 46 31 A7 53 45  24 B2 46 24 28 4A 2C 32  |)).F1.SE$.F$(J,2|
000005F0: 29 00 F7 0D 2C 01 82 00  19 0E 31 01 99 22 93 22  |)...,.....1.."."|
00000600: A3 39 29 22 12 20 22 53  45 24 22 20 D3 45 41 52  |.9)". "SE$" .EAR|
00000610: 43 48 20 22 3A 99 4C 4E  24 00 44 0E 36 01 99 22  |CH ":.LN$.D.6.."|
00000620: 2A 20 54 48 45 4E 20 43  48 41 52 41 43 54 45 52  |* THEN CHARACTER|
00000630: 53 20 46 4F 52 20 22 3B  53 31 24 3B 22 20 53 45  |S FOR ";S1$;" SE|
00000640: 41 52 43 48 00 6F 0E 3B  01 99 22 2B 20 54 48 45  |ARCH.o.;.."+ THE|
00000650: 4E 20 43 48 41 52 41 43  54 45 52 53 20 46 4F 52  |N CHARACTERS FOR|
00000660: 20 22 3B 53 32 24 3B 22  20 53 45 41 52 43 48 00  | ";S2$;" SEARCH.|
00000670: 99 0E 40 01 99 53 33 24  3B 22 20 43 48 41 52 41  |..@..S3$;" CHARA|
00000680: 43 54 45 52 53 20 4F 4E  4C 59 20 46 4F 52 20 C9  |CTERS ONLY FOR .|
00000690: 54 45 4D 20 4D 41 54 43  48 00 AF 0E 45 01 99 22  |TEM MATCH...E.."|
000006A0: 11 D6 41 4C 55 45 3A 22  3B 3A 8D 31 32 31 30 00  |..ALUE:";:.1210.|
000006B0: C1 0E 4A 01 99 3A 44 49  24 B2 42 24 3A 99 4C 4E  |..J..:DI$.B$:.LN|
000006C0: 24 00 EA 0E 4F 01 4D 53  B2 30 3A 8B C8 28 44 49  |$...O.MS.0:..(DI|
000006D0: 24 2C 31 29 B2 22 2A 22  A7 4D 53 B2 31 3A 41 31  |$,1)."*".MS.1:A1|
000006E0: 24 B2 53 31 24 3A 89 33  35 30 00 0E 0F 54 01 8B  |$.S1$:.350...T..|
000006F0: C8 28 44 49 24 2C 31 29  B2 22 2B 22 A7 4D 53 B2  |.(DI$,1)."+".MS.|
00000700: 32 3A 41 31 24 B2 53 32  24 3A 89 33 35 30 00 1F  |2:A1$.S2$:.350..|
00000710: 0F 59 01 41 31 24 B2 53  33 24 3A 89 33 35 35 00  |.Y.A1$.S3$:.355.|
00000720: 4C 0F 5E 01 44 49 24 B2  CA 28 44 49 24 2C 32 29  |L.^.DI$..(DI$,2)|
00000730: 3A 4C B2 C3 28 44 49 24  29 3A 8B 4D 53 B2 32 A7  |:L..(DI$):.MS.2.|
00000740: 41 32 24 B2 53 34 24 3A  89 34 31 35 00 65 0F 63  |A2$.S4$:.415.e.c|
00000750: 01 8D 34 39 35 3A 8B 4E  53 B2 31 A7 4B 56 B2 C5  |..495:.NS.1.KV..|
00000760: 28 44 49 24 29 00 87 0F  68 01 99 3A 99 22 11 C4  |(DI$)...h..:."..|
00000770: 4F 20 59 4F 55 20 57 41  4E 54 20 12 20 22 53 45  |O YOU WANT . "SE|
00000780: 24 22 20 92 3A 2D 22 00  9F 0F 6D 01 99 22 11 28  |$" .:-"...m..".(|
00000790: 45 29 20 22 53 34 24 3B  A3 31 38 29 44 49 24 00  |E) "S4$;.18)DI$.|
000007A0: B7 0F 72 01 99 22 11 28  4E 29 20 22 53 35 24 3B  |..r..".(N) "S5$;|
000007B0: A3 31 38 29 44 49 24 00  CF 0F 77 01 99 22 11 28  |.18)DI$...w..".(|
000007C0: 4C 29 20 22 53 36 24 3B  A3 31 38 29 44 49 24 00  |L) "S6$;.18)DI$.|
000007D0: E7 0F 7C 01 99 22 11 28  47 29 20 22 53 37 24 3B  |..|..".(G) "S7$;|
000007E0: A3 31 38 29 44 49 24 00  00 10 81 01 99 22 11 D7  |.18)DI$......"..|
000007F0: 48 49 43 48 3F 20 22 3B  3A 8D 31 32 31 30 3A 99  |HICH? ";:.1210:.|
00000800: 00 19 10 86 01 8B 42 24  B2 22 45 22 A7 41 32 24  |......B$."E".A2$|
00000810: B2 53 34 24 3A 89 34 31  35 00 32 10 8B 01 8B 42  |.S4$:.415.2....B|
00000820: 24 B2 22 4E 22 A7 41 53  24 B2 53 35 24 3A 89 34  |$."N".AS$.S5$:.4|
00000830: 31 35 00 4B 10 90 01 8B  42 24 B2 22 4C 22 A7 41  |15.K....B$."L".A|
00000840: 32 24 B2 53 36 24 3A 89  34 31 35 00 64 10 95 01  |2$.S6$:.415.d...|
00000850: 8B 42 24 B2 22 47 22 A7  41 32 24 B2 53 37 24 3A  |.B$."G".A2$.S7$:|
00000860: 89 34 31 35 00 6D 10 9A  01 89 33 38 35 00 A3 10  |.415.m....385...|
00000870: 9F 01 99 22 93 22 53 45  24 22 20 22 3B 41 32 24  |..."."SE$" ";A2$|
00000880: 3B 22 20 22 3B 44 49 24  3B 22 20 28 22 3B 41 31  |;" ";DI$;" (";A1|
00000890: 24 3B 22 29 22 3A 99 4C  4E 24 3A 45 58 B2 30 3A  |$;")":.LN$:EX.0:|
000008A0: 89 36 30 00 AC 10 A4 01  99 4C 4E 24 00 D5 10 A9  |.60......LN$....|
000008B0: 01 99 22 D4 4F 54 41 4C  20 52 45 43 4F 52 44 53  |..".OTAL RECORDS|
000008C0: 20 45 58 54 52 41 43 54  45 44 20 3D 22 3B 45 58  | EXTRACTED =";EX|
000008D0: 3A 99 4C 4E 24 00 FB 10  AE 01 99 43 57 24 3A 8D  |:.LN$......CW$:.|
000008E0: 34 38 35 3A 52 B2 57 28  31 29 3A 53 58 B2 31 3A  |485:R.W(1):SX.1:|
000008F0: 8B 43 24 B2 22 4C 22 89  32 30 35 00 11 11 B3 01  |.C$."L".205.....|
00000900: 8B 43 24 B2 22 4D 22 A7  45 58 B2 30 3A 89 35 32  |.C$."M".EX.0:.52|
00000910: 35 00 28 11 B8 01 8B 43  24 B2 22 48 22 A7 8D 31  |5.(....C$."H"..1|
00000920: 31 33 35 3A 89 34 32 30  00 3F 11 BD 01 8B 43 24  |135:.420.?....C$|
00000930: B3 B1 22 50 22 A7 99 22  93 22 3A 89 34 32 35 00  |.."P"..".":.425.|
00000940: 49 11 C2 01 8D 31 32 37  35 00 63 11 C7 01 53 B2  |I....1275.c...S.|
00000950: 53 52 28 52 29 3A 8D 31  33 35 30 3A 53 58 B2 53  |SR(R):.1350:SX.S|
00000960: 58 AA 31 00 8C 11 CC 01  8B 53 58 B1 45 58 A7 53  |X.1......SX.EX.S|
00000970: 58 B2 45 58 3A 52 B2 57  28 53 58 29 3A 45 58 B2  |X.EX:R.W(SX):EX.|
00000980: 30 3A 8D 31 34 33 35 3A  89 35 32 35 00 9D 11 D1  |0:.1435:.525....|
00000990: 01 52 B2 57 28 53 58 29  3A 89 34 35 35 00 B6 11  |.R.W(SX):.455...|
000009A0: D6 01 8F 2A 2A 2A 20 53  55 42 52 4F 55 54 49 4E  |...*** SUBROUTIN|
000009B0: 45 53 20 2A 2A 2A 00 C7  11 DB 01 81 51 B2 31 A4  |ES ***......Q.1.|
000009C0: 39 39 39 3A 82 3A 8E 00  EF 11 E0 01 99 22 11 11  |999:.:......."..|
000009D0: 11 12 20 C1 4E 53 57 45  52 20 59 20 28 59 45 53  |.. .NSWER Y (YES|
000009E0: 29 20 4F 52 20 4E 20 28  4E 4F 29 20 22 3A 8E 00  |) OR N (NO) ":..|
000009F0: 02 12 E5 01 A1 43 24 3A  8B 43 24 B2 22 22 89 34  |.....C$:.C$."".4|
00000A00: 38 35 00 08 12 EA 01 8E  00 38 12 EF 01 4E 53 B2  |85.......8...NS.|
00000A10: 30 3A 99 3A 99 22 C4 4F  45 53 20 54 48 45 20 49  |0:.:.".OES THE I|
00000A20: 54 45 4D 20 43 4F 4E 54  41 49 4E 20 4E 4F 4E 2D  |TEM CONTAIN NON-|
00000A30: 4E 55 4D 45 52 49 43 22  00 5D 12 F4 01 99 22 43  |NUMERIC".]...."C|
00000A40: 48 41 52 41 43 54 45 52  53 20 28 59 45 53 20 4F  |HARACTERS (YES O|
00000A50: 52 20 4E 4F 29 20 22 3A  8D 31 32 31 30 00 7B 12  |R NO) ":.1210.{.|
00000A60: F9 01 42 24 B2 C8 28 42  24 2C 31 29 3A 8B 42 24  |..B$..(B$,1):.B$|
00000A70: B2 22 4E 22 A7 4E 53 B2  31 3A 8E 00 8C 12 FE 01  |."N".NS.1:......|
00000A80: 8B 42 24 B3 B1 22 59 22  89 34 39 35 00 92 12 03  |.B$.."Y".495....|
00000A90: 02 8E 00 A9 12 08 02 8F  2A 2A 2A 20 4D 41 49 4E  |........*** MAIN|
00000AA0: 20 4D 45 4E 55 20 2A 2A  2A 00 CC 12 0D 02 99 22  | MENU ***......"|
00000AB0: 93 22 A3 38 29 22 12 20  D2 C5 D0 CF D2 D4 CD C1  |.".8)". ........|
00000AC0: D3 D4 C5 D2 A0 11 22 3A  99 4C 4E 24 00 ED 12 12  |......":.LN$....|
00000AD0: 02 99 22 31 2E 20 D3 45  41 52 43 48 20 41 4E 44  |.."1. .EARCH AND|
00000AE0: 20 D2 45 50 4F 52 54 22  3A 99 4C 4E 24 00 11 13  | .EPORT":.LN$...|
00000AF0: 17 02 99 22 32 2E 20 D3  41 56 45 20 54 48 45 20  |..."2. .AVE THE |
00000B00: D2 45 50 4F 52 54 20 C6  49 4C 45 22 3A 99 4C 4E  |.EPORT .ILE":.LN|
00000B10: 24 00 2D 13 1C 02 99 22  33 2E 20 C5 58 49 54 20  |$.-...."3. .XIT |
00000B20: 50 52 4F 47 52 41 4D 22  3A 99 4C 4E 24 00 44 13  |PROGRAM":.LN$.D.|
00000B30: 21 02 99 22 11 11 D7 48  49 43 48 20 4E 55 4D 42  |!.."...HICH NUMB|
00000B40: 45 52 3F 22 00 61 13 26  02 A1 43 24 3A 41 B2 C5  |ER?".a.&..C$:A..|
00000B50: 28 43 24 29 3A 8B 41 B3  31 B0 41 B1 33 A7 35 35  |(C$):.A.1.A.3.55|
00000B60: 30 00 76 13 2B 02 91 41  89 32 35 35 2C 31 30 38  |0.v.+..A.255,108|
00000B70: 30 2C 31 31 38 35 00 8E  13 30 02 8F 2A 2A 2A 20  |0,1185...0..*** |
00000B80: 49 4E 49 54 49 41 4C 49  53 45 20 2A 2A 2A 00 BA  |INITIALISE ***..|
00000B90: 13 35 02 99 22 93 1C 22  3A 97 35 33 32 37 32 2C  |.5.."..":.53272,|
00000BA0: 32 33 3A 97 35 33 32 38  30 2C 38 3A 97 35 33 32  |23:.53280,8:.532|
00000BB0: 38 31 2C 38 3A 99 C7 28  38 29 00 E6 13 3A 02 43  |81,8:..(8)...:.C|
00000BC0: 54 24 B2 22 11 11 20 20  20 20 12 A0 D0 D2 C5 D3  |T$."..    ......|
00000BD0: D3 A0 D3 D0 C1 C3 C5 A0  D4 CF A0 C3 CF CE D4 C9  |................|
00000BE0: CE D5 C5 A0 13 22 00 F9  13 3F 02 43 43 24 B2 22  |....."...?.CC$."|
00000BF0: 90 05 1C 9F 9C 1E 1F 9E  22 00 1B 14 44 02 43 44  |........"...D.CD|
00000C00: 24 B2 22 13 11 11 11 11  11 11 11 11 11 11 11 11  |$.".............|
00000C10: 11 11 11 11 11 11 11 11  11 11 22 00 58 14 49 02  |..........".X.I.|
00000C20: 43 52 24 B2 22 1D 1D 1D  1D 1D 1D 1D 1D 1D 1D 1D  |CR$."...........|
00000C30: 1D 1D 1D 1D 1D 1D 1D 1D  1D 1D 1D 1D 1D 1D 1D 1D  |................|
00000C40: 1D 1D 1D 1D 1D 1D 1D 1D  1D 1D 1D 1D 1D 22 3A 52  |.............":R|
00000C50: 54 24 B2 C7 28 31 33 29  00 72 14 4E 02 81 4A B2  |T$..(13).r.N..J.|
00000C60: 31 A4 38 30 3A 53 50 24  B2 53 50 24 AA 22 20 22  |1.80:SP$.SP$." "|
00000C70: 3A 82 00 9F 14 53 02 53  31 24 B2 22 CC 45 41 44  |:....S.S1$.".EAD|
00000C80: 49 4E 47 22 3A 53 32 24  B2 22 D3 4C 49 44 49 4E  |ING":S2$.".LIDIN|
00000C90: 47 22 3A 53 33 24 B2 22  CE 4F 52 4D 41 4C 22 00  |G":S3$.".ORMAL".|
00000CA0: C5 14 58 02 53 34 24 B2  22 C5 51 55 41 4C 20 54  |..X.S4$.".QUAL T|
00000CB0: 4F 22 3A 53 35 24 B2 22  CE 4F 54 20 C5 51 55 41  |O":S5$.".OT .QUA|
00000CC0: 4C 20 54 4F 22 00 EC 14  5D 02 53 36 24 B2 22 CC  |L TO"...].S6$.".|
00000CD0: 45 53 53 20 54 48 41 4E  22 3A 53 37 24 B2 22 C7  |ESS THAN":S7$.".|
00000CE0: 52 45 41 54 45 52 20 54  48 41 4E 22 00 1F 15 62  |REATER THAN"...b|
00000CF0: 02 4C 4E 24 B2 22 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |.LN$."----------|
00000D00: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 2D 2D  |----------------|
00000D10: 2D 2D 2D 2D 2D 2D 2D 2D  2D 2D 2D 2D 2D 2D 22 00  |--------------".|
00000D20: 49 15 67 02 43 4D 24 B2  22 12 20 C3 CF CD CD C1  |I.g.CM$.". .....|
00000D30: CE C4 D3 20 20 20 20 3C  20 20 20 3E 20 20 20 48  |...    <   >   H|
00000D40: 20 20 20 4D 20 20 20 13  22 00 74 15 6C 02 43 57  |   M   .".t.l.CW|
00000D50: 24 B2 22 11 11 12 20 C3  CF CD CD C1 CE C4 D3 20  |$."... ........ |
00000D60: 20 20 50 20 20 20 4C 20  20 20 4D 20 20 20 48 20  |  P   L   M   H |
00000D70: 20 20 13 22 00 96 15 71  02 8F 20 2A 2A 2A 20 52  |  ."...q.. *** R|
00000D80: 45 41 44 20 49 4E 20 46  4F 52 4D 41 54 20 46 49  |EAD IN FORMAT FI|
00000D90: 4C 45 20 2A 2A 2A 00 B8  15 76 02 99 22 93 22 A3  |LE ***...v..".".|
00000DA0: 38 29 22 12 20 D2 C5 D0  CF D2 D4 CD C1 D3 D4 C5  |8)". ...........|
00000DB0: D2 A0 22 3A 99 4C 4E 24  00 E0 15 7B 02 99 22 11  |..":.LN$...{..".|
00000DC0: 11 C5 4E 54 45 52 20 D3  43 52 45 45 4E 20 C6 4F  |..NTER .CREEN .O|
00000DD0: 52 4D 41 54 20 C6 49 4C  45 20 4E 41 4D 45 11 22  |RMAT .ILE NAME."|
00000DE0: 00 04 16 80 02 8D 31 32  31 30 3A 99 3A 46 24 B2  |......1210:.:F$.|
00000DF0: 42 24 3A 42 24 B2 22 30  3A 22 AA 46 24 AA 22 2C  |B$:B$."0:".F$.",|
00000E00: 53 2C 52 22 00 28 16 85  02 9F 35 2C 38 2C 35 2C  |S,R".(....5,8,5,|
00000E10: 42 24 3A 84 35 2C 54 4C  3A 84 35 2C 55 50 3A 86  |B$:.5,TL:.5,UP:.|
00000E20: 46 24 28 54 4C 2C 36 29  00 3B 16 8A 02 81 4A B2  |F$(TL,6).;....J.|
00000E30: 31 A4 54 4C 3A 81 4B B2  30 A4 36 00 59 16 8F 02  |1.TL:.K.0.6.Y...|
00000E40: 84 35 2C 46 24 28 4A 2C  4B 29 3A 82 4B 3A 84 35  |.5,F$(J,K):.K:.5|
00000E50: 2C 41 24 3A 82 4A 3A A0  35 00 78 16 94 02 8F 2A  |,A$:.J:.5.x....*|
00000E60: 2A 2A 20 52 45 41 44 20  49 4E 20 44 41 54 41 20  |** READ IN DATA |
00000E70: 46 49 4C 45 20 2A 2A 2A  00 A6 16 99 02 99 22 11  |FILE ***......".|
00000E80: 11 C5 4E 54 45 52 20 C4  41 54 41 20 C6 49 4C 45  |..NTER .ATA .ILE|
00000E90: 20 4E 41 4D 45 20 11 22  3A 8D 31 32 31 30 3A 99  | NAME .":.1210:.|
00000EA0: 3A 4E 24 B2 42 24 00 C8  16 9E 02 4E 4E 24 B2 22  |:N$.B$.....NN$."|
00000EB0: 30 3A 22 AA 4E 24 AA 22  2C 53 2C 52 22 3A 9F 35  |0:".N$.",S,R":.5|
00000EC0: 2C 38 2C 35 2C 4E 4E 24  00 D8 16 A3 02 84 35 2C  |,8,5,NN$......5,|
00000ED0: 54 52 3A 84 35 2C 54 46  00 1C 17 A8 02 86 52 24  |TR:.5,TF......R$|
00000EE0: 28 54 52 2C 54 46 29 2C  57 28 54 52 29 2C 53 52  |(TR,TF),W(TR),SR|
00000EF0: 28 54 52 29 2C 54 24 28  54 46 29 2C 48 24 28 35  |(TR),T$(TF),H$(5|
00000F00: 2C 31 29 2C 43 24 28 31  30 2C 31 29 2C 46 46 28  |,1),C$(10,1),FF(|
00000F10: 31 30 29 2C 4D 58 28 31  30 2C 31 29 00 48 17 AD  |10),MX(10,1).H..|
00000F20: 02 86 4D 4E 24 28 31 30  2C 32 29 2C 56 28 31 30  |..MN$(10,2),V(10|
00000F30: 2C 31 29 2C 54 50 28 31  30 29 2C 54 54 28 31 30  |,1),TP(10),TT(10|
00000F40: 29 2C 54 58 28 31 30 29  00 6D 17 B2 02 81 4A B2  |),TX(10).m....J.|
00000F50: 31 A4 31 30 3A 81 4B B2  30 A4 32 3A 4D 4E 24 28  |1.10:.K.0.2:MN$(|
00000F60: 4A 2C 4B 29 B2 22 2A 22  3A 82 4B 2C 4A 00 A6 17  |J,K)."*":.K,J...|
00000F70: B7 02 81 52 B2 31 A4 54  52 3A 81 46 4C B2 31 A4  |...R.1.TR:.FL.1.|
00000F80: 54 46 3A 84 35 2C 52 24  28 52 2C 46 4C 29 3A 82  |TF:.5,R$(R,FL):.|
00000F90: 46 4C 2C 52 3A 81 52 B2  31 A4 54 52 3A 53 52 28  |FL,R:.R.1.TR:SR(|
00000FA0: 52 29 B2 52 3A 82 00 B1  17 BC 02 A0 35 3A 52 B2  |R).R:.......5:R.|
00000FB0: 31 00 CC 17 C1 02 8F 2A  2A 2A 20 53 45 4C 45 43  |1......*** SELEC|
00000FC0: 54 20 43 4F 4C 4F 55 52  20 2A 2A 2A 00 FC 17 C6  |T COLOUR ***....|
00000FD0: 02 99 22 93 11 11 11 D3  45 4C 45 43 54 20 53 43  |..".....ELECT SC|
00000FE0: 52 45 45 4E 20 43 4F 4C  4F 55 52 53 20 41 54 20  |REEN COLOURS AT |
00000FF0: 41 4E 59 20 54 49 4D 45  20 54 48 45 00 2B 18 CB  |ANY TIME THE.+..|
00001000: 02 99 22 11 43 55 52 53  4F 52 20 49 53 20 46 4C  |..".CURSOR IS FL|
00001010: 41 53 48 49 4E 47 2C 4F  52 20 4E 4F 57 2C 42 59  |ASHING,OR NOW,BY|
00001020: 20 50 52 45 53 53 49 4E  47 3A 2D 00 5C 18 D0 02  | PRESSING:-.\...|
00001030: 99 22 11 20 20 20 46 31  20 20 20 20 20 C2 4F 52  |.".   F1     .OR|
00001040: 44 45 52 22 3A 99 22 11  20 20 20 46 33 20 20 20  |DER":.".   F3   |
00001050: 20 20 C2 41 43 4B 47 52  4F 55 4E 44 00 91 18 D5  |  .ACKGROUND....|
00001060: 02 99 22 11 20 20 20 46  35 20 20 20 20 20 D4 45  |..".   F5     .E|
00001070: 58 54 22 3A 99 22 11 11  22 3B 43 54 24 3A 5A 5A  |XT":."..";CT$:ZZ|
00001080: B2 31 3A 8D 37 33 30 3A  5A 5A B2 30 3A 89 38 30  |.1:.730:ZZ.0:.80|
00001090: 35 00 A4 18 DA 02 A1 41  24 3A 8B 41 24 B2 22 22  |5......A$:.A$.""|
000010A0: 89 37 33 30 00 B7 18 DF  02 8B C6 28 41 24 29 B2  |.730.......(A$).|
000010B0: 31 33 33 89 37 36 30 00  CA 18 E4 02 8B C6 28 41  |133.760.......(A|
000010C0: 24 29 B2 31 33 34 89 37  37 30 00 DD 18 E9 02 8B  |$).134.770......|
000010D0: C6 28 41 24 29 B2 31 33  35 89 37 38 30 00 EB 18  |.(A$).135.780...|
000010E0: EE 02 8B 41 24 B2 22 20  22 A7 8E 00 F4 18 F3 02  |...A$." ".......|
000010F0: 89 37 33 30 00 0C 19 F8  02 45 43 B2 45 43 AA 31  |.730.....EC.EC.1|
00001100: 3A 8B 45 43 B1 31 35 A7  45 43 B2 30 00 1F 19 FD  |:.EC.15.EC.0....|
00001110: 02 97 35 33 32 38 30 2C  45 43 3A 89 37 39 35 00  |..53280,EC:.795.|
00001120: 37 19 02 03 42 43 B2 42  43 AA 31 3A 8B 42 43 B1  |7...BC.BC.1:.BC.|
00001130: 31 35 A7 42 43 B2 30 00  4A 19 07 03 97 35 33 32  |15.BC.0.J....532|
00001140: 38 31 2C 42 43 3A 89 37  39 35 00 62 19 0C 03 43  |81,BC:.795.b...C|
00001150: 43 B2 43 43 AA 31 3A 8B  43 43 B1 31 36 A7 43 43  |C.CC.1:.CC.16.CC|
00001160: B2 31 00 74 19 11 03 99  CA 28 43 43 24 2C 43 43  |.1.t.....(CC$,CC|
00001170: 2C 31 29 3B 00 96 19 16  03 8B 5A 5A B2 31 A7 99  |,1);......ZZ.1..|
00001180: C8 28 43 44 24 2C 31 32  29 3B A3 31 30 29 3B 22  |.(CD$,12);.10);"|
00001190: D4 45 58 54 22 3B 00 A4  19 1B 03 8B 5A 5A B2 31  |.EXT";......ZZ.1|
000011A0: 89 37 33 30 00 AA 19 20  03 8E 00 E4 19 25 03 99  |.730... .....%..|
000011B0: 22 93 11 11 11 C4 4F 20  59 4F 55 20 57 41 4E 54  |".....O YOU WANT|
000011C0: 20 54 4F 3A 2D 22 3A 99  22 11 11 20 20 20 20 20  | TO:-":."..     |
000011D0: C3 52 45 41 54 45 20 41  20 D2 45 50 4F 52 54 20  |.REATE A .EPORT |
000011E0: C6 49 4C 45 00 13 1A 2A  03 99 A3 31 34 29 3B 22  |.ILE...*...14);"|
000011F0: 11 CF D2 22 3A 99 22 11  20 20 20 20 20 D2 45 41  |...":.".     .EA|
00001200: 44 20 49 4E 20 41 20 52  45 50 4F 52 54 20 46 49  |D IN A REPORT FI|
00001210: 4C 45 3F 00 43 1A 2F 03  99 22 11 11 C5 4E 54 45  |LE?.C./.."...NTE|
00001220: 52 20 43 20 4F 52 20 52  20 3A 22 3B 3A 8D 31 32  |R C OR R :";:.12|
00001230: 31 30 3A 8B C8 28 42 24  2C 31 29 B2 22 43 22 89  |10:..(B$,1)."C".|
00001240: 38 38 30 00 5C 1A 34 03  8B C8 28 42 24 2C 31 29  |880.\.4...(B$,1)|
00001250: B3 B1 22 52 22 A7 99 3A  89 38 31 35 00 7D 1A 39  |.."R"..:.815.}.9|
00001260: 03 8F 2A 2A 2A 20 52 45  41 44 20 49 4E 20 52 45  |..*** READ IN RE|
00001270: 50 4F 52 54 20 46 49 4C  45 20 2A 2A 2A 00 B2 1A  |PORT FILE ***...|
00001280: 3E 03 99 22 93 11 11 11  11 11 11 C5 4E 54 45 52  |>.."........NTER|
00001290: 20 D2 45 50 4F 52 54 20  C6 49 4C 45 20 4E 41 4D  | .EPORT .ILE NAM|
000012A0: 45 3A 22 3B 3A 8D 31 32  31 30 3A 99 3A 4E 24 B2  |E:";:.1210:.:N$.|
000012B0: 42 24 00 D4 1A 43 03 4E  4E 24 B2 22 30 3A 22 AA  |B$...C.NN$."0:".|
000012C0: 4E 24 AA 22 2C 53 2C 52  22 3A 9F 35 2C 38 2C 35  |N$.",S,R":.5,8,5|
000012D0: 2C 4E 4E 24 00 04 1B 48  03 84 35 2C 54 48 3A 84  |,NN$...H..5,TH:.|
000012E0: 35 2C 4D 43 3A 81 4A B2  31 A4 54 48 3A 84 35 2C  |5,MC:.J.1.TH:.5,|
000012F0: 48 24 28 4A 2C 30 29 3A  84 35 2C 48 24 28 4A 2C  |H$(J,0):.5,H$(J,|
00001300: 31 29 3A 82 00 1B 1B 4D  03 81 4A B2 31 A4 4D 43  |1):....M..J.1.MC|
00001310: 3A 84 35 2C 46 46 28 4A  29 3A 82 00 3E 1B 52 03  |:.5,FF(J):..>.R.|
00001320: 81 4A B2 31 A4 4D 43 3A  81 4B B2 30 A4 31 3A 84  |.J.1.MC:.K.0.1:.|
00001330: 35 2C 43 24 28 4A 2C 4B  29 3A 82 4B 2C 4A 00 61  |5,C$(J,K):.K,J.a|
00001340: 1B 57 03 81 4A B2 31 A4  4D 43 3A 81 4B B2 30 A4  |.W..J.1.MC:.K.0.|
00001350: 31 3A 84 35 2C 4D 58 28  4A 2C 4B 29 3A 82 4B 2C  |1:.5,MX(J,K):.K,|
00001360: 4A 00 85 1B 5C 03 81 4A  B2 31 A4 4D 43 3A 81 4B  |J...\..J.1.MC:.K|
00001370: B2 30 A4 32 3A 84 35 2C  4D 4E 24 28 4A 2C 4B 29  |.0.2:.5,MN$(J,K)|
00001380: 3A 82 4B 2C 4A 00 91 1B  66 03 A0 35 3A 89 35 32  |:.K,J...f..5:.52|
00001390: 35 00 AC 1B 6B 03 8F 2A  2A 2A 20 43 52 45 41 54  |5...k..*** CREAT|
000013A0: 45 20 52 45 50 4F 52 54  20 2A 2A 2A 00 D2 1B 70  |E REPORT ***...p|
000013B0: 03 99 22 93 C5 4E 54 45  52 20 55 50 20 54 4F 20  |.."..NTER UP TO |
000013C0: 35 20 52 45 50 4F 52 54  20 C8 45 41 44 49 4E 47  |5 REPORT .EADING|
000013D0: 53 2E 00 EE 1B 75 03 99  22 D4 59 50 45 20 2A 20  |S....u..".YPE * |
000013E0: 57 48 45 4E 20 46 49 4E  49 53 48 45 44 2E 00 FE  |WHEN FINISHED...|
000013F0: 1B 7A 03 54 48 B2 30 3A  81 4A B2 31 A4 35 00 2A  |.z.TH.0:.J.1.5.*|
00001400: 1C 7F 03 99 22 11 22 3B  4A 3B 3A 8D 31 32 31 30  |....".";J;:.1210|
00001410: 3A 99 3A 8B 42 24 B2 22  2A 22 A7 54 48 B2 4A AB  |:.:.B$."*".TH.J.|
00001420: 31 3A 4A B2 35 3A 89 39  32 30 00 3E 1C 84 03 48  |1:J.5:.920.>...H|
00001430: 24 28 4A 2C 30 29 B2 42  24 3A 54 48 B2 4A 00 6E  |$(J,0).B$:TH.J.n|
00001440: 1C 89 03 99 22 11 D3 54  41 52 54 49 4E 47 20 50  |...."..TARTING P|
00001450: 52 49 4E 54 20 50 4F 53  49 54 49 4F 4E 20 28 31  |RINT POSITION (1|
00001460: 2D 37 39 29 3F 20 22 3B  3A 8D 31 32 31 30 00 8A  |-79)? ";:.1210..|
00001470: 1C 8E 03 99 3A 41 B2 C5  28 42 24 29 3A 8B 41 B3  |....:A..(B$):.A.|
00001480: 31 B0 41 B1 37 39 89 39  30 35 00 99 1C 93 03 48  |1.A.79.905.....H|
00001490: 24 28 4A 2C 31 29 B2 42  24 00 A9 1C 98 03 82 3A  |$(J,1).B$......:|
000014A0: 8B 54 48 B2 30 89 38 39  30 00 DA 1C 9D 03 99 22  |.TH.0.890......"|
000014B0: 93 C5 4E 54 45 52 20 55  50 20 54 4F 20 31 30 20  |..NTER UP TO 10 |
000014C0: 54 57 4F 2D 4C 49 4E 45  44 20 C3 4F 4C 55 4D 4E  |TWO-LINED .OLUMN|
000014D0: 20 C8 45 41 44 49 4E 47  53 22 00 F6 1C A2 03 99  | .EADINGS"......|
000014E0: 22 D4 59 50 45 20 2A 20  57 48 45 4E 20 46 49 4E  |".YPE * WHEN FIN|
000014F0: 49 53 48 45 44 2E 00 0C  1D A7 03 4E 58 B2 31 3A  |ISHED......NX.1:|
00001500: 4D 43 B2 30 3A 81 4A B2  31 A4 31 30 00 3C 1D AC  |MC.0:.J.1.10.<..|
00001510: 03 99 3A 99 4A 3B 22 9D  41 20 22 3B 3A 8D 31 32  |..:.J;".A ";:.12|
00001520: 31 30 3A 8B 42 24 B2 22  2A 22 A7 4D 43 B2 4A AB  |10:.B$."*".MC.J.|
00001530: 31 3A 4A B2 31 30 3A 89  31 30 36 35 00 50 1D B1  |1:J.10:.1065.P..|
00001540: 03 43 24 28 4A 2C 30 29  B2 42 24 3A 4D 43 B2 4A  |.C$(J,0).B$:MC.J|
00001550: 00 66 1D B6 03 99 3A 99  4A 3B 22 9D 42 20 22 3B  |.f....:.J;".B ";|
00001560: 3A 8D 31 32 31 30 00 75  1D BB 03 43 24 28 4A 2C  |:.1210.u...C$(J,|
00001570: 31 29 B2 42 24 00 A2 1D  C0 03 99 3A 99 22 11 D5  |1).B$......:."..|
00001580: 53 45 20 44 41 54 41 20  49 54 45 4D 20 4E 4F 3A  |SE DATA ITEM NO:|
00001590: 22 3B 3A 8D 31 32 31 30  3A 41 B2 C5 28 42 24 29  |";:.1210:A..(B$)|
000015A0: 3A 99 00 B0 1D C5 03 8B  41 B1 54 46 89 39 36 30  |:.......A.TF.960|
000015B0: 00 C7 1D CA 03 8B 41 B1  30 A7 46 46 28 4A 29 B2  |......A.0.FF(J).|
000015C0: 41 3A 89 31 30 31 35 00  F5 1D CF 03 46 46 28 4A  |A:.1015.....FF(J|
000015D0: 29 B2 30 3A 99 22 11 C5  4E 54 45 52 20 50 41 52  |).0:."..NTER PAR|
000015E0: 41 4D 45 54 45 52 53 20  46 4F 52 20 43 4F 4C 55  |AMETERS FOR COLU|
000015F0: 4D 4E 22 3B 4A 00 32 1E  D4 03 99 22 11 CE 55 4D  |MN";J.2...."..UM|
00001600: 42 45 52 20 4F 46 20 43  4F 4E 54 52 49 42 55 54  |BER OF CONTRIBUT|
00001610: 49 4E 47 20 43 4F 4C 55  4D 4E 3F 20 22 3B 3A 8D  |ING COLUMN? ";:.|
00001620: 31 32 31 30 3A 99 3A 4D  4E 24 28 4A 2C 30 29 B2  |1210:.:MN$(J,0).|
00001630: 42 24 00 6B 1E D9 03 99  22 11 C1 52 49 54 48 4D  |B$.k...."..RITHM|
00001640: 45 54 49 43 20 4F 50 45  52 41 54 49 4F 4E 20 28  |ETIC OPERATION (|
00001650: 2A 2F 2B 2D 29 3F 3B 3A  47 4F D3 31 32 31 30 3A  |*/+-)?;:GO.1210:|
00001660: 4D 4E 24 28 4A 2C 31 29  3D 42 24 00 94 1E DE 03  |MN$(J,1)=B$.....|
00001670: 8B 42 24 B3 B1 22 2A 22  AF 42 24 B3 B1 22 2F 22  |.B$.."*".B$.."/"|
00001680: AF 42 24 B3 B1 22 2B 22  AF 42 24 B3 B1 22 2D 22  |.B$.."+".B$.."-"|
00001690: 89 39 38 35 00 CE 1E E3  03 99 3A 99 22 11 C3 4F  |.985......:."..O|
000016A0: 4C 2E 20 4E 4F 20 4F 52  20 56 41 4C 55 45 20 28  |L. NO OR VALUE (|
000016B0: 45 4E 54 45 52 20 43 20  46 49 52 53 54 20 49 46  |ENTER C FIRST IF|
000016C0: 20 43 4F 4C 29 22 3A 8D  31 32 31 30 3A 99 00 E5  | COL)":.1210:...|
000016D0: 1E E8 03 8B C5 28 C8 28  42 24 2C 31 29 29 B1 30  |.....(.(B$,1)).0|
000016E0: 89 31 30 31 30 00 FB 1E  ED 03 8B C8 28 42 24 2C  |.1010.......(B$,|
000016F0: 31 29 B3 B1 22 43 22 89  39 39 35 00 0B 1F F2 03  |1).."C".995.....|
00001700: 4D 4E 24 28 4A 2C 32 29  B2 42 24 00 39 1F F7 03  |MN$(J,2).B$.9...|
00001710: 99 22 11 C3 4F 4C 55 4D  4E 20 54 4F 20 42 45 20  |."..OLUMN TO BE |
00001720: 54 4F 54 41 4C 4C 45 44  20 28 59 2F 4E 29 20 22  |TOTALLED (Y/N) "|
00001730: 3B 3A 8D 31 32 31 30 3A  99 00 53 1F FC 03 8B 42  |;:.1210:..S....B|
00001740: 24 B2 22 59 22 A7 54 54  28 4A 29 B2 4A 3A 89 31  |$."Y".TT(J).J:.1|
00001750: 30 33 35 00 6D 1F 01 04  8B 42 24 B2 22 4E 22 A7  |035.m....B$."N".|
00001760: 54 54 28 4A 29 B2 30 3A  89 31 30 33 35 00 77 1F  |TT(J).0:.1035.w.|
00001770: 06 04 89 31 30 31 35 00  B4 1F 0B 04 99 22 11 CD  |...1015......"..|
00001780: 41 58 49 4D 55 4D 20 43  48 41 52 41 43 54 45 52  |AXIMUM CHARACTER|
00001790: 53 20 49 4E 20 43 4F 4C  55 4D 4E 22 3B 4A 3B 22  |S IN COLUMN";J;"|
000017A0: 3A 22 3B 3A 8D 31 32 31  30 3A 4D 58 B2 C5 28 42  |:";:.1210:MX..(B|
000017B0: 24 29 3A 99 00 D2 1F 10  04 41 B2 C3 28 43 24 28  |$):......A..(C$(|
000017C0: 4A 2C 30 29 29 3A 42 B2  C3 28 43 24 28 4A 2C 31  |J,0)):B..(C$(J,1|
000017D0: 29 29 00 DF 1F 15 04 8B  42 B1 41 A7 41 B2 42 00  |))......B.A.A.B.|
000017E0: F0 1F 1A 04 8B 4A B2 32  A7 4D 58 B2 4D 58 AA 31  |.....J.2.MX.MX.1|
000017F0: 00 FF 1F 1F 04 8B 41 B1  4D 58 A7 4D 58 B2 41 00  |......A.MX.MX.A.|
00001800: 24 20 24 04 4D 58 28 4A  2C 30 29 B2 4E 58 3A 4D  |$ $.MX(J,0).NX:M|
00001810: 58 28 4A 2C 31 29 B2 4D  58 3A 4E 58 B2 4E 58 AA  |X(J,1).MX:NX.NX.|
00001820: 4D 58 AA 32 00 2A 20 29  04 82 00 33 20 2E 04 89  |MX.2.* )...3 ...|
00001830: 35 32 35 00 50 20 33 04  8F 2A 2A 20 53 41 56 45  |525.P 3..** SAVE|
00001840: 20 52 45 50 4F 52 54 20  46 49 4C 45 20 2A 2A 2A  | REPORT FILE ***|
00001850: 00 85 20 38 04 99 22 93  11 11 11 11 11 11 C5 4E  |.. 8.."........N|
00001860: 54 45 52 20 D2 45 50 4F  52 54 20 C6 49 4C 45 20  |TER .EPORT .ILE |
00001870: 4E 41 4D 45 3A 22 3B 3A  8D 31 32 31 30 3A 99 3A  |NAME:";:.1210:.:|
00001880: 4E 24 B2 42 24 00 A7 20  3D 04 4E 4E 24 B2 22 30  |N$.B$.. =.NN$."0|
00001890: 3A 22 AA 4E 24 AA 22 2C  53 2C 57 22 3A 9F 35 2C  |:".N$.",S,W":.5,|
000018A0: 38 2C 35 2C 4E 4E 24 00  C1 20 42 04 98 35 2C 54  |8,5,NN$.. B..5,T|
000018B0: 48 3B 52 54 24 3B 3A 98  35 2C 4D 43 3B 52 54 24  |H;RT$;:.5,MC;RT$|
000018C0: 3B 00 EC 20 47 04 81 4A  B2 31 A4 54 48 3A 98 35  |;.. G..J.1.TH:.5|
000018D0: 2C 48 24 28 4A 2C 30 29  3B 52 54 24 3A 98 35 2C  |,H$(J,0);RT$:.5,|
000018E0: 48 24 28 4A 2C 31 29 3B  52 54 24 3B 00 0A 21 4C  |H$(J,1);RT$;..!L|
000018F0: 04 82 3A 81 4A B2 31 A4  4D 43 3A 98 35 2C 46 46  |..:.J.1.MC:.5,FF|
00001900: 28 4A 29 3B 52 54 24 3B  3A 82 00 32 21 51 04 81  |(J);RT$;:..2!Q..|
00001910: 4A B2 31 A4 4D 43 3A 81  4B B2 30 A4 31 3A 98 35  |J.1.MC:.K.0.1:.5|
00001920: 2C 43 24 28 4A 2C 4B 29  3B 52 54 24 3B 3A 82 4B  |,C$(J,K);RT$;:.K|
00001930: 2C 4A 00 5A 21 56 04 81  4A B2 31 A4 4D 43 3A 81  |,J.Z!V..J.1.MC:.|
00001940: 4B B2 30 A4 31 3A 98 35  2C 4D 58 28 4A 2C 4B 29  |K.0.1:.5,MX(J,K)|
00001950: 3B 52 54 24 3B 3A 82 4B  2C 4A 00 83 21 5B 04 81  |;RT$;:.K,J..![..|
00001960: 4A B2 31 A4 4D 43 3A 81  4B B2 30 A4 32 3A 98 35  |J.1.MC:.K.0.2:.5|
00001970: 2C 4D 4E 24 28 4A 2C 4B  29 3B 52 54 24 3B 3A 82  |,MN$(J,K);RT$;:.|
00001980: 4B 2C 4A 00 A7 21 60 04  81 4A B2 31 A4 4D 43 3A  |K,J..!`..J.1.MC:|
00001990: 98 35 2C 54 54 28 4A 29  3B 52 54 24 3B 3A 82 3A  |.5,TT(J);RT$;:.:|
000019A0: A0 35 3A 89 35 32 35 00  B0 21 65 04 89 35 32 35  |.5:.525..!e..525|
000019B0: 00 C2 21 6A 04 8F 2A 2A  2A 20 48 45 4C 50 20 2A  |..!j..*** HELP *|
000019C0: 2A 2A 00 E9 21 6F 04 99  22 93 12 C8 C5 CC D0 A0  |**..!o..".......|
000019D0: D3 C3 D2 C5 C5 CE 3E A0  A0 C3 4F 4D 4D 41 4E 44  |......>...OMMAND|
000019E0: 53 20 41 52 45 3A 2D 20  22 00 17 22 74 04 99 22  |S ARE:- ".."t.."|
000019F0: 11 3C 20 20 D3 45 45 20  CE C5 D8 D4 20 52 45 43  |.<  .EE .... REC|
00001A00: 4F 52 44 20 28 44 4F 4E  27 54 20 50 52 45 53 53  |ORD (DON'T PRESS|
00001A10: 20 53 48 49 46 54 29 00  3D 22 79 04 99 22 11 3E  | SHIFT).="y..".>|
00001A20: 20 20 D3 45 45 20 D0 D2  C5 D6 C9 CF D5 D3 A0 52  |  .EE .........R|
00001A30: 45 43 4F 52 44 20 27 27  20 20 20 27 27 00 56 22  |ECORD ''   ''.V"|
00001A40: 7E 04 99 22 11 4C 20 20  CC CF CF CB 20 41 54 20  |~..".L  .... AT |
00001A50: 52 45 43 4F 52 44 00 77  22 83 04 99 22 11 50 20  |RECORD.w"...".P |
00001A60: D0 D2 C9 CE D4 A0 C1 CC  CC 20 54 48 45 53 45 20  |......... THESE |
00001A70: 52 45 43 4F 52 44 53 00  90 22 88 04 99 22 11 4D  |RECORDS.."...".M|
00001A80: 20 CD C5 CE D5 22 3A 99  22 11 48 20 C8 C5 CC D0  | ....":.".H ....|
00001A90: 00 99 22 8D 04 99 43 54  24 00 AF 22 92 04 A1 41  |.."...CT$.."...A|
00001AA0: 24 3A 8B 41 24 B3 B1 22  20 22 89 31 31 37 30 00  |$:.A$.." ".1170.|
00001AB0: BA 22 97 04 99 22 93 22  3A 8E 00 D4 22 9C 04 8F  |."...".":..."...|
00001AC0: 2A 2A 2A 20 45 58 49 54  20 50 52 4F 47 52 41 4D  |*** EXIT PROGRAM|
00001AD0: 20 2A 2A 2A 00 02 23 A1  04 99 22 93 12 20 C1 52  | ***..#...".. .R|
00001AE0: 45 20 59 4F 55 20 53 55  52 45 20 59 4F 55 20 57  |E YOU SURE YOU W|
00001AF0: 41 4E 54 20 54 4F 20 51  55 49 54 3F 22 3A 8D 34  |ANT TO QUIT?":.4|
00001B00: 38 30 00 17 23 A6 04 8D  34 38 35 3A 8B 43 24 B2  |80..#...485:.C$.|
00001B10: 22 4E 22 A7 35 32 35 00  2D 23 B0 04 99 22 93 12  |"N".525.-#..."..|
00001B20: 20 C5 CE C4 20 22 3A 8D  34 37 35 3A 80 00 44 23  | ... ":.475:..D#|
00001B30: B5 04 8F 2A 2A 2A 20 47  45 54 20 49 4E 50 55 54  |...*** GET INPUT|
00001B40: 20 2A 2A 2A 00 53 23 BA  04 42 24 B2 22 22 3A 54  | ***.S#..B$."":T|
00001B50: 43 B2 30 00 6E 23 BF 04  99 22 A6 9D 22 3B 3A A1  |C.0.n#..."..";:.|
00001B60: 41 24 3A 8B 41 24 B2 22  22 89 31 32 36 30 00 80  |A$:.A$."".1260..|
00001B70: 23 C4 04 8B 41 24 B3 B1  52 54 24 89 31 32 34 30  |#...A$..RT$.1240|
00001B80: 00 94 23 C9 04 8B 54 43  B2 30 AF 52 46 B2 30 89  |..#...TC.0.RF.0.|
00001B90: 31 32 31 35 00 B6 23 CE  04 8B 54 43 B2 30 AF 52  |1215..#...TC.0.R|
00001BA0: 46 B2 31 A7 42 24 B2 52  24 28 53 2C 46 31 29 3A  |F.1.B$.R$(S,F1):|
00001BB0: 99 42 24 3B 3A 8E 00 C2  23 D3 04 99 22 20 22 3B  |.B$;:...#..." ";|
00001BC0: 3A 8E 00 E6 23 D8 04 41  B2 C6 28 41 24 29 3A 8B  |:...#..A..(A$):.|
00001BD0: 41 B1 31 33 32 AF 41 B3  31 33 36 A7 8D 37 33 35  |A.132.A.136..735|
00001BE0: 3A 89 31 32 36 30 00 16  24 DD 04 8B 41 24 B3 B1  |:.1260..$...A$..|
00001BF0: C7 28 32 30 29 A7 99 41  24 3B 22 A6 9D 22 3B 3A  |.(20)..A$;"..";:|
00001C00: 54 43 B2 54 43 AA 31 3A  42 24 B2 42 24 AA 41 24  |TC.TC.1:B$.B$.A$|
00001C10: 3A 89 31 32 31 35 00 25  24 E2 04 8B 54 43 B2 30  |:.1215.%$...TC.0|
00001C20: 89 31 32 31 35 00 4D 24  E7 04 54 43 B2 54 43 AB  |.1215.M$..TC.TC.|
00001C30: 31 3A 99 22 20 9D 9D A6  9D 22 3B 3A 42 24 B2 C8  |1:." ....";:B$..|
00001C40: 28 42 24 2C 54 43 29 3A  89 31 32 31 35 00 7D 24  |(B$,TC):.1215.}$|
00001C50: EC 04 81 51 B2 31 A4 38  30 3A 82 3A 99 22 20 9D  |...Q.1.80:.:." .|
00001C60: 22 3B 3A A1 41 24 3A 8B  41 24 B2 22 22 A7 81 51  |";:.A$:.A$.""..Q|
00001C70: B2 31 A4 38 30 3A 82 3A  89 31 32 31 35 00 87 24  |.1.80:.:.1215..$|
00001C80: F1 04 89 31 32 32 30 00  AA 24 F6 04 8F 2A 2A 2A  |...1220..$...***|
00001C90: 20 57 52 49 54 45 20 52  45 50 4F 52 54 20 48 45  | WRITE REPORT HE|
00001CA0: 41 44 49 4E 47 53 20 2A  2A 2A 00 BF 24 FB 04 97  |ADINGS ***..$...|
00001CB0: 35 33 32 36 35 2C 31 31  3A 9F 34 2C 34 2C 37 00  |53265,11:.4,4,7.|
00001CC0: E3 24 00 05 81 4A B2 31  A4 54 48 3A 98 34 2C C8  |.$...J.1.TH:.4,.|
00001CD0: 28 53 50 24 2C C5 28 48  24 28 4A 2C 31 29 29 AB  |(SP$,.(H$(J,1)).|
00001CE0: 31 29 3B 00 FF 24 05 05  98 34 2C 48 24 28 4A 2C  |1);..$...4,H$(J,|
00001CF0: 30 29 3A 82 3A 98 34 2C  4C 4E 24 3B 4C 4E 24 00  |0):.:.4,LN$;LN$.|
00001D00: 28 25 0A 05 81 4A B2 31  A4 4D 43 3A 5A 24 B2 C8  |(%...J.1.MC:Z$..|
00001D10: 28 53 50 24 2C 4D 58 28  4A 2C 31 29 AB C3 28 43  |(SP$,MX(J,1)..(C|
00001D20: 24 28 4A 2C 30 29 29 29  00 3B 25 0F 05 8B 4A B1  |$(J,0))).;%...J.|
00001D30: 31 A7 5A 24 B2 5A 24 AA  22 20 22 00 53 25 14 05  |1.Z$.Z$." ".S%..|
00001D40: 98 34 2C 5A 24 3B 43 24  28 4A 2C 30 29 3B 3A 82  |.4,Z$;C$(J,0);:.|
00001D50: 3A 98 34 00 7C 25 19 05  81 4A B2 31 A4 4D 43 3A  |:.4.|%...J.1.MC:|
00001D60: 5A 24 B2 C8 28 53 50 24  2C 4D 58 28 4A 2C 31 29  |Z$..(SP$,MX(J,1)|
00001D70: AB C3 28 43 24 28 4A 2C  31 29 29 29 00 8F 25 1E  |..(C$(J,1)))..%.|
00001D80: 05 8B 4A B1 31 A7 5A 24  B2 5A 24 AA 22 20 22 00  |..J.1.Z$.Z$." ".|
00001D90: B2 25 23 05 98 34 2C 5A  24 3B 43 24 28 4A 2C 31  |.%#..4,Z$;C$(J,1|
00001DA0: 29 3B 3A 82 3A 98 34 3A  98 34 2C 4C 4E 24 3B 4C  |);:.:.4:.4,LN$;L|
00001DB0: 4E 24 00 C6 25 28 05 81  4A B2 31 A4 4D 43 3A 54  |N$..%(..J.1.MC:T|
00001DC0: 58 28 4A 29 B2 30 00 DD  25 2D 05 56 28 4A 2C 30  |X(J).0..%-.V(J,0|
00001DD0: 29 B2 C5 28 4D 4E 24 28  4A 2C 30 29 29 00 17 26  |)..(MN$(J,0))..&|
00001DE0: 32 05 8B C8 28 4D 4E 24  28 4A 2C 32 29 2C 31 29  |2...(MN$(J,2),1)|
00001DF0: B2 22 43 22 A7 56 28 4A  2C 31 29 B2 C5 28 CA 28  |."C".V(J,1)..(.(|
00001E00: 4D 4E 24 28 4A 2C 32 29  2C 32 29 29 AA 39 30 30  |MN$(J,2),2)).900|
00001E10: 30 3A 89 31 33 34 30 00  2E 26 37 05 56 28 4A 2C  |0:.1340..&7.V(J,|
00001E20: 31 29 B2 C5 28 4D 4E 24  28 4A 2C 32 29 29 00 36  |1)..(MN$(J,2)).6|
00001E30: 26 3C 05 82 3A 8E 00 50  26 41 05 8F 2A 2A 2A 20  |&<..:..P&A..*** |
00001E40: 57 52 49 54 45 20 52 45  50 4F 52 54 20 2A 2A 2A  |WRITE REPORT ***|
00001E50: 00 83 26 46 05 81 4A B2  31 A4 4D 43 3A 54 50 28  |..&F..J.1.MC:TP(|
00001E60: 4A 29 B2 30 3A 8B 46 46  28 4A 29 B3 B1 30 A7 54  |J).0:.FF(J)..0.T|
00001E70: 50 28 4A 29 B2 C5 28 52  24 28 53 2C 46 46 28 4A  |P(J)..(R$(S,FF(J|
00001E80: 29 29 29 00 B3 26 4B 05  82 3A 81 4A B2 31 A4 4D  |)))..&K..:.J.1.M|
00001E90: 43 3A 8B 46 46 28 4A 29  B3 B1 30 A7 56 33 B2 C5  |C:.FF(J)..0.V3..|
00001EA0: 28 52 24 28 53 2C 46 46  28 4A 29 29 29 3A 89 31  |(R$(S,FF(J))):.1|
00001EB0: 33 39 30 00 E7 26 50 05  56 31 B2 54 50 28 56 28  |390..&P.V1.TP(V(|
00001EC0: 4A 2C 30 29 29 3A 56 33  B2 30 3A 8B 56 28 4A 2C  |J,0)):V3.0:.V(J,|
00001ED0: 31 29 B3 39 30 30 30 A7  56 32 B2 56 28 4A 2C 31  |1).9000.V2.V(J,1|
00001EE0: 29 3A 89 31 33 37 30 00  FE 26 55 05 56 32 B2 54  |):.1370..&U.V2.T|
00001EF0: 50 28 56 28 4A 2C 31 29  AB 39 30 30 30 29 00 1F  |P(V(J,1).9000)..|
00001F00: 27 5A 05 8B 4D 4E 24 28  4A 2C 31 29 B2 22 2A 22  |'Z..MN$(J,1)."*"|
00001F10: A7 56 33 B2 56 31 AC 56  32 3A 89 31 33 39 30 00  |.V3.V1.V2:.1390.|
00001F20: 49 27 5F 05 8B 4D 4E 24  28 4A 2C 31 29 B2 22 2F  |I'_..MN$(J,1)."/|
00001F30: 22 A7 56 33 B2 B5 28 28  56 31 AD 56 32 29 AC 31  |".V3..((V1.V2).1|
00001F40: 30 30 29 3A 89 31 33 39  30 00 6A 27 64 05 8B 4D  |00):.1390.j'd..M|
00001F50: 4E 24 28 4A 2C 31 29 B2  22 2B 22 A7 56 33 B2 56  |N$(J,1)."+".V3.V|
00001F60: 31 AA 56 32 3A 89 31 33  39 30 00 85 27 69 05 8B  |1.V2:.1390..'i..|
00001F70: 4D 4E 24 28 4A 2C 31 29  B2 22 2D 22 A7 56 33 B2  |MN$(J,1)."-".V3.|
00001F80: 56 31 AB 56 32 00 B0 27  6E 05 54 50 28 4A 29 B2  |V1.V2..'n.TP(J).|
00001F90: 56 33 3A 82 3A 81 4A B2  31 A4 4D 43 3A 54 58 28  |V3:.:.J.1.MC:TX(|
00001FA0: 4A 29 B2 54 58 28 4A 29  AA 54 50 28 4A 29 3A 82  |J).TX(J).TP(J):.|
00001FB0: 00 BC 27 73 05 81 4A B2  31 A4 4D 43 00 CE 27 78  |..'s..J.1.MC..'x|
00001FC0: 05 8B 46 46 28 4A 29 B2  30 89 31 34 31 30 00 FF  |..FF(J).0.1410..|
00001FD0: 27 7D 05 51 24 B2 52 24  28 53 2C 46 46 28 4A 29  |'}.Q$.R$(S,FF(J)|
00001FE0: 29 3A 8B C8 28 51 24 2C  31 29 B3 22 30 22 B0 C8  |):..(Q$,1)."0"..|
00001FF0: 28 51 24 2C 31 29 B1 22  39 22 89 31 34 31 35 00  |(Q$,1)."9".1415.|
00002000: 0F 28 82 05 51 24 B2 C4  28 54 50 28 4A 29 29 00  |.(..Q$..(TP(J)).|
00002010: 2B 28 87 05 5A 24 B2 C8  28 53 50 24 2C 4D 58 28  |+(..Z$..(SP$,MX(|
00002020: 4A 2C 31 29 AB C3 28 51  24 29 29 00 3E 28 8C 05  |J,1)..(Q$)).>(..|
00002030: 8B 4A B1 31 A7 5A 24 B2  5A 24 AA 22 20 22 00 53  |.J.1.Z$.Z$." ".S|
00002040: 28 91 05 98 34 2C 5A 24  3B 51 24 3B 3A 82 3A 98  |(...4,Z$;Q$;:.:.|
00002050: 34 3A 8E 00 6D 28 96 05  8F 2A 2A 2A 20 57 52 49  |4:..m(...*** WRI|
00002060: 54 45 20 54 4F 54 41 4C  53 20 2A 2A 2A 00 92 28  |TE TOTALS ***..(|
00002070: 9B 05 98 34 2C 4C 4E 24  3B 4C 4E 24 3A 81 4A B2  |...4,LN$;LN$:.J.|
00002080: 31 A4 4D 43 3A 51 24 B2  CA 28 C4 28 53 58 29 2C  |1.MC:Q$..(.(SX),|
00002090: 32 29 00 AC 28 A0 05 8B  54 54 28 4A 29 B3 B1 30  |2)..(...TT(J)..0|
000020A0: A7 51 24 B2 C4 28 54 58  28 4A 29 29 00 C8 28 A5  |.Q$..(TX(J))..(.|
000020B0: 05 5A 24 B2 C8 28 53 50  24 2C 4D 58 28 4A 2C 31  |.Z$..(SP$,MX(J,1|
000020C0: 29 AB C3 28 51 24 29 29  00 DB 28 AA 05 8B 4A B1  |)..(Q$))..(...J.|
000020D0: 31 A7 5A 24 B2 5A 24 AA  22 20 22 00 F6 28 AF 05  |1.Z$.Z$." "..(..|
000020E0: 8B 54 54 28 4A 29 B2 30  A7 51 24 B2 22 12 22 AA  |.TT(J).0.Q$.".".|
000020F0: 51 24 AA 22 92 22 00 09  29 B4 05 98 34 2C 5A 24  |Q$."."..)...4,Z$|
00002100: 3B 51 24 3B 3A 82 3A 98  34 00 27 29 B9 05 98 34  |;Q$;:.:.4.')...4|
00002110: 2C 4C 4E 24 3B 4C 4E 24  3A A0 34 3A 97 35 33 32  |,LN$;LN$:.4:.532|
00002120: 36 35 2C 32 37 3A 8E 00  00 00                    |65,27:....      |

.......565.%....*** FORMAT SCREEN ***.6.
...".":.Z.1.TL.`....H(CD$,E(F$(Z,0)));H(
CR$,E(F$(Z,1)));......F$(Z,2);:F1.E(F$(Z
,3)):.F1.0.50...#..H(CD$,E(F$(Z,4)));H(C
R$,E(F$(Z,5)));".";.J.(..F$(Z,6)."1"..".
";.Y.-..R$(S,F1);...2..".":.Z:....7..***
 ITEM SEARCH ***...<..Z.1.TR:S.SR(Z):.MS
.0.130.,.A..MS.2.105.H.F..*** LEADING ST
RING ***.P.K.A$.H(R$(S,F1),L):.B$."L".A$
.DI$.185...P..B$."E".A$.DI$.185...U..B$.
"N".A$..DI$.185...Z..B$."G".A$.DI$.185..
._..190...D..*** SLIDING STRING ***...I.
QQ.0:A$.R$(S,F1):.Q.1.C(A$).L.1...N..J(A
$,Q,L).DI$.Q.99:QQ.1.-.S..Q:.QQ.1.185.6.
X..190.N.}..*** WHOLE ITEM ***.R...A$.R$
(S,F1):.NS.1.KM.E(A$):.160......B$."L".A
$.DI$.185. ....B$."E".A$.DI$.185......B$
."N".A$..DI$.185.O....B$."G".A$.DI$.185.
X....190... ..B$."L".KM.KV.185......B$."
E".KM.KV.185......B$."N".A$..DI$.185.2..
..B$."G".KM.KV.185.;....190._....Z;.5);R
$(S,F1):EX.EX.1:W(EX).Z......:.EX.0.."..
.NONE FOUND":.Q.1.4000:.:.525...C..420..
.H..*** EXTRACTED RECORDS ***.T.M.S.SR(R
):.20:.H(CD$,23);LN$...R..N$;" ";.25)" R
ECORD";R:.CM$...W..485.,....C$.".".SX.SX
.1:.SX.EX.SX.EX:R.W(SX):.215.X....C$.","
.SX.SX.1:.SX.1.SX.1:R.W(SX):.215.X....C$
.".".C$.",".R.W(SX):.205......C$."M".EX.
0:.525......C$."H"..1135:.205......215.L
....*** ITEM SEARCH MENU ***......".".9)
". RECORD SEARCH ."......".".9)". RECORD
 SEARCH .". ....LN$:F2.0:.Z.1.TL.<...F1.
E(F$(Z,3)):.F1.0.280.E...F2.F2.1:W(F2).F
1:.F2;.8);".";F$(Z,2).Q....Z:.LN$......:
.".NUMBER OF . ITEM . TO BE SEARCH? ";:.
1210.A.".F1.E(B$):.F1.F2.F1.1.285...'.F1
.W(F1):.J.1.TL:.E(F$(J,3)).F1.SE$.F$(J,2
)...,.....1..".".9)". "SE$" SEARCH ":.LN
$.D.6.."* THEN CHARACTERS FOR ";S1$;" SE
ARCH.O.;.."+ THEN CHARACTERS FOR ";S2$;"
 SEARCH...@..S3$;" CHARACTERS ONLY FOR I
TEM MATCH...E..".VALUE:";:.1210.A.J..:DI
$.B$:.LN$...O.MS.0:.H(DI$,1)."*".MS.1:A1
$.S1$:.350...T..H(DI$,1)."+".MS.2:A1$.S2
$:.350...Y.A1$.S3$:.355.L.^.DI$.J(DI$,2)
:L.C(DI$):.MS.2.A2$.S4$:.415.E.C..495:.N
S.1.KV.E(DI$)...H..:.".DO YOU WANT . "SE
$" .:-"...M..".(E) "S4$;.18)DI$...R..".(
N) "S5$;.18)DI$.O.W..".(L) "S6$;.18)DI$.
..|..".(G) "S7$;.18)DI$......".WHICH? ";
:.1210:.......B$."E".A2$.S4$:.415.2....B
$."N".AS$.S5$:.415.K....B$."L".A2$.S6$:.
415.D....B$."G".A2$.S7$:.415.M....385...
..."."SE$" ";A2$;" ";DI$;" (";A1$;")":.L
N$:EX.0:.60......LN$.U...."TOTAL RECORDS
 EXTRACTED =";EX:.LN$......CW$:.485:R.W(
1):SX.1:.C$."L".205......C$."M".EX.0:.52
5.(....C$."H"..1135:.420.?....C$.."P".."
.":.425.I.B..1275.C.G.S.SR(R):.1350:SX.S
X.1...L..SX.EX.SX.EX:R.W(SX):EX.0:.1435:
.525...Q.R.W(SX):.455...V..*** SUBROUTIN
ES ***.G....Q.1.999:.:.......".... ANSWE
R Y (YES) OR N (NO) ":.......C$:.C$."".4
85.......8...NS.0:.:."DOES THE ITEM CONT
AIN NON-NUMERIC".]...."CHARACTERS (YES O
R NO) ":.1210.{...B$.H(B$,1):.B$."N".NS.
1:.......B$.."Y".495............*** MAIN
 MENU ***.L....".".8)". REPORTMASTER .":
.LN$......"1. SEARCH AND REPORT":.LN$...
..."2. SAVE THE REPORT FILE":.LN$.-...."
3. EXIT PROGRAM":.LN$.D.!.."..WHICH NUMB
ER?".A.&..C$:A.E(C$):.A.1.A.3.550.V.+..A
.255,1080,1185...0..*** INITIALISE ***..
.5.."..":.53272,23:.53280,8:.53281,8:.G(
8)...:.CT$."..    . PRESS SPACE TO CONTI
NUE ."...?.CC$."........"...D.CD$.".....
..................".X.I.CR$."...........
.............................":RT$.G(13)
.R.N..J.1.80:SP$.SP$." ":....S.S1$."LEAD
ING":S2$."SLIDING":S3$."NORMAL".E.X.S4$.
"EQUAL TO":S5$."NOT EQUAL TO"...].S6$."L
ESS THAN":S7$."GREATER THAN"...B.LN$."--
--------------------------------------".
I.G.CM$.". COMMANDS    <   >   H   M   .
".T.L.CW$."... COMMANDS   P   L   M   H 
  ."...Q.. *** READ IN FORMAT FILE ***..
.V..".".8)". REPORTMASTER ":.LN$...{..".
.ENTER SCREEN FORMAT FILE NAME."......12
10:.:F$.B$:B$."0:".F$.",S,R".(....5,8,5,
B$:.5,TL:.5,UP:.F$(TL,6).;....J.1.TL:.K.
0.6.Y....5,F$(J,K):.K:.5,A$:.J: 5.X....*
** READ IN DATA FILE ***......"..ENTER D
ATA FILE NAME .":.1210:.:N$.B$.H...NN$."
0:".N$.",S,R":.5,8,5,NN$.X....5,TR:.5,TF
......R$(TR,TF),W(TR),SR(TR),T$(TF),H$(5
,1),C$(10,1),FF(10),MX(10,1).H....MN$(10
,2),V(10,1),TP(10),TT(10),TX(10).M....J.
1.10:.K.0.2:MN$(J,K)."*":.K,J......R.1.T
R:.FL.1.TF:.5,R$(R,FL):.FL,R:.R.1.TR:SR(
R).R:...... 5:R.1.L.A..*** SELECT COLOUR
 ***...F.."....SELECT SCREEN COLOURS AT 
ANY TIME THE.+.K..".CURSOR IS FLASHING,O
R NOW,BY PRESSING:-.\.P..".   F1     BOR
DER":.".   F3     BACKGROUND...U..".   F
5     TEXT":."..";CT$:ZZ.1:.730:ZZ.0:.80
5...Z..A$:.A$."".730......F(A$).133.760.
J....F(A$).134.770......F(A$).135.780...
...A$." "........730.....EC.EC.1:.EC.15.
EC.0......53280,EC:.795.7...BC.BC.1:.BC.
15.BC.0.J....53281,BC:.795.B...CC.CC.1:.
CC.16.CC.1.T....J(CC$,CC,1);......ZZ.1..
H(CD$,12);.10);"TEXT";......ZZ.1.730... 
.....%.."....DO YOU WANT TO:-":."..     
CREATE A REPORT FILE...*...14);".OR":.".
     READ IN A REPORT FILE?.C./.."..ENTE
R C OR R :";:.1210:.H(B$,1)."C".880.\.4.
.H(B$,1).."R"..:.815.}.9..*** READ IN RE
PORT FILE ***...>..".......ENTER REPORT 
FILE NAME:";:.1210:.:N$.B$.T.C.NN$."0:".
N$.",S,R":.5,8,5,NN$...H..5,TH:.5,MC:.J.
1.TH:.5,H$(J,0):.5,H$(J,1):....M..J.1.MC
:.5,FF(J):..>.R..J.1.MC:.K.0.1:.5,C$(J,K
):.K,J.A.W..J.1.MC:.K.0.1:.5,MX(J,K):.K,
J...\..J.1.MC:.K.0.2:.5,MN$(J,K):.K,J...
F. 5:.525...K..*** CREATE REPORT ***.R.P
..".ENTER UP TO 5 REPORT HEADINGS....U..
"TYPE * WHEN FINISHED....Z.TH.0:.J.1.5.*
...".";J;:.1210:.:.B$."*".TH.J.1:J.5:.9
20.>...H$(J,0).B$:TH.J.N....".STARTING P
RINT POSITION (1-79)? ";:.1210......:A.E
(B$):.A.1.A.79.905.....H$(J,1).B$......:
.TH.0.890.Z....".ENTER UP TO 10 TWO-LINE
D COLUMN HEADINGS"......"TYPE * WHEN FIN
ISHED......NX.1:MC.0:.J.1.10.<....:.J;".
A ";:.1210:.B$."*".MC.J.1:J.10:.1065.P..
.C$(J,0).B$:MC.J.F....:.J;".B ";:.1210.U
...C$(J,1).B$......:.".USE DATA ITEM NO:
";:.1210:A.E(B$):....E..A.TF.960.G.J..A.
0.FF(J).A:.1015...O.FF(J).0:.".ENTER PAR
AMETERS FOR COLUMN";J.2.T..".NUMBER OF C
ONTRIBUTING COLUMN? ";:.1210:.:MN$(J,0).
B$.K.Y..".ARITHMETIC OPERATION (*/+-)?;:
GOS1210:MN$(J,1)=B$......B$.."*".B$.."/"
.B$.."+".B$.."-".985.N....:.".COL. NO OR
 VALUE (ENTER C FIRST IF COL)":.1210:...
....E(H(B$,1)).0.1010......H(B$,1).."C".
995.....MN$(J,2).B$.9....".COLUMN TO BE 
TOTALLED (Y/N) ";:.1210:..S....B$."Y".TT
(J).J:.1035.M....B$."N".TT(J).0:.1035.W.
...1015......".MAXIMUM CHARACTERS IN COL
UMN";J;":";:.1210:MX.E(B$):..R...A.C(C$(
J,0)):B.C(C$(J,1))......B.A.A.B......J.2
.MX.MX.1......A.MX.MX.A.$ $.MX(J,0).NX:M
X(J,1).MX:NX.NX.MX.2.* )...3 ...525.P 3.
.** SAVE REPORT FILE ***.. 8..".......EN
TER REPORT FILE NAME:";:.1210:.:N$.B$.. 
=.NN$."0:".N$.",S,W":.5,8,5,NN$.A B..5,T
H;RT$;:.5,MC;RT$;.. G..J.1.TH:.5,H$(J,0)
;RT$:.5,H$(J,1);RT$;..!L..:.J.1.MC:.5,FF
(J);RT$;:..2!Q..J.1.MC:.K.0.1:.5,C$(J,K)
;RT$;:.K,J.Z!V..J.1.MC:.K.0.1:.5,MX(J,K)
;RT$;:.K,J..![..J.1.MC:.K.0.2:.5,MN$(J,K
);RT$;:.K,J..!`..J.1.MC:.5,TT(J);RT$;:.:
 5:.525..!E..525.B!J..*** HELP ***..!O..
"..HELP SCREEN>  COMMANDS ARE:- ".."T.."
.<  SEE NEXT RECORD (DON'T PRESS SHIFT).
="Y..".>  SEE PREVIOUS RECORD ''   ''.V"
~..".L  LOOK AT RECORD.W"...".P PRINT AL
L THESE RECORDS.."...".M MENU":.".H HELP
.."...CT$.."...A$:.A$.." ".1170.."..."."
:..T"...*** EXIT PROGRAM ***..#...".. AR
E YOU SURE YOU WANT TO QUIT?":.480..#...
485:.C$."N".525.-#...".. END ":.475:..D#
...*** GET INPUT ***.S#..B$."":TC.0.N#..
."..";:.A$:.A$."".1260..#D..A$..RT$.1240
..#I..TC.0.RF.0.1215..#N..TC.0.RF.1.B$.R
$(S,F1):.B$;:..B#S.." ";:...#X.A.F(A$):.
A.132.A.136..735:.1260..$...A$..G(20)..A
$;"..";:TC.TC.1:B$.B$.A$:.1215.%$...TC.0
.1215.M$..TC.TC.1:." ....";:B$.H(B$,TC):
.1215.}$...Q.1.80:.:." .";:.A$:.A$.""..Q
.1.80:.:.1215..$...1220..$...*** WRITE R
EPORT HEADINGS ***..$...53265,11:.4,4,7.
.$...J.1.TH:.4,H(SP$,E(H$(J,1)).1);..$..
.4,H$(J,0):.:.4,LN$;LN$.(%...J.1.MC:Z$.H
(SP$,MX(J,1).C(C$(J,0))).;%...J.1.Z$.Z$.
" ".S%...4,Z$;C$(J,0);:.:.4.|%...J.1.MC:
Z$.H(SP$,MX(J,1).C(C$(J,1)))..%...J.1.Z$
.Z$." "..%#..4,Z$;C$(J,1);:.:.4:.4,LN$;L
N$.F%(..J.1.MC:TX(J).0..%-.V(J,0).E(MN$(
J,0))..&2..H(MN$(J,2),1)."C".V(J,1).E(J(
MN$(J,2),2)).9000:.1340..&7.V(J,1).E(MN$
(J,2)).6&<..:..P&A..*** WRITE REPORT ***
..&F..J.1.MC:TP(J).0:.FF(J)..0.TP(J).E(R
$(S,FF(J)))..&K..:.J.1.MC:.FF(J)..0.V3.E
(R$(S,FF(J))):.1390..&P.V1.TP(V(J,0)):V3
.0:.V(J,1).9000.V2.V(J,1):.1370..&U.V2.T
P(V(J,1).9000)..'Z..MN$(J,1)."*".V3.V1.V
2:.1390.I'_..MN$(J,1)."/".V3..((V1.V2).1
00):.1390.J'D..MN$(J,1)."+".V3.V1.V2:.13
90..'I..MN$(J,1)."-".V3.V1.V2..'N.TP(J).
V3:.:.J.1.MC:TX(J).TX(J).TP(J):...'S..J.
1.MC.N'X..FF(J).0.1410..'}.Q$.R$(S,FF(J)
):.H(Q$,1)."0".H(Q$,1)."9".1415..(..Q$.D
(TP(J)).+(..Z$.H(SP$,MX(J,1).C(Q$)).>(..
.J.1.Z$.Z$." ".S(...4,Z$;Q$;:.:.4:..M(..
.*** WRITE TOTALS ***..(...4,LN$;LN$:.J.
1.MC:Q$.J(D(SX),2)..( ..TT(J)..0.Q$.D(TX
(J)).H(..Z$.H(SP$,MX(J,1).C(Q$))..(...J.
1.Z$.Z$." "..(...TT(J).0.Q$.".".Q$."."..
)...4,Z$;Q$;:.:.4.')...4,LN$;LN$: 4:.532
65,27:....

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL