SORT!.@
FILE INFORMATION
FILENAME(S): SORT!.@
FILE TYPE(S): PRG
FILE SIZE: 7.4K
FIRST SEEN: 2025-11-30 21:12:54
APPEARS ON: 1 disk(s)
FILE HASH
5e8e846a55dc857c7d06da587266504d096a64cf358d1dd3bd5c7681b42f089e
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 64TAPE COMP UK 3 | SORT!.@ | PRG | DuncanTwain | 7 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1C 08 64 00 97 35 33 32 38 30 2C 30 3A 97 |....d..53280,0:.|
00000010: 35 33 32 38 31 2C 30 3A 99 22 1E 22 00 38 08 65 |53281,0:.".".8.e|
00000020: 00 86 41 24 28 34 30 30 29 2C 42 24 28 34 30 30 |..A$(400),B$(400|
00000030: 29 2C 4D 24 28 32 39 29 00 87 08 66 00 4D 24 28 |),M$(29)...f.M$(|
00000040: 31 29 B2 22 54 4F 20 53 54 41 52 54 20 41 20 4E |1)."TO START A N|
00000050: 45 57 20 53 4F 52 54 20 46 49 4C 45 22 3A 4D 24 |EW SORT FILE":M$|
00000060: 28 32 29 B2 22 54 4F 20 43 4F 4E 54 49 4E 55 45 |(2)."TO CONTINUE|
00000070: 20 57 49 54 48 20 41 4E 20 45 58 49 53 54 49 4E | WITH AN EXISTIN|
00000080: 47 20 46 49 4C 45 22 00 D1 08 67 00 4D 24 28 33 |G FILE"...g.M$(3|
00000090: 29 B2 22 49 4E 56 45 53 54 49 47 41 54 49 56 45 |)."INVESTIGATIVE|
000000A0: 20 53 45 41 52 43 48 22 3A 4D 24 28 34 29 B2 22 | SEARCH":M$(4)."|
000000B0: 49 4E 53 54 52 55 43 54 49 4F 4E 53 22 3A 4D 24 |INSTRUCTIONS":M$|
000000C0: 28 35 29 B2 22 45 4E 44 20 50 52 4F 47 52 41 4D |(5)."END PROGRAM|
000000D0: 22 00 15 09 68 00 4D 24 28 36 29 B2 22 42 55 42 |"...h.M$(6)."BUB|
000000E0: 42 4C 45 22 3A 4D 24 28 37 29 B2 22 44 45 4C 41 |BLE":M$(7)."DELA|
000000F0: 59 45 44 20 52 45 50 4C 41 43 45 4D 45 4E 54 22 |YED REPLACEMENT"|
00000100: 3A 4D 24 28 38 29 B2 22 53 48 45 4C 4C 2D 4D 45 |:M$(8)."SHELL-ME|
00000110: 54 5A 4E 45 52 00 54 09 69 00 4D 24 28 39 29 B2 |TZNER.T.i.M$(9).|
00000120: 22 53 43 52 45 45 4E 20 44 49 53 50 4C 41 59 22 |"SCREEN DISPLAY"|
00000130: 3A 4D 24 28 31 30 29 B2 22 50 52 49 4E 54 45 44 |:M$(10)."PRINTED|
00000140: 20 43 4F 50 59 22 3A 4D 24 28 31 31 29 B2 22 43 | COPY":M$(11)."C|
00000150: 4F 44 45 22 00 8B 09 6A 00 4D 24 28 31 32 29 B2 |ODE"...j.M$(12).|
00000160: 22 44 45 54 41 49 4C 53 22 3A 4D 24 28 31 33 29 |"DETAILS":M$(13)|
00000170: B2 22 41 4D 4F 55 4E 54 22 3A 4D 24 28 31 34 29 |."AMOUNT":M$(14)|
00000180: B2 22 53 55 42 4A 45 43 54 3A 22 00 C5 09 6B 00 |."SUBJECT:"...k.|
00000190: 4D 24 28 31 35 29 B2 22 52 45 43 4F 52 44 53 20 |M$(15)."RECORDS |
000001A0: 44 45 4C 45 54 45 44 20 3A 22 3A 4D 24 28 31 36 |DELETED :":M$(16|
000001B0: 29 B2 22 54 4F 20 44 45 4C 45 54 45 20 52 45 43 |)."TO DELETE REC|
000001C0: 4F 52 44 53 22 00 D2 09 6C 00 97 35 33 32 38 30 |ORDS"...l..53280|
000001D0: 2C 35 00 15 0A 6D 00 99 22 93 11 11 20 20 20 20 |,5...m.."... |
000001E0: 12 20 20 20 20 53 20 4F 20 52 20 54 20 20 20 50 |. S O R T P|
000001F0: 20 52 20 4F 20 47 20 52 20 41 20 4D 20 20 20 20 | R O G R A M |
00000200: 92 11 22 3A 99 A3 31 36 29 22 4D 20 45 20 4E 20 |..":..16)"M E N |
00000210: 55 11 11 11 22 00 3C 0A 6E 00 99 22 12 20 20 31 |U...".<.n..". 1|
00000220: 92 20 20 22 3B 4D 24 28 31 29 3A 99 22 11 12 20 |. ";M$(1):.".. |
00000230: 20 32 92 20 20 22 3B 4D 24 28 32 29 00 65 0A 6F | 2. ";M$(2).e.o|
00000240: 00 99 22 11 12 20 20 33 92 20 20 22 3B 4D 24 28 |..".. 3. ";M$(|
00000250: 33 29 3A 99 22 11 12 20 20 34 92 20 20 22 3B 4D |3):.".. 4. ";M|
00000260: 24 28 31 36 29 00 7B 0A 70 00 99 22 11 12 20 20 |$(16).{.p..".. |
00000270: 35 92 20 20 22 3B 4D 24 28 34 29 00 91 0A 71 00 |5. ";M$(4)...q.|
00000280: 99 22 11 12 20 20 36 92 20 20 22 3B 4D 24 28 35 |.".. 6. ";M$(5|
00000290: 29 00 AE 0A 72 00 99 22 11 11 11 1D 1D 1D 1D 1D |)...r.."........|
000002A0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 9D 9D 22 3B 00 DF |............";..|
000002B0: 0A 73 00 47 24 B2 22 22 3A A1 47 24 3A 99 22 12 |.s.G$."":.G$:.".|
000002C0: 20 53 45 4C 45 43 54 20 5B 31 2D 36 5D 20 92 9D | SELECT [1-6] ..|
000002D0: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 3B 00 |.............";.|
000002E0: 1A 0B 74 00 81 44 B2 31 A4 31 35 30 3A 82 3A 99 |..t..D.1.150:.:.|
000002F0: 22 20 53 45 4C 45 43 54 20 5B 31 2D 36 5D 20 9D |" SELECT [1-6] .|
00000300: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 3B 3A |.............";:|
00000310: 81 44 B2 31 A4 31 35 30 3A 82 00 23 0B 75 00 8D |.D.1.150:..#.u..|
00000320: 32 30 32 00 32 0B 76 00 8B 47 24 B2 22 22 A7 31 |202.2.v..G$."".1|
00000330: 31 35 00 4B 0B 77 00 47 B2 C5 28 47 24 29 3A 8B |15.K.w.G..(G$):.|
00000340: 47 B3 31 B0 47 B1 36 A7 31 31 35 00 6A 0B 78 00 |G.1.G.6.115.j.x.|
00000350: 91 47 89 33 35 38 2C 33 35 39 2C 33 36 30 2C 33 |.G.358,359,360,3|
00000360: 36 31 2C 33 36 32 2C 33 38 39 00 75 0B 79 00 99 |61,362,389.u.y..|
00000370: 22 93 22 3A 80 00 AA 0B 7A 00 99 22 93 11 11 20 |".":....z.."... |
00000380: 20 20 20 20 12 20 20 20 20 53 20 4F 20 52 20 54 | . S O R T|
00000390: 20 20 20 4D 20 45 20 54 20 48 20 4F 20 44 20 20 | M E T H O D |
000003A0: 20 20 20 92 11 11 11 11 11 22 00 D1 0B 7B 00 99 | ......"...{..|
000003B0: 22 12 20 20 31 92 20 20 22 3B 4D 24 28 36 29 3A |". 1. ";M$(6):|
000003C0: 99 22 11 12 20 20 32 92 20 20 22 3B 4D 24 28 37 |.".. 2. ";M$(7|
000003D0: 29 00 E7 0B 7C 00 99 22 11 12 20 20 33 92 20 20 |)...|..".. 3. |
000003E0: 22 3B 4D 24 28 38 29 00 08 0C 7D 00 99 22 11 11 |";M$(8)...}.."..|
000003F0: 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000400: 1D 1D 1D 1D 9D 9D 22 3B 00 3A 0C 7E 00 47 24 B2 |......";.:.~.G$.|
00000410: 22 22 3A A1 47 24 3A 99 22 12 20 53 45 4C 45 43 |"":.G$:.". SELEC|
00000420: 54 20 5B 31 2D 33 5D 20 92 9D 9D 9D 9D 9D 9D 9D |T [1-3] ........|
00000430: 9D 9D 9D 9D 9D 9D 9D 9D 22 3B 00 76 0C 7F 00 81 |........";.v....|
00000440: 44 B2 31 A4 31 35 30 3A 82 3A 99 22 20 20 53 45 |D.1.150:.:." SE|
00000450: 4C 45 43 54 20 5B 31 2D 33 5D 20 9D 9D 9D 9D 9D |LECT [1-3] .....|
00000460: 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 3B 3A 81 44 B2 31 |.........";:.D.1|
00000470: A4 31 35 30 3A 82 00 7F 0C 80 00 8D 31 39 38 00 |.150:.......198.|
00000480: 8E 0C 81 00 8B 47 24 B2 22 22 A7 31 32 36 00 A7 |.....G$."".126..|
00000490: 0C 82 00 47 B2 C5 28 47 24 29 3A 8B 47 B3 31 B0 |...G..(G$):.G.1.|
000004A0: 47 B1 33 A7 31 32 36 00 BA 0C 83 00 91 47 8D 32 |G.3.126......G.2|
000004B0: 38 30 2C 32 38 39 2C 32 39 39 00 C0 0C 84 00 8E |80,289,299......|
000004C0: 00 F5 0C 85 00 99 22 93 11 11 20 20 20 20 20 12 |......"... .|
000004D0: 20 20 20 20 50 20 52 20 49 20 4E 20 54 20 20 20 | P R I N T |
000004E0: 4F 20 50 20 54 20 49 20 4F 20 4E 20 20 20 92 11 |O P T I O N ..|
000004F0: 11 11 11 11 22 00 1D 0D 86 00 99 22 12 20 20 31 |...."......". 1|
00000500: 92 20 20 22 3B 4D 24 28 39 29 3A 99 22 11 12 20 |. ";M$(9):.".. |
00000510: 20 32 92 20 20 22 3B 4D 24 28 31 30 29 00 3E 0D | 2. ";M$(10).>.|
00000520: 87 00 99 22 11 11 11 11 11 11 11 1D 1D 1D 1D 1D |..."............|
00000530: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 9D 9D 22 3B 00 70 |............";.p|
00000540: 0D 88 00 47 24 B2 22 22 3A A1 47 24 3A 99 22 12 |...G$."":.G$:.".|
00000550: 20 53 45 4C 45 43 54 20 5B 31 2D 32 5D 20 92 9D | SELECT [1-2] ..|
00000560: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 3B |..............";|
00000570: 00 AC 0D 89 00 81 44 B2 31 A4 31 35 30 3A 82 3A |......D.1.150:.:|
00000580: 99 22 20 20 53 45 4C 45 43 54 20 5B 31 2D 32 5D |." SELECT [1-2]|
00000590: 20 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 | .............."|
000005A0: 3B 3A 81 44 B2 31 A4 31 35 30 3A 82 00 B5 0D 8A |;:.D.1.150:.....|
000005B0: 00 8D 31 39 38 00 C4 0D 8B 00 8B 47 24 B2 22 22 |..198......G$.""|
000005C0: A7 31 33 36 00 DD 0D 8C 00 47 B2 C5 28 47 24 29 |.136.....G..(G$)|
000005D0: 3A 8B 47 B3 31 B0 47 B1 32 A7 31 33 36 00 EC 0D |:.G.1.G.2.136...|
000005E0: 8D 00 91 47 8D 32 35 31 2C 32 35 38 00 08 0E 8E |...G.251,258....|
000005F0: 00 99 22 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..".............|
00000600: 1D 1D 1D 1D 9D 9D 22 3B 00 3A 0E 8F 00 47 24 B2 |......";.:...G$.|
00000610: 22 22 3A A1 47 24 3A 99 22 12 20 41 4E 4F 54 48 |"":.G$:.". ANOTH|
00000620: 45 52 20 43 4F 50 59 20 92 9D 9D 9D 9D 9D 9D 9D |ER COPY ........|
00000630: 9D 9D 9D 9D 9D 9D 9D 9D 22 3B 00 76 0E 90 00 81 |........";.v....|
00000640: 44 B2 31 A4 31 35 30 3A 82 3A 99 22 20 20 41 4E |D.1.150:.:." AN|
00000650: 4F 54 48 45 52 20 43 4F 50 59 20 9D 9D 9D 9D 9D |OTHER COPY .....|
00000660: 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 3B 3A 81 44 B2 31 |.........";:.D.1|
00000670: A4 31 35 30 3A 82 00 7F 0E 91 00 8D 31 39 38 00 |.150:.......198.|
00000680: 8E 0E 92 00 8B 47 24 B2 22 22 A7 31 34 33 00 9E |.....G$."".143..|
00000690: 0E 93 00 8B 47 24 B2 22 59 22 A7 31 33 33 00 A4 |....G$."Y".133..|
000006A0: 0E 94 00 8E 00 E6 0E 95 00 4F 24 B2 22 20 20 20 |.........O$." |
000006B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000006C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000006D0: 20 20 20 20 22 3A 4F 31 24 B2 22 20 20 20 20 20 | ":O1$." |
000006E0: 20 20 20 20 20 22 00 F5 0E 96 00 99 3A 43 4F 44 | "......:COD|
000006F0: 45 24 B2 22 22 00 0E 0F 97 00 99 22 49 54 45 4D |E$.""......"ITEM|
00000700: 20 4E 55 4D 42 45 52 20 20 20 22 3B 43 54 00 38 | NUMBER ";CT.8|
00000710: 0F 98 00 99 22 20 20 20 20 20 20 20 20 20 20 20 |...." |
00000720: 20 20 20 20 12 22 3B 3A 81 4A B2 31 A4 58 3A 99 | .";:.J.1.X:.|
00000730: 22 20 22 3B 3A 82 3A 99 00 57 0F 99 00 99 22 91 |" ";:.:..W....".|
00000740: 43 4F 44 45 20 20 20 20 20 20 20 20 20 20 20 22 |CODE "|
00000750: 3B 3A 99 22 12 22 3B 00 6A 0F 9A 00 A1 54 24 3A |;:.".";.j....T$:|
00000760: 8B 54 24 B2 22 22 A7 31 35 34 00 7C 0F 9B 00 8B |.T$."".154.|....|
00000770: 54 24 B2 C7 28 31 33 29 A7 31 35 34 00 97 0F 9C |T$..(13).154....|
00000780: 00 8B 54 24 B2 C7 28 32 30 29 AF C3 28 43 4F 24 |..T$..(20)..(CO$|
00000790: 29 B2 30 A7 31 35 34 00 C6 0F 9D 00 8B 54 24 B2 |).0.154......T$.|
000007A0: C7 28 32 30 29 A7 43 4F 24 B2 C8 28 43 4F 24 2C |.(20).CO$..(CO$,|
000007B0: C3 28 43 4F 24 29 AB 31 29 3A 99 22 9D 20 9D 22 |.(CO$).1):.". ."|
000007C0: 3B 3A 89 31 35 34 00 CF 0F 9E 00 99 54 24 3B 00 |;:.154......T$;.|
000007D0: DE 0F 9F 00 43 4F 24 B2 43 4F 24 AA 54 24 00 F0 |....CO$.CO$.T$..|
000007E0: 0F A0 00 8B C3 28 43 4F 24 29 B3 58 A7 31 35 34 |.....(CO$).X.154|
000007F0: 00 F6 0F A1 00 99 00 FF 0F A2 00 8D 31 39 38 00 |............198.|
00000800: 0F 10 A3 00 44 45 54 41 49 4C 53 24 B2 22 22 00 |....DETAILS$."".|
00000810: 39 10 A4 00 99 22 20 20 20 20 20 20 20 20 20 20 |9...." |
00000820: 20 20 20 20 20 12 22 3B 3A 81 4A B2 31 A4 59 3A | .";:.J.1.Y:|
00000830: 99 22 20 22 3B 3A 82 3A 99 00 58 10 A5 00 99 22 |." ";:.:..X...."|
00000840: 91 44 45 54 41 49 4C 53 20 20 20 20 20 20 20 20 |.DETAILS |
00000850: 22 3B 3A 99 22 12 22 3B 00 6B 10 A6 00 A1 54 24 |";:.".";.k....T$|
00000860: 3A 8B 54 24 B2 22 22 A7 31 36 36 00 7D 10 A7 00 |:.T$."".166.}...|
00000870: 8B 54 24 B2 C7 28 31 33 29 A7 31 37 33 00 98 10 |.T$..(13).173...|
00000880: A8 00 8B 54 24 B2 C7 28 32 30 29 AF C3 28 44 45 |...T$..(20)..(DE|
00000890: 24 29 B2 30 A7 31 36 36 00 C7 10 A9 00 8B 54 24 |$).0.166......T$|
000008A0: B2 C7 28 32 30 29 A7 44 45 24 B2 C8 28 44 45 24 |..(20).DE$..(DE$|
000008B0: 2C C3 28 44 45 24 29 AB 31 29 3A 99 22 9D 20 9D |,.(DE$).1):.". .|
000008C0: 22 3B 3A 89 31 36 36 00 D0 10 AA 00 99 54 24 3B |";:.166......T$;|
000008D0: 00 DF 10 AB 00 44 45 24 B2 44 45 24 AA 54 24 00 |.....DE$.DE$.T$.|
000008E0: F1 10 AC 00 8B C3 28 44 45 24 29 B3 59 A7 31 36 |......(DE$).Y.16|
000008F0: 36 00 F7 10 AD 00 99 00 13 11 AE 00 44 45 24 B2 |6...........DE$.|
00000900: 44 45 24 AA 4F 24 3A 44 45 24 B2 C8 28 44 45 24 |DE$.O$:DE$..(DE$|
00000910: 2C 59 29 00 25 11 AF 00 44 45 24 B2 22 20 22 AA |,Y).%...DE$." ".|
00000920: 44 45 24 3A 99 00 2E 11 B0 00 8D 31 39 38 00 38 |DE$:.......198.8|
00000930: 11 B1 00 99 22 91 22 3B 00 46 11 B2 00 45 31 B2 |....".";.F...E1.|
00000940: 30 3A 52 32 B2 30 00 51 11 B3 00 4E 4E 24 B2 22 |0:R2.0.Q...NN$."|
00000950: 22 00 6A 11 B4 00 85 22 41 4D 4F 55 4E 54 20 20 |".j...."AMOUNT |
00000960: 20 20 20 20 20 22 3B 4E 4E 24 00 7A 11 B5 00 8B | ";NN$.z....|
00000970: 4E 4E 24 B2 22 22 A7 31 38 36 00 98 11 B6 00 81 |NN$."".186......|
00000980: 4B B2 31 A4 C3 28 4E 4E 24 29 3A 4C 24 B2 CA 28 |K.1..(NN$):L$..(|
00000990: 4E 4E 24 2C 4B 2C 31 29 00 AC 11 B7 00 8B 4C 24 |NN$,K,1)......L$|
000009A0: B2 22 2D 22 A7 45 31 B2 45 31 AA 31 00 C0 11 B8 |."-".E1.E1.1....|
000009B0: 00 8B 4C 24 B2 22 2E 22 A7 45 32 B2 45 32 AA 31 |..L$.".".E2.E2.1|
000009C0: 00 E2 11 B9 00 8B 4C 24 B3 B1 22 2F 22 A7 8B 4C |......L$.."/"..L|
000009D0: 24 B1 B2 22 2D 22 AF 4C 24 B3 B2 22 39 22 A7 31 |$.."-".L$.."9".1|
000009E0: 38 38 00 11 12 BA 00 99 22 54 48 41 54 20 49 53 |88......"THAT IS|
000009F0: 20 4E 4F 54 20 41 20 56 41 4C 49 44 20 41 4D 4F | NOT A VALID AMO|
00000A00: 55 4E 54 22 3A 81 4A B2 31 A4 32 30 30 30 3A 82 |UNT":.J.1.2000:.|
00000A10: 4A 00 2E 12 BB 00 99 22 91 91 22 3B 4F 24 3A 99 |J......"..";O$:.|
00000A20: 4F 24 3A 99 22 91 91 22 3B 3A 89 31 37 39 00 4F |O$:."..";:.179.O|
00000A30: 12 BC 00 82 4B 3A 8B 45 31 B1 31 B0 45 32 B1 31 |....K:.E1.1.E2.1|
00000A40: A7 45 31 B2 30 3A 45 32 B2 30 3A 89 31 38 36 00 |.E1.0:E2.0:.186.|
00000A50: 65 12 BD 00 8B C9 28 4E 4E 24 2C 31 29 B2 22 2D |e.....(NN$,1)."-|
00000A60: 22 A7 31 38 36 00 7A 12 BE 00 45 31 B2 30 3A 45 |".186.z...E1.0:E|
00000A70: 32 B2 30 3A 8D 31 39 31 3A 8E 00 96 12 BF 00 4E |2.0:.191:......N|
00000A80: 4E B2 B5 28 31 30 30 AC C5 28 4E 4E 24 29 AA 2E |N..(100..(NN$)..|
00000A90: 35 29 AD 31 30 30 00 A4 12 C0 00 4E 4E 24 B2 C4 |5).100.....NN$..|
00000AA0: 28 4E 4E 29 00 C4 12 C1 00 8B 4E 4E AB B5 28 4E |(NN)......NN..(N|
00000AB0: 4E 29 B2 30 A7 4E 4E 24 B2 C4 28 4E 4E 29 AA 22 |N).0.NN$..(NN)."|
00000AC0: 2E 30 30 22 00 EB 12 C2 00 8B CA 28 4E 4E 24 2C |.00".......(NN$,|
00000AD0: C3 28 4E 4E 24 29 AB 31 2C 31 29 B2 22 2E 22 A7 |.(NN$).1,1).".".|
00000AE0: 4E 4E 24 B2 4E 4E 24 AA 22 30 22 00 01 13 C3 00 |NN$.NN$."0".....|
00000AF0: 4E 4E 24 B2 C9 28 4F 31 24 AA 4E 4E 24 2C 31 35 |NN$..(O1$.NN$,15|
00000B00: 29 00 19 13 C4 00 8B 4E 4E B3 30 A7 4E 4E 24 B2 |)......NN.0.NN$.|
00000B10: 22 22 AA 4E 4E 24 AA 22 22 00 1F 13 C5 00 8E 00 |"".NN$."".......|
00000B20: 55 13 C6 00 97 35 34 32 37 37 2C 33 33 3A 97 35 |U....54277,33:.5|
00000B30: 34 32 37 38 2C 32 35 35 3A 97 35 34 32 39 36 2C |4278,255:.54296,|
00000B40: 31 35 3A 97 35 34 32 37 33 2C 36 3A 97 35 34 32 |15:.54273,6:.542|
00000B50: 37 36 2C 33 33 00 63 13 C7 00 81 44 B2 31 A4 35 |76,33.c....D.1.5|
00000B60: 30 3A 82 00 94 13 C8 00 97 35 34 32 37 37 2C 30 |0:.......54277,0|
00000B70: 3A 97 35 34 32 37 38 2C 30 3A 97 35 34 32 39 36 |:.54278,0:.54296|
00000B80: 2C 30 3A 97 35 34 32 37 33 2C 30 3A 97 35 34 32 |,0:.54273,0:.542|
00000B90: 37 36 2C 30 00 9A 13 C9 00 8E 00 D1 13 CA 00 97 |76,0............|
00000BA0: 35 34 32 37 37 2C 34 30 3A 97 35 34 32 37 38 2C |54277,40:.54278,|
00000BB0: 31 33 32 3A 97 35 34 32 39 36 2C 31 35 3A 97 35 |132:.54296,15:.5|
00000BC0: 34 32 37 33 2C 34 30 3A 97 35 34 32 37 36 2C 31 |4273,40:.54276,1|
00000BD0: 37 00 DF 13 CB 00 81 44 B2 31 A4 35 30 3A 82 00 |7......D.1.50:..|
00000BE0: 10 14 CC 00 97 35 34 32 37 37 2C 30 3A 97 35 34 |.....54277,0:.54|
00000BF0: 32 37 38 2C 30 3A 97 35 34 32 39 36 2C 30 3A 97 |278,0:.54296,0:.|
00000C00: 35 34 32 37 33 2C 30 3A 97 35 34 32 37 36 2C 30 |54273,0:.54276,0|
00000C10: 00 16 14 CD 00 8E 00 22 14 CE 00 81 49 B2 31 A4 |......."....I.1.|
00000C20: 43 54 00 32 14 CF 00 42 24 28 49 29 B2 41 24 28 |CT.2...B$(I).A$(|
00000C30: 49 29 00 39 14 D0 00 82 49 00 3F 14 D1 00 8E 00 |I).9....I.?.....|
00000C40: 6C 14 D2 00 85 22 93 11 11 11 4C 45 4E 47 54 48 |l...."....LENGTH|
00000C50: 20 4F 46 20 53 4F 52 54 20 46 49 45 4C 44 20 20 | OF SORT FIELD |
00000C60: 20 5B 4D 41 58 20 32 37 5D 22 3B 58 00 7F 14 D3 | [MAX 27]";X....|
00000C70: 00 8B 58 B2 B3 32 B0 58 B1 32 37 A7 32 31 30 00 |..X..2.X.27.210.|
00000C80: A8 14 D4 00 85 22 20 20 20 20 20 20 20 20 20 20 |....." |
00000C90: 44 45 54 41 49 4C 20 46 49 45 4C 44 20 5B 4D 41 |DETAIL FIELD [MA|
00000CA0: 58 20 32 37 5D 22 3B 59 00 C2 14 D5 00 8B 59 B2 |X 27]";Y......Y.|
00000CB0: B3 32 B0 59 B1 32 37 A7 99 22 91 22 3B 3A 89 32 |.2.Y.27..".";:.2|
00000CC0: 31 32 00 00 15 D6 00 43 54 B2 30 3A 9F 31 35 2C |12.....CT.0:.15,|
00000CD0: 38 2C 31 35 2C 22 53 30 3A 2F 53 4F 52 54 46 49 |8,15,"S0:/SORTFI|
00000CE0: 4C 45 22 3A A0 31 35 3A 9F 31 2C 38 2C 38 2C 22 |LE":.15:.1,8,8,"|
00000CF0: 30 3A 2F 53 4F 52 54 46 49 4C 45 2C 53 2C 57 22 |0:/SORTFILE,S,W"|
00000D00: 00 0A 15 D7 00 54 24 B2 22 22 00 13 15 D8 00 8D |.....T$.""......|
00000D10: 31 34 39 00 26 15 D9 00 41 24 B2 43 4F 24 AA 44 |149.&...A$.CO$.D|
00000D20: 45 24 AA 4E 4E 24 00 38 15 DA 00 98 31 2C 41 24 |E$.NN$.8....1,A$|
00000D30: 3A 43 54 B2 43 54 AA 31 00 4F 15 DB 00 8B C8 28 |:CT.CT.1.O.....(|
00000D40: 41 24 2C 33 29 B2 22 45 4E 44 22 A7 32 32 32 00 |A$,3)."END".222.|
00000D50: 59 15 DC 00 41 24 B2 22 22 00 62 15 DD 00 89 32 |Y...A$."".b....2|
00000D60: 31 35 00 69 15 DE 00 A0 31 00 86 15 DF 00 99 22 |15.i....1......"|
00000D70: 93 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000D80: 1D 1D 1D 1D 22 3B 00 8F 15 E0 00 8D 31 39 38 00 |....";......198.|
00000D90: B1 15 E1 00 99 22 93 22 3A 9F 31 2C 38 2C 38 2C |.....".":.1,8,8,|
00000DA0: 22 30 3A 2F 53 4F 52 54 46 49 4C 45 2C 53 2C 52 |"0:/SORTFILE,S,R|
00000DB0: 22 00 BA 15 E2 00 43 54 B2 30 00 C4 15 E3 00 84 |".....CT.0......|
00000DC0: 31 2C 41 24 00 D0 15 E4 00 43 54 B2 43 54 AA 31 |1,A$.....CT.CT.1|
00000DD0: 00 DE 15 E5 00 41 24 28 43 54 29 B2 41 24 00 F6 |.....A$(CT).A$..|
00000DE0: 15 E6 00 8B C8 28 41 24 2C 33 29 B2 22 45 4E 44 |.....(A$,3)."END|
00000DF0: 22 A7 A0 31 3A 8E 00 00 16 E7 00 41 24 B2 22 22 |"..1:......A$.""|
00000E00: 00 09 16 E8 00 89 32 32 37 00 3C 16 E9 00 99 22 |......227.<...."|
00000E10: 93 22 3A 43 54 B2 30 3A 58 B2 30 3A 59 B2 30 3A |.":CT.0:X.0:Y.0:|
00000E20: 4C B2 30 3A 9F 31 2C 38 2C 38 2C 22 30 3A 2F 53 |L.0:.1,8,8,"0:/S|
00000E30: 4F 52 54 46 49 4C 45 2C 53 2C 52 22 00 51 16 EA |ORTFILE,S,R".Q..|
00000E40: 00 84 31 2C 41 24 3A 4C B2 C3 28 41 24 29 AB 31 |..1,A$:L..(A$).1|
00000E50: 36 00 75 16 EB 00 81 49 B2 31 A4 4C 3A 8B CA 28 |6.u....I.1.L:..(|
00000E60: 41 24 2C 49 2C 31 29 B3 B1 22 20 22 A7 58 B2 58 |A$,I,1).." ".X.X|
00000E70: AA 31 3A 82 49 00 7F 16 EC 00 59 B2 4C AB 58 00 |.1:.I.....Y.L.X.|
00000E80: 8B 16 ED 00 43 54 B2 43 54 AA 31 00 99 16 EE 00 |....CT.CT.1.....|
00000E90: 41 24 28 43 54 29 B2 41 24 00 B4 16 EF 00 8B C8 |A$(CT).A$.......|
00000EA0: 28 41 24 2C 33 29 B2 22 45 4E 44 22 A7 A0 31 3A |(A$,3)."END"..1:|
00000EB0: 89 32 34 32 00 BE 16 F0 00 41 24 B2 22 22 00 CD |.242.....A$.""..|
00000EC0: 16 F1 00 84 31 2C 41 24 3A 89 32 33 37 00 E1 16 |....1,A$:.237...|
00000ED0: F2 00 8B 47 B3 B1 34 A7 41 24 28 43 54 29 B2 22 |...G..4.A$(CT)."|
00000EE0: 22 00 FE 16 F3 00 99 22 93 11 11 11 11 11 11 1D |"......"........|
00000EF0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 3B 00 07 |............";..|
00000F00: 17 F4 00 8D 31 39 38 00 16 17 F5 00 8B 47 B2 33 |....198......G.3|
00000F10: B0 47 B2 34 A7 8E 00 54 17 F6 00 99 22 93 22 3A |.G.4...T....".":|
00000F20: 9F 31 35 2C 38 2C 31 35 2C 22 53 30 3A 2F 53 4F |.15,8,15,"S0:/SO|
00000F30: 52 54 46 49 4C 45 22 3A A0 31 35 3A 9F 31 2C 38 |RTFILE":.15:.1,8|
00000F40: 2C 38 2C 22 30 3A 2F 53 4F 52 54 46 49 4C 45 2C |,8,"0:/SORTFILE,|
00000F50: 53 2C 57 22 00 62 17 F7 00 81 49 B2 31 A4 43 54 |S,W".b....I.1.CT|
00000F60: AB 31 00 6F 17 F8 00 98 31 2C 41 24 28 49 29 00 |.1.o....1,A$(I).|
00000F70: 76 17 F9 00 82 49 00 7C 17 FA 00 8E 00 8A 17 FB |v....I.|........|
00000F80: 00 99 22 93 22 3A 54 4C B2 30 00 96 17 FC 00 81 |..".":TL.0......|
00000F90: 49 B2 31 A4 43 54 00 B5 17 FD 00 8B C8 28 42 24 |I.1.CT.......(B$|
00000FA0: 28 49 29 2C 33 29 B2 22 45 4E 44 22 A7 42 24 28 |(I),3)."END".B$(|
00000FB0: 49 29 B2 22 22 00 D8 17 FE 00 99 42 24 28 49 29 |I).""......B$(I)|
00000FC0: 3A 54 4C B2 54 4C AA C5 28 CA 28 42 24 28 49 29 |:TL.TL..(.(B$(I)|
00000FD0: 2C 58 AA 59 AA 32 29 29 00 F9 17 FF 00 8B 49 AD |,X.Y.2))......I.|
00000FE0: 31 30 B2 B5 28 49 AD 31 30 29 A7 A1 54 24 3A 8B |10..(I.10)..T$:.|
00000FF0: 54 24 B2 22 22 A7 32 35 35 00 0F 18 00 01 82 49 |T$."".255......I|
00001000: 3A 4E 4E 24 B2 C4 28 54 4C 29 3A 8D 31 39 31 00 |:NN$..(TL):.191.|
00001010: 2A 18 01 01 99 A3 58 AA 59 AB 35 29 22 54 4F 54 |*.....X.Y.5)"TOT|
00001020: 41 4C 20 22 3B 4E 4E 24 3A 8E 00 46 18 02 01 99 |AL ";NN$:..F....|
00001030: 22 93 11 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D |"...............|
00001040: 1D 1D 1D 1D 22 3B 00 8A 18 03 01 47 24 B2 22 22 |....";.....G$.""|
00001050: 3A A1 47 24 3A 99 22 12 20 53 57 49 54 43 48 20 |:.G$:.". SWITCH |
00001060: 50 52 49 4E 54 45 52 20 4F 4E 20 92 9D 9D 9D 9D |PRINTER ON .....|
00001070: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 |..............."|
00001080: 3B 3A 81 44 B2 31 A4 31 35 30 00 C6 18 04 01 82 |;:.D.1.150......|
00001090: 3A 99 22 20 53 57 49 54 43 48 20 50 52 49 4E 54 |:." SWITCH PRINT|
000010A0: 45 52 20 4F 4E 20 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |ER ON ..........|
000010B0: 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 3B 3A 81 44 B2 31 |.........";:.D.1|
000010C0: A4 31 35 30 3A 82 00 CF 18 05 01 8D 31 39 38 00 |.150:.......198.|
000010D0: DE 18 06 01 8B 47 24 B2 22 22 A7 32 35 39 00 F1 |.....G$."".259..|
000010E0: 18 07 01 8B 47 24 B3 B1 C7 28 31 33 29 A7 32 35 |....G$...(13).25|
000010F0: 39 00 FF 18 08 01 99 22 93 22 3A 54 4C B2 30 00 |9......".":TL.0.|
00001100: 08 19 09 01 9F 32 2C 34 00 18 19 0A 01 8B 47 B2 |.....2,4......G.|
00001110: 31 B0 47 B2 32 A7 9D 32 00 27 19 0B 01 8B 47 B2 |1.G.2..2.'....G.|
00001120: 33 B0 47 B2 34 A7 8E 00 34 19 0C 01 99 4D 24 28 |3.G.4...4....M$(|
00001130: 31 31 29 3B 00 44 19 0D 01 99 A3 58 29 4D 24 28 |11);.D.....X)M$(|
00001140: 31 32 29 3B 00 59 19 0E 01 99 A3 59 29 4D 24 28 |12);.Y.....Y)M$(|
00001150: 31 33 29 AA C7 28 31 30 29 00 65 19 0F 01 81 49 |13)..(10).e....I|
00001160: B2 31 A4 43 54 00 84 19 10 01 8B C8 28 42 24 28 |.1.CT.......(B$(|
00001170: 49 29 2C 33 29 B2 22 45 4E 44 22 A7 42 24 28 49 |I),3)."END".B$(I|
00001180: 29 B2 22 22 00 A7 19 11 01 99 42 24 28 49 29 3A |).""......B$(I):|
00001190: 54 4C B2 54 4C AA C5 28 CA 28 42 24 28 49 29 2C |TL.TL..(.(B$(I),|
000011A0: 58 AA 59 AA 32 29 29 00 BD 19 12 01 82 49 3A 4E |X.Y.2))......I:N|
000011B0: 4E 24 B2 C4 28 54 4C 29 3A 8D 31 39 31 00 DE 19 |N$..(TL):.191...|
000011C0: 13 01 99 A3 58 AA 59 AB 35 29 22 54 4F 54 41 4C |....X.Y.5)"TOTAL|
000011D0: 20 22 3B 4E 4E 24 3A 98 32 3A A0 32 3A 8E 00 EC | ";NN$:.2:.2:...|
000011E0: 19 14 01 81 49 B2 31 A4 43 54 AB 33 00 15 1A 15 |....I.1.CT.3....|
000011F0: 01 8B 42 24 28 49 29 B1 42 24 28 49 AA 31 29 A7 |..B$(I).B$(I.1).|
00001200: 99 22 4F 55 54 20 4F 46 20 4F 52 44 45 52 20 41 |."OUT OF ORDER A|
00001210: 54 20 22 3B 49 00 1C 1A 16 01 82 49 00 22 1A 17 |T ";I......I."..|
00001220: 01 8E 00 33 1A 18 01 81 49 B2 43 54 AB 31 A4 31 |...3....I.CT.1.1|
00001230: A9 AB 31 00 41 1A 19 01 81 4A B2 31 A4 43 54 AB |..1.A....J.1.CT.|
00001240: 31 00 63 1A 1A 01 8B C8 28 42 24 28 4A 29 2C 58 |1.c.....(B$(J),X|
00001250: 29 B3 B2 C8 28 42 24 28 4A AA 31 29 2C 58 29 A7 |)...(B$(J.1),X).|
00001260: 32 38 36 00 70 1A 1B 01 54 24 B2 42 24 28 4A 29 |286.p...T$.B$(J)|
00001270: 00 82 1A 1C 01 42 24 28 4A 29 B2 42 24 28 4A AA |.....B$(J).B$(J.|
00001280: 31 29 00 91 1A 1D 01 42 24 28 4A AA 31 29 B2 54 |1).....B$(J.1).T|
00001290: 24 00 98 1A 1E 01 82 4A 00 9F 1A 1F 01 82 49 00 |$......J......I.|
000012A0: A5 1A 20 01 8E 00 B6 1A 21 01 81 49 B2 43 54 AB |.. .....!..I.CT.|
000012B0: 31 A4 31 A9 AB 31 00 BF 1A 22 01 4E 4E B2 30 00 |1.1..1...".NN.0.|
000012C0: CA 1A 23 01 81 4A B2 31 A4 49 00 EB 1A 24 01 8B |..#..J.1.I...$..|
000012D0: C8 28 42 24 28 4A 29 2C 58 29 B1 C8 28 42 24 28 |.(B$(J),X)..(B$(|
000012E0: 4E 4E 29 2C 58 29 A7 4E 4E B2 4A 00 F2 1A 25 01 |NN),X).NN.J...%.|
000012F0: 82 4A 00 FF 1A 26 01 54 24 B2 42 24 28 49 29 00 |.J...&.T$.B$(I).|
00001300: 10 1B 27 01 42 24 28 49 29 B2 42 24 28 4E 4E 29 |..'.B$(I).B$(NN)|
00001310: 00 1E 1B 28 01 42 24 28 4E 4E 29 B2 54 24 00 25 |...(.B$(NN).T$.%|
00001320: 1B 29 01 82 49 00 2B 1B 2A 01 8E 00 49 1B 2B 01 |.)..I.+.*...I.+.|
00001330: 47 41 50 B2 32 AE 28 B5 28 BC 28 43 54 AB 31 29 |GAP.2.(.(.(CT.1)|
00001340: AD BC 28 32 29 29 AA 31 29 00 57 1B 2C 01 47 41 |..(2)).1).W.,.GA|
00001350: 50 B2 47 41 50 AD 32 00 73 1B 2D 01 43 B2 43 54 |P.GAP.2.s.-.C.CT|
00001360: AB 47 41 50 AB 31 3A 42 B2 30 3A 8B 47 41 50 B3 |.GAP.1:B.0:.GAP.|
00001370: 31 A7 8E 00 7B 1B 2E 01 41 B2 42 00 A2 1B 2F 01 |1...{...A.B.../.|
00001380: 44 B2 41 AA 47 41 50 3A 8B C8 28 42 24 28 41 29 |D.A.GAP:..(B$(A)|
00001390: 2C 58 29 B1 C8 28 42 24 28 44 29 2C 58 29 A7 33 |,X)..(B$(D),X).3|
000013A0: 30 36 00 B5 1B 30 01 42 B2 42 AA 31 3A 8B 42 B1 |06...0.B.B.1:.B.|
000013B0: 43 A7 33 30 30 00 BE 1B 31 01 89 33 30 32 00 CB |C.300...1..302..|
000013C0: 1B 32 01 54 24 B2 42 24 28 41 29 00 DB 1B 33 01 |.2.T$.B$(A)...3.|
000013D0: 42 24 28 41 29 B2 42 24 28 44 29 00 E8 1B 34 01 |B$(A).B$(D)...4.|
000013E0: 42 24 28 44 29 B2 54 24 00 FD 1B 35 01 41 B2 41 |B$(D).T$...5.A.A|
000013F0: AB 47 41 50 3A 8B 41 B3 30 A7 33 30 34 00 06 1C |.GAP:.A.0.304...|
00001400: 36 01 89 33 30 33 00 44 1C 37 01 99 22 93 11 11 |6..303.D.7.."...|
00001410: 11 11 11 1D 1D 54 4F 20 53 45 41 52 43 48 20 41 |.....TO SEARCH A|
00001420: 4E 44 20 50 52 49 4E 54 20 41 4E 59 54 48 49 4E |ND PRINT ANYTHIN|
00001430: 47 20 57 49 54 48 3A 22 3A 85 22 11 11 1D 1D 1D |G WITH:":.".....|
00001440: 22 3B 53 24 00 61 1C 38 01 4C B2 C3 28 53 24 29 |";S$.a.8.L..(S$)|
00001450: 3A 8B 4C B3 32 B0 4C B1 58 AA 59 AA 31 A7 33 31 |:.L.2.L.X.Y.1.31|
00001460: 31 00 7D 1C 39 01 98 32 2C 4D 24 28 31 34 29 AA |1.}.9..2,M$(14).|
00001470: 22 20 20 22 AA 53 24 AA C7 28 31 30 29 00 8C 1C |" ".S$..(10)...|
00001480: 3A 01 98 32 2C 4D 24 28 31 31 29 3B 00 9E 1C 3B |:..2,M$(11);...;|
00001490: 01 98 32 2C A3 58 29 4D 24 28 31 32 29 3B 00 B5 |..2,.X)M$(12);..|
000014A0: 1C 3C 01 98 32 2C A3 59 29 4D 24 28 31 33 29 AA |.<..2,.Y)M$(13).|
000014B0: C7 28 31 30 29 00 BE 1C 3D 01 54 4C B2 30 00 CA |.(10)...=.TL.0..|
000014C0: 1C 3E 01 81 49 B2 31 A4 43 54 00 DF 1C 3F 01 81 |.>..I.1.CT...?..|
000014D0: 4A B2 31 A4 28 28 58 AA 59 AA 31 29 AB 4C 29 00 |J.1.((X.Y.1).L).|
000014E0: 18 1D 40 01 8B 53 24 B2 CA 28 41 24 28 49 29 2C |..@..S$..(A$(I),|
000014F0: 4A 2C 4C 29 A7 98 32 2C 41 24 28 49 29 3A 54 4C |J,L)..2,A$(I):TL|
00001500: B2 54 4C AA C5 28 CA 28 41 24 28 49 29 2C 58 AA |.TL..(.(A$(I),X.|
00001510: 59 AA 32 29 29 3A 82 49 00 1F 1D 41 01 82 4A 00 |Y.2)):.I...A..J.|
00001520: 26 1D 42 01 82 49 00 33 1D 43 01 98 32 2C C7 28 |&.B..I.3.C..2,.(|
00001530: 31 30 29 00 4E 1D 44 01 98 32 2C A3 58 AA 59 AA |10).N.D..2,.X.Y.|
00001540: 31 32 29 22 54 4F 54 41 4C 20 22 3B 54 4C 00 60 |12)"TOTAL ";TL.`|
00001550: 1D 45 01 98 32 2C C7 28 31 30 29 C7 28 31 30 29 |.E..2,.(10).(10)|
00001560: 00 7C 1D 46 01 99 22 93 11 11 11 11 11 11 11 1D |.|.F..".........|
00001570: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 3B 00 C0 1D 47 |..........";...G|
00001580: 01 47 24 B2 22 22 3A A1 47 24 3A 99 22 12 20 41 |.G$."":.G$:.". A|
00001590: 4E 4F 54 48 45 52 20 53 45 41 52 43 48 20 20 3F |NOTHER SEARCH ?|
000015A0: 20 92 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D | ...............|
000015B0: 9D 9D 9D 9D 9D 22 3B 3A 81 44 B2 31 A4 31 35 30 |.....";:.D.1.150|
000015C0: 00 FC 1D 48 01 82 3A 99 22 20 41 4E 4F 54 48 45 |...H..:." ANOTHE|
000015D0: 52 20 53 45 41 52 43 48 20 20 3F 20 9D 9D 9D 9D |R SEARCH ? ....|
000015E0: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 |..............."|
000015F0: 3B 3A 81 44 B2 31 A4 31 35 30 3A 82 00 05 1E 49 |;:.D.1.150:....I|
00001600: 01 8D 31 39 38 00 14 1E 4A 01 8B 47 24 B2 22 22 |..198...J..G$.""|
00001610: A7 33 32 37 00 24 1E 4B 01 8B 47 24 B2 22 59 22 |.327.$.K..G$."Y"|
00001620: A7 33 31 31 00 35 1E 4C 01 8B 47 24 B3 B1 22 4E |.311.5.L..G$.."N|
00001630: 22 A7 33 33 30 00 3E 1E 4D 01 A0 32 3A 8E 00 7C |".330.>.M..2:..||
00001640: 1E 4E 01 99 22 93 11 11 11 11 11 1D 1D 54 4F 20 |.N.."........TO |
00001650: 44 45 4C 45 54 45 20 41 4E 44 20 50 52 49 4E 54 |DELETE AND PRINT|
00001660: 20 41 4E 59 54 48 49 4E 47 20 57 49 54 48 3A 22 | ANYTHING WITH:"|
00001670: 3A 85 22 11 11 1D 1D 1D 22 3B 44 24 00 9D 1E 4F |:.".....";D$...O|
00001680: 01 44 B2 30 3A 4C B2 C3 28 44 24 29 3A 8B 4C B3 |.D.0:L..(D$):.L.|
00001690: 32 B0 4C B1 58 AA 59 AA 31 A7 33 33 34 00 B9 1E |2.L.X.Y.1.334...|
000016A0: 50 01 98 32 2C 4D 24 28 31 35 29 AA 22 20 20 22 |P..2,M$(15)." "|
000016B0: AA 44 24 AA C7 28 31 30 29 00 C8 1E 51 01 98 32 |.D$..(10)...Q..2|
000016C0: 2C 4D 24 28 31 31 29 3B 00 DA 1E 52 01 98 32 2C |,M$(11);...R..2,|
000016D0: A3 58 29 4D 24 28 31 32 29 3B 00 F1 1E 53 01 98 |.X)M$(12);...S..|
000016E0: 32 2C A3 59 29 4D 24 28 31 33 29 AA C7 28 31 30 |2,.Y)M$(13)..(10|
000016F0: 29 00 FA 1E 54 01 54 4C B2 30 00 06 1F 55 01 81 |)...T.TL.0...U..|
00001700: 49 B2 31 A4 43 54 00 1B 1F 56 01 81 4A B2 31 A4 |I.1.CT...V..J.1.|
00001710: 28 28 58 AA 59 AA 31 29 AB 4C 29 00 3D 1F 57 01 |((X.Y.1).L).=.W.|
00001720: 8B 44 24 B2 CA 28 41 24 28 49 29 2C 4A 2C 4C 29 |.D$..(A$(I),J,L)|
00001730: A7 98 32 2C 41 24 28 49 29 3A 44 B2 31 00 6E 1F |..2,A$(I):D.1.n.|
00001740: 58 01 8B 44 B2 31 A7 44 B2 30 3A 54 4C B2 54 4C |X..D.1.D.0:TL.TL|
00001750: AA C5 28 CA 28 41 24 28 49 29 2C 58 AA 59 AA 32 |..(.(A$(I),X.Y.2|
00001760: 29 29 3A 41 24 28 49 29 B2 22 22 3A 82 49 00 75 |)):A$(I)."":.I.u|
00001770: 1F 59 01 82 4A 00 7C 1F 5A 01 82 49 00 89 1F 5B |.Y..J.|.Z..I...[|
00001780: 01 98 32 2C C7 28 31 30 29 00 A4 1F 5C 01 98 32 |..2,.(10)...\..2|
00001790: 2C A3 58 AA 59 AA 31 32 29 22 54 4F 54 41 4C 20 |,.X.Y.12)"TOTAL |
000017A0: 22 3B 54 4C 00 B6 1F 5D 01 98 32 2C C7 28 31 30 |";TL...]..2,.(10|
000017B0: 29 C7 28 31 30 29 00 BD 1F 5E 01 A0 32 00 DA 1F |).(10)...^..2...|
000017C0: 5F 01 99 22 93 11 11 11 11 11 11 1D 1D 1D 1D 1D |_.."............|
000017D0: 1D 1D 1D 1D 1D 1D 1D 1D 22 3B 00 E3 1F 60 01 8D |........";...`..|
000017E0: 31 39 38 00 21 20 61 01 99 22 93 22 3A 9F 31 35 |198.! a..".":.15|
000017F0: 2C 38 2C 31 35 2C 22 53 30 3A 2F 53 4F 52 54 46 |,8,15,"S0:/SORTF|
00001800: 49 4C 45 22 3A A0 31 35 3A 9F 31 2C 38 2C 38 2C |ILE":.15:.1,8,8,|
00001810: 22 30 3A 2F 53 4F 52 54 46 49 4C 45 2C 53 2C 57 |"0:/SORTFILE,S,W|
00001820: 22 00 2D 20 62 01 81 49 B2 31 A4 43 54 00 45 20 |".- b..I.1.CT.E |
00001830: 63 01 8B 41 24 28 49 29 B3 B1 22 22 A7 98 31 2C |c..A$(I)..""..1,|
00001840: 41 24 28 49 29 00 4C 20 64 01 82 49 00 55 20 65 |A$(I).L d..I.U e|
00001850: 01 A0 31 3A 8E 00 6F 20 66 01 8D 32 31 30 3A 8D |..1:..o f..210:.|
00001860: 32 30 36 3A 8D 31 32 32 3A 8D 31 33 33 3A 8A 00 |206:.122:.133:..|
00001870: 8E 20 67 01 8D 32 33 33 3A 8D 32 31 35 3A 8D 32 |. g..233:.215:.2|
00001880: 30 36 3A 8D 31 32 32 3A 8D 31 33 33 3A 8A 00 A3 |06:.122:.133:...|
00001890: 20 68 01 8D 32 33 33 3A 8D 32 35 38 3A 8D 33 31 | h..233:.258:.31|
000018A0: 31 3A 8A 00 B8 20 69 01 8D 32 33 33 3A 8D 32 35 |1:... i..233:.25|
000018B0: 38 3A 8D 33 33 34 3A 8A 00 C5 20 6A 01 97 35 33 |8:.334:... j..53|
000018C0: 32 38 30 2C 30 00 F2 20 6B 01 99 22 93 1E 20 20 |280,0.. k..".. |
000018D0: 20 20 20 2A 2A 2A 2A 20 20 20 20 2A 2A 2A 2A 20 | **** **** |
000018E0: 20 20 20 2A 2A 2A 2A 2A 20 20 20 2A 2A 2A 2A 2A | ***** *****|
000018F0: 2A 2A 00 1B 21 6C 01 99 22 05 20 20 20 20 2A 20 |**..!l..". * |
00001900: 20 20 20 2A 20 20 2A 20 20 20 20 2A 20 20 2A 20 | * * * * |
00001910: 20 20 20 20 2A 20 20 20 20 20 2A 00 44 21 6D 01 | * *.D!m.|
00001920: 99 22 9C 20 20 20 20 2A 20 20 20 20 20 20 20 2A |.". * *|
00001930: 20 20 20 20 2A 20 20 2A 20 20 20 20 20 2A 20 20 | * * * |
00001940: 20 20 20 2A 00 6D 21 6E 01 99 22 1E 20 20 20 20 | *.m!n..". |
00001950: 2A 20 20 20 20 20 20 20 2A 20 20 20 20 2A 20 20 |* * * |
00001960: 2A 20 20 20 20 20 2A 20 20 20 20 20 2A 00 96 21 |* * *..!|
00001970: 6F 01 99 22 05 20 20 20 20 20 2A 2A 2A 2A 20 20 |o..". **** |
00001980: 20 2A 20 20 20 20 2A 20 20 2A 2A 2A 2A 2A 2A 20 | * * ****** |
00001990: 20 20 20 20 20 2A 00 BF 21 70 01 99 22 9C 20 20 | *..!p..". |
000019A0: 20 20 20 20 20 20 20 2A 20 20 2A 20 20 20 20 2A | * * *|
000019B0: 20 20 2A 20 20 2A 20 20 20 20 20 20 20 20 2A 00 | * * *.|
000019C0: E8 21 71 01 99 22 1E 20 20 20 20 20 20 20 20 20 |.!q..". |
000019D0: 2A 20 20 2A 20 20 20 20 2A 20 20 2A 20 20 20 2A |* * * * *|
000019E0: 20 20 20 20 20 20 20 2A 00 11 22 72 01 99 22 05 | *.."r..".|
000019F0: 20 20 20 20 2A 20 20 20 20 2A 20 20 2A 20 20 20 | * * * |
00001A00: 20 2A 20 20 2A 20 20 20 20 2A 20 20 20 20 20 20 | * * * |
00001A10: 2A 00 3B 22 73 01 99 22 1E 20 20 20 20 20 2A 2A |*.;"s..". **|
00001A20: 2A 2A 20 20 20 20 2A 2A 2A 2A 20 20 20 2A 20 20 |** **** * |
00001A30: 20 20 20 2A 20 20 20 20 20 2A 22 00 53 22 74 01 | * *".S"t.|
00001A40: 99 22 11 49 4E 53 54 52 55 43 54 49 4F 4E 53 3A |.".INSTRUCTIONS:|
00001A50: 2D 11 22 00 83 22 75 01 99 22 54 48 49 53 20 50 |-.".."u.."THIS P|
00001A60: 52 4F 47 52 41 4D 20 49 53 20 4F 46 20 55 4E 49 |ROGRAM IS OF UNI|
00001A70: 56 45 52 53 41 4C 20 41 50 50 4C 49 43 41 54 49 |VERSAL APPLICATI|
00001A80: 4F 4E 22 00 CB 22 76 01 99 22 57 48 45 4E 20 49 |ON".."v.."WHEN I|
00001A90: 54 20 43 4F 4D 45 53 20 54 4F 20 53 4F 52 54 49 |T COMES TO SORTI|
00001AA0: 4E 47 2C 20 41 4E 41 4C 59 53 49 4E 47 2C 20 11 |NG, ANALYSING, .|
00001AB0: 20 20 20 41 4E 44 20 53 45 41 52 43 48 49 4E 47 | AND SEARCHING|
00001AC0: 20 54 48 52 4F 55 47 48 20 22 3B 00 FD 22 77 01 | THROUGH ";.."w.|
00001AD0: 99 22 41 20 4D 41 53 53 20 4F 46 20 44 41 54 41 |."A MASS OF DATA|
00001AE0: 2E 20 20 20 11 46 4F 52 20 45 2E 47 2E 20 53 54 |. .FOR E.G. ST|
00001AF0: 4F 43 4B 20 4C 49 53 54 53 20 2E 11 22 00 2A 23 |OCK LISTS ..".*#|
00001B00: 78 01 99 22 59 4F 55 20 57 49 4C 4C 20 42 45 20 |x.."YOU WILL BE |
00001B10: 41 53 4B 45 44 20 54 48 52 45 45 20 51 55 45 53 |ASKED THREE QUES|
00001B20: 54 49 4F 4E 53 20 3A 2D 11 22 00 52 23 79 01 99 |TIONS :-.".R#y..|
00001B30: 22 20 20 20 20 20 20 20 12 50 52 45 53 53 20 53 |" .PRESS S|
00001B40: 50 41 43 45 20 54 4F 20 43 4F 4E 54 49 4E 55 45 |PACE TO CONTINUE|
00001B50: 92 22 00 6B 23 7A 01 47 24 B2 22 22 3A A1 47 24 |.".k#z.G$."":.G$|
00001B60: 3A 8B 47 24 B2 22 22 A7 33 37 38 00 A4 23 7B 01 |:.G$."".378..#{.|
00001B70: 8B 47 24 B2 22 20 22 A7 99 22 93 11 31 2E 20 43 |.G$." ".."..1. C|
00001B80: 4F 44 45 2C 20 32 2E 20 44 49 53 43 52 49 50 54 |ODE, 2. DISCRIPT|
00001B90: 49 4F 4E 20 41 4E 44 20 33 2E 20 41 4D 4F 55 4E |ION AND 3. AMOUN|
00001BA0: 54 2E 11 22 00 ED 23 7C 01 99 22 54 48 45 20 43 |T.."..#|.."THE C|
00001BB0: 4F 44 45 20 41 4E 44 20 54 48 45 20 44 49 53 43 |ODE AND THE DISC|
00001BC0: 52 49 50 54 49 4F 4E 20 43 41 4E 20 42 45 20 55 |RIPTION CAN BE U|
00001BD0: 50 20 20 11 54 4F 20 32 37 20 43 48 41 52 41 43 |P .TO 27 CHARAC|
00001BE0: 54 45 52 53 20 4C 4F 4E 47 2E 11 11 22 00 36 24 |TERS LONG...".6$|
00001BF0: 7D 01 99 22 59 4F 55 20 43 41 4E 20 55 53 45 20 |}.."YOU CAN USE |
00001C00: 54 48 45 20 20 49 4E 56 45 53 54 49 47 41 54 49 |THE INVESTIGATI|
00001C10: 56 45 20 53 45 41 52 43 48 20 20 20 11 46 41 43 |VE SEARCH .FAC|
00001C20: 49 4C 49 54 59 20 54 4F 20 53 45 41 52 43 48 20 |ILITY TO SEARCH |
00001C30: 46 4F 52 20 22 3B 00 71 24 7E 01 99 22 41 4E 59 |FOR ";.q$~.."ANY|
00001C40: 54 48 49 4E 47 20 46 52 4F 4D 20 20 20 20 11 45 |THING FROM .E|
00001C50: 49 54 48 45 52 20 54 48 45 20 43 4F 44 45 20 4F |ITHER THE CODE O|
00001C60: 52 20 44 45 53 43 52 49 50 54 49 4F 4E 2E 11 11 |R DESCRIPTION...|
00001C70: 22 00 BB 24 7F 01 99 22 54 4F 20 45 4E 44 20 54 |"..$..."TO END T|
00001C80: 48 45 20 50 52 4F 47 52 41 4D 20 54 59 50 45 20 |HE PROGRAM TYPE |
00001C90: 27 45 4E 44 27 20 46 4F 4C 4C 4F 57 45 44 20 20 |'END' FOLLOWED |
00001CA0: 11 42 59 20 27 5A 45 52 4F 53 27 20 49 4E 20 54 |.BY 'ZEROS' IN T|
00001CB0: 48 45 20 43 4F 44 45 2C 20 22 3B 00 E7 24 80 01 |HE CODE, ";..$..|
00001CC0: 99 22 44 45 53 43 52 49 50 54 49 4F 4E 20 20 41 |."DESCRIPTION A|
00001CD0: 4E 44 11 54 48 45 20 41 4D 4F 55 4E 54 20 46 49 |ND.THE AMOUNT FI|
00001CE0: 45 4C 44 53 2E 11 22 00 0F 25 81 01 99 22 20 20 |ELDS.."..%..." |
00001CF0: 20 20 20 20 20 12 50 52 45 53 53 20 53 50 41 43 | .PRESS SPAC|
00001D00: 45 20 54 4F 20 43 4F 4E 54 49 4E 55 45 92 22 00 |E TO CONTINUE.".|
00001D10: 28 25 82 01 47 24 B2 22 22 3A A1 47 24 3A 8B 47 |(%..G$."":.G$:.G|
00001D20: 24 B2 22 22 A7 33 38 36 00 36 25 83 01 8B 47 24 |$."".386.6%...G$|
00001D30: B2 22 20 22 A7 8A 00 47 25 84 01 8B 47 24 B3 B1 |." "...G%...G$..|
00001D40: 22 20 22 A7 33 38 36 00 66 25 85 01 99 22 93 9A |" ".386.f%..."..|
00001D50: 22 3A 97 35 33 32 38 30 2C 31 34 3A 97 35 33 32 |":.53280,14:.532|
00001D60: 38 31 2C 36 3A 80 00 00 00 |81,6:.... |
....D..53280,0:.53281,0:.".".8.E..A$(400
),B$(400),M$(29)...F.M$(1)."TO START A N
EW SORT FILE":M$(2)."TO CONTINUE WITH AN
EXISTING FILE".Q.G.M$(3)."INVESTIGATIVE
SEARCH":M$(4)."INSTRUCTIONS":M$(5)."END
PROGRAM"...H.M$(6)."BUBBLE":M$(7)."DELA
YED REPLACEMENT":M$(8)."SHELL-METZNER.T.
I.M$(9)."SCREEN DISPLAY":M$(10)."PRINTED
COPY":M$(11)."CODE"...J.M$(12)."DETAILS
":M$(13)."AMOUNT":M$(14)."SUBJECT:".E.K.
M$(15)."RECORDS DELETED :":M$(16)."TO DE
LETE RECORDS".R.L..53280,5...M.."...
. S O R T P R O G R A M ..":..16
)"M E N U...".<.N..". 1. ";M$(1):."..
2. ";M$(2).E.O..".. 3. ";M$(3):."..
4. ";M$(16).{.P..".. 5. ";M$(4)...Q.
.".. 6. ";M$(5)...R.."................
....";...S.G$."":.G$:.". SELECT [1-6] ..
.............";...T..D.1.150:.:." SELECT
[1-6] ..............";:.D.1.150:..#.U..
202.2.V..G$."".115.K.W.G.E(G$):.G.1.G.6.
115.J.X..G.358,359,360,361,362,389.U.Y..
".":....Z.."... . S O R T M E T
H O D ......".Q.{..". 1. ";M$(6):
.".. 2. ";M$(7)...|..".. 3. ";M$(8).
..}.."........................";.:.~.G$.
"":.G$:.". SELECT [1-3] ................
";.V...D.1.150:.:." SELECT [1-3] .....
.........";:.D.1.150:......198......G$.
"".126.....G.E(G$):.G.1.G.3.126......G.2
80,289,299............"... . P R
I N T O P T I O N ......"......". 1
. ";M$(9):.".. 2. ";M$(10).>...."....
....................";.P...G$."":.G$:.".
SELECT [1-2] ................";......D.
1.150:.:." SELECT [1-2] .............."
;:.D.1.150:.......198.D....G$."".136....
.G.E(G$):.G.1.G.2.136......G.251,258....
.."...................";.:...G$."":.G$:.
". ANOTHER COPY ................";.V....
D.1.150:.:." ANOTHER COPY .............
.";:.D.1.150:......198......G$."".143..
....G$."Y".133...........O$."
":O1$."
"......:CODE$.""......"ITEM NUMBER
";CT.8...." .";:.J.1.X:.
" ";:.:..W....".CODE ";:.".";.
J....T$:.T$."".154.|....T$.G(13).154....
..T$.G(20).C(CO$).0.154.F....T$.G(20).CO
$.H(CO$,C(CO$).1):.". .";:.154.O....T$;.
....CO$.CO$.T$... ..C(CO$).X.154........
....198.....DETAILS$."".9...."
.";:.J.1.Y:." ";:.:..X....".DETAILS
";:.".";.K....T$:.T$."".166.}...
.T$.G(13).173......T$.G(20).C(DE$).0.166
.G....T$.G(20).DE$.H(DE$,C(DE$).1):.". .
";:.166.P....T$;.....DE$.DE$.T$......C(D
E$).Y.166...........DE$.DE$.O$:DE$.H(DE$
,Y).%...DE$." ".DE$:.......198.8....".";
.F...E1.0:R2.0.Q...NN$."".J...."AMOUNT
";NN$.Z....NN$."".186......K.1.C(NN
$):L$.J(NN$,K,1)......L$."-".E1.E1.1....
..L$.".".E2.E2.1......L$.."/"..L$.."-".L
$.."9".188......"THAT IS NOT A VALID AMO
UNT":.J.1.2000:.J......"..";O$:.O$:.".."
;:.179.O....K:.E1.1.E2.1.E1.0:E2.0:.186.
E....I(NN$,1)."-".186.Z...E1.0:E2.0:.191
:......NN..(100.E(NN$)..5).100.....NN$.D
(NN).D.A..NN..(NN).0.NN$.D(NN).".00"...B
..J(NN$,C(NN$).1,1).".".NN$.NN$."0"...C.
NN$.I(O1$.NN$,15)...D..NN.0.NN$."".NN$."
"...E...U.F..54277,33:.54278,255:.54296,
15:.54273,6:.54276,33.C.G..D.1.50:....H.
.54277,0:.54278,0:.54296,0:.54273,0:.542
76,0...I...Q.J..54277,40:.54278,132:.542
96,15:.54273,40:.54276,17...K..D.1.50:..
..L..54277,0:.54278,0:.54296,0:.54273,0:
.54276,0...M...".N..I.1.CT.2.O.B$(I).A$(
I).9.P..I.?.Q...L.R.."....LENGTH OF SORT
FIELD [MAX 27]";X..S..X..2.X.27.210.
..T.." DETAIL FIELD [MAX 27]";Y
.B.U..Y..2.Y.27..".";:.212...V.CT.0:.15,
8,15,"S0:/SORTFILE": 15:.1,8,8,"0:/SORTF
ILE,S,W"...W.T$.""...X..149.&.Y.A$.CO$.D
E$.NN$.8.Z..1,A$:CT.CT.1.O....H(A$,3)."E
ND".222.Y...A$."".B....215.I... 1......"
....................";......198......"."
:.1,8,8,"0:/SORTFILE,S,R".....CT.0.D....
1,A$.P...CT.CT.1.....A$(CT).A$......H(A$
,3)."END". 1:......A$.""......227.<...."
.":CT.0:X.0:Y.0:L.0:.1,8,8,"0:/SORTFILE,
S,R".Q....1,A$:L.C(A$).16.U....I.1.L:.J(
A$,I,1).." ".X.X.1:.I....Y.L.X.....CT.C
T.1.....A$(CT).A$......H(A$,3)."END". 1:
.242.....A$."".M....1,A$:.237......G..4.
A$(CT).""......"....................";..
....198......G.3.G.4...T....".":.15,8,15
,"S0:/SORTFILE": 15:.1,8,8,"0:/SORTFILE,
S,W".B....I.1.CT.1.O....1,A$(I).V....I.|
..........".":TL.0......I.1.CT......H(B$
(I),3)."END".B$(I)."".X....B$(I):TL.TL.E
(J(B$(I),X.Y.2))......I.10..(I.10)..T$:.
T$."".255......I:NN$.D(TL):.191.*.....X.
Y.5)"TOTAL ";NN$:..F...."...............
....";.....G$."":.G$:.". SWITCH PRINTER
ON ....................";:.D.1.150.F....
:." SWITCH PRINTER ON ..................
.";:.D.1.150:..O....198......G$."".259..
....G$..G(13).259......".":TL.0......2,4
......G.1.G.2..2.'....G.3.G.4...4....M$(
11);.D.....X)M$(12);.Y.....Y)M$(13).G(10
).E....I.1.CT......H(B$(I),3)."END".B$(I
).""......B$(I):TL.TL.E(J(B$(I),X.Y.2)).
.....I:NN$.D(TL):.191.......X.Y.5)"TOTAL
";NN$:.2: 2:.......I.1.CT.3......B$(I).
B$(I.1).."OUT OF ORDER AT ";I......I."..
...3....I.CT.1.1..1.A....J.1.CT.1.C....H
(B$(J),X)..H(B$(J.1),X).286.P...T$.B$(J)
.....B$(J).B$(J.1).....B$(J.1).T$......J
......I... .....!..I.CT.1.1..1...".NN.0.
J.#..J.1.I...$..H(B$(J),X).H(B$(NN),X).N
N.J...%..J...&.T$.B$(I)...'.B$(I).B$(NN)
...(.B$(NN).T$.%.)..I.+.*...I.+.GAP.2.(.
(.(CT.1)..(2)).1).W.,.GAP.GAP.2.S.-.C.CT
.GAP.1:B.0:.GAP.1...{...A.B.../.D.A.GAP:
.H(B$(A),X).H(B$(D),X).306...0.B.B.1:.B.
C.300...1..302.K.2.T$.B$(A)...3.B$(A).B$
(D)...4.B$(D).T$...5.A.A.GAP:.A.0.304...
6..303.D.7.."........TO SEARCH AND PRINT
ANYTHING WITH:":.".....";S$.A.8.L.C(S$)
:.L.2.L.X.Y.1.311.}.9..2,M$(14)." ".S$.
G(10)...:..2,M$(11);...;..2,.X)M$(12);..
.<..2,.Y)M$(13).G(10)...=.TL.0.J.>..I.1.
CT...?..J.1.((X.Y.1).L)...@..S$.J(A$(I),
J,L)..2,A$(I):TL.TL.E(J(A$(I),X.Y.2)):.I
...A..J.&.B..I.3.C..2,G(10).N.D..2,.X.Y.
12)"TOTAL ";TL.`.E..2,G(10)G(10).|.F..".
..................";...G.G$."":.G$:.". A
NOTHER SEARCH ? ....................";:
.D.1.150...H..:." ANOTHER SEARCH ? ....
...............";:.D.1.150:....I..198...
J..G$."".327.$.K..G$."Y".311.5.L..G$.."N
".330.>.M. 2:..|.N.."........TO DELETE A
ND PRINT ANYTHING WITH:":.".....";D$...O
.D.0:L.C(D$):.L.2.L.X.Y.1.334...P..2,M$(
15)." ".D$.G(10).H.Q..2,M$(11);.Z.R..2,
.X)M$(12);...S..2,.Y)M$(13).G(10)...T.TL
.0...U..I.1.CT...V..J.1.((X.Y.1).L).=.W.
.D$.J(A$(I),J,L)..2,A$(I):D.1.N.X..D.1.D
.0:TL.TL.E(J(A$(I),X.Y.2)):A$(I)."":.I.U
.Y..J.|.Z..I...[..2,G(10)...\..2,.X.Y.12
)"TOTAL ";TL...]..2,G(10)G(10)...^. 2.Z.
_.."....................";...`..198.! A.
.".":.15,8,15,"S0:/SORTFILE": 15:.1,8,8,
"0:/SORTFILE,S,W".- B..I.1.CT.E C..A$(I)
..""..1,A$(I).L D..I.U E. 1:..O F..210:.
206:.122:.133:... G..233:.215:.206:.122:
.133:... H..233:.258:.311:... I..233:.25
8:.334:..E J..53280,0.. K..".. ****
**** ***** *******..!L..". *
* * * * * *.D!M..". *
* * * * *.M!N..".
* * * * * *..!O..".
**** * * ****** *..!P..".
* * * * * *..!Q..".
* * * * * *.."R..".
* * * * * * *.;"S.."
. **** **** * * *".S"T.
.".INSTRUCTIONS:-.".."U.."THIS PROGRAM I
S OF UNIVERSAL APPLICATION".K"V.."WHEN I
T COMES TO SORTING, ANALYSING, . AND S
EARCHING THROUGH ";.."W.."A MASS OF DATA
. .FOR E.G. STOCK LISTS ..".*#X.."YOU
WILL BE ASKED THREE QUESTIONS :-.".R#Y..
" .PRESS SPACE TO CONTINUE.".K#Z.G
$."":.G$:.G$."".378..#{..G$." ".."..1. C
ODE, 2. DISCRIPTION AND 3. AMOUNT.."..#|
.."THE CODE AND THE DISCRIPTION CAN BE U
P .TO 27 CHARACTERS LONG...".6$}.."YOU
CAN USE THE INVESTIGATIVE SEARCH .FAC
ILITY TO SEARCH FOR ";.Q$~.."ANYTHING FR
OM .EITHER THE CODE OR DESCRIPTION...
"..$.."TO END THE PROGRAM TYPE 'END' FO
LLOWED .BY 'ZEROS' IN THE CODE, ";..$..
."DESCRIPTION AND.THE AMOUNT FIELDS..".
.%..." .PRESS SPACE TO CONTINUE.".
(%..G$."":.G$:.G$."".386.6%...G$." "...G
%...G$.." ".386.F%..."..":.53280,14:.532
81,6:....
> CLICK IMAGE PREVIEW FOR FULL MODAL