HASHBASE128
FILE INFORMATION
FILENAME(S): HASHBASE128
FILE TYPE(S): PRG
FILE SIZE: 20.6K
FIRST SEEN: 2025-11-30 17:31:22
APPEARS ON: 1 disk(s)
FILE HASH
edba2fbd93e313960675692b6b014dfe3ea5f55e3e7baef8b5dd9c17df5be46c
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| CDU JULY 1990 | HASHBASE128 | PRG | UK CD | 20 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 1C 0D 1C 0A 00 99 C7 28 31 34 32 29 00 36 1C |........(142).6.|
00000010: 14 00 8F 22 B0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |..."............|
00000020: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000030: C0 C0 C0 C0 AE 22 00 5F 1C 1E 00 8F 22 DD 20 20 |....."._....". |
00000040: 20 20 20 2A 20 48 41 53 48 20 42 41 53 45 20 31 | * HASH BASE 1|
00000050: 32 38 20 56 32 2E 30 20 2A 20 20 20 20 DD 22 00 |28 V2.0 * .".|
00000060: 88 1C 28 00 8F 22 DD 20 20 20 20 20 20 20 20 20 |..(..". |
00000070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000080: 20 20 20 20 20 20 DD 22 00 B1 1C 32 00 8F 22 DD | ."...2..".|
00000090: 20 20 2A 20 57 52 49 54 54 45 4E 20 26 20 50 52 | * WRITTEN & PR|
000000A0: 4F 47 52 41 4D 4D 45 44 20 42 59 20 2A 20 20 DD |OGRAMMED BY * .|
000000B0: 22 00 DA 1C 3C 00 8F 22 DD 20 20 20 20 20 20 20 |"...<..". |
000000C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000000D0: 20 20 20 20 20 20 20 20 DD 22 00 03 1D 46 00 8F | ."...F..|
000000E0: 22 DD 20 20 20 20 2A 20 53 54 45 56 45 4E 20 50 |". * STEVEN P|
000000F0: 41 55 4C 20 42 55 52 47 45 53 53 20 2A 20 20 20 |AUL BURGESS * |
00000100: 20 DD 22 00 2C 1D 50 00 8F 22 DD A0 20 20 20 20 | .".,.P..".. |
00000110: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000120: 20 20 20 20 20 20 20 20 20 20 DD 22 00 55 1D 5A | .".U.Z|
00000130: 00 8F 22 DD 20 20 20 20 20 20 20 2A 20 43 4F 50 |..". * COP|
00000140: 59 52 49 47 48 54 20 31 39 38 39 20 2A 20 20 20 |YRIGHT 1989 * |
00000150: 20 20 20 DD 22 00 7E 1D 64 00 8F 22 AD C0 C0 C0 | .".~.d.."....|
00000160: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000170: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 BD 22 00 8A |............."..|
00000180: 1D 6E 00 99 C7 28 31 34 32 29 00 90 1D 78 00 E8 |.n...(142)...x..|
00000190: 00 9A 1D 82 00 8D 35 34 39 30 00 AD 1D 8C 00 E7 |......5490......|
000001A0: 30 2C 38 3A E7 34 2C 39 3A E7 35 2C 31 00 B3 1D |0,8:.4,9:.5,1...|
000001B0: 96 00 99 00 D9 1D A0 00 87 41 3A 81 4C B2 31 20 |.........A:.L.1 |
000001C0: A4 20 41 3A 87 41 24 3A 99 A3 32 30 AB C3 28 41 |. A:.A$:..20..(A|
000001D0: 24 29 AD 32 29 41 24 3A 82 00 E1 1D AA 00 83 31 |$).2)A$:.......1|
000001E0: 39 00 FE 1D B4 00 83 22 CF B7 B7 B7 B7 B7 B7 B7 |9......"........|
000001F0: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 D0 20 22 00 1C |............ "..|
00000200: 1E BE 00 83 22 B4 48 41 53 48 20 42 41 53 45 20 |....".HASH BASE |
00000210: 31 32 38 20 56 32 2E 30 AA 81 A6 22 00 3C 1E C8 |128 V2.0...".<..|
00000220: 00 83 22 90 20 CC AF AF AF AF AF AF AF AF AF AF |..". ...........|
00000230: AF AF AF AF AF AF AF AF BA 81 A6 22 00 5A 1E D2 |...........".Z..|
00000240: 00 83 22 20 81 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 |.." ............|
00000250: A6 A6 A6 A6 A6 A6 A6 A6 A6 22 00 63 1E DC 00 83 |.........".c....|
00000260: 22 90 22 00 87 1E E6 00 83 22 CF B7 B7 B7 B7 B7 |"."......"......|
00000270: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |................|
00000280: B7 B7 B7 B7 D0 20 22 00 AD 1E F0 00 83 22 20 B4 |..... "......" .|
00000290: 57 52 49 54 54 45 4E 20 42 59 20 53 54 45 56 45 |WRITTEN BY STEVE|
000002A0: 4E 20 42 55 52 47 45 53 53 AA 81 A6 22 00 D5 1E |N BURGESS..."...|
000002B0: FA 00 83 22 90 20 20 CC AF AF AF AF AF AF AF AF |...". .........|
000002C0: AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF |................|
000002D0: AF BA 81 A6 22 00 FB 1E 04 01 83 22 20 20 81 A6 |...."......" ..|
000002E0: A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 |................|
000002F0: A6 A6 A6 A6 A6 A6 A6 A6 A6 A6 22 00 04 1F 0E 01 |..........".....|
00000300: 83 22 90 22 00 0A 1F 18 01 83 00 10 1F 22 01 83 |."."........."..|
00000310: 00 28 1F 2C 01 83 22 B0 C0 C0 C0 C0 C0 C0 C0 C0 |.(.,..".........|
00000320: C0 C0 C0 C0 C0 C0 AE 22 00 3F 1F 36 01 83 22 DD |.......".?.6..".|
00000330: 43 4F 50 59 52 49 47 48 54 20 31 39 38 39 DD 00 |COPYRIGHT 1989..|
00000340: 57 1F 40 01 83 22 AD C0 C0 C0 C0 C0 C0 C0 C0 C0 |W.@.."..........|
00000350: C0 C0 C0 C0 C0 BD 22 00 5D 1F 4A 01 83 00 7D 1F |......".].J...}.|
00000360: 54 01 83 22 B0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |T.."............|
00000370: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 AE 22 00 9D 1F |............"...|
00000380: 5E 01 83 22 DD 50 52 45 53 53 20 41 4E 59 20 4B |^..".PRESS ANY K|
00000390: 45 59 20 54 4F 20 42 45 47 49 4E DD 22 00 BD 1F |EY TO BEGIN."...|
000003A0: 68 01 83 22 AD C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |h.."............|
000003B0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 BD 22 00 CB 1F |............"...|
000003C0: 72 01 58 B2 32 30 3A 59 B2 32 33 00 D7 1F 7C 01 |r.X.20:Y.23...|.|
000003D0: 8D 34 31 30 27 A1 F9 00 E5 1F 86 01 8D 35 30 30 |.410'........500|
000003E0: 27 4D 45 4E 55 00 EF 1F 90 01 89 20 33 39 30 00 |'MENU...... 390.|
000003F0: 05 20 9A 01 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. ...***********|
00000400: 2A 2A 2A 2A 2A 00 1B 20 A4 01 8F 2A 47 45 54 4B |*****.. ...*GETK|
00000410: 45 59 20 52 4F 55 54 49 4E 45 2A 00 31 20 AE 01 |EY ROUTINE*.1 ..|
00000420: 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.***************|
00000430: 2A 00 37 20 B8 01 3A 00 48 20 C2 01 54 49 24 B2 |*.7 ..:.H ..TI$.|
00000440: 22 30 30 30 30 30 30 22 00 68 20 CC 01 8B 20 54 |"000000".h ... T|
00000450: 49 AD 35 B2 B5 28 54 49 AD 35 29 A7 E0 31 2C 58 |I.5..(TI.5)..1,X|
00000460: 2C 59 2C 22 20 22 2C 31 00 8C 20 D6 01 8B 20 54 |,Y," ",1.. ... T|
00000470: 49 AD 36 30 B2 B5 28 54 49 AD 36 30 29 20 A7 20 |I.60..(TI.60) . |
00000480: E0 31 2C 58 2C 59 2C 22 20 22 2C 30 00 A2 20 E0 |.1,X,Y," ",0.. .|
00000490: 01 A1 4B 45 24 3A 8B 4B 45 24 B2 22 22 A7 20 34 |..KE$:.KE$."". 4|
000004A0: 36 30 00 A8 20 EA 01 8E 00 B4 20 F4 01 8F 2A 2A |60.. ..... ...**|
000004B0: 2A 2A 2A 2A 00 C0 20 FE 01 8F 2A 4D 45 4E 55 2A |****.. ...*MENU*|
000004C0: 00 CC 20 08 02 8F 2A 2A 2A 2A 2A 2A 00 D2 20 12 |.. ...******.. .|
000004D0: 02 3A 00 DD 20 1C 02 44 49 24 B2 22 22 00 EB 20 |.:.. ..DI$."".. |
000004E0: 26 02 58 B2 31 39 3A 59 B2 32 34 00 F1 20 30 02 |&.X.19:Y.24.. 0.|
000004F0: E8 00 FF 20 3A 02 E7 30 2C 38 3A E7 35 2C 31 00 |... :..0,8:.5,1.|
00000500: 27 21 44 02 8C 3A 87 41 3A 81 4C B2 31 20 A4 20 |'!D..:.A:.L.1 . |
00000510: 34 3A 87 41 24 3A 99 A3 32 30 AB C3 28 41 24 29 |4:.A$:..20..(A$)|
00000520: AD 32 29 41 24 3A 82 00 30 21 4E 02 E7 35 2C 31 |.2)A$:..0!N..5,1|
00000530: 00 3A 21 58 02 8C 20 36 32 30 00 60 21 62 02 81 |.:!X.. 620.`!b..|
00000540: 4C B2 31 20 A4 20 31 30 3A 87 41 24 3A 99 A3 32 |L.1 . 10:.A$:..2|
00000550: 30 AB C3 28 41 24 29 AD 32 29 41 24 3A 99 3A 82 |0..(A$).2)A$:.:.|
00000560: 00 F7 21 6C 02 83 31 2E 2E 2E 43 52 45 41 54 45 |..!l..1...CREATE|
00000570: 20 46 49 4C 45 2C 32 2E 2E 2E 41 44 44 20 52 45 | FILE,2...ADD RE|
00000580: 43 4F 52 44 53 2C 33 2E 2E 2E 41 4D 45 4E 44 20 |CORDS,3...AMEND |
00000590: 52 45 43 4F 52 44 2C 34 2E 2E 2E 44 45 4C 45 54 |RECORD,4...DELET|
000005A0: 45 20 52 45 43 4F 52 44 2C 35 2E 2E 2E 56 49 45 |E RECORD,5...VIE|
000005B0: 57 20 52 45 43 4F 52 44 53 2C 36 2E 2E 2E 53 45 |W RECORDS,6...SE|
000005C0: 41 52 43 48 2C 37 2E 2E 2E 50 52 49 4E 54 20 4D |ARCH,7...PRINT M|
000005D0: 45 4E 55 2C 38 2E 2E 2E 4C 4F 41 44 2F 53 41 56 |ENU,8...LOAD/SAV|
000005E0: 45 20 4D 45 4E 55 2C 39 2E 2E 2E 44 49 53 4B 20 |E MENU,9...DISK |
000005F0: 55 54 49 4C 49 54 59 00 13 22 76 02 83 30 2E 2E |UTILITY.."v..0..|
00000600: 2E 44 45 4C 45 54 45 20 45 4E 54 49 52 45 20 46 |.DELETE ENTIRE F|
00000610: 49 4C 45 00 1C 22 80 02 8D 34 31 30 00 37 22 8A |ILE.."...410.7".|
00000620: 02 8B 20 4B 45 24 B3 22 30 22 B0 4B 45 24 B1 22 |.. KE$."0".KE$."|
00000630: 39 22 A7 20 36 34 30 00 45 22 94 02 4B B2 C5 28 |9". 640.E"..K..(|
00000640: 4B 45 24 29 3A 00 77 22 9E 02 8B 20 46 49 B2 30 |KE$):.w"... FI.0|
00000650: 20 AF 20 28 4B B3 B1 31 20 AF 20 4B B3 B1 38 20 | . (K..1 . K..8 |
00000660: AF 20 4B B3 B1 39 29 20 A7 20 57 B2 32 3A 8D 37 |. K..9) . W.2:.7|
00000670: 35 30 3A 89 35 30 30 00 9B 22 A8 02 8B 20 46 49 |50:.500.."... FI|
00000680: B2 31 20 AF 20 28 4B B2 31 29 20 20 A7 20 57 B2 |.1 . (K.1) . W.|
00000690: 31 3A 8D 37 35 30 3A 89 35 30 30 00 AC 22 B2 02 |1:.750:.500.."..|
000006A0: 8B 20 4B B2 36 20 A7 20 50 52 B2 30 00 BD 22 BC |. K.6 . PR.0..".|
000006B0: 02 8B 20 4B B2 37 20 A7 20 50 52 B2 31 00 F3 22 |.. K.7 . PR.1.."|
000006C0: C6 02 91 20 4B 20 8D 31 30 37 30 2C 32 32 34 30 |... K .1070,2240|
000006D0: 2C 32 34 32 30 2C 32 39 33 30 2C 33 32 34 30 2C |,2420,2930,3240,|
000006E0: 33 36 36 30 2C 34 31 37 30 2C 35 35 32 30 2C 36 |3660,4170,5520,6|
000006F0: 36 35 30 00 06 23 D0 02 8B 20 4B B2 30 20 A7 20 |650..#... K.0 . |
00000700: 8D 20 36 34 36 30 00 10 23 DA 02 89 20 35 30 30 |. 6460..#... 500|
00000710: 00 16 23 E4 02 80 00 25 23 EE 02 8F 2A 2A 2A 2A |..#....%#...****|
00000720: 2A 2A 2A 2A 2A 00 34 23 F8 02 8F 2A 57 41 52 4E |*****.4#...*WARN|
00000730: 49 4E 47 2A 00 43 23 02 03 8F 2A 2A 2A 2A 2A 2A |ING*.C#...******|
00000740: 2A 2A 2A 00 4E 23 0C 03 E8 3A 8C 38 34 30 00 54 |***.N#...:.840.T|
00000750: 23 16 03 EB 00 6B 23 20 03 87 4E 24 3A 8B 20 57 |#....k# ..N$:. W|
00000760: B2 C5 28 4E 24 29 A7 20 38 33 30 00 7C 23 2A 03 |..(N$). 830.|#*.|
00000770: EC 20 FC 20 C5 28 4E 24 29 B2 AB 31 00 8F 23 34 |. . .(N$)..1..#4|
00000780: 03 8B 20 C5 28 4E 24 29 B2 AB 31 20 A7 20 8E 00 |.. .(N$)..1 . ..|
00000790: AD 23 3E 03 81 4C B2 31 20 A4 20 35 3A 87 41 24 |.#>..L.1 . 5:.A$|
000007A0: 3A 99 41 24 3A 82 3A 8D 34 31 30 3A 8E 00 B4 23 |:.A$:.:.410:...#|
000007B0: 48 03 83 31 00 E4 23 52 03 83 22 B0 C0 C0 C0 C0 |H..1..#R..".....|
000007C0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000007D0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000007E0: C0 C0 AE 22 00 14 24 5C 03 83 22 DD 53 4F 52 52 |..."..$\..".SORR|
000007F0: 59 2C 20 42 55 54 20 54 48 45 52 45 20 49 53 20 |Y, BUT THERE IS |
00000800: 41 4C 52 45 41 44 59 20 41 20 46 49 4C 45 20 20 |ALREADY A FILE |
00000810: A0 A0 DD 22 00 43 24 66 03 83 22 DD 4C 4F 41 44 |...".C$f..".LOAD|
00000820: 45 44 20 49 4E 54 4F 20 54 48 45 20 43 4F 4D 50 |ED INTO THE COMP|
00000830: 55 54 45 52 2E 20 59 4F 55 20 4D 55 53 54 20 20 |UTER. YOU MUST |
00000840: 20 20 DD 00 73 24 70 03 83 22 DD 46 49 52 53 54 | ..s$p..".FIRST|
00000850: 20 44 45 4C 45 54 45 20 54 48 49 53 20 4F 4E 45 | DELETE THIS ONE|
00000860: 20 54 4F 20 43 4F 4E 54 49 4E 55 45 2E 20 20 20 | TO CONTINUE. |
00000870: 20 DD 22 00 A3 24 7A 03 83 22 AD C0 C0 C0 C0 C0 | ."..$z.."......|
00000880: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000890: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000008A0: C0 BD 22 00 AA 24 84 03 83 32 00 DA 24 8E 03 83 |.."..$...2..$...|
000008B0: 22 B0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |"...............|
000008C0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000008D0: C0 C0 C0 C0 C0 C0 C0 C0 AE 22 00 0A 25 98 03 83 |........."..%...|
000008E0: 22 DD 53 4F 52 52 59 2C 20 42 55 54 20 54 48 45 |".SORRY, BUT THE|
000008F0: 52 45 20 49 53 20 4E 4F 20 46 49 4C 45 20 49 4E |RE IS NO FILE IN|
00000900: 20 4D 45 4D 4F 52 59 A0 DD 22 00 39 25 A2 03 83 | MEMORY..".9%...|
00000910: 22 DD 54 48 45 52 45 46 4F 52 45 20 59 4F 55 20 |".THEREFORE YOU |
00000920: 43 41 4E 4E 4F 54 20 4D 41 4E 49 50 55 4C 41 54 |CANNOT MANIPULAT|
00000930: 45 2C 20 53 41 56 45 20 DD 00 69 25 AC 03 83 22 |E, SAVE ..i%..."|
00000940: DD 4F 52 20 50 52 49 4E 54 20 49 54 2E 20 49 54 |.OR PRINT IT. IT|
00000950: 20 44 4F 45 53 20 4E 4F 54 20 45 58 49 53 54 20 | DOES NOT EXIST |
00000960: 20 20 20 20 20 20 20 DD 22 00 99 25 B6 03 83 22 | ."..%..."|
00000970: AD C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000980: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000990: C0 C0 C0 C0 C0 C0 C0 BD 22 00 A0 25 C0 03 83 33 |........"..%...3|
000009A0: 00 D0 25 CA 03 83 22 B0 C0 C0 C0 C0 C0 C0 C0 C0 |..%...".........|
000009B0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000009C0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 AE 22 |..............."|
000009D0: 00 00 26 D4 03 83 22 DD 53 4F 52 52 59 2C 20 42 |..&...".SORRY, B|
000009E0: 55 54 20 54 48 45 20 52 45 43 4F 52 44 20 57 48 |UT THE RECORD WH|
000009F0: 49 43 48 20 59 4F 55 20 41 52 45 20 A0 A0 DD 22 |ICH YOU ARE ..."|
00000A00: 00 30 26 DE 03 83 22 DD 57 49 53 48 49 4E 47 20 |.0&...".WISHING |
00000A10: 54 4F 20 41 43 43 45 53 53 20 44 4F 45 53 20 4E |TO ACCESS DOES N|
00000A20: 4F 54 20 45 58 49 53 54 2E 20 59 4F 55 20 DD 22 |OT EXIST. YOU ."|
00000A30: 00 60 26 E8 03 83 22 DD 43 41 4E 4E 4F 54 20 54 |.`&...".CANNOT T|
00000A40: 48 45 52 45 46 4F 52 45 20 41 43 43 45 53 53 20 |HEREFORE ACCESS |
00000A50: 49 54 20 20 20 20 20 20 20 20 20 20 20 20 DD 22 |IT ."|
00000A60: 00 90 26 F2 03 83 22 AD C0 C0 C0 C0 C0 C0 C0 C0 |..&...".........|
00000A70: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000A80: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 BD 22 |..............."|
00000A90: 00 C2 26 FC 03 83 34 2C 22 B0 C0 C0 C0 C0 C0 C0 |..&...4,".......|
00000AA0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000AB0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000AC0: AE 22 00 F2 26 06 04 83 22 DD 53 4F 52 52 59 2C |."..&...".SORRY,|
00000AD0: 20 42 55 54 20 41 53 20 59 4F 55 20 48 41 56 45 | BUT AS YOU HAVE|
00000AE0: 20 4E 4F 54 20 45 4E 54 45 52 45 44 20 41 20 20 | NOT ENTERED A |
00000AF0: DD 22 00 22 27 10 04 83 22 DD 46 49 4C 45 4E 41 |."."'...".FILENA|
00000B00: 4D 45 2C 20 49 54 20 49 53 20 49 4D 50 4F 53 53 |ME, IT IS IMPOSS|
00000B10: 49 42 4C 45 20 46 4F 52 20 59 4F 55 20 54 4F 20 |IBLE FOR YOU TO |
00000B20: DD 22 00 52 27 1A 04 83 22 DD 4C 4F 41 44 20 4F |.".R'...".LOAD O|
00000B30: 52 20 53 41 56 45 20 41 20 46 49 4C 45 2E 20 53 |R SAVE A FILE. S|
00000B40: 45 4C 45 43 54 20 4F 50 54 49 4F 4E 20 34 20 20 |ELECT OPTION 4 |
00000B50: DD 22 00 85 27 24 04 83 22 AD C0 C0 C0 C0 C0 C0 |."..'$..".......|
00000B60: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000B70: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000B80: BD 22 2C 2D 31 00 98 27 2E 04 8F 2A 2A 2A 2A 2A |.",-1..'...*****|
00000B90: 2A 2A 2A 2A 2A 2A 2A 2A 00 AB 27 38 04 8F 2A 43 |********..'8..*C|
00000BA0: 52 45 41 54 45 20 46 49 4C 45 2A 00 BE 27 42 04 |REATE FILE*..'B.|
00000BB0: 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 C4 |.*************..|
00000BC0: 27 4C 04 3A 00 CA 27 56 04 E8 00 DD 27 60 04 E7 |'L.:..'V....'`..|
00000BD0: 30 2C 31 3A E7 34 2C 31 3A E7 35 2C 32 00 F3 27 |0,1:.4,1:.5,2..'|
00000BE0: 6A 04 99 22 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |j.."............|
00000BF0: C0 C0 22 00 06 28 74 04 99 22 43 52 45 41 54 45 |.."..(t.."CREATE|
00000C00: 20 46 49 4C 45 22 00 1C 28 7E 04 99 22 C0 C0 C0 | FILE"..(~.."...|
00000C10: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 22 00 47 28 88 |...........".G(.|
00000C20: 04 99 22 50 4C 45 41 53 45 20 45 4E 54 45 52 20 |.."PLEASE ENTER |
00000C30: 4E 55 4D 42 45 52 20 4F 46 20 46 49 45 4C 44 53 |NUMBER OF FIELDS|
00000C40: 46 49 45 4C 44 53 22 00 77 28 92 04 99 3A 99 22 |FIELDS".w(...:."|
00000C50: 30 31 20 20 30 32 20 20 30 33 20 20 30 34 20 20 |01 02 03 04 |
00000C60: 30 35 20 20 30 36 20 20 30 37 20 20 30 38 20 20 |05 06 07 08 |
00000C70: 30 39 20 20 31 30 22 00 AB 28 9C 04 3A 3A 3A 3A |09 10"..(..::::|
00000C80: 3A 3A 99 22 97 5E 20 20 20 5E 20 20 20 5E 20 20 |::.".^ ^ ^ |
00000C90: 20 5E 20 20 20 5E 20 20 20 5E 20 20 20 5E 20 20 | ^ ^ ^ ^ |
00000CA0: 20 5E 20 20 20 5E 20 20 20 5E 22 00 D6 28 A6 04 | ^ ^ ^"..(..|
00000CB0: 99 22 05 11 11 11 11 4D 4F 56 45 20 43 55 52 53 |.".....MOVE CURS|
00000CC0: 4F 52 20 55 53 49 4E 47 20 3C 20 41 4E 44 20 3E |OR USING < AND >|
00000CD0: 20 4B 45 59 53 22 00 FB 28 B0 04 99 22 11 11 50 | KEYS"..(..."..P|
00000CE0: 52 45 53 53 20 52 45 54 55 52 4E 20 54 4F 20 4D |RESS RETURN TO M|
00000CF0: 41 4B 45 20 43 48 4F 49 43 45 22 00 16 29 BA 04 |AKE CHOICE"..)..|
00000D00: 99 22 13 11 11 11 11 11 11 22 3B 3A 99 A3 30 AA |.".......";:..0.|
00000D10: 44 29 22 05 5E 22 00 1F 29 C4 04 8D 34 31 30 00 |D)".^"..)...410.|
00000D20: 36 29 CE 04 8B 20 4B 45 24 B2 C7 28 31 33 29 20 |6)... KE$..(13) |
00000D30: A7 20 31 33 31 30 00 55 29 D8 04 8B 20 4B 45 24 |. 1310.U)... KE$|
00000D40: B3 B1 22 2E 22 AF 20 4B 45 24 B3 B1 22 2C 22 A7 |..".". KE$..",".|
00000D50: 20 31 32 31 30 00 70 29 E2 04 99 22 13 11 11 11 | 1210.p)..."....|
00000D60: 11 11 11 22 3B 3A 99 A3 30 AA 44 29 22 97 5E 22 |...";:..0.D)".^"|
00000D70: 00 85 29 EC 04 8B 20 4B 45 24 B2 22 2E 22 A7 20 |..)... KE$.".". |
00000D80: 44 B2 44 AA 34 00 9A 29 F6 04 8B 20 4B 45 24 B2 |D.D.4..)... KE$.|
00000D90: 22 2C 22 A7 20 44 B2 44 AB 34 00 AA 29 00 05 8B |",". D.D.4..)...|
00000DA0: 20 44 B3 30 20 A7 20 44 B2 30 00 BC 29 0A 05 8B | D.0 . D.0..)...|
00000DB0: 20 44 B1 33 36 20 A7 20 44 B2 33 36 00 C7 29 14 | D.36 . D.36..).|
00000DC0: 05 89 20 31 32 31 30 00 CD 29 1E 05 E8 00 E2 29 |.. 1210..).....)|
00000DD0: 28 05 99 22 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |(.."............|
00000DE0: C0 22 00 F5 29 32 05 99 22 43 52 45 41 54 45 20 |."..)2.."CREATE |
00000DF0: 46 49 4C 45 22 00 0A 2A 3C 05 99 22 C0 C0 C0 C0 |FILE"..*<.."....|
00000E00: C0 C0 C0 C0 C0 C0 C0 C0 C0 22 00 2D 2A 46 05 99 |.........".-*F..|
00000E10: 3A 99 22 4E 55 4D 42 45 52 20 4F 46 20 46 49 45 |:."NUMBER OF FIE|
00000E20: 4C 44 53 3D 22 3B 28 44 AA 34 29 AD 34 00 3F 2A |LDS=";(D.4).4.?*|
00000E30: 50 05 4E 46 B2 28 44 AA 34 29 AD 34 20 3A 99 00 |P.NF.(D.4).4 :..|
00000E40: 6C 2A 5A 05 99 22 91 4D 41 58 49 4D 55 4D 20 50 |l*Z..".MAXIMUM P|
00000E50: 4F 53 53 49 42 4C 45 20 4E 55 4D 42 45 52 20 4F |OSSIBLE NUMBER O|
00000E60: 46 20 52 45 43 4F 52 44 53 3A 22 3B 00 80 2A 64 |F RECORDS:";..*d|
00000E70: 05 8B 20 4E 46 B2 31 30 A7 20 4E 52 B2 35 30 30 |.. NF.10. NR.500|
00000E80: 00 94 2A 6E 05 8B 20 4E 46 B2 39 20 A7 20 4E 52 |..*n.. NF.9 . NR|
00000E90: B2 36 35 30 00 A8 2A 78 05 8B 20 4E 46 B2 38 20 |.650..*x.. NF.8 |
00000EA0: A7 20 4E 52 B2 37 35 30 00 BC 2A 82 05 8B 20 4E |. NR.750..*... N|
00000EB0: 46 B2 37 20 A7 20 4E 52 B2 38 30 30 00 D0 2A 8C |F.7 . NR.800..*.|
00000EC0: 05 8B 20 4E 46 B2 36 20 A7 20 4E 52 B2 39 30 30 |.. NF.6 . NR.900|
00000ED0: 00 E5 2A 96 05 8B 20 4E 46 B2 35 20 A7 20 4E 52 |..*... NF.5 . NR|
00000EE0: B2 31 30 30 30 00 FA 2A A0 05 8B 20 4E 46 B2 34 |.1000..*... NF.4|
00000EF0: 20 A7 20 4E 52 B2 31 32 35 30 00 0F 2B AA 05 8B | . NR.1250..+...|
00000F00: 20 4E 46 B2 33 20 A7 20 4E 52 B2 31 35 30 30 00 | NF.3 . NR.1500.|
00000F10: 24 2B B4 05 8B 20 4E 46 B2 32 20 A7 20 4E 52 B2 |$+... NF.2 . NR.|
00000F20: 31 37 35 30 00 39 2B BE 05 8B 20 4E 46 B2 31 20 |1750.9+... NF.1 |
00000F30: A7 20 4E 52 B2 32 30 30 30 00 41 2B C8 05 99 4E |. NR.2000.A+...N|
00000F40: 52 00 52 2B D2 05 48 54 B2 4E 52 AC 31 30 AD 31 |R.R+..HT.NR.10.1|
00000F50: 30 30 00 5F 2B DC 05 4F 54 B2 4E 52 AB 48 54 00 |00._+..OT.NR.HT.|
00000F60: 7C 2B E6 05 99 22 48 41 53 48 20 54 41 42 4C 45 ||+..."HASH TABLE|
00000F70: 20 53 54 52 55 43 54 55 52 45 3A 22 00 99 2B F0 | STRUCTURE:"..+.|
00000F80: 05 99 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.."-------------|
00000F90: 2D 2D 2D 2D 2D 2D 2D 2D 22 00 B9 2B FA 05 99 22 |--------"..+..."|
00000FA0: 11 48 41 53 48 20 54 41 42 4C 45 3A 22 48 54 22 |.HASH TABLE:"HT"|
00000FB0: 20 52 45 43 4F 52 44 53 22 00 DD 2B 04 06 99 22 | RECORDS"..+..."|
00000FC0: 11 4F 56 45 52 46 4C 4F 57 20 54 41 42 4C 45 3A |.OVERFLOW TABLE:|
00000FD0: 22 4F 54 22 20 52 45 43 4F 52 44 53 22 00 FC 2B |"OT" RECORDS"..+|
00000FE0: 0E 06 86 41 24 28 4E 52 2C 4E 46 29 3A 86 54 24 |...A$(NR,NF):.T$|
00000FF0: 28 4E 46 29 3A 86 50 4F 28 4E 52 29 00 05 2C 18 |(NF):.PO(NR)..,.|
00001000: 06 8D 34 31 30 00 0B 2C 22 06 E8 00 45 2C 2C 06 |..410..,"...E,,.|
00001010: E0 31 2C 35 2C 35 2C 22 50 4C 45 41 53 45 20 57 |.1,5,5,"PLEASE W|
00001020: 41 49 54 3A 46 4F 52 4D 41 54 54 49 4E 47 20 54 |AIT:FORMATTING T|
00001030: 41 42 4C 45 22 3A 81 53 B2 31 20 A4 20 33 30 30 |ABLE":.S.1 . 300|
00001040: 3A 82 3A FE 25 00 7C 2C 36 06 81 4C B2 31 20 A4 |:.:.%.|,6..L.1 .|
00001050: 20 4E 52 3A 41 24 28 4C 2C 4E 46 29 B2 22 30 22 | NR:A$(L,NF)."0"|
00001060: 3A E7 34 2C 31 3A E7 34 2C 38 3A 82 3A 46 52 B2 |:.4,1:.4,8:.:FR.|
00001070: 48 54 AA 31 3A FE 26 3A E7 34 2C 31 00 82 2C 40 |HT.1:.&:.4,1..,@|
00001080: 06 E8 00 89 2C 4A 06 FE 25 00 AF 2C 54 06 99 22 |....,J..%..,T.."|
00001090: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000010A0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 22 00 |..............".|
000010B0: D3 2C 5E 06 99 22 43 52 45 41 54 45 20 46 49 4C |.,^.."CREATE FIL|
000010C0: 45 3A 46 49 45 4C 44 20 4E 41 4D 45 20 45 4E 54 |E:FIELD NAME ENT|
000010D0: 52 59 22 00 F9 2C 68 06 99 22 C0 C0 C0 C0 C0 C0 |RY"..,h.."......|
000010E0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000010F0: C0 C0 C0 C0 C0 C0 C0 C0 22 00 0B 2D 72 06 81 46 |........"..-r..F|
00001100: B2 30 20 A4 20 28 4E 46 AB 31 29 00 62 2D 7C 06 |.0 . (NF.1).b-|.|
00001110: 99 22 13 11 11 11 11 45 4E 54 45 52 20 46 49 45 |.".....ENTER FIE|
00001120: 4C 44 4E 41 4D 45 22 46 AA 31 22 3A 20 20 20 20 |LDNAME"F.1": |
00001130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 9D | .|
00001140: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |................|
00001150: 9D 9D 22 3B 3A 58 B2 32 30 3A 59 B2 34 3A 4C B2 |..";:X.20:Y.4:L.|
00001160: 31 35 00 74 2D 86 06 8D 31 39 33 30 27 A1 53 54 |15.t-...1930'.ST|
00001170: 52 49 4E 47 00 83 2D 90 06 41 24 28 30 2C 46 29 |RING..-..A$(0,F)|
00001180: B2 53 24 00 89 2D 9A 06 82 00 94 2D A4 06 E8 3A |.S$..-.....-...:|
00001190: 46 49 B2 31 00 B7 2D AE 06 99 22 46 49 45 4C 44 |FI.1..-..."FIELD|
000011A0: 20 4E 41 4D 45 53 20 41 52 45 20 41 53 20 46 4F | NAMES ARE AS FO|
000011B0: 4C 4C 4F 57 53 3A 22 00 DA 2D B8 06 99 22 2D 2D |LLOWS:"..-..."--|
000011C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000011D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 EA 2D C2 06 81 |---------"..-...|
000011E0: 46 B2 30 20 A4 20 4E 46 AB 31 00 FD 2D CC 06 99 |F.0 . NF.1..-...|
000011F0: 46 AA 31 A3 35 29 41 24 28 30 2C 46 29 00 03 2E |F.1.5)A$(0,F)...|
00001200: D6 06 82 00 31 2E E0 06 58 B2 32 30 3A 59 B2 32 |....1...X.20:Y.2|
00001210: 34 3A 99 22 11 41 52 45 20 54 48 45 52 45 20 41 |4:.".ARE THERE A|
00001220: 4E 59 20 45 52 52 4F 52 53 20 28 59 2F 4E 29 3F |NY ERRORS (Y/N)?|
00001230: 22 00 3A 2E EA 06 8D 34 31 30 00 58 2E F4 06 8B |".:....410.X....|
00001240: 20 4B 45 24 B3 B1 22 59 22 AF 4B 45 24 B3 B1 22 | KE$.."Y".KE$.."|
00001250: 4E 22 A7 20 31 37 37 30 00 69 2E FE 06 8B 20 4B |N". 1770.i.... K|
00001260: 45 24 B2 22 4E 22 A7 20 8E 00 6F 2E 08 07 E8 00 |E$."N". ..o.....|
00001270: 7F 2E 12 07 81 46 B2 30 20 A4 20 4E 46 AB 31 00 |.....F.0 . NF.1.|
00001280: 92 2E 1C 07 99 46 AA 31 A3 35 29 41 24 28 30 2C |.....F.1.5)A$(0,|
00001290: 46 29 00 98 2E 26 07 82 00 C3 2E 30 07 99 22 11 |F)...&.....0..".|
000012A0: 57 48 49 43 48 20 46 49 45 4C 44 20 48 41 53 20 |WHICH FIELD HAS |
000012B0: 41 4E 20 45 52 52 4F 52 20 28 31 2D 22 4E 46 22 |AN ERROR (1-"NF"|
000012C0: 29 3F 22 00 DD 2E 3A 07 58 B2 33 35 3A 59 B2 31 |)?"...:.X.35:Y.1|
000012D0: AA 4E 46 3A 4C B2 32 3A 8D 31 39 33 30 00 FD 2E |.NF:L.2:.1930...|
000012E0: 44 07 8B 20 C5 28 53 24 29 B3 31 20 B0 20 C5 28 |D.. .(S$).1 . .(|
000012F0: 53 24 29 B1 4E 46 20 A7 20 31 38 30 30 00 0C 2F |S$).NF . 1800../|
00001300: 4E 07 46 43 B2 C5 28 53 24 29 3A E8 00 32 2F 58 |N.FC..(S$):..2/X|
00001310: 07 99 22 54 48 45 20 46 49 45 4C 44 20 43 48 4F |.."THE FIELD CHO|
00001320: 53 45 4E 20 49 53 3A 22 41 24 28 30 2C 46 43 AB |SEN IS:"A$(0,FC.|
00001330: 31 29 00 5F 2F 62 07 99 22 11 49 4E 50 55 54 20 |1)._/b..".INPUT |
00001340: 4E 45 57 20 56 41 4C 55 45 3A 22 3A 4C B2 31 35 |NEW VALUE:":L.15|
00001350: 3A 58 B2 32 30 3A 59 B2 32 3A 8D 31 39 33 30 00 |:X.20:Y.2:.1930.|
00001360: 71 2F 6C 07 41 24 28 30 2C 46 43 AB 31 29 B2 53 |q/l.A$(0,FC.1).S|
00001370: 24 00 7C 2F 76 07 89 20 31 37 30 30 00 82 2F 80 |$.|/v.. 1700../.|
00001380: 07 80 00 94 2F 8A 07 8F 2A 2A 2A 2A 2A 2A 2A 2A |..../...********|
00001390: 2A 2A 2A 2A 00 A6 2F 94 07 8F 2A 47 45 54 20 53 |****../...*GET S|
000013A0: 54 52 49 4E 47 2A 00 B8 2F 9E 07 8F 2A 2A 2A 2A |TRING*../...****|
000013B0: 2A 2A 2A 2A 2A 2A 2A 2A 00 CC 2F A8 07 53 24 B2 |********../..S$.|
000013C0: 22 22 3A 58 31 B2 58 3A 59 31 B2 59 00 15 30 B2 |"":X1.X:Y1.Y..0.|
000013D0: 07 43 48 24 B2 22 41 42 43 44 45 46 47 48 49 4A |.CH$."ABCDEFGHIJ|
000013E0: 4B 4C 4D 4E 4F 50 51 52 53 54 55 56 57 58 59 5A |KLMNOPQRSTUVWXYZ|
000013F0: 20 31 32 33 34 35 36 37 38 39 30 2E 2B 2D 5C 3D | 1234567890.+-\=|
00001400: 3F 21 23 24 25 26 27 28 29 40 2A 5E 2F 5B 5D FF |?!#$%&'()@*^/[].|
00001410: 22 AA 44 49 24 00 1C 30 BC 07 FE 26 00 25 30 C6 |".DI$..0...&.%0.|
00001420: 07 8D 34 31 30 00 69 30 D0 07 8B 20 4B 45 24 B2 |..410.i0... KE$.|
00001430: C7 28 32 30 29 20 AF C3 28 53 24 29 B1 30 20 A7 |.(20) ..(S$).0 .|
00001440: 20 53 24 B2 C8 28 53 24 2C C3 28 53 24 29 AB 31 | S$..(S$,.(S$).1|
00001450: 29 3A E0 31 2C 58 2C 59 2C 22 20 22 3A 58 B2 58 |):.1,X,Y," ":X.X|
00001460: AB 31 3A 89 20 31 39 39 30 00 87 30 DA 07 8B 20 |.1:. 1990..0... |
00001470: 4B 45 24 B2 C7 28 31 33 29 20 AF 20 C3 28 53 24 |KE$..(13) . .(S$|
00001480: 29 B1 30 20 A7 20 8E 00 A1 30 E4 07 8B 20 D4 28 |).0 . ...0... .(|
00001490: 43 48 24 2C 4B 45 24 29 B2 30 20 A7 20 31 39 39 |CH$,KE$).0 . 199|
000014A0: 30 00 B7 30 EE 07 8B 20 C3 28 53 24 29 B1 B2 4C |0..0... .(S$)..L|
000014B0: 20 A7 20 31 39 39 30 00 C5 30 F8 07 53 24 B2 53 | . 1990..0..S$.S|
000014C0: 24 AA 4B 45 24 00 E1 30 02 08 E0 31 2C 58 31 2C |$.KE$..0...1,X1,|
000014D0: 59 31 2C 53 24 3A 58 B2 58 AA 31 3A 89 31 39 39 |Y1,S$:X.X.1:.199|
000014E0: 30 00 F6 30 0C 08 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |0..0...*********|
000014F0: 2A 2A 2A 2A 2A 2A 00 0B 31 16 08 8F 2A 48 41 53 |******..1...*HAS|
00001500: 48 20 45 51 55 41 54 49 4F 4E 2A 00 20 31 20 08 |H EQUATION*. 1 .|
00001510: 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.***************|
00001520: 00 26 31 2A 08 3A 00 2E 31 34 08 48 B2 30 00 58 |.&1*.:..14.H.0.X|
00001530: 31 3E 08 81 4C B2 31 20 A4 20 C3 28 54 24 28 30 |1>..L.1 . .(T$(0|
00001540: 29 29 3A 48 B2 48 AA C6 28 CA 28 54 24 28 30 29 |)):H.H..(.(T$(0)|
00001550: 2C 4C 2C 31 29 29 3A 82 00 69 31 48 08 48 B2 48 |,L,1)):..i1H.H.H|
00001560: AD C3 28 54 24 28 30 29 29 00 7A 31 52 08 48 B2 |..(T$(0)).z1R.H.|
00001570: 48 AD 32 35 35 AC 28 48 54 29 00 85 31 5C 08 48 |H.255.(HT)..1\.H|
00001580: B2 B5 28 48 29 00 8B 31 66 08 8E 00 C6 31 70 08 |..(H)..1f....1p.|
00001590: 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 20 |.************* |
000015A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000015B0: 20 20 20 20 20 20 52 45 4D 2A 49 4E 53 45 52 54 | REM*INSERT|
000015C0: 20 44 41 54 41 2A 00 D9 31 7A 08 8F 2A 2A 2A 2A | DATA*..1z..****|
000015D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 E1 31 84 08 49 B2 |*********..1..I.|
000015E0: 30 00 14 32 8E 08 8B 20 41 24 28 48 2C 30 29 B2 |0..2... A$(H,0).|
000015F0: 22 22 A7 81 4C B2 30 20 A4 20 4E 46 AB 31 3A 41 |""..L.0 . NF.1:A|
00001600: 24 28 48 2C 4C 29 B2 54 24 28 4C 29 3A 82 3A 49 |$(H,L).T$(L):.:I|
00001610: B2 31 3A 8E 00 60 32 98 08 8B 20 41 24 28 48 2C |.1:..`2... A$(H,|
00001620: 4E 46 29 B2 22 30 22 A7 20 41 24 28 48 2C 4E 46 |NF)."0". A$(H,NF|
00001630: 29 B2 C4 28 46 52 29 3A 81 4C B2 30 20 A4 20 4E |)..(FR):.L.0 . N|
00001640: 46 AB 31 3A 41 24 28 46 52 2C 4C 29 B2 54 24 28 |F.1:A$(FR,L).T$(|
00001650: 4C 29 3A 82 3A 46 52 B2 46 52 AA 31 3A 49 B2 31 |L):.:FR.FR.1:I.1|
00001660: 00 82 32 A2 08 8B 20 49 B3 B1 31 20 A7 20 48 B2 |..2... I..1 . H.|
00001670: C5 28 41 24 28 48 2C 4E 46 29 29 3A 89 20 32 31 |.(A$(H,NF)):. 21|
00001680: 39 30 00 88 32 AC 08 8E 00 95 32 B6 08 86 50 4F |90..2.....2...PO|
00001690: 28 31 30 30 29 00 9B 32 C0 08 E8 00 AE 32 CA 08 |(100)..2.....2..|
000016A0: E7 30 2C 31 3A E7 34 2C 31 3A E7 35 2C 32 00 C6 |.0,1:.4,1:.5,2..|
000016B0: 32 D4 08 99 22 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |2..."...........|
000016C0: C0 C0 C0 C0 C0 22 00 D9 32 DE 08 99 22 41 44 44 |....."..2..."ADD|
000016D0: 20 52 45 43 4F 52 44 53 22 00 F1 32 E8 08 99 22 | RECORDS"..2..."|
000016E0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000016F0: 22 00 F7 32 F2 08 99 00 07 33 FC 08 81 46 B2 30 |"..2.....3...F.0|
00001700: 20 A4 20 4E 46 AB 31 00 29 33 06 09 99 3A 99 41 | . NF.1.)3...:.A|
00001710: 24 28 30 2C 46 29 22 3A 22 3A 58 B2 31 36 3A 59 |$(0,F)":":X.16:Y|
00001720: B2 46 AA 35 3A 4C B2 32 33 00 33 33 10 09 8D 31 |.F.5:L.23.33...1|
00001730: 39 33 30 00 40 33 1A 09 54 24 28 46 29 B2 53 24 |930.@3..T$(F).S$|
00001740: 00 46 33 24 09 82 00 5D 33 2E 09 8D 32 30 36 30 |.F3$...]3...2060|
00001750: 27 48 41 53 48 20 45 51 55 41 54 49 91 00 7B 33 |'HASH EQUATI..{3|
00001760: 38 09 8D 32 31 36 30 27 49 4E 53 45 52 54 20 83 |8..2160'INSERT .|
00001770: 20 49 4E 54 4F 20 54 41 42 4C 45 00 9B 33 42 09 | INTO TABLE..3B.|
00001780: 99 3A 99 22 11 11 41 4E 4F 54 48 45 52 20 52 45 |.:."..ANOTHER RE|
00001790: 43 4F 52 44 20 28 59 2F 4E 29 22 00 AE 33 4C 09 |CORD (Y/N)"..3L.|
000017A0: 58 B2 32 30 3A 59 B2 32 34 3A 8D 34 31 30 00 CD |X.20:Y.24:.410..|
000017B0: 33 56 09 8B 20 4B 45 24 B3 B1 22 59 22 AF 20 4B |3V.. KE$.."Y". K|
000017C0: 45 24 B3 B1 22 4E 22 A7 20 32 33 38 30 00 E3 33 |E$.."N". 2380..3|
000017D0: 60 09 8B 20 4B 45 24 B2 22 4E 22 A7 20 46 49 B2 |`.. KE$."N". FI.|
000017E0: 31 3A 8E 00 EE 33 6A 09 89 20 32 32 34 30 00 03 |1:...3j.. 2240..|
000017F0: 34 74 09 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |4t..************|
00001800: 2A 2A 2A 00 18 34 7E 09 8F 2A 41 4D 45 4E 44 20 |***..4~..*AMEND |
00001810: 52 45 43 4F 52 44 53 2A 00 2D 34 88 09 8F 2A 2A |RECORDS*.-4...**|
00001820: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 33 34 |*************.34|
00001830: 92 09 3A 00 39 34 9C 09 E8 00 53 34 A6 09 99 22 |..:.94....S4..."|
00001840: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00001850: C0 C0 22 00 68 34 B0 09 99 22 41 4D 45 4E 44 20 |..".h4..."AMEND |
00001860: 52 45 43 4F 52 44 53 22 00 82 34 BA 09 99 22 C0 |RECORDS"..4...".|
00001870: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00001880: C0 22 00 8B 34 C4 09 46 4F B2 30 00 D4 34 CE 09 |."..4..FO.0..4..|
00001890: 99 3A 99 22 45 4E 54 45 52 20 22 41 24 28 30 2C |.:."ENTER "A$(0,|
000018A0: 30 29 22 20 4F 46 20 52 45 43 4F 52 44 20 59 4F |0)" OF RECORD YO|
000018B0: 55 20 57 49 53 48 20 54 4F 20 20 20 20 20 20 20 |U WISH TO |
000018C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 41 4D | AM|
000018D0: 45 4E 44 22 00 F4 34 D8 09 58 B2 30 3A 59 B2 38 |END"..4..X.0:Y.8|
000018E0: 3A 4C B2 32 34 3A 8D 31 39 33 30 3A 54 24 28 30 |:L.24:.1930:T$(0|
000018F0: 29 B2 53 24 00 FE 34 E2 09 8D 32 30 36 30 00 16 |).S$..4...2060..|
00001900: 35 EC 09 8B 20 41 24 28 48 2C 30 29 B2 53 24 20 |5... A$(H,0).S$ |
00001910: A7 20 46 4F B2 31 00 31 35 F6 09 8B 20 46 4F B2 |. FO.1.15... FO.|
00001920: 30 20 A7 20 48 B2 C5 28 41 24 28 48 2C 4E 46 29 |0 . H..(A$(H,NF)|
00001930: 29 00 4B 35 00 0A 8B 20 48 B3 B1 30 20 AF 20 46 |).K5... H..0 . F|
00001940: 4F B3 B1 31 20 A7 20 32 35 34 30 00 69 35 0A 0A |O..1 . 2540.i5..|
00001950: 8B 20 48 B2 30 20 AF 20 46 4F B2 30 20 A7 20 57 |. H.0 . FO.0 . W|
00001960: B2 33 3A 8D 37 35 30 3A 8E 00 73 35 14 0A 99 22 |.3:.750:..s5..."|
00001970: 93 22 3B 00 88 35 1E 0A 99 22 52 45 43 4F 52 44 |.";..5..."RECORD|
00001980: 20 46 4F 55 4E 44 3A 22 00 9D 35 28 0A 99 22 2D | FOUND:"..5(.."-|
00001990: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 AD 35 |------------"..5|
000019A0: 32 0A 81 4C B2 30 20 A4 20 4E 46 AB 31 00 C8 35 |2..L.0 . NF.1..5|
000019B0: 3C 0A 99 41 24 28 30 2C 4C 29 22 3A 22 A3 31 36 |<..A$(0,L)":".16|
000019C0: 29 41 24 28 48 2C 4C 29 00 CE 35 46 0A 82 00 FF |)A$(H,L)..5F....|
000019D0: 35 50 0A 99 22 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |5P.."...........|
000019E0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000019F0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 22 3B 00 |.............";.|
00001A00: 2F 36 5A 0A 99 22 49 53 20 54 48 49 53 20 54 48 |/6Z.."IS THIS TH|
00001A10: 45 20 52 45 43 4F 52 44 20 59 4F 55 20 57 49 53 |E RECORD YOU WIS|
00001A20: 48 20 54 4F 20 41 4D 45 4E 44 20 59 2F 4E 22 00 |H TO AMEND Y/N".|
00001A30: 60 36 64 0A 99 22 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |`6d.."..........|
00001A40: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00001A50: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 22 3B |..............";|
00001A60: 00 73 36 6E 0A 58 B2 32 30 3A 59 B2 32 34 3A 8D |.s6n.X.20:Y.24:.|
00001A70: 34 31 30 00 91 36 78 0A 8B 20 4B 45 24 B3 B1 22 |410..6x.. KE$.."|
00001A80: 59 22 AF 4B 45 24 B3 B1 22 4E 22 A7 20 32 36 37 |Y".KE$.."N". 267|
00001A90: 30 00 B9 36 82 0A 8B 20 4B 45 24 B2 22 4E 22 A7 |0..6... KE$."N".|
00001AA0: 48 B2 C5 28 41 24 28 48 2C 4E 46 29 29 3A 46 4F |H..(A$(H,NF)):FO|
00001AB0: B2 30 3A 89 20 32 35 34 30 00 08 37 8C 0A 8B 20 |.0:. 2540..7... |
00001AC0: 4E 46 B1 31 20 A7 20 99 3A 99 22 93 11 11 11 11 |NF.1 . .:.".....|
00001AD0: 11 11 11 11 11 11 11 11 44 4F 20 59 4F 55 20 57 |........DO YOU W|
00001AE0: 49 53 48 20 54 4F 20 41 4D 45 4E 44 20 54 48 45 |ISH TO AMEND THE|
00001AF0: 20 22 3B 41 24 28 30 2C 30 29 3B 22 20 46 49 45 | ";A$(0,0);" FIE|
00001B00: 4C 44 3F 22 3A 42 B2 32 00 22 37 96 0A 8B 20 4E |LD?":B.2."7... N|
00001B10: 46 B2 31 20 A7 20 53 24 B2 22 31 22 89 20 32 38 |F.1 . S$."1". 28|
00001B20: 32 30 00 35 37 A0 0A 58 B2 32 30 3A 59 B2 32 34 |20.57..X.20:Y.24|
00001B30: 3A 8D 34 31 30 00 52 37 AA 0A 8B 20 4B 45 24 B3 |:.410.R7... KE$.|
00001B40: B1 22 59 22 AF 4B 45 24 B3 B1 22 4E 22 A7 32 37 |."Y".KE$.."N".27|
00001B50: 32 30 00 9A 37 B4 0A 8B 20 4B 45 24 B2 22 59 22 |20..7... KE$."Y"|
00001B60: A7 20 81 4C B2 30 20 A4 20 4E 46 AB 31 3A 54 24 |. .L.0 . NF.1:T$|
00001B70: 28 4C 29 B2 41 24 28 48 2C 4C 29 3A 41 24 28 48 |(L).A$(H,L):A$(H|
00001B80: 2C 4C 29 B2 22 22 3A 82 3A 42 B2 31 3A 53 24 B2 |,L)."":.:B.1:S$.|
00001B90: 22 31 22 3A 89 20 32 38 32 30 00 A0 37 BE 0A E8 |"1":. 2820..7...|
00001BA0: 00 CF 37 C8 0A 81 4C B2 30 20 A4 20 4E 46 AB 31 |..7...L.0 . NF.1|
00001BB0: 3A 99 4C AA 31 22 3A 22 41 24 28 30 2C 4C 29 22 |:.L.1":"A$(0,L)"|
00001BC0: 3A 22 A3 31 37 29 41 24 28 48 2C 4C 29 3A 82 00 |:".17)A$(H,L):..|
00001BD0: F8 37 D2 0A 99 22 11 11 45 4E 54 45 52 20 46 49 |.7..."..ENTER FI|
00001BE0: 45 4C 44 20 54 4F 20 41 4D 45 4E 44 20 28 22 42 |ELD TO AMEND ("B|
00001BF0: 22 2D 22 4E 46 22 29 22 00 10 38 DC 0A 99 22 11 |"-"NF")"..8...".|
00001C00: 11 45 4E 54 45 52 20 30 20 54 4F 20 45 4E 44 22 |.ENTER 0 TO END"|
00001C10: 00 28 38 E6 0A 4C B2 32 3A 58 B2 31 39 3A 59 B2 |.(8..L.2:X.19:Y.|
00001C20: 32 34 3A 8D 31 39 33 30 00 38 38 F0 0A 8B 20 53 |24:.1930.88... S|
00001C30: 24 B2 22 30 22 A7 20 8E 00 58 38 FA 0A 8B 20 C5 |$."0". ..X8... .|
00001C40: 28 53 24 29 B3 42 20 B0 20 C5 28 53 24 29 B1 4E |(S$).B . .(S$).N|
00001C50: 46 20 A7 20 32 37 39 30 00 5E 38 04 0B E8 00 74 |F . 2790.^8....t|
00001C60: 38 0E 0B 8B 20 53 24 B2 22 31 22 20 A7 20 89 20 |8... S$."1" . . |
00001C70: 32 38 38 30 00 9B 38 18 0B 52 B2 C5 28 53 24 29 |2880..8..R..(S$)|
00001C80: 3A 99 22 43 55 52 52 45 4E 54 20 56 41 4C 55 45 |:."CURRENT VALUE|
00001C90: 3A 22 41 24 28 48 2C 52 AB 31 29 00 B4 38 22 0B |:"A$(H,R.1)..8".|
00001CA0: 99 22 11 11 45 4E 54 45 52 20 4E 45 57 20 56 41 |."..ENTER NEW VA|
00001CB0: 4C 55 45 22 00 CC 38 2C 0B 58 B2 35 3A 59 B2 31 |LUE"..8,.X.5:Y.1|
00001CC0: 30 3A 4C B2 32 34 3A 8D 31 39 33 30 00 E4 38 36 |0:L.24:.1930..86|
00001CD0: 0B 41 24 28 48 2C 52 AB 31 29 B2 53 24 3A 89 20 |.A$(H,R.1).S$:. |
00001CE0: 32 37 35 30 00 09 39 40 0B 52 B2 C5 28 53 24 29 |2750..9@.R..(S$)|
00001CF0: 3A 99 22 43 55 52 52 45 4E 54 20 56 41 4C 55 45 |:."CURRENT VALUE|
00001D00: 3A 22 54 24 28 52 AB 31 29 00 22 39 4A 0B 99 22 |:"T$(R.1)."9J.."|
00001D10: 11 11 45 4E 54 45 52 20 4E 45 57 20 56 41 4C 55 |..ENTER NEW VALU|
00001D20: 45 22 00 3A 39 54 0B 58 B2 35 3A 59 B2 31 30 3A |E".:9T.X.5:Y.10:|
00001D30: 4C B2 32 34 3A 8D 31 39 33 30 00 54 39 5E 0B 54 |L.24:.1930.T9^.T|
00001D40: 24 28 30 29 B2 53 24 3A 8D 20 32 30 36 30 3A 8D |$(0).S$:. 2060:.|
00001D50: 32 31 36 30 00 5F 39 68 0B 89 20 32 37 35 30 00 |2160._9h.. 2750.|
00001D60: 65 39 72 0B E8 00 7C 39 7C 0B 99 22 C0 C0 C0 C0 |e9r...|9|.."....|
00001D70: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 22 00 91 39 86 |..........."..9.|
00001D80: 0B 99 22 44 45 4C 45 54 45 20 52 45 43 4F 52 44 |.."DELETE RECORD|
00001D90: 22 00 A8 39 90 0B 99 22 C0 C0 C0 C0 C0 C0 C0 C0 |"..9..."........|
00001DA0: C0 C0 C0 C0 C0 C0 C0 22 00 B1 39 9A 0B 46 4F B2 |......."..9..FO.|
00001DB0: 30 00 F5 39 A4 0B 99 3A 99 22 45 4E 54 45 52 20 |0..9...:."ENTER |
00001DC0: 22 41 24 28 30 2C 30 29 22 20 4F 46 20 52 45 43 |"A$(0,0)" OF REC|
00001DD0: 4F 52 44 20 59 4F 55 20 57 49 53 48 20 54 4F 20 |ORD YOU WISH TO |
00001DE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 44 45 4C | DEL|
00001DF0: 45 54 45 3A 22 00 0D 3A AE 0B 58 B2 35 3A 59 B2 |ETE:"..:..X.5:Y.|
00001E00: 31 30 3A 4C B2 32 34 3A 8D 31 39 33 30 00 20 3A |10:L.24:.1930. :|
00001E10: B8 0B 54 24 28 30 29 B2 53 24 3A 8D 32 30 36 30 |..T$(0).S$:.2060|
00001E20: 00 38 3A C2 0B 8B 20 41 24 28 48 2C 30 29 B2 53 |.8:... A$(H,0).S|
00001E30: 24 20 A7 20 46 4F B2 31 00 53 3A CC 0B 8B 20 46 |$ . FO.1.S:... F|
00001E40: 4F B2 30 20 A7 20 48 B2 C5 28 41 24 28 48 2C 4E |O.0 . H..(A$(H,N|
00001E50: 46 29 29 00 6D 3A D6 0B 8B 20 48 B3 B1 30 20 AF |F)).m:... H..0 .|
00001E60: 20 46 4F B3 B1 31 20 A7 20 33 30 31 30 00 8B 3A | FO..1 . 3010..:|
00001E70: E0 0B 8B 20 48 B2 30 20 AF 20 46 4F B2 30 20 A7 |... H.0 . FO.0 .|
00001E80: 20 57 B2 33 3A 8D 37 35 30 3A 8E 00 91 3A EA 0B | W.3:.750:...:..|
00001E90: E8 00 A1 3A F4 0B 81 4C B2 30 20 A4 20 4E 46 AB |...:...L.0 . NF.|
00001EA0: 31 00 BE 3A FE 0B 99 41 24 28 30 2C 4C 29 22 3A |1..:...A$(0,L)":|
00001EB0: 22 A3 31 36 29 41 24 28 48 2C 4C 29 3A 82 00 EE |".16)A$(H,L):...|
00001EC0: 3A 08 0C 99 22 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |:..."...........|
00001ED0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00001EE0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 22 00 1E |............."..|
00001EF0: 3B 12 0C 99 22 49 53 20 54 48 49 53 20 54 48 45 |;..."IS THIS THE|
00001F00: 20 52 45 43 4F 52 44 20 59 4F 55 20 57 49 53 48 | RECORD YOU WISH|
00001F10: 20 54 4F 20 44 45 4C 45 54 45 3F 20 20 22 00 4E | TO DELETE? ".N|
00001F20: 3B 1C 0C 99 22 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |;..."...........|
00001F30: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00001F40: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 22 00 61 |.............".a|
00001F50: 3B 26 0C 58 B2 32 30 3A 59 B2 32 34 3A 8D 34 31 |;&.X.20:Y.24:.41|
00001F60: 30 00 80 3B 30 0C 8B 20 4B 45 24 B3 B1 22 59 22 |0..;0.. KE$.."Y"|
00001F70: AF 20 4B 45 24 B3 B1 22 4E 22 A7 20 33 31 31 30 |. KE$.."N". 3110|
00001F80: 00 94 3B 3A 0C 8B 20 4B 45 24 B2 22 59 22 A7 20 |..;:.. KE$."Y". |
00001F90: 33 31 35 30 00 B2 3B 44 0C 48 B2 C5 28 41 24 28 |3150..;D.H..(A$(|
00001FA0: 48 2C 4E 46 29 29 3A 46 4F B2 30 3A 89 20 33 30 |H,NF)):FO.0:. 30|
00001FB0: 31 30 00 D0 3B 4E 0C 99 3A 20 99 22 41 52 45 20 |10..;N..: ."ARE |
00001FC0: 59 4F 55 20 53 55 52 45 20 28 59 2F 4E 29 3F 22 |YOU SURE (Y/N)?"|
00001FD0: 00 E3 3B 58 0C 58 B2 32 30 3A 59 B2 32 34 3A 8D |..;X.X.20:Y.24:.|
00001FE0: 34 31 30 00 02 3C 62 0C 8B 20 4B 45 24 B3 B1 22 |410..<b.. KE$.."|
00001FF0: 59 22 AF 20 4B 45 24 B3 B1 22 4E 22 A7 20 33 31 |Y". KE$.."N". 31|
00002000: 31 30 00 13 3C 6C 0C 8B 20 4B 45 24 B2 22 4E 22 |10..<l.. KE$."N"|
00002010: A7 20 8E 00 2D 3C 76 0C 99 3A 99 22 11 44 45 4C |. ..-<v..:.".DEL|
00002020: 45 54 49 4E 47 20 52 45 43 4F 52 44 22 00 4A 3C |ETING RECORD".J<|
00002030: 80 0C 81 4C B2 30 20 A4 20 4E 46 AB 31 3A 41 24 |...L.0 . NF.1:A$|
00002040: 28 48 2C 4C 29 B2 22 22 3A 82 00 67 3C 8A 0C 99 |(H,L)."":..g<...|
00002050: 3A 20 99 22 11 44 45 4C 45 54 49 4F 4E 20 43 4F |: .".DELETION CO|
00002060: 4D 50 4C 45 54 45 22 00 7F 3C 94 0C 99 3A 99 22 |MPLETE"..<...:."|
00002070: 11 50 52 45 53 53 20 41 4E 59 20 4B 45 59 22 00 |.PRESS ANY KEY".|
00002080: 8A 3C 9E 0C 8D 34 31 30 3A 8E 00 90 3C A8 0C E8 |.<...410:...<...|
00002090: 00 A7 3C B2 0C 99 22 C0 C0 C0 C0 C0 C0 C0 C0 C0 |..<...".........|
000020A0: C0 C0 C0 C0 C0 C0 22 00 BB 3C BC 0C 99 22 56 49 |......"..<..."VI|
000020B0: 45 57 20 52 45 43 4F 52 44 53 22 00 D2 3C C6 0C |EW RECORDS"..<..|
000020C0: 99 22 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |."..............|
000020D0: C0 22 00 D8 3C D0 0C 99 00 06 3D DA 0C 99 22 50 |."..<.....=..."P|
000020E0: 4C 45 41 53 45 20 4E 4F 54 45 20 54 48 41 54 20 |LEASE NOTE THAT |
000020F0: 54 48 49 53 20 52 4F 55 54 49 4E 45 20 44 4F 45 |THIS ROUTINE DOE|
00002100: 53 20 4E 4F 54 22 00 32 3D E4 0C 99 22 41 4C 4C |S NOT".2=..."ALL|
00002110: 4F 57 20 59 4F 55 20 54 4F 20 41 43 43 45 53 53 |OW YOU TO ACCESS|
00002120: 20 53 50 45 43 49 46 49 43 20 52 45 43 4F 52 44 | SPECIFIC RECORD|
00002130: 53 22 00 5F 3D EE 0C 99 22 53 45 4C 45 43 54 49 |S"._=..."SELECTI|
00002140: 56 45 4C 59 2E 20 49 54 20 53 49 4D 50 4C 59 20 |VELY. IT SIMPLY |
00002150: 53 43 41 4E 53 20 54 48 52 4F 55 47 48 20 22 00 |SCANS THROUGH ".|
00002160: 8C 3D F8 0C 99 22 54 48 45 20 45 4E 54 49 52 45 |.=..."THE ENTIRE|
00002170: 20 54 41 42 4C 45 20 50 52 49 4E 54 49 4E 47 20 | TABLE PRINTING |
00002180: 4F 55 54 20 41 4C 4C 20 54 48 45 22 00 BA 3D 02 |OUT ALL THE"..=.|
00002190: 0D 99 22 52 45 43 4F 52 44 53 20 57 48 49 43 48 |.."RECORDS WHICH|
000021A0: 20 43 4F 4E 54 41 49 4E 20 41 4E 59 20 44 41 54 | CONTAIN ANY DAT|
000021B0: 41 2E 20 41 53 20 54 48 45 22 00 E6 3D 0C 0D 99 |A. AS THE"..=...|
000021C0: 22 54 41 42 4C 45 53 20 41 52 45 20 55 53 55 41 |"TABLES ARE USUA|
000021D0: 4C 4C 59 20 51 55 49 54 45 20 4C 41 52 47 45 2C |LLY QUITE LARGE,|
000021E0: 20 54 48 49 53 22 00 15 3E 16 0D 99 22 43 41 4E | THIS"..>..."CAN|
000021F0: 20 54 41 4B 45 20 41 20 43 4F 4E 53 49 44 45 52 | TAKE A CONSIDER|
00002200: 41 42 4C 45 20 41 4D 4F 55 4E 54 20 4F 46 20 54 |ABLE AMOUNT OF T|
00002210: 49 4D 45 2E 22 00 43 3E 20 0D 99 22 54 48 45 20 |IME.".C> .."THE |
00002220: 50 52 4F 43 45 53 53 20 43 41 4E 20 4F 4E 4C 59 |PROCESS CAN ONLY|
00002230: 20 42 45 20 53 54 4F 50 50 45 44 20 49 46 20 41 | BE STOPPED IF A|
00002240: 4E 44 22 00 70 3E 2A 0D 99 22 57 48 45 4E 20 41 |ND".p>*.."WHEN A|
00002250: 20 52 45 43 4F 52 44 20 49 53 20 46 4F 55 4E 44 | RECORD IS FOUND|
00002260: 2E 20 49 46 20 4E 4F 20 52 45 43 4F 52 44 53 22 |. IF NO RECORDS"|
00002270: 00 9F 3E 34 0D 99 22 48 41 56 45 20 42 45 45 4E |..>4.."HAVE BEEN|
00002280: 20 45 4E 54 45 52 45 44 20 41 4E 44 20 59 4F 55 | ENTERED AND YOU|
00002290: 20 49 4E 41 44 56 45 52 54 41 4E 54 4C 59 22 00 | INADVERTANTLY".|
000022A0: CD 3E 3E 0D 99 22 53 45 4C 45 43 54 20 54 48 49 |.>>.."SELECT THI|
000022B0: 53 20 4F 50 54 49 4F 4E 2C 20 45 56 45 4E 20 41 |S OPTION, EVEN A|
000022C0: 46 54 45 52 20 52 45 41 44 49 4E 47 22 00 FC 3E |FTER READING"..>|
000022D0: 48 0D 99 22 54 48 49 53 2C 20 54 48 45 4E 20 59 |H.."THIS, THEN Y|
000022E0: 4F 55 20 43 4F 55 4C 44 20 48 41 56 45 20 41 20 |OU COULD HAVE A |
000022F0: 50 52 45 54 54 59 20 4C 4F 4E 47 22 00 2B 3F 52 |PRETTY LONG".+?R|
00002300: 0D 99 22 57 41 49 54 2E 20 46 4F 52 20 53 45 4C |.."WAIT. FOR SEL|
00002310: 45 43 54 49 56 45 20 56 49 45 57 49 4E 47 2C 20 |ECTIVE VIEWING, |
00002320: 43 48 4F 4F 53 45 20 54 48 45 22 00 4D 3F 5C 0D |CHOOSE THE".M?\.|
00002330: 99 22 53 45 41 52 43 48 20 4F 50 54 49 4F 4E 20 |."SEARCH OPTION |
00002340: 4F 4E 20 54 48 45 20 4D 45 4E 55 2E 22 00 53 3F |ON THE MENU.".S?|
00002350: 66 0D 99 00 7C 3F 70 0D 99 22 41 52 45 20 59 4F |f...|?p.."ARE YO|
00002360: 55 20 53 55 52 45 20 59 4F 55 20 57 49 53 48 20 |U SURE YOU WISH |
00002370: 54 4F 20 50 52 4F 43 45 45 44 3F 22 00 8F 3F 7A |TO PROCEED?"..?z|
00002380: 0D 58 B2 32 30 3A 59 B2 32 34 3A 8D 34 31 30 00 |.X.20:Y.24:.410.|
00002390: AD 3F 84 0D 8B 20 4B 45 24 B3 B1 22 59 22 AF 4B |.?... KE$.."Y".K|
000023A0: 45 24 B3 B1 22 4E 22 A7 20 33 34 35 30 00 BE 3F |E$.."N". 3450..?|
000023B0: 8E 0D 8B 20 4B 45 24 B2 22 4E 22 A7 20 8E 00 C4 |... KE$."N". ...|
000023C0: 3F 98 0D E8 00 CB 3F A2 0D FE 25 00 D9 3F AC 0D |?.....?...%..?..|
000023D0: 81 4C B2 31 20 A4 20 4E 52 00 E0 3F B6 0D FE 25 |.L.1 . NR..?...%|
000023E0: 00 FE 3F C0 0D 46 4C B2 30 3A 8B 20 41 24 28 4C |..?..FL.0:. A$(L|
000023F0: 2C 30 29 B3 B1 22 22 A7 20 8D 33 35 37 30 00 10 |,0).."". .3570..|
00002400: 40 CA 0D 8B 20 46 4C B2 31 20 A7 20 33 35 35 30 |@... FL.1 . 3550|
00002410: 00 16 40 D4 0D 82 00 1D 40 DE 0D FE 26 00 23 40 |..@.....@...&.#@|
00002420: E8 0D 8E 00 2C 40 F2 0D FE 26 3A E8 00 53 40 FC |....,@...&:..S@.|
00002430: 0D 81 45 B2 30 20 A4 20 4E 46 AB 31 3A 99 41 24 |..E.0 . NF.1:.A$|
00002440: 28 30 2C 45 29 22 3A 22 A3 31 36 29 41 24 28 4C |(0,E)":".16)A$(L|
00002450: 2C 45 29 00 59 40 06 0E 82 00 5F 40 10 0E 99 00 |,E).Y@...._@....|
00002460: 7B 40 1A 0E 99 22 50 52 45 53 53 20 53 50 41 43 |{@..."PRESS SPAC|
00002470: 45 20 54 4F 20 41 42 4F 52 54 22 00 A2 40 24 0E |E TO ABORT"..@$.|
00002480: 99 22 50 52 45 53 53 20 41 4E 59 20 4F 54 48 45 |."PRESS ANY OTHE|
00002490: 52 20 4B 45 59 20 54 4F 20 43 4F 4E 54 49 4E 55 |R KEY TO CONTINU|
000024A0: 45 22 00 B5 40 2E 0E 58 B2 32 30 3A 59 B2 32 34 |E"..@..X.20:Y.24|
000024B0: 3A 8D 34 31 30 00 C7 40 38 0E 8B 20 4B 45 24 B3 |:.410..@8.. KE$.|
000024C0: B1 22 20 22 A7 20 8E 00 D2 40 42 0E 46 4C B2 31 |." ". ...@B.FL.1|
000024D0: 3A 8E 00 E0 40 4C 0E 8F 2A 2A 2A 2A 2A 2A 2A 2A |:...@L..********|
000024E0: 00 EE 40 56 0E 8F 2A 53 45 41 52 43 48 2A 00 FC |..@V..*SEARCH*..|
000024F0: 40 60 0E 8F 2A 2A 2A 2A 2A 2A 2A 2A 00 0D 41 6A |@`..********..Aj|
00002500: 0E 54 41 B2 30 3A 50 B2 30 3A 52 B2 30 00 40 41 |.TA.0:P.0:R.0.@A|
00002510: 74 0E 3A E8 3A 99 22 C0 C0 C0 C0 C0 C0 C0 C0 C0 |t.:.:.".........|
00002520: C0 C0 C0 22 3A 99 22 53 45 41 52 43 48 22 3A 99 |...":."SEARCH":.|
00002530: 22 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 22 3A 99 |"............":.|
00002540: 00 70 41 7E 0E 99 3A 99 22 45 4E 54 45 52 20 41 |.pA~..:."ENTER A|
00002550: 53 20 4D 55 43 48 20 49 4E 46 4F 52 4D 41 54 49 |S MUCH INFORMATI|
00002560: 4F 4E 20 41 53 20 59 4F 55 20 4B 4E 4F 57 20 22 |ON AS YOU KNOW "|
00002570: 00 F3 41 88 0E 99 22 41 42 4F 55 54 20 54 48 45 |..A..."ABOUT THE|
00002580: 20 52 45 43 4F 52 44 2E 20 49 46 20 59 4F 55 20 | RECORD. IF YOU |
00002590: 4F 4E 4C 59 20 4B 4E 4F 57 20 50 41 52 54 22 3A |ONLY KNOW PART":|
000025A0: 99 22 4F 46 20 41 20 46 49 45 4C 44 20 4F 52 20 |."OF A FIELD OR |
000025B0: 41 52 45 4E 27 54 20 53 55 52 45 20 54 48 45 4E |AREN'T SURE THEN|
000025C0: 20 4D 49 53 53 20 49 54 22 3A 99 22 4F 55 54 2E | MISS IT":."OUT.|
000025D0: 20 49 46 20 59 4F 55 20 49 4E 43 4C 55 44 45 20 | IF YOU INCLUDE |
000025E0: 54 48 45 20 46 55 4C 4C 22 3A 99 41 24 28 30 2C |THE FULL":.A$(0,|
000025F0: 30 29 3B 00 12 42 92 0E 99 22 20 4F 46 20 54 48 |0);..B..." OF TH|
00002600: 45 20 52 45 43 4F 52 44 20 54 48 45 4E 20 54 48 |E RECORD THEN TH|
00002610: 45 22 00 3F 42 9C 0E 99 22 54 49 4D 45 20 54 41 |E".?B..."TIME TA|
00002620: 4B 45 4E 20 46 4F 52 20 54 48 45 20 53 45 41 52 |KEN FOR THE SEAR|
00002630: 43 48 20 54 4F 20 43 4F 4D 50 4C 45 54 45 22 00 |CH TO COMPLETE".|
00002640: 6C 42 A6 0E 99 22 57 49 4C 4C 20 42 45 20 56 45 |lB..."WILL BE VE|
00002650: 52 59 20 56 45 52 59 20 53 48 4F 52 54 2E 20 49 |RY VERY SHORT. I|
00002660: 46 2C 20 48 4F 57 45 56 45 52 2C 22 00 B4 42 B0 |F, HOWEVER,"..B.|
00002670: 0E 99 22 59 4F 55 20 44 4F 20 4E 4F 54 20 4B 4E |.."YOU DO NOT KN|
00002680: 4F 57 20 54 48 49 53 20 44 41 54 41 2C 20 54 48 |OW THIS DATA, TH|
00002690: 45 20 54 49 4D 45 20 20 20 20 20 54 41 4B 45 4E |E TIME TAKEN|
000026A0: 20 57 49 4C 4C 20 42 45 20 56 45 52 59 20 4C 4F | WILL BE VERY LO|
000026B0: 4E 47 2E 22 00 D4 42 BA 0E 99 22 11 11 50 52 45 |NG."..B..."..PRE|
000026C0: 53 53 20 41 4E 59 20 4B 45 59 20 54 4F 20 42 45 |SS ANY KEY TO BE|
000026D0: 47 49 4E 22 00 E8 42 C4 0E 58 B2 32 30 3A 59 B2 |GIN"..B..X.20:Y.|
000026E0: 32 34 3A 8D 34 31 30 3A 00 EE 42 CE 0E E8 00 0C |24:.410:..B.....|
000026F0: 43 D8 0E 81 4C B2 30 20 A4 20 4E 46 AB 31 3A 99 |C...L.0 . NF.1:.|
00002700: 41 24 28 30 2C 4C 29 22 3A 22 3A 82 00 A2 43 E2 |A$(0,L)":":...C.|
00002710: 0E 99 22 11 11 49 46 20 59 4F 55 20 44 4F 20 4E |.."..IF YOU DO N|
00002720: 4F 54 20 57 49 53 48 20 54 4F 20 45 4E 54 45 52 |OT WISH TO ENTER|
00002730: 20 54 48 45 20 46 49 45 4C 44 20 20 20 54 59 50 | THE FIELD TYP|
00002740: 45 20 30 20 41 4E 44 20 50 52 45 53 53 20 52 45 |E 0 AND PRESS RE|
00002750: 54 55 52 4E 2C 20 4F 54 48 45 52 57 49 53 45 20 |TURN, OTHERWISE |
00002760: 45 4E 54 45 52 54 48 45 20 49 4E 46 4F 52 4D 41 |ENTERTHE INFORMA|
00002770: 54 49 4F 4E 20 59 4F 55 20 4B 4E 4F 57 20 41 4E |TION YOU KNOW AN|
00002780: 44 20 54 52 59 20 54 4F 20 20 20 20 20 45 4E 54 |D TRY TO ENT|
00002790: 45 52 20 54 48 45 20 22 41 24 28 30 2C 30 29 22 |ER THE "A$(0,0)"|
000027A0: 2E 22 00 B4 43 EC 0E 58 B2 31 36 3A 59 B2 30 3A |."..C..X.16:Y.0:|
000027B0: 4C B2 32 32 00 EB 43 F6 0E 81 51 B2 30 20 A4 20 |L.22..C...Q.0 . |
000027C0: 4E 46 AB 31 3A 59 B2 51 3A 8D 31 39 33 30 3A 54 |NF.1:Y.Q:.1930:T|
000027D0: 24 28 51 29 B2 53 24 3A 8B 20 53 24 B2 22 30 22 |$(Q).S$:. S$."0"|
000027E0: 20 A7 20 54 24 28 51 29 B2 22 22 00 F9 43 00 0F | . T$(Q).""..C..|
000027F0: 58 B2 31 36 3A 82 3A FE 25 00 1E 44 0A 0F 81 4C |X.16:.:.%..D...L|
00002800: B2 30 20 A4 20 4E 46 AB 31 3A 8B 20 54 24 28 4C |.0 . NF.1:. T$(L|
00002810: 29 B3 B1 22 22 A7 20 54 41 B2 54 41 AA 31 00 24 |).."". TA.TA.1.$|
00002820: 44 14 0F 82 00 B0 44 1E 0F 8B 54 24 28 30 29 B2 |D.....D...T$(0).|
00002830: 22 22 A7 20 FE 26 3A 99 22 93 41 53 20 59 4F 55 |"". .&:.".AS YOU|
00002840: 20 48 41 56 45 20 4E 4F 54 20 45 4E 54 45 52 45 | HAVE NOT ENTERE|
00002850: 44 20 54 48 45 22 3A 99 41 24 28 30 2C 30 29 22 |D THE":.A$(0,0)"|
00002860: 20 4F 46 20 54 48 45 20 52 45 43 4F 52 44 20 49 | OF THE RECORD I|
00002870: 54 20 57 49 4C 4C 22 3A 99 22 54 41 4B 45 20 51 |T WILL":."TAKE Q|
00002880: 55 49 54 45 20 41 20 57 48 49 4C 45 20 54 4F 20 |UITE A WHILE TO |
00002890: 53 45 41 52 43 48 20 53 4F 20 59 4F 55 20 48 41 |SEARCH SO YOU HA|
000028A0: 44 20 42 45 54 54 45 52 20 47 4F 20 41 4E 44 22 |D BETTER GO AND"|
000028B0: 00 1C 45 28 0F 8B 20 54 24 28 30 29 B2 22 22 A7 |..E(.. T$(0)."".|
000028C0: 20 99 22 48 41 56 45 20 41 20 46 45 57 20 43 55 | ."HAVE A FEW CU|
000028D0: 50 53 20 4F 46 20 54 45 41 2C 20 49 20 53 48 4F |PS OF TEA, I SHO|
000028E0: 55 4C 44 20 48 41 56 45 20 20 20 46 49 4E 49 53 |ULD HAVE FINIS|
000028F0: 48 45 44 20 42 59 20 54 48 45 4E 2C 20 49 20 54 |HED BY THEN, I T|
00002900: 48 49 4E 4B 22 3A 81 4C B2 31 20 A4 20 31 30 30 |HINK":.L.1 . 100|
00002910: 30 3A 82 3A 8D 33 39 37 30 3A 3A 8E 00 31 45 32 |0:.:.3970::..1E2|
00002920: 0F 8D 32 30 36 30 3A 52 B2 30 3A 50 B2 30 3A FE |..2060:R.0:P.0:.|
00002930: 25 00 41 45 3C 0F 81 4C B2 30 20 A4 20 4E 46 AB |%.AE<..L.0 . NF.|
00002940: 31 00 5F 45 46 0F 8B 20 41 24 28 48 2C 30 29 B2 |1._EF.. A$(H,0).|
00002950: 22 22 A7 20 50 B2 AB 31 3A 89 20 33 39 34 30 00 |"". P..1:. 3940.|
00002960: 7B 45 50 0F 8B 20 41 24 28 48 2C 4C 29 B2 54 24 |{EP.. A$(H,L).T$|
00002970: 28 4C 29 20 A7 20 50 B2 50 AA 31 00 81 45 5A 0F |(L) . P.P.1..EZ.|
00002980: 82 00 9D 45 64 0F 8B 20 54 41 B2 50 20 A7 20 50 |...Ed.. TA.P . P|
00002990: 4F 28 52 29 B2 48 3A 52 B2 52 AA 31 3A 00 B9 45 |O(R).H:R.R.1:..E|
000029A0: 6E 0F 8B 20 41 24 28 48 2C 4E 46 29 B2 22 30 22 |n.. A$(H,NF)."0"|
000029B0: A7 20 8D 34 30 38 30 3A 8E 00 D7 45 78 0F 48 B2 |. .4080:...Ex.H.|
000029C0: C5 28 41 24 28 48 2C 4E 46 29 29 3A 50 B2 30 3A |.(A$(H,NF)):P.0:|
000029D0: 20 89 20 33 39 30 30 00 E6 45 82 0F 52 B2 30 3A | . 3900..E..R.0:|
000029E0: 50 B2 30 3A FE 25 00 F4 45 8C 0F 81 53 B2 31 20 |P.0:.%..E...S.1 |
000029F0: A4 20 4E 52 00 04 46 96 0F 81 4C B2 30 20 A4 20 |. NR..F...L.0 . |
00002A00: 4E 46 AB 31 00 22 46 A0 0F 8B 20 41 24 28 53 2C |NF.1."F... A$(S,|
00002A10: 30 29 B2 22 22 A7 20 50 B2 AB 31 3A 89 20 34 30 |0)."". P..1:. 40|
00002A20: 32 30 00 3E 46 AA 0F 8B 20 41 24 28 53 2C 4C 29 |20.>F... A$(S,L)|
00002A30: B2 54 24 28 4C 29 20 A7 20 50 B2 50 AA 31 00 4C |.T$(L) . P.P.1.L|
00002A40: 46 B4 0F E7 34 2C 32 3A E7 34 2C 31 00 52 46 BE |F...4,2:.4,1.RF.|
00002A50: 0F 82 00 6C 46 C8 0F 8B 20 54 41 B2 50 20 A7 50 |...lF... TA.P .P|
00002A60: 4F 28 52 29 B2 53 3A 52 B2 52 AA 31 00 76 46 D2 |O(R).S:R.R.1.vF.|
00002A70: 0F 50 B2 30 3A 82 00 80 46 DC 0F 8D 34 30 38 30 |.P.0:...F...4080|
00002A80: 00 86 46 E6 0F 8E 00 95 46 F0 0F 8B 20 50 52 B2 |..F.....F... PR.|
00002A90: 31 20 A7 20 8E 00 DE 46 FA 0F 8B 20 52 B2 30 20 |1 . ...F... R.0 |
00002AA0: A7 20 99 22 93 54 48 45 52 45 20 41 52 45 20 4E |. .".THERE ARE N|
00002AB0: 4F 20 4D 41 54 43 48 45 53 20 3A 20 50 52 45 53 |O MATCHES : PRES|
00002AC0: 53 20 41 4E 59 20 4B 45 59 22 3A 58 B2 32 30 3A |S ANY KEY":X.20:|
00002AD0: 59 B2 32 34 3A FE 26 3A 8D 34 31 30 3A 8E 00 FE |Y.24:.&:.410:...|
00002AE0: 46 04 10 99 22 93 49 20 48 41 56 45 20 46 4F 55 |F...".I HAVE FOU|
00002AF0: 4E 44 22 52 22 20 4D 41 54 43 48 45 53 22 00 22 |ND"R" MATCHES"."|
00002B00: 47 0E 10 99 22 11 11 50 52 45 53 53 20 41 4E 59 |G..."..PRESS ANY|
00002B10: 20 4B 45 59 20 54 4F 20 56 49 45 57 20 54 48 45 | KEY TO VIEW THE|
00002B20: 4D 22 00 38 47 18 10 58 B2 32 30 3A 59 B2 32 34 |M".8G..X.20:Y.24|
00002B30: 3A FE 26 3A 8D 34 31 30 00 49 47 22 10 81 4C B2 |:.&:.410.IG"..L.|
00002B40: 30 20 A4 20 52 AB 31 3A E8 00 59 47 2C 10 81 53 |0 . R.1:..YG,..S|
00002B50: B2 30 20 A4 20 4E 46 AB 31 00 94 47 36 10 99 41 |.0 . NF.1..G6..A|
00002B60: 24 28 30 2C 53 29 22 3A 22 A3 31 36 29 41 24 28 |$(0,S)":".16)A$(|
00002B70: 50 4F 28 4C 29 2C 53 29 3A 82 3A 99 22 11 11 50 |PO(L),S):.:."..P|
00002B80: 52 45 53 53 20 41 4E 59 20 4B 45 59 22 3A 8D 34 |RESS ANY KEY":.4|
00002B90: 31 30 3A 82 00 9A 47 40 10 8E 00 AC 47 4A 10 8F |10:...G@....GJ..|
00002BA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 BE 47 54 |************..GT|
00002BB0: 10 8F 2A 50 52 49 4E 54 20 4D 45 4E 55 2A 00 D0 |..*PRINT MENU*..|
00002BC0: 47 5E 10 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |G^..************|
00002BD0: 00 D6 47 68 10 3A 00 DC 47 72 10 E8 00 EE 47 7C |..Gh.:..Gr....G||
00002BE0: 10 8B 20 50 54 B2 30 20 A7 20 50 54 B2 32 00 00 |.. PT.0 . PT.2..|
00002BF0: 48 86 10 8B 20 50 53 B2 30 20 A7 20 50 53 B2 31 |H... PS.0 . PS.1|
00002C00: 00 12 48 90 10 8B 20 50 50 B2 30 20 A7 20 50 50 |..H... PP.0 . PP|
00002C10: B2 31 00 24 48 9A 10 8B 20 50 51 B2 30 20 A7 20 |.1.$H... PQ.0 . |
00002C20: 50 51 B2 31 00 3B 48 A4 10 99 22 13 C0 C0 C0 C0 |PQ.1.;H...".....|
00002C30: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 22 00 4D 48 AE 10 |..........".MH..|
00002C40: 99 22 50 52 49 4E 54 20 4D 45 4E 55 22 00 63 48 |."PRINT MENU".cH|
00002C50: B8 10 99 22 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |..."............|
00002C60: C0 C0 22 00 7C 48 C2 10 99 3A 99 22 31 2E 2E 2E |..".|H...:."1...|
00002C70: 53 45 41 52 43 48 2B 50 52 49 4E 54 00 9D 48 CC |SEARCH+PRINT..H.|
00002C80: 10 99 3A 99 22 32 2E 2E 2E 52 45 54 55 52 4E 20 |..:."2...RETURN |
00002C90: 54 4F 20 4D 41 49 4E 20 4D 45 4E 55 22 00 D6 48 |TO MAIN MENU"..H|
00002CA0: D6 10 99 3A 99 22 33 2E 2E 2E 22 3B 3A 8B 50 54 |...:."3...";:.PT|
00002CB0: B2 31 20 A7 20 99 22 46 41 4E 46 4F 4C 44 20 20 |.1 . ."FANFOLD |
00002CC0: 20 20 20 22 3A D5 20 99 22 53 49 4E 47 4C 45 20 | ":. ."SINGLE |
00002CD0: 53 48 45 45 54 22 00 E8 48 E0 10 8B 20 50 54 B2 |SHEET"..H... PT.|
00002CE0: 31 20 A7 20 50 53 B2 31 00 06 49 EA 10 99 3A 99 |1 . PS.1..I...:.|
00002CF0: 22 34 2E 2E 2E 22 3B 3A 8B 50 53 B2 31 20 A7 20 |"4...";:.PS.1 . |
00002D00: 99 22 41 34 22 3A 00 19 49 F4 10 8B 20 50 53 B2 |."A4":..I... PS.|
00002D10: 32 20 A7 20 99 22 41 35 22 00 4F 49 FE 10 99 3A |2 . ."A5".OI...:|
00002D20: 99 22 35 2E 2E 2E 22 3B 3A 8B 20 50 51 B2 31 20 |."5...";:. PQ.1 |
00002D30: A7 20 99 22 44 52 41 46 54 20 20 20 20 20 20 20 |. ."DRAFT |
00002D40: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3A 00 | ":.|
00002D50: 71 49 08 11 8B 20 50 51 B2 32 20 A7 20 99 22 44 |qI... PQ.2 . ."D|
00002D60: 4F 55 42 4C 45 20 53 54 52 49 4B 45 2F 4E 4C 51 |OUBLE STRIKE/NLQ|
00002D70: 22 00 99 49 12 11 99 3A 99 22 36 2E 2E 2E 22 3B |"..I...:."6...";|
00002D80: 3A 8B 20 50 50 B2 31 20 A7 20 99 22 50 49 43 41 |:. PP.1 . ."PICA|
00002D90: 20 20 20 20 20 20 20 20 22 00 B3 49 1C 11 8B 20 | "..I... |
00002DA0: 50 50 B2 32 20 A7 20 99 22 45 4C 49 54 45 20 20 |PP.2 . ."ELITE |
00002DB0: 20 20 22 00 CD 49 26 11 8B 20 50 50 B2 33 20 A7 | "..I&.. PP.3 .|
00002DC0: 20 99 22 43 4F 4E 44 45 4E 53 45 44 22 00 EE 49 | ."CONDENSED"..I|
00002DD0: 30 11 99 3A 99 22 37 2E 2E 2E 45 4E 54 45 52 20 |0..:."7...ENTER |
00002DE0: 50 52 49 4E 54 45 52 20 43 4F 44 45 53 22 00 06 |PRINTER CODES"..|
00002DF0: 4A 3A 11 99 3A 99 3A 99 22 45 4E 54 45 52 20 4F |J:..:.:."ENTER O|
00002E00: 50 54 49 4F 4E 22 00 19 4A 44 11 58 B2 32 30 3A |PTION"..JD.X.20:|
00002E10: 59 B2 32 34 3A 8D 34 31 30 00 3A 4A 4E 11 8B 20 |Y.24:.410.:JN.. |
00002E20: C5 28 4B 45 24 29 B3 31 20 B0 20 C5 28 4B 45 24 |.(KE$).1 . .(KE$|
00002E30: 29 B1 37 20 A7 20 34 34 32 30 00 59 4A 58 11 8B |).7 . 4420.YJX..|
00002E40: 20 4B 45 24 B2 22 33 22 AF 50 54 B2 31 A7 50 54 | KE$."3".PT.1.PT|
00002E50: B2 32 3A 89 20 34 32 36 30 00 77 4A 62 11 8B 20 |.2:. 4260.wJb.. |
00002E60: 4B 45 24 B2 22 33 22 AF 50 54 B2 32 A7 50 54 B2 |KE$."3".PT.2.PT.|
00002E70: 31 3A 89 34 32 36 30 00 96 4A 6C 11 8B 20 4B 45 |1:.4260..Jl.. KE|
00002E80: 24 B2 22 34 22 AF 50 53 B2 31 A7 50 53 B2 32 3A |$."4".PS.1.PS.2:|
00002E90: 89 20 34 32 36 30 00 B5 4A 76 11 8B 20 4B 45 24 |. 4260..Jv.. KE$|
00002EA0: B2 22 34 22 AF 50 53 B2 32 A7 50 53 B2 31 3A 89 |."4".PS.2.PS.1:.|
00002EB0: 20 34 32 36 30 00 D4 4A 80 11 8B 20 4B 45 24 B2 | 4260..J... KE$.|
00002EC0: 22 35 22 AF 50 51 B2 31 A7 50 51 B2 32 3A 89 20 |"5".PQ.1.PQ.2:. |
00002ED0: 34 32 36 30 00 F2 4A 8A 11 8B 20 4B 45 24 B2 22 |4260..J... KE$."|
00002EE0: 35 22 AF 50 51 B2 32 A7 50 51 B2 31 3A 89 34 32 |5".PQ.2.PQ.1:.42|
00002EF0: 36 30 00 13 4B 94 11 8B 20 4B 45 24 B2 22 36 22 |60..K... KE$."6"|
00002F00: AF 50 50 B2 31 20 A7 20 50 50 B2 32 3A 89 20 34 |.PP.1 . PP.2:. 4|
00002F10: 32 36 30 00 34 4B 9E 11 8B 20 4B 45 24 B2 22 36 |260.4K... KE$."6|
00002F20: 22 AF 50 50 B2 32 20 A7 20 50 50 B2 33 3A 89 20 |".PP.2 . PP.3:. |
00002F30: 34 32 36 30 00 56 4B A8 11 8B 20 4B 45 24 B2 22 |4260.VK... KE$."|
00002F40: 36 22 AF 20 50 50 B2 33 20 A7 20 50 50 B2 31 3A |6". PP.3 . PP.1:|
00002F50: 89 20 34 32 36 30 00 71 4B B2 11 8B 20 4B 45 24 |. 4260.qK... KE$|
00002F60: B2 22 31 22 A7 20 8D 33 36 36 30 3A 8D 34 35 37 |."1". .3660:.457|
00002F70: 30 00 87 4B BC 11 8B 20 4B 45 24 B2 22 37 22 A7 |0..K... KE$."7".|
00002F80: 20 8D 20 34 39 30 30 00 98 4B C6 11 8B 20 4B 45 | . 4900..K... KE|
00002F90: 24 B2 22 32 22 A7 20 8E 00 A3 4B D0 11 89 20 34 |$."2". ...K... 4|
00002FA0: 32 31 30 00 B6 4B DA 11 8F 2A 2A 2A 2A 2A 2A 2A |210..K...*******|
00002FB0: 2A 2A 2A 2A 2A 2A 00 BD 4B E4 11 A0 34 00 DA 4B |******..K...4..K|
00002FC0: EE 11 8F 2A 50 52 49 4E 54 20 4F 55 54 20 46 4F |...*PRINT OUT FO|
00002FD0: 55 4E 44 20 49 54 45 4D 53 2A 00 23 4C F8 11 8B |UND ITEMS*.#L...|
00002FE0: 20 52 B2 30 20 A7 20 99 22 93 54 48 45 52 45 20 | R.0 . .".THERE |
00002FF0: 41 52 45 20 4E 4F 20 4D 41 54 43 48 45 53 20 3A |ARE NO MATCHES :|
00003000: 20 50 52 45 53 53 20 41 4E 59 20 4B 45 59 22 3A | PRESS ANY KEY":|
00003010: 58 B2 32 30 3A 59 B2 32 34 3A FE 26 3A 8D 34 31 |X.20:Y.24:.&:.41|
00003020: 30 3A 8E 00 40 4C 02 12 8F 2A 2A 2A 2A 2A 2A 2A |0:..@L...*******|
00003030: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003040: 00 49 4C 0C 12 9F 34 2C 34 00 5E 4C 16 12 8B 20 |.IL...4,4.^L... |
00003050: 50 50 B2 31 20 A7 20 98 34 2C 50 49 24 3B 00 73 |PP.1 . .4,PI$;.s|
00003060: 4C 20 12 8B 20 50 50 B2 32 20 A7 20 98 34 2C 45 |L .. PP.2 . .4,E|
00003070: 4C 24 3B 00 88 4C 2A 12 8B 20 50 50 B2 33 20 A7 |L$;..L*.. PP.3 .|
00003080: 20 98 34 2C 43 4F 24 3B 00 9D 4C 34 12 8B 20 50 | .4,CO$;..L4.. P|
00003090: 51 B2 31 20 A7 20 98 34 2C 44 52 24 3B 00 B2 4C |Q.1 . .4,DR$;..L|
000030A0: 3E 12 8B 20 50 51 B2 32 20 A7 20 98 34 2C 4E 4C |>.. PQ.2 . .4,NL|
000030B0: 24 3B 00 BB 4C 48 12 FE 25 3A E8 00 D4 4C 52 12 |$;..LH..%:...LR.|
000030C0: 8B 20 50 53 B2 31 20 A7 20 43 B2 36 30 3A D5 20 |. PS.1 . C.60:. |
000030D0: 43 B2 34 30 00 E9 4C 5C 12 4E 50 B2 43 AD 28 4E |C.40..L\.NP.C.(N|
000030E0: 46 AA 32 29 3A 52 4E B2 30 00 F6 4C 66 12 4E 50 |F.2):RN.0..Lf.NP|
000030F0: B2 B5 28 4E 50 29 00 04 4D 70 12 50 4E B2 28 52 |..(NP)..Mp.PN.(R|
00003100: 29 AD 4E 50 00 15 4D 7A 12 46 41 B2 50 4E AB B5 |).NP..Mz.FA.PN..|
00003110: 28 50 4E 29 3A 00 22 4D 84 12 50 4E B2 B5 28 50 |(PN):."M..PN..(P|
00003120: 4E 29 00 37 4D 8E 12 8B 20 46 41 B1 30 20 A7 20 |N).7M... FA.0 . |
00003130: 50 4E B2 50 4E AA 31 00 46 4D 98 12 81 4C 31 B2 |PN.PN.1.FM...L1.|
00003140: 31 20 A4 20 50 4E 00 55 4D A2 12 81 4C 32 B2 31 |1 . PN.UM...L2.1|
00003150: 20 A4 20 4E 50 00 66 4D AC 12 81 4C 33 B2 30 20 | . NP.fM...L3.0 |
00003160: A4 20 4E 46 AB 31 00 6D 4D B6 12 FE 25 00 A5 4D |. NF.1.mM...%..M|
00003170: C0 12 98 34 2C 41 24 28 30 2C 4C 33 29 3B A3 31 |...4,A$(0,L3);.1|
00003180: 35 AB C3 28 41 24 28 30 2C 4C 33 29 29 29 22 20 |5..(A$(0,L3)))" |
00003190: 3A 20 22 3B A3 35 29 3B 41 24 28 50 4F 28 52 4E |: ";.5);A$(PO(RN|
000031A0: 29 2C 4C 33 29 00 AB 4D CA 12 82 00 B6 4D D4 12 |),L3)..M.....M..|
000031B0: 98 34 2C 3A 98 34 00 C2 4D DE 12 52 4E B2 52 4E |.4,:.4..M..RN.RN|
000031C0: AA 31 00 DB 4D E8 12 8B 20 52 4E B2 52 20 A7 20 |.1..M... RN.R . |
000031D0: 4C 31 B2 50 4E 3A 4C 32 B2 4E 50 00 E4 4D F2 12 |L1.PN:L2.NP..M..|
000031E0: 82 3A FE 26 00 29 4E FC 12 8B 20 50 54 B2 32 20 |.:.&.)N... PT.2 |
000031F0: A7 20 98 34 2C C7 28 31 32 29 3B 3A E8 3A 99 22 |. .4,.(12);:.:."|
00003200: 49 4E 53 45 52 54 20 4E 45 57 20 50 41 47 45 20 |INSERT NEW PAGE |
00003210: 41 4E 44 20 50 52 45 53 53 20 41 4E 59 20 4B 45 |AND PRESS ANY KE|
00003220: 59 22 3A 8D 34 31 30 3A E8 00 42 4E 06 13 8B 20 |Y":.410:..BN... |
00003230: 50 54 B2 31 20 A7 20 98 34 2C C7 28 31 32 29 3B |PT.1 . .4,.(12);|
00003240: 3A 82 00 4D 4E 10 13 82 3A A0 34 3A 8E 00 53 4E |:..MN...:.4:..SN|
00003250: 1A 13 80 00 6C 4E 24 13 8F 2A 2A 2A 2A 2A 2A 2A |....lN$..*******|
00003260: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 85 4E 2E |************..N.|
00003270: 13 8F 2A 45 4E 54 45 52 20 50 52 49 4E 54 20 43 |..*ENTER PRINT C|
00003280: 4F 44 45 53 2A 00 9E 4E 38 13 8F 2A 2A 2A 2A 2A |ODES*..N8..*****|
00003290: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 A5 |**************..|
000032A0: 4E 42 13 3A E8 00 F5 4E 4C 13 99 3A 99 22 49 46 |NB.:...NL..:."IF|
000032B0: 20 41 20 43 4F 44 45 20 46 4F 52 20 41 4E 20 41 | A CODE FOR AN A|
000032C0: 43 54 49 4F 4E 20 49 53 22 3A 99 22 32 37 2C 34 |CTION IS":."27,4|
000032D0: 33 2C 35 35 20 20 3A 20 54 48 45 4E 20 59 4F 55 |3,55 : THEN YOU|
000032E0: 20 45 4E 54 45 52 20 49 54 20 41 53 20 46 4F 4C | ENTER IT AS FOL|
000032F0: 4C 4F 57 53 22 00 4D 4F 56 13 99 22 09 54 48 45 |LOWS".MOV..".THE|
00003300: 20 43 4F 4D 50 55 54 45 52 20 57 49 4C 4C 20 50 | COMPUTER WILL P|
00003310: 52 4F 4D 50 54 20 59 4F 55 20 41 4E 44 20 41 54 |ROMPT YOU AND AT|
00003320: 20 20 20 20 20 45 41 43 48 20 50 52 4F 4D 50 54 | EACH PROMPT|
00003330: 20 59 4F 55 20 45 4E 54 45 52 20 4F 4E 45 20 4F | YOU ENTER ONE O|
00003340: 46 20 54 48 45 20 56 41 4C 55 45 53 22 00 59 4F |F THE VALUES".YO|
00003350: 60 13 99 22 45 2E 47 2E 22 00 94 4F 6A 13 99 3A |`.."E.G."..Oj..:|
00003360: 99 22 43 4F 44 45 31 3E 3A 32 37 22 3A 99 22 43 |."CODE1>:27":."C|
00003370: 4F 44 45 32 3E 3A 34 33 22 3A 99 22 43 4F 44 45 |ODE2>:43":."CODE|
00003380: 33 3E 3A 35 35 22 3A 99 22 43 4F 44 45 34 3E 3A |3>:55":."CODE4>:|
00003390: 2D 31 22 3A 00 BC 4F 74 13 99 3A 99 22 41 4C 57 |-1":..Ot..:."ALW|
000033A0: 41 59 53 20 45 4E 54 45 52 20 2D 31 20 54 4F 20 |AYS ENTER -1 TO |
000033B0: 45 4E 44 20 41 20 43 4F 44 45 2E 22 00 D3 4F 7E |END A CODE."..O~|
000033C0: 13 99 3A 99 22 50 52 45 53 53 20 41 4E 59 20 4B |..:."PRESS ANY K|
000033D0: 45 59 22 00 E6 4F 88 13 58 B2 32 30 3A 59 B2 32 |EY"..O..X.20:Y.2|
000033E0: 34 3A 8D 34 31 30 00 EC 4F 92 13 E8 00 11 50 9C |4:.410..O.....P.|
000033F0: 13 99 22 45 4E 54 45 52 20 43 4F 44 45 20 46 4F |.."ENTER CODE FO|
00003400: 52 20 50 49 43 41 20 50 49 54 43 48 22 3A 51 B2 |R PICA PITCH":Q.|
00003410: 31 00 17 50 A6 13 EB 00 29 50 B0 13 99 3A 99 22 |1..P....)P...:."|
00003420: 43 4F 44 45 22 51 22 3E 3A 00 3C 50 BA 13 58 B2 |CODE"Q">:.<P..X.|
00003430: 31 30 3A 59 B2 51 AA 31 3A 4C B2 33 00 46 50 C4 |10:Y.Q.1:L.3.FP.|
00003440: 13 8D 31 39 33 30 00 53 50 CE 13 43 4F B2 C5 28 |..1930.SP..CO..(|
00003450: 53 24 29 00 65 50 D8 13 8B 20 43 4F B2 AB 31 20 |S$).eP... CO..1 |
00003460: A7 35 31 30 30 00 7D 50 E2 13 50 49 24 B2 50 49 |.5100.}P..PI$.PI|
00003470: 24 AA C7 28 43 4F 29 3A 51 B2 51 AA 31 00 8B 50 |$..(CO):Q.Q.1..P|
00003480: EC 13 EC 20 FC 20 43 4F B2 AB 31 00 91 50 F6 13 |... . CO..1..P..|
00003490: E8 00 B7 50 00 14 99 22 45 4E 54 45 52 20 43 4F |...P..."ENTER CO|
000034A0: 44 45 20 46 4F 52 20 45 4C 49 54 45 20 50 49 54 |DE FOR ELITE PIT|
000034B0: 43 48 22 3A 51 B2 31 00 BD 50 0A 14 EB 00 CF 50 |CH":Q.1..P.....P|
000034C0: 14 14 99 3A 99 22 43 4F 44 45 22 51 22 3E 3A 00 |...:."CODE"Q">:.|
000034D0: E2 50 1E 14 58 B2 31 30 3A 59 B2 51 AA 31 3A 4C |.P..X.10:Y.Q.1:L|
000034E0: B2 33 00 EC 50 28 14 8D 31 39 33 30 00 F9 50 32 |.3..P(..1930..P2|
000034F0: 14 43 4F B2 C5 28 53 24 29 00 0C 51 3C 14 8B 20 |.CO..(S$)..Q<.. |
00003500: 43 4F B2 AB 31 20 A7 20 35 32 30 30 00 24 51 46 |CO..1 . 5200.$QF|
00003510: 14 45 4C 24 B2 45 4C 24 AA C7 28 43 4F 29 3A 51 |.EL$.EL$..(CO):Q|
00003520: B2 51 AA 31 00 32 51 50 14 EC 20 FC 20 43 4F B2 |.Q.1.2QP.. . CO.|
00003530: AB 31 00 5C 51 5A 14 99 22 45 4E 54 45 52 20 43 |.1.\QZ.."ENTER C|
00003540: 4F 44 45 20 46 4F 52 20 43 4F 4E 44 45 4E 53 45 |ODE FOR CONDENSE|
00003550: 44 20 50 49 54 43 48 22 3A 51 B2 31 00 62 51 64 |D PITCH":Q.1.bQd|
00003560: 14 EB 00 74 51 6E 14 99 3A 99 22 43 4F 44 45 22 |...tQn..:."CODE"|
00003570: 51 22 3E 3A 00 87 51 78 14 58 B2 31 30 3A 59 B2 |Q">:..Qx.X.10:Y.|
00003580: 51 AA 31 3A 4C B2 33 00 91 51 82 14 8D 31 39 33 |Q.1:L.3..Q...193|
00003590: 30 00 9E 51 8C 14 43 4F B2 C5 28 53 24 29 00 B1 |0..Q..CO..(S$)..|
000035A0: 51 96 14 8B 20 43 4F B2 AB 31 20 A7 20 35 32 30 |Q... CO..1 . 520|
000035B0: 30 00 C9 51 A0 14 43 4F 24 B2 43 4F 24 AA C7 28 |0..Q..CO$.CO$..(|
000035C0: 43 4F 29 3A 51 B2 51 AA 31 00 D7 51 AA 14 EC 20 |CO):Q.Q.1..Q... |
000035D0: FC 20 43 4F B2 AB 31 00 02 52 B4 14 99 22 45 4E |. CO..1..R..."EN|
000035E0: 54 45 52 20 43 4F 44 45 20 46 4F 52 20 44 52 41 |TER CODE FOR DRA|
000035F0: 46 54 20 43 48 41 52 41 43 54 45 52 53 22 3A 51 |FT CHARACTERS":Q|
00003600: B2 31 00 08 52 BE 14 EB 00 1A 52 C8 14 99 3A 99 |.1..R.....R...:.|
00003610: 22 43 4F 44 45 22 51 22 3E 3A 00 2D 52 D2 14 58 |"CODE"Q">:.-R..X|
00003620: B2 31 30 3A 59 B2 51 AA 31 3A 4C B2 33 00 37 52 |.10:Y.Q.1:L.3.7R|
00003630: DC 14 8D 31 39 33 30 00 44 52 E6 14 43 4F B2 C5 |...1930.DR..CO..|
00003640: 28 53 24 29 00 57 52 F0 14 8B 20 43 4F B2 AB 31 |(S$).WR... CO..1|
00003650: 20 A7 20 35 32 30 30 00 6F 52 FA 14 44 52 24 B2 | . 5200.oR..DR$.|
00003660: 44 52 24 AA C7 28 43 4F 29 3A 51 B2 51 AA 31 00 |DR$..(CO):Q.Q.1.|
00003670: 7D 52 04 15 EC 20 FC 20 43 4F B2 AB 31 00 AD 52 |}R... . CO..1..R|
00003680: 0E 15 99 22 45 4E 54 45 52 20 43 4F 44 45 20 46 |..."ENTER CODE F|
00003690: 4F 52 20 4E 4C 51 2F 44 4F 55 42 4C 45 20 43 48 |OR NLQ/DOUBLE CH|
000036A0: 41 52 41 43 54 45 52 53 22 3A 51 B2 31 00 B3 52 |ARACTERS":Q.1..R|
000036B0: 18 15 EB 00 C5 52 22 15 99 3A 99 22 43 4F 44 45 |.....R"..:."CODE|
000036C0: 22 51 22 3E 3A 00 D8 52 2C 15 58 B2 31 30 3A 59 |"Q">:..R,.X.10:Y|
000036D0: B2 51 AA 31 3A 4C B2 33 00 E2 52 36 15 8D 31 39 |.Q.1:L.3..R6..19|
000036E0: 33 30 00 EF 52 40 15 43 4F B2 C5 28 53 24 29 00 |30..R@.CO..(S$).|
000036F0: 02 53 4A 15 8B 20 43 4F B2 AB 31 20 A7 20 35 32 |.SJ.. CO..1 . 52|
00003700: 30 30 00 1A 53 54 15 4E 4C 24 B2 4E 4C 24 AA C7 |00..ST.NL$.NL$..|
00003710: 28 43 4F 29 3A 51 B2 51 AA 31 00 28 53 5E 15 EC |(CO):Q.Q.1.(S^..|
00003720: 20 FC 20 43 4F B2 AB 31 00 2E 53 68 15 8E 00 9B | . CO..1..Sh....|
00003730: 53 72 15 50 49 24 B2 C7 28 32 37 29 AA C7 28 38 |Sr.PI$..(27)..(8|
00003740: 30 29 3A 45 4C 24 B2 C7 28 32 37 29 AA C7 28 37 |0):EL$..(27)..(7|
00003750: 37 29 3A 43 4F 24 B2 C7 28 32 37 29 AA C7 28 33 |7):CO$..(27)..(3|
00003760: 33 29 AA C7 28 34 29 3A 44 52 24 B2 C7 28 32 37 |3)..(4):DR$..(27|
00003770: 29 AA C7 28 31 32 30 29 AA C7 28 34 38 29 3A 4E |)..(120)..(48):N|
00003780: 4C 24 B2 C7 28 32 37 29 AA C7 28 31 32 30 29 AA |L$..(27)..(120).|
00003790: C7 28 34 39 29 AA C7 28 32 37 29 00 B3 53 7C 15 |.(49)..(27)..S|.|
000037A0: 4E 4C 24 B2 4E 4C 24 AA C7 28 31 30 37 29 AA C7 |NL$.NL$..(107)..|
000037B0: 28 33 29 00 B9 53 86 15 8E 00 CF 53 90 15 8F 2A |(3)..S.....S...*|
000037C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
000037D0: E5 53 9A 15 8F 2A 4C 4F 41 44 20 53 41 56 45 20 |.S...*LOAD SAVE |
000037E0: 4D 45 4E 55 2A 00 FB 53 A4 15 8F 2A 2A 2A 2A 2A |MENU*..S...*****|
000037F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 01 54 AE 15 |***********..T..|
00003800: E8 00 13 54 B8 15 8B 20 44 45 B2 30 20 A7 20 44 |...T... DE.0 . D|
00003810: 45 B2 38 00 2D 54 C2 15 99 22 13 C0 C0 C0 C0 C0 |E.8.-T..."......|
00003820: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 22 00 43 54 |............".CT|
00003830: CC 15 99 22 4C 4F 41 44 2F 53 41 56 45 20 4D 45 |..."LOAD/SAVE ME|
00003840: 4E 55 22 00 5C 54 D6 15 99 22 C0 C0 C0 C0 C0 C0 |NU".\T..."......|
00003850: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 22 00 73 54 E0 |...........".sT.|
00003860: 15 99 3A 99 22 31 2E 2E 2E 4C 4F 41 44 20 46 49 |..:."1...LOAD FI|
00003870: 4C 45 22 00 8A 54 EA 15 99 3A 99 22 32 2E 2E 2E |LE"..T...:."2...|
00003880: 53 41 56 45 20 46 49 4C 45 22 00 A0 54 F4 15 99 |SAVE FILE"..T...|
00003890: 3A 99 22 33 2E 2E 2E 44 45 56 49 43 45 3A 22 3B |:."3...DEVICE:";|
000038A0: 00 B9 54 FE 15 8B 20 44 45 B2 31 20 A7 20 99 22 |..T... DE.1 . ."|
000038B0: 43 41 53 53 45 54 54 45 22 00 D2 54 08 16 8B 20 |CASSETTE"..T... |
000038C0: 44 45 B2 38 20 A7 20 99 22 44 49 53 4B 20 28 38 |DE.8 . ."DISK (8|
000038D0: 29 22 00 EB 54 12 16 8B 20 44 45 B2 39 20 A7 20 |)"..T... DE.9 . |
000038E0: 99 22 44 49 53 4B 20 28 39 29 22 00 04 55 1C 16 |."DISK (9)"..U..|
000038F0: 99 3A 99 22 34 2E 2E 2E 46 49 4C 45 20 4E 41 4D |.:."4...FILE NAM|
00003900: 45 3A 22 3B 00 25 55 26 16 8B 20 46 49 24 B2 22 |E:";.%U&.. FI$."|
00003910: 22 A7 20 99 22 4E 4F 54 20 59 45 54 20 45 4E 54 |". ."NOT YET ENT|
00003920: 45 52 45 44 22 00 39 55 30 16 8B 20 46 49 24 B3 |ERED".9U0.. FI$.|
00003930: B1 22 22 A7 20 99 46 49 24 00 5A 55 3A 16 99 3A |."". .FI$.ZU:..:|
00003940: 99 22 35 2E 2E 2E 52 45 54 55 52 4E 20 54 4F 20 |."5...RETURN TO |
00003950: 4D 41 49 4E 20 4D 45 4E 55 22 00 72 55 44 16 99 |MAIN MENU".rUD..|
00003960: 3A 99 22 11 53 45 4C 45 43 54 20 4F 50 54 49 4F |:.".SELECT OPTIO|
00003970: 4E 22 00 85 55 4E 16 58 B2 32 30 3A 59 B2 32 34 |N"..UN.X.20:Y.24|
00003980: 3A 8D 34 31 30 00 A6 55 58 16 8B 20 C5 28 4B 45 |:.410..UX.. .(KE|
00003990: 24 29 B3 31 20 B0 20 C5 28 4B 45 24 29 B1 35 20 |$).1 . .(KE$).5 |
000039A0: A7 20 35 37 31 30 00 C8 55 62 16 8B 20 4B 45 24 |. 5710..Ub.. KE$|
000039B0: B2 22 33 22 AF 20 44 45 B2 31 20 A7 20 44 45 B2 |."3". DE.1 . DE.|
000039C0: 38 3A 89 20 35 35 37 30 00 EE 55 6C 16 8B 20 4B |8:. 5570..Ul.. K|
000039D0: 45 24 B2 22 31 22 AF 20 46 49 B2 31 20 A7 20 57 |E$."1". FI.1 . W|
000039E0: B2 31 3A 8D 37 35 30 3A 89 20 35 35 32 30 00 14 |.1:.750:. 5520..|
000039F0: 56 76 16 8B 20 4B 45 24 B2 22 32 22 AF 20 46 49 |Vv.. KE$."2". FI|
00003A00: B2 30 20 A7 20 57 B2 32 3A 8D 37 35 30 3A 89 20 |.0 . W.2:.750:. |
00003A10: 35 35 32 30 00 36 56 80 16 8B 20 4B 45 24 B2 22 |5520.6V... KE$."|
00003A20: 33 22 AF 20 44 45 B2 38 20 A7 20 44 45 B2 39 3A |3". DE.8 . DE.9:|
00003A30: 89 20 35 35 37 30 00 58 56 8A 16 8B 20 4B 45 24 |. 5570.XV... KE$|
00003A40: B2 22 33 22 AF 20 44 45 B2 39 20 A7 20 44 45 B2 |."3". DE.9 . DE.|
00003A50: 31 3A 89 20 35 35 37 30 00 75 56 94 16 8B 20 4B |1:. 5570.uV... K|
00003A60: 45 24 B2 22 34 22 A7 20 8D 20 36 30 37 30 3A 89 |E$."4". . 6070:.|
00003A70: 20 35 35 32 30 00 86 56 9E 16 8B 20 4B 45 24 B2 | 5520..V... KE$.|
00003A80: 22 35 22 A7 20 8E 00 B6 56 A8 16 8B 20 28 4B 45 |"5". ...V... (KE|
00003A90: 24 B2 22 31 22 B0 4B 45 24 B2 22 32 22 29 AF 46 |$."1".KE$."2").F|
00003AA0: 49 24 B2 22 22 A7 20 57 B2 34 3A 8D 37 35 30 3A |I$."". W.4:.750:|
00003AB0: 89 20 35 35 32 30 00 CC 56 B2 16 8B 20 4B 45 24 |. 5520..V... KE$|
00003AC0: B2 22 32 22 A7 20 8D 20 35 38 34 30 00 E1 56 BC |."2". . 5840..V.|
00003AD0: 16 8B 20 4B 45 24 B2 22 31 22 A7 20 8D 36 31 30 |.. KE$."1". .610|
00003AE0: 30 00 EC 56 C6 16 89 20 35 35 32 30 00 FD 56 D0 |0..V... 5520..V.|
00003AF0: 16 54 41 B2 30 3A 50 B2 30 3A 52 B2 30 00 47 57 |.TA.0:P.0:R.0.GW|
00003B00: DA 16 99 22 93 22 A3 35 29 22 11 11 11 11 11 50 |...".".5)".....P|
00003B10: 4C 45 41 53 45 20 57 41 49 54 20 3A 20 43 4F 4D |LEASE WAIT : COM|
00003B20: 50 41 43 54 49 4E 47 20 46 49 4C 45 22 3A 81 4C |PACTING FILE":.L|
00003B30: B2 30 20 A4 20 4E 46 3A 54 24 28 4C 29 B2 22 22 |.0 . NF:T$(L).""|
00003B40: 3A 82 3A 50 52 B2 31 00 51 57 E4 16 8D 33 39 37 |:.:PR.1.QW...397|
00003B50: 30 00 58 57 EE 16 FE 26 00 86 57 F8 16 99 22 93 |0.XW...&..W...".|
00003B60: 50 52 45 50 41 52 45 20 44 45 56 49 43 45 20 22 |PREPARE DEVICE "|
00003B70: 44 45 22 20 41 4E 44 20 50 52 45 53 53 20 41 4E |DE" AND PRESS AN|
00003B80: 59 20 4B 45 59 22 00 99 57 02 17 58 B2 32 30 3A |Y KEY"..W..X.20:|
00003B90: 59 B2 32 34 3A 8D 34 31 30 00 B5 57 0C 17 9F 38 |Y.24:.410..W...8|
00003BA0: 2C 44 45 2C 31 2C 46 49 24 AA 22 2E 48 41 53 48 |,DE,1,FI$.".HASH|
00003BB0: 2C 53 2C 57 22 00 FD 57 16 17 8B 20 44 45 B3 B1 |,S,W"..W... DE..|
00003BC0: 31 20 A7 20 8B 20 44 53 B3 B1 30 20 A7 20 99 22 |1 . . DS..0 . ."|
00003BD0: 93 22 44 53 24 3A 99 22 11 11 11 50 52 45 53 53 |."DS$:."...PRESS|
00003BE0: 20 41 4E 59 20 4B 45 59 22 3A 58 B2 32 30 3A 59 | ANY KEY":X.20:Y|
00003BF0: B2 32 34 3A 8D 34 31 30 3A A0 38 3A 8E 00 07 58 |.24:.410:.8:...X|
00003C00: 20 17 98 38 2C 4F 54 00 11 58 2A 17 98 38 2C 48 | ..8,OT..X*..8,H|
00003C10: 54 00 1B 58 34 17 98 38 2C 4E 46 00 25 58 3E 17 |T..X4..8,NF.%X>.|
00003C20: 98 38 2C 46 52 00 2E 58 48 17 98 38 2C 52 00 3E |.8,FR..XH..8,R.>|
00003C30: 58 52 17 81 4C B2 30 20 A4 20 4E 46 AB 31 00 4D |XR..L.0 . NF.1.M|
00003C40: 58 5C 17 98 38 2C 41 24 28 30 2C 4C 29 00 53 58 |X\..8,A$(0,L).SX|
00003C50: 66 17 82 00 62 58 70 17 81 4C B2 30 20 A4 20 52 |f...bXp..L.0 . R|
00003C60: AB 31 00 72 58 7A 17 81 53 B2 30 20 A4 20 4E 46 |.1.rXz..S.0 . NF|
00003C70: AB 31 00 85 58 84 17 98 38 2C 41 24 28 50 4F 28 |.1..X...8,A$(PO(|
00003C80: 4C 29 2C 53 29 00 8B 58 8E 17 82 00 91 58 98 17 |L),S)..X.....X..|
00003C90: 82 00 98 58 A2 17 A0 38 00 9E 58 AC 17 8E 00 B1 |...X...8..X.....|
00003CA0: 58 B6 17 58 B2 32 30 3A 59 B2 31 34 3A 4C B2 31 |X..X.20:Y.14:L.1|
00003CB0: 30 00 D9 58 C0 17 E0 31 2C 30 2C 31 34 2C 22 45 |0..X...1,0,14,"E|
00003CC0: 4E 54 45 52 20 4E 45 57 20 46 49 4C 45 4E 41 4D |NTER NEW FILENAM|
00003CD0: 45 3A 22 3A 8D 31 39 33 30 00 E6 58 CA 17 46 49 |E:":.1930..X..FI|
00003CE0: 24 B2 53 24 3A 8E 00 F2 58 D4 17 8F 2A 4C 4F 41 |$.S$:...X...*LOA|
00003CF0: 44 2A 00 F8 58 DE 17 E8 00 25 59 E8 17 99 22 50 |D*..X....%Y..."P|
00003D00: 52 45 50 41 52 45 20 44 45 56 49 43 45 20 22 44 |REPARE DEVICE "D|
00003D10: 45 22 20 41 4E 44 20 50 52 45 53 53 20 41 4E 59 |E" AND PRESS ANY|
00003D20: 20 4B 45 59 22 00 30 59 F2 17 46 4C 24 B2 22 22 | KEY".0Y..FL$.""|
00003D30: 00 43 59 FC 17 58 B2 32 30 3A 59 B2 32 34 3A 8D |.CY..X.20:Y.24:.|
00003D40: 34 31 30 00 57 59 06 18 46 4C 24 B2 46 49 24 AA |410.WY..FL$.FI$.|
00003D50: 22 2E 48 41 53 48 22 00 7A 59 10 18 8B 20 44 45 |".HASH".zY... DE|
00003D60: B2 38 20 B0 20 44 45 B2 39 20 A7 20 46 4C 24 B2 |.8 . DE.9 . FL$.|
00003D70: 46 4C 24 AA 22 2C 53 2C 52 22 00 8A 59 1A 18 9F |FL$.",S,R"..Y...|
00003D80: 38 2C 44 45 2C 30 2C 46 4C 24 00 D1 59 24 18 8B |8,DE,0,FL$..Y$..|
00003D90: 20 44 45 B3 B1 31 20 A7 20 8B 20 44 53 B3 B1 30 | DE..1 . . DS..0|
00003DA0: 20 A7 20 99 22 93 22 44 53 24 3A 99 22 11 11 50 | . ."."DS$:."..P|
00003DB0: 52 45 53 53 20 41 4E 59 20 4B 45 59 22 3A 58 B2 |RESS ANY KEY":X.|
00003DC0: 32 30 3A 59 B2 32 34 3A 8D 34 31 30 3A A0 38 3A |20:Y.24:.410:.8:|
00003DD0: 8E 00 DB 59 2E 18 84 38 2C 4F 54 00 2F 5A 38 18 |...Y...8,OT./Z8.|
00003DE0: 99 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 |."..............|
00003DF0: 11 52 45 41 44 49 4E 47 3A 46 4F 52 4D 41 54 20 |.READING:FORMAT |
00003E00: 44 41 54 41 22 3A 99 22 13 11 11 11 11 11 11 11 |DATA":."........|
00003E10: 11 11 11 11 11 11 11 20 20 20 20 20 20 20 20 20 |....... |
00003E20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | ".|
00003E30: 39 5A 42 18 84 38 2C 48 54 00 43 5A 4C 18 84 38 |9ZB..8,HT.CZL..8|
00003E40: 2C 4E 46 00 4D 5A 56 18 84 38 2C 46 52 00 56 5A |,NF.MZV..8,FR.VZ|
00003E50: 60 18 84 38 2C 52 00 63 5A 6A 18 4E 52 B2 4F 54 |`..8,R.cZj.NR.OT|
00003E60: AA 48 54 00 87 5A 74 18 86 41 24 28 4E 52 2C 4E |.HT..Zt..A$(NR,N|
00003E70: 46 29 3A 86 54 24 28 4E 46 29 3A 86 50 4F 28 4E |F):.T$(NF):.PO(N|
00003E80: 52 29 3A 46 49 B2 31 00 8D 5A 7E 18 E8 00 98 5A |R):FI.1..Z~....Z|
00003E90: 88 18 46 4C 24 B2 22 22 00 D8 5A 92 18 99 22 11 |..FL$.""..Z...".|
00003EA0: 11 11 11 11 20 20 20 20 20 50 4C 45 41 53 45 20 |.... PLEASE |
00003EB0: 57 41 49 54 20 3A 20 46 4F 52 4D 41 54 54 49 4E |WAIT : FORMATTIN|
00003EC0: 47 20 54 41 42 4C 45 22 3A 81 4C B2 31 20 A4 20 |G TABLE":.L.1 . |
00003ED0: 35 30 30 3A 82 3A FE 25 00 02 5B 9C 18 81 4C B2 |500:.:.%..[...L.|
00003EE0: 31 20 A4 20 4E 52 3A 41 24 28 4C 2C 4E 46 29 B2 |1 . NR:A$(L,NF).|
00003EF0: 22 30 22 3A E7 34 2C 32 3A E7 34 2C 31 3A 82 3A |"0":.4,2:.4,1:.:|
00003F00: FE 26 00 16 5B A6 18 46 4C 24 B2 46 49 24 AA 22 |.&..[..FL$.FI$."|
00003F10: 2E 48 41 53 48 22 00 39 5B B0 18 8B 20 44 45 B2 |.HASH".9[... DE.|
00003F20: 38 20 B0 20 44 45 B2 39 20 A7 20 46 4C 24 B2 46 |8 . DE.9 . FL$.F|
00003F30: 4C 24 AA 22 2C 53 2C 52 22 00 80 5B BA 18 8B 20 |L$.",S,R"..[... |
00003F40: 44 45 B3 B1 31 20 A7 20 8B 20 44 53 B3 B1 30 20 |DE..1 . . DS..0 |
00003F50: A7 20 99 22 93 22 44 53 24 3A 99 22 11 11 50 52 |. ."."DS$:."..PR|
00003F60: 45 53 53 20 41 4E 59 20 4B 45 59 22 3A 58 B2 32 |ESS ANY KEY":X.2|
00003F70: 30 3A 59 B2 32 34 3A 8D 34 31 30 3A A0 38 3A 8E |0:Y.24:.410:.8:.|
00003F80: 00 90 5B C4 18 81 4C B2 30 20 A4 20 4E 46 AB 31 |..[...L.0 . NF.1|
00003F90: 00 DE 5B CE 18 99 22 13 11 11 11 11 11 11 11 11 |..[...".........|
00003FA0: 11 11 11 11 11 11 52 45 41 44 49 4E 47 3A 46 49 |......READING:FI|
00003FB0: 45 4C 44 20 44 41 54 41 22 3A 99 22 13 11 11 11 |ELD DATA":."....|
00003FC0: 11 11 11 11 11 11 11 11 11 11 11 20 20 20 20 20 |........... |
00003FD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 EF | "..|
00003FE0: 5B D8 18 84 38 2C 41 24 28 30 2C 4C 29 3A 82 00 |[...8,A$(0,L):..|
00003FF0: FF 5B E2 18 81 4C 34 B2 30 20 A4 20 52 AB 31 00 |.[...L4.0 . R.1.|
00004000: 10 5C EC 18 81 53 34 B2 30 20 A4 20 4E 46 AB 31 |.\...S4.0 . NF.1|
00004010: 00 1E 5C F6 18 84 38 2C 54 24 28 53 34 29 00 65 |..\...8,T$(S4).e|
00004020: 5C 00 19 99 22 13 11 11 11 11 11 11 11 11 11 11 |\..."...........|
00004030: 11 11 11 11 52 45 41 44 49 4E 47 3A 44 41 54 41 |....READING:DATA|
00004040: 22 3A 99 22 13 11 11 11 11 11 11 11 11 11 11 11 |":."............|
00004050: 11 11 11 11 20 20 20 20 20 20 20 20 20 20 20 20 |.... |
00004060: 20 20 20 20 22 00 6B 5C 0A 19 82 00 7B 5C 14 19 | ".k\....{\..|
00004070: 8D 32 30 36 30 3A 8D 32 31 36 30 00 81 5C 1E 19 |.2060:.2160..\..|
00004080: 82 00 88 5C 28 19 A0 38 00 8E 5C 32 19 8E 00 A8 |...\(..8..\2....|
00004090: 5C 3C 19 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |\<..************|
000040A0: 2A 2A 2A 2A 2A 2A 2A 2A 00 C2 5C 46 19 8F 2A 44 |********..\F..*D|
000040B0: 45 4C 45 54 45 20 45 4E 54 49 52 45 20 46 49 4C |ELETE ENTIRE FIL|
000040C0: 45 2A 00 DC 5C 50 19 8F 2A 2A 2A 2A 2A 2A 2A 2A |E*..\P..********|
000040D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 E2 5C 5A |************..\Z|
000040E0: 19 3A 00 FE 5C 64 19 99 22 93 C0 C0 C0 C0 C0 C0 |.:..\d..".......|
000040F0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 22 00 18 |............."..|
00004100: 5D 6E 19 99 22 44 45 4C 45 54 45 20 45 4E 54 49 |]n.."DELETE ENTI|
00004110: 52 45 20 46 49 4C 45 22 00 34 5D 78 19 99 22 C0 |RE FILE".4]x..".|
00004120: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00004130: C0 C0 C0 22 00 56 5D 82 19 99 3A 99 22 41 52 45 |...".V]...:."ARE|
00004140: 20 59 4F 55 20 41 42 53 4F 4C 55 54 45 4C 59 20 | YOU ABSOLUTELY |
00004150: 53 55 52 45 3F 22 00 69 5D 8C 19 58 B2 32 30 3A |SURE?".i]..X.20:|
00004160: 59 B2 32 34 3A 8D 34 31 30 00 88 5D 96 19 8B 20 |Y.24:.410..]... |
00004170: 4B 45 24 B3 B1 22 4E 22 AF 20 4B 45 24 B3 B1 22 |KE$.."N". KE$.."|
00004180: 59 22 A7 20 36 35 34 30 00 99 5D A0 19 8B 20 4B |Y". 6540..]... K|
00004190: 45 24 B2 22 4E 22 A7 20 8E 00 D1 5D AA 19 99 22 |E$."N". ...]..."|
000041A0: 13 22 3A 99 22 13 11 11 11 11 11 41 52 45 20 59 |.":."......ARE Y|
000041B0: 4F 55 20 53 55 52 45 20 59 4F 55 20 41 52 45 20 |OU SURE YOU ARE |
000041C0: 41 42 53 4F 4C 55 54 45 4C 59 20 53 55 52 45 3F |ABSOLUTELY SURE?|
000041D0: 22 00 DA 5D B4 19 8D 34 31 30 00 F9 5D BE 19 8B |"..]...410..]...|
000041E0: 20 4B 45 24 B3 B1 22 4E 22 AF 20 4B 45 24 B3 B1 | KE$.."N". KE$..|
000041F0: 22 59 22 A7 20 36 35 38 30 00 0A 5E C8 19 8B 20 |"Y". 6580..^... |
00004200: 4B 45 24 B2 22 4E 22 A7 20 8E 00 35 5E D2 19 99 |KE$."N". ..5^...|
00004210: 22 13 22 3A 99 22 13 11 11 11 11 11 11 11 11 11 |".":."..........|
00004220: 11 11 11 11 11 11 44 45 4C 45 54 49 4E 47 20 46 |......DELETING F|
00004230: 49 4C 45 22 3A 00 60 5E DC 19 99 22 13 22 3A 99 |ILE":.`^...".":.|
00004240: 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |"...............|
00004250: 11 46 49 4C 45 20 44 45 4C 45 54 45 44 20 20 22 |.FILE DELETED "|
00004260: 00 8C 5E E6 19 99 22 50 52 45 53 53 20 41 4E 59 |..^..."PRESS ANY|
00004270: 20 4B 45 59 20 54 4F 20 52 45 54 55 52 4E 20 54 | KEY TO RETURN T|
00004280: 4F 20 4D 41 49 4E 20 4D 45 4E 55 22 00 99 5E F0 |O MAIN MENU"..^.|
00004290: 19 8D 34 31 30 3A 9C 3A 8A 00 AF 5E FA 19 8F 2A |..410:.:...^...*|
000042A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
000042B0: C5 5E 04 1A 8F 2A 20 44 49 53 4B 20 55 54 49 4C |.^...* DISK UTIL|
000042C0: 49 54 59 20 2A 00 DB 5E 0E 1A 8F 2A 2A 2A 2A 2A |ITY *..^...*****|
000042D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 07 5F 18 1A |***********.._..|
000042E0: 44 49 24 B2 22 C1 C2 C3 C4 C5 C6 C7 C8 C9 CA CB |DI$."...........|
000042F0: CC CD CE CF D0 D1 D2 D3 D4 D5 D6 D7 D8 D9 DA 22 |..............."|
00004300: 3A 99 C7 28 31 34 29 00 1A 5F 22 1A E7 30 2C 33 |:..(14).._"..0,3|
00004310: 3A E7 34 2C 33 3A E7 35 2C 32 00 20 5F 2C 1A E8 |:.4,3:.5,2. _,..|
00004320: 00 28 5F 36 1A 99 3A 99 00 41 5F 40 1A 99 22 C0 |.(_6..:..A_@..".|
00004330: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00004340: 22 00 5A 5F 4A 1A 99 22 C4 C9 D3 CB A0 D5 D4 C9 |".Z_J.."........|
00004350: CC C9 D4 D9 A0 CD C5 CE D5 22 00 8A 5F 54 1A 99 |.........".._T..|
00004360: 22 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |"...............|
00004370: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00004380: C0 C0 C0 C0 C0 C0 C0 C0 C0 22 00 A6 5F 5E 1A 99 |.........".._^..|
00004390: A3 35 29 22 31 3A C9 4E 49 54 49 41 4C 49 53 45 |.5)"1:.NITIALISE|
000043A0: 20 C4 49 53 4B 22 00 C0 5F 68 1A 99 A3 35 29 22 | .ISK".._h...5)"|
000043B0: 32 3A D6 41 4C 49 44 41 54 45 20 C4 49 53 4B 22 |2:.ALIDATE .ISK"|
000043C0: 00 D9 5F 72 1A 99 A3 35 29 22 33 3A D3 43 52 41 |.._r...5)"3:.CRA|
000043D0: 54 43 48 20 C6 49 4C 45 22 00 FD 5F 7C 1A 99 A3 |TCH .ILE".._|...|
000043E0: 35 29 22 34 3A D2 45 54 52 49 45 56 45 20 D3 43 |5)"4:.ETRIEVE .C|
000043F0: 52 41 54 43 48 45 44 20 C6 49 4C 45 22 00 13 60 |RATCHED .ILE"..`|
00004400: 86 1A 99 A3 35 29 22 35 3A C4 49 52 45 43 54 4F |....5)"5:.IRECTO|
00004410: 52 59 22 00 30 60 90 1A 99 A3 35 29 22 36 3A C3 |RY".0`....5)"6:.|
00004420: 48 41 4E 47 45 20 C4 49 53 4B 20 CE 41 4D 45 22 |HANGE .ISK .AME"|
00004430: 00 48 60 9A 1A 99 A3 35 29 22 37 3A C6 41 53 54 |.H`....5)"7:.AST|
00004440: 20 C6 4F 52 4D 41 54 22 00 5B 60 A4 1A 99 A3 35 | .ORMAT".[`....5|
00004450: 29 22 38 3A C6 4F 52 4D 41 54 22 00 88 60 AE 1A |)"8:.ORMAT"..`..|
00004460: 99 A3 35 29 22 39 3A D2 45 41 44 20 C5 52 52 4F |..5)"9:.EAD .RRO|
00004470: 52 20 C3 48 41 4E 4E 45 4C 20 26 20 C4 49 53 4B |R .HANNEL & .ISK|
00004480: 20 D3 54 41 54 55 53 22 00 AE 60 B8 1A 99 A3 35 | .TATUS"..`....5|
00004490: 29 22 30 3A D0 52 4F 54 45 43 54 20 C6 49 4C 45 |)"0:.ROTECT .ILE|
000044A0: 20 C6 52 4F 4D 20 C5 52 41 53 55 52 45 22 00 C9 | .ROM .RASURE"..|
000044B0: 60 C2 1A 99 A3 35 29 22 41 3A D5 4E 50 52 4F 54 |`....5)"A:.NPROT|
000044C0: 45 43 54 20 C6 49 4C 45 22 00 E5 60 CC 1A 99 A3 |ECT .ILE"..`....|
000044D0: 35 29 22 42 3A C3 48 41 4E 47 45 20 C6 49 4C 45 |5)"B:.HANGE .ILE|
000044E0: 4E 41 4D 45 22 00 05 61 D6 1A 99 A3 35 29 22 43 |NAME"..a....5)"C|
000044F0: 3A D2 45 54 55 52 4E 20 D4 4F 20 C8 C1 D3 C8 20 |:.ETURN .O .... |
00004500: C2 C1 D3 C5 22 00 35 61 E0 1A 99 22 C0 C0 C0 C0 |....".5a..."....|
00004510: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00004520: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00004530: C0 C0 C0 C0 22 00 49 61 EA 1A 99 22 C5 4E 54 45 |....".Ia...".NTE|
00004540: 52 20 CF 50 54 49 4F 4E 22 00 5D 61 F4 1A 99 22 |R .PTION".]a..."|
00004550: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 22 00 70 61 |............".pa|
00004560: FE 1A 58 B2 32 30 3A 59 B2 32 34 3A 8D 34 31 30 |..X.20:Y.24:.410|
00004570: 00 95 61 08 1B 8B 20 C6 28 4B 45 24 29 B1 B2 34 |..a... .(KE$)..4|
00004580: 38 20 AF 20 C6 28 4B 45 24 29 B3 B2 35 37 20 A7 |8 . .(KE$)..57 .|
00004590: 20 36 39 34 30 00 B8 61 12 1B 8B 20 C6 28 4B 45 | 6940..a... .(KE|
000045A0: 24 29 B3 36 35 20 B0 20 C6 28 4B 45 24 29 B1 36 |$).65 . .(KE$).6|
000045B0: 37 20 A7 20 36 39 31 30 00 D8 61 1C 1B 8B 20 4B |7 . 6910..a... K|
000045C0: 45 24 B2 22 43 22 A7 20 44 49 24 B2 22 22 3A 99 |E$."C". DI$."":.|
000045D0: C7 28 31 34 32 29 3A 8E 00 FC 61 26 1B 8B 20 4B |.(142):...a&.. K|
000045E0: 45 24 B2 22 31 22 A7 20 9F 31 35 2C 38 2C 31 35 |E$."1". .15,8,15|
000045F0: 3A 98 31 35 2C 22 49 22 3A A0 31 35 00 0D 62 30 |:.15,"I":.15..b0|
00004600: 1B 8B 20 4B 45 24 B2 22 32 22 A7 20 F3 00 3B 62 |.. KE$."2". ..;b|
00004610: 3A 1B 8B 20 4B 45 24 B2 22 35 22 A7 20 99 22 93 |:.. KE$."5". .".|
00004620: 22 3A EE 3A 99 22 11 11 50 52 45 53 53 20 41 4E |":.:."..PRESS AN|
00004630: 59 20 4B 45 59 22 3A 8D 34 31 30 00 77 62 44 1B |Y KEY":.410.wbD.|
00004640: 8B 20 4B 45 24 B2 22 39 22 A7 20 99 22 93 22 3A |. KE$."9". .".":|
00004650: 99 44 53 24 3A 99 22 11 11 50 52 45 53 53 20 41 |.DS$:."..PRESS A|
00004660: 4E 59 20 4B 45 59 22 3A 58 B2 32 30 3A 59 B2 32 |NY KEY":X.20:Y.2|
00004670: 30 3A 8D 34 31 30 3A 00 8C 62 4E 1B 8B 20 4B 45 |0:.410:..bN.. KE|
00004680: 24 B2 22 33 22 A7 20 8D 37 30 38 30 00 A1 62 58 |$."3". .7080..bX|
00004690: 1B 8B 20 4B 45 24 B2 22 34 22 A7 20 8D 37 31 33 |.. KE$."4". .713|
000046A0: 30 00 B6 62 62 1B 8B 20 4B 45 24 B2 22 36 22 A7 |0..bb.. KE$."6".|
000046B0: 20 8D 37 32 34 30 00 CB 62 6C 1B 8B 20 4B 45 24 | .7240..bl.. KE$|
000046C0: B2 22 37 22 A7 20 8D 37 34 36 30 00 E0 62 76 1B |."7". .7460..bv.|
000046D0: 8B 20 4B 45 24 B2 22 38 22 A7 20 8D 37 37 37 30 |. KE$."8". .7770|
000046E0: 00 F5 62 80 1B 8B 20 4B 45 24 B2 22 30 22 A7 20 |..b... KE$."0". |
000046F0: 8D 37 37 38 30 00 0A 63 8A 1B 8B 20 4B 45 24 B2 |.7780..c... KE$.|
00004700: 22 41 22 A7 20 8D 37 39 32 30 00 1F 63 94 1B 8B |"A". .7920..c...|
00004710: 20 4B 45 24 B2 22 42 22 A7 20 8D 38 30 36 30 00 | KE$."B". .8060.|
00004720: 2A 63 9E 1B 89 20 36 36 35 30 00 30 63 A8 1B E8 |*c... 6650.0c...|
00004730: 00 5B 63 B2 1B 99 22 45 4E 54 45 52 20 46 49 4C |.[c..."ENTER FIL|
00004740: 45 4E 41 4D 45 3A 22 3A 58 B2 32 30 3A 59 B2 30 |ENAME:":X.20:Y.0|
00004750: 3A 4C B2 31 36 3A 8D 31 39 33 30 00 65 63 BC 1B |:L.16:.1930.ec..|
00004760: F2 28 53 24 29 00 70 63 C6 1B 99 3A 99 44 53 24 |.(S$).pc...:.DS$|
00004770: 00 76 63 D0 1B 8E 00 7C 63 DA 1B E8 00 94 63 E4 |.vc....|c.....c.|
00004780: 1B 4D 24 B2 22 D5 CE D3 C3 D2 C1 D4 C3 C8 20 C6 |.M$."......... .|
00004790: C9 CC C5 22 00 9F 63 EE 1B 8D 20 38 31 31 30 00 |..."..c... 8110.|
000047A0: BD 63 F8 1B 8B 20 46 B1 38 20 AF 20 53 44 B2 32 |.c... F.8 . SD.2|
000047B0: 35 35 20 AF 20 54 44 B2 30 20 A7 20 8E 00 E0 63 |55 . TD.0 . ...c|
000047C0: 02 1C 99 3A 99 22 D7 48 41 54 20 54 59 50 45 20 |...:.".HAT TYPE |
000047D0: 4F 46 20 46 49 4C 45 20 57 41 53 20 49 54 3F 22 |OF FILE WAS IT?"|
000047E0: 00 0D 64 0C 1C 99 22 11 31 2E 2E 53 45 51 22 3A |..d...".1..SEQ":|
000047F0: 99 22 32 2E 2E 50 52 47 22 3A 99 22 33 2E 2E 55 |."2..PRG":."3..U|
00004800: 53 52 22 3A 99 22 34 2E 2E 52 45 4C 22 00 20 64 |SR":."4..REL". d|
00004810: 16 1C 58 B2 32 30 3A 59 B2 32 34 3A 8D 34 31 30 |..X.20:Y.24:.410|
00004820: 00 41 64 20 1C 8B 20 C5 28 4B 45 24 29 B3 31 20 |.Ad .. .(KE$).1 |
00004830: B0 20 C5 28 4B 45 24 29 B1 34 20 A7 20 37 31 39 |. .(KE$).4 . 719|
00004840: 30 00 53 64 2A 1C 46 54 B2 C5 28 4B 45 24 29 AA |0.Sd*.FT..(KE$).|
00004850: 31 32 38 00 8C 64 34 1C 98 31 35 2C 22 42 2D 50 |128..d4..15,"B-P|
00004860: 22 3B 38 3B 28 33 32 AC 46 AB 33 31 29 AA 31 3A |";8;(32.F.31).1:|
00004870: 98 38 2C C7 28 46 54 29 3B 3A 98 31 35 2C 22 55 |.8,.(FT);:.15,"U|
00004880: 32 22 3B 38 3B 30 3B 4F 54 3B 4F 53 00 99 64 3E |2";8;0;OT;OS..d>|
00004890: 1C A0 38 3A A0 31 35 3A 8E 00 9F 64 48 1C E8 00 |..8:.15:...dH...|
000048A0: B7 64 52 1C 99 22 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |.dR.."..........|
000048B0: C0 C0 C0 C0 C0 C0 22 00 CF 64 5C 1C 99 22 C3 48 |......"..d\..".H|
000048C0: 41 4E 47 45 20 C4 49 53 4B 20 CE 41 4D 45 22 00 |ANGE .ISK .AME".|
000048D0: E7 64 66 1C 99 22 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |.df.."..........|
000048E0: C0 C0 C0 C0 C0 C0 22 00 04 65 70 1C 99 22 11 11 |......"..ep.."..|
000048F0: C5 CE D4 C5 D2 A0 CE C5 D7 A0 C4 C9 D3 CB A0 CE |................|
00004900: C1 CD C5 22 00 1B 65 7A 1C 58 B2 35 3A 59 B2 36 |..."..ez.X.5:Y.6|
00004910: 3A 4C B2 31 36 3A 8D 31 39 33 30 00 40 65 84 1C |:L.16:.1930.@e..|
00004920: 8B 20 C3 28 53 24 29 B3 31 38 20 A7 20 53 24 B2 |. .(S$).18 . S$.|
00004930: 53 24 AA C7 28 31 36 30 29 3A 89 20 37 33 30 30 |S$..(160):. 7300|
00004940: 00 4B 65 8E 1C 44 4E 24 B2 53 24 00 7E 65 98 1C |.Ke..DN$.S$.~e..|
00004950: 99 22 13 11 11 11 11 11 C5 CE D4 C5 D2 A0 CE C5 |."..............|
00004960: D7 A0 C4 C9 D3 CB 20 C9 2E C4 2E 22 3A 58 B2 35 |...... ....":X.5|
00004970: 3A 59 B2 37 3A 4C B2 35 3A 8D 31 39 33 30 00 A0 |:Y.7:L.5:.1930..|
00004980: 65 A2 1C 8B 20 C3 28 53 24 29 B2 32 20 A7 20 53 |e... .(S$).2 . S|
00004990: 24 B2 53 24 AA C7 28 31 36 30 29 AA 22 32 41 22 |$.S$..(160)."2A"|
000049A0: 00 C8 65 AC 1C 8B 20 C3 28 53 24 29 B2 31 20 A7 |..e... .(S$).1 .|
000049B0: 20 53 24 B2 53 24 AA C7 28 33 32 29 AA C7 28 31 | S$.S$..(32)..(1|
000049C0: 36 30 29 AA 22 32 41 22 00 EC 65 B6 1C 8B 20 C3 |60)."2A"..e... .|
000049D0: 28 53 24 29 B3 35 20 A7 20 53 24 B2 53 24 AA C7 |(S$).5 . S$.S$..|
000049E0: 28 31 36 30 29 3A 89 20 37 33 35 30 00 F7 65 C0 |(160):. 7350..e.|
000049F0: 1C 49 44 24 B2 53 24 00 0F 66 CA 1C 9F 38 2C 38 |.ID$.S$..f...8,8|
00004A00: 2C 38 2C 22 23 22 3A 9F 31 35 2C 38 2C 31 35 00 |,8,"#":.15,8,15.|
00004A10: 25 66 D4 1C 98 31 35 2C 22 55 31 22 3B 38 3B 30 |%f...15,"U1";8;0|
00004A20: 3B 31 38 3B 30 00 39 66 DE 1C 98 31 35 2C 22 42 |;18;0.9f...15,"B|
00004A30: 2D 50 22 3B 38 3B 31 34 34 00 48 66 E8 1C 98 38 |-P";8;144.Hf...8|
00004A40: 2C 44 4E 24 3B 49 44 24 00 5E 66 F2 1C 98 31 35 |,DN$;ID$.^f...15|
00004A50: 2C 22 55 32 22 3B 38 3B 30 3B 31 38 3B 30 00 69 |,"U2";8;0;18;0.i|
00004A60: 66 FC 1C A0 38 3A A0 31 35 00 7E 66 06 1D 9F 31 |f...8:.15.~f...1|
00004A70: 35 2C 38 2C 31 35 2C 22 49 22 3A A0 31 35 00 88 |5,8,15,"I":.15..|
00004A80: 66 10 1D 99 3A 99 3A EE 00 93 66 1A 1D 8D 34 31 |f...:.:...f...41|
00004A90: 30 3A 8E 00 99 66 24 1D E8 00 B2 66 2E 1D 99 22 |0:...f$....f..."|
00004AA0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00004AB0: C0 22 00 C5 66 38 1D 99 22 C6 C1 D3 D4 A0 C6 CF |."..f8..".......|
00004AC0: D2 CD C1 D4 22 00 DE 66 42 1D 99 22 C0 C0 C0 C0 |...."..fB.."....|
00004AD0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 22 00 0D |............."..|
00004AE0: 67 4C 1D 99 22 11 D0 4C 45 41 53 45 20 4E 4F 54 |gL.."..LEASE NOT|
00004AF0: 45 20 54 48 41 54 20 54 48 49 53 20 52 4F 55 54 |E THAT THIS ROUT|
00004B00: 49 4E 45 20 43 41 4E 20 4F 4E 4C 59 22 00 39 67 |INE CAN ONLY".9g|
00004B10: 56 1D 99 22 42 45 20 55 53 45 44 20 4F 4E 20 44 |V.."BE USED ON D|
00004B20: 49 53 4B 53 20 57 48 49 43 48 20 48 41 56 45 2C |ISKS WHICH HAVE,|
00004B30: 20 41 54 20 53 4F 4D 45 22 00 68 67 60 1D 99 22 | AT SOME".hg`.."|
00004B40: 54 49 4D 45 20 4F 52 20 41 4E 4F 54 48 45 52 2C |TIME OR ANOTHER,|
00004B50: 20 42 45 45 4E 20 46 4F 52 4D 41 54 54 45 44 20 | BEEN FORMATTED |
00004B60: 46 4F 52 20 55 53 45 22 00 96 67 6A 1D 99 22 4F |FOR USE"..gj.."O|
00004B70: 4E 20 31 35 34 31 20 44 49 53 4B 20 44 52 49 56 |N 1541 DISK DRIV|
00004B80: 45 20 41 4E 44 20 48 41 56 45 20 4E 4F 54 20 53 |E AND HAVE NOT S|
00004B90: 49 4E 43 45 20 22 00 C1 67 74 1D 99 22 42 45 45 |INCE "..gt.."BEE|
00004BA0: 4E 20 52 45 46 4F 52 4D 41 54 54 45 44 20 46 4F |N REFORMATTED FO|
00004BB0: 52 20 41 4E 4F 54 48 45 52 20 44 52 49 56 45 2E |R ANOTHER DRIVE.|
00004BC0: 22 00 EE 67 7E 1D 99 22 20 20 C9 4E 20 4F 52 44 |"..g~.." .N ORD|
00004BD0: 45 52 20 54 4F 20 46 4F 52 4D 41 54 20 41 20 42 |ER TO FORMAT A B|
00004BE0: 52 41 4E 44 20 4E 45 57 20 44 49 53 4B 22 00 1C |RAND NEW DISK"..|
00004BF0: 68 88 1D 99 22 4F 52 20 41 20 44 49 53 4B 20 46 |h..."OR A DISK F|
00004C00: 52 4F 4D 20 41 4E 4F 54 48 45 52 20 43 4F 4D 50 |ROM ANOTHER COMP|
00004C10: 55 54 45 52 20 53 59 53 54 45 4D 22 00 41 68 92 |UTER SYSTEM".Ah.|
00004C20: 1D 99 22 50 4C 45 41 53 45 20 55 53 45 20 54 48 |.."PLEASE USE TH|
00004C30: 45 20 4F 50 54 49 4F 4E 20 C6 CF D2 CD C1 D4 2E |E OPTION .......|
00004C40: 22 00 62 68 9C 1D 99 3A 99 22 C4 4F 20 59 4F 55 |".bh...:.".O YOU|
00004C50: 20 57 49 53 48 20 54 4F 20 43 4F 4E 54 49 4E 55 | WISH TO CONTINU|
00004C60: 45 22 00 75 68 A6 1D 58 B2 32 30 3A 59 B2 32 34 |E".uh..X.20:Y.24|
00004C70: 3A 8D 34 31 30 00 94 68 B0 1D 8B 20 4B 45 24 B3 |:.410..h... KE$.|
00004C80: B1 22 4E 22 AF 4B 45 24 B3 B1 22 59 22 A7 89 20 |."N".KE$.."Y".. |
00004C90: 37 35 39 30 00 A5 68 BA 1D 8B 20 4B 45 24 B2 22 |7590..h... KE$."|
00004CA0: 4E 22 A7 20 8E 00 AF 68 C4 1D 49 24 B2 22 22 00 |N". ...h..I$."".|
00004CB0: B5 68 CE 1D E8 00 D8 68 D8 1D 99 22 C6 CF D2 CD |.h.....h..."....|
00004CC0: C1 D4 11 11 11 22 3A 99 22 C5 4E 54 45 52 20 44 |.....":.".NTER D|
00004CD0: 49 53 4B 4E 41 4D 45 22 00 EF 68 E2 1D 58 B2 35 |ISKNAME"..h..X.5|
00004CE0: 3A 59 B2 37 3A 4C B2 31 36 3A 8D 31 39 33 30 00 |:Y.7:L.16:.1930.|
00004CF0: FA 68 EC 1D 46 44 24 B2 53 24 00 22 69 F6 1D 99 |.h..FD$.S$."i...|
00004D00: 3A 99 22 11 11 C5 4E 54 45 52 20 C9 2E 44 22 3A |:."...NTER ..D":|
00004D10: 58 B2 35 3A 59 B2 31 33 3A 4C B2 35 3A 8D 31 39 |X.5:Y.13:L.5:.19|
00004D20: 33 30 00 2D 69 00 1E 49 44 24 B2 53 24 00 3F 69 |30.-i..ID$.S$.?i|
00004D30: 0A 1E F1 28 46 44 24 AA 22 2C 22 AA 49 24 29 00 |...(FD$.",".I$).|
00004D40: 57 69 14 1E 9F 38 2C 38 2C 38 2C 22 23 22 3A 9F |Wi...8,8,8,"#":.|
00004D50: 31 35 2C 38 2C 31 35 00 6D 69 1E 1E 98 31 35 2C |15,8,15.mi...15,|
00004D60: 22 55 31 22 3B 38 3B 30 3B 31 38 3B 30 00 81 69 |"U1";8;0;18;0..i|
00004D70: 28 1E 98 31 35 2C 22 42 2D 50 22 3B 38 3B 31 36 |(..15,"B-P";8;16|
00004D80: 32 00 8C 69 32 1E 98 38 2C 49 44 24 00 A2 69 3C |2..i2..8,ID$..i<|
00004D90: 1E 98 31 35 2C 22 55 32 22 3B 38 3B 30 3B 31 38 |..15,"U2";8;0;18|
00004DA0: 3B 30 00 C2 69 46 1E A0 38 3A A0 31 35 3A E8 3A |;0..iF..8:.15:.:|
00004DB0: 9F 31 35 2C 38 2C 31 35 2C 22 49 22 3A A0 31 35 |.15,8,15,"I":.15|
00004DC0: 3A EE 00 D7 69 50 1E 58 B2 32 30 3A 59 B2 32 34 |:...iP.X.20:Y.24|
00004DD0: 3A 8D 34 31 30 3A 8E 00 EB 69 5A 1E 49 24 B2 22 |:.410:...iZ.I$."|
00004DE0: 41 32 22 3A 8D 37 36 33 30 3A 8E 00 F1 69 64 1E |A2":.7630:...id.|
00004DF0: E8 00 07 6A 6E 1E 4D 24 B2 22 D0 D2 CF D4 C5 C3 |...jn.M$."......|
00004E00: D4 A0 C6 C9 CC C5 22 00 11 6A 78 1E 8D 38 31 31 |......"..jx..811|
00004E10: 30 00 35 6A 82 1E 8B 20 46 B1 38 20 AF 53 44 B2 |0.5j... F.8 .SD.|
00004E20: 32 35 35 20 AF 20 54 44 B2 30 20 A7 20 A0 38 3A |255 . TD.0 . .8:|
00004E30: A0 31 35 3A 8E 00 51 6A 8C 1E 98 31 35 2C 22 42 |.15:..Qj...15,"B|
00004E40: 2D 50 22 3B 38 3B 28 33 32 AC 46 AB 33 31 29 AA |-P";8;(32.F.31).|
00004E50: 31 00 5C 6A 96 1E A1 23 38 2C 54 24 00 69 6A A0 |1.\j...#8,T$.ij.|
00004E60: 1E 54 59 B2 C6 28 54 24 29 00 AF 6A AA 1E 8B 20 |.TY..(T$)..j... |
00004E70: 54 59 B3 31 32 37 20 B0 20 54 59 B1 31 33 32 20 |TY.127 . TY.132 |
00004E80: A7 20 99 22 93 C9 CE D6 C1 CC C9 C4 A0 C6 C9 CC |. ."............|
00004E90: C5 A0 D4 D9 D0 C5 22 3A 58 B2 32 30 3A 59 B2 32 |......":X.20:Y.2|
00004EA0: 34 3A 8D 34 31 30 3A A0 38 3A A0 31 35 3A 8E 00 |4:.410:.8:.15:..|
00004EB0: BC 6A B4 1E 54 59 B2 54 59 AA 36 34 00 C9 6A BE |.j..TY.TY.64..j.|
00004EC0: 1E 54 24 B2 C7 28 54 59 29 00 E5 6A C8 1E 98 31 |.T$..(TY)..j...1|
00004ED0: 35 2C 22 42 2D 50 22 3B 38 3B 28 33 32 AC 46 AB |5,"B-P";8;(32.F.|
00004EE0: 33 31 29 AA 31 00 F0 6A D2 1E 98 38 2C 54 24 3B |31).1..j...8,T$;|
00004EF0: 00 07 6B DC 1E 98 31 35 2C 22 55 32 22 3B 38 3B |..k...15,"U2";8;|
00004F00: 30 3B 4F 54 2C 4F 53 00 14 6B E6 1E A0 38 3A A0 |0;OT,OS..k...8:.|
00004F10: 31 35 3A 8E 00 1A 6B F0 1E E8 00 32 6B FA 1E 4D |15:...k....2k..M|
00004F20: 24 B2 22 D5 CE D0 D2 CF D4 C5 C3 D4 A0 C6 C9 CC |$.".............|
00004F30: C5 22 00 3C 6B 04 1F 8D 38 31 31 30 00 60 6B 0E |.".<k...8110.`k.|
00004F40: 1F 8B 20 46 B1 38 20 AF 53 44 B2 32 35 35 20 AF |.. F.8 .SD.255 .|
00004F50: 20 54 44 B2 30 20 A7 20 A0 38 3A A0 31 35 3A 8E | TD.0 . .8:.15:.|
00004F60: 00 7C 6B 18 1F 98 31 35 2C 22 42 2D 50 22 3B 38 |.|k...15,"B-P";8|
00004F70: 3B 28 33 32 AC 46 AB 33 31 29 AA 31 00 87 6B 22 |;(32.F.31).1..k"|
00004F80: 1F A1 23 38 2C 54 24 00 94 6B 2C 1F 54 59 B2 C6 |..#8,T$..k,.TY..|
00004F90: 28 54 24 29 00 E4 6B 36 1F 8B 20 28 54 59 AB 36 |(T$)..k6.. (TY.6|
00004FA0: 34 29 B3 31 32 37 20 B0 20 28 54 59 AB 36 34 29 |4).127 . (TY.64)|
00004FB0: B1 31 33 32 20 A7 20 99 22 93 C9 CE D6 C1 CC C9 |.132 . .".......|
00004FC0: C4 20 C6 C9 CC C5 A0 D4 D9 D0 C5 22 3A 58 B2 32 |. .........":X.2|
00004FD0: 30 3A 59 B2 32 34 3A 8D 34 31 30 3A A0 38 3A A0 |0:Y.24:.410:.8:.|
00004FE0: 31 35 3A 8E 00 F1 6B 40 1F 54 59 B2 54 59 AB 36 |15:...k@.TY.TY.6|
00004FF0: 34 00 FE 6B 4A 1F 54 24 B2 C7 28 54 59 29 00 1A |4..kJ.T$..(TY)..|
00005000: 6C 54 1F 98 31 35 2C 22 42 2D 50 22 3B 38 3B 28 |lT..15,"B-P";8;(|
00005010: 33 32 AC 46 AB 33 31 29 AA 31 00 25 6C 5E 1F 98 |32.F.31).1.%l^..|
00005020: 38 2C 54 24 3B 00 3C 6C 68 1F 98 31 35 2C 22 55 |8,T$;.<lh..15,"U|
00005030: 32 22 3B 38 3B 30 3B 4F 54 3B 4F 53 00 49 6C 72 |2";8;0;OT;OS.Ilr|
00005040: 1F A0 38 3A A0 31 35 3A 8E 00 4F 6C 7C 1F E8 00 |..8:.15:..Ol|...|
00005050: 85 6C 86 1F 99 22 45 4E 54 45 52 20 4F 4C 44 20 |.l..."ENTER OLD |
00005060: 46 49 4C 45 4E 41 4D 45 3A 22 3A 58 B2 32 30 3A |FILENAME:":X.20:|
00005070: 59 B2 30 3A 4C B2 31 36 3A 8D 31 39 33 30 3A 44 |Y.0:L.16:.1930:D|
00005080: 49 24 B2 53 24 00 BE 6C 90 1F 99 3A 99 22 11 45 |I$.S$..l...:.".E|
00005090: 4E 54 45 52 20 4E 45 57 20 46 49 4C 45 4E 41 4D |NTER NEW FILENAM|
000050A0: 45 3A 22 3A 58 B2 32 30 3A 59 B2 32 3A 4C B2 31 |E:":X.20:Y.2:L.1|
000050B0: 36 3A 8D 31 39 33 30 3A 46 44 24 B2 53 24 00 CF |6:.1930:FD$.S$..|
000050C0: 6C 9A 1F F5 28 44 49 24 29 A4 28 46 44 24 29 00 |l...(DI$).(FD$).|
000050D0: D5 6C A4 1F 8E 00 EB 6C AE 1F E8 3A 99 A3 32 30 |.l.....l...:..20|
000050E0: AB C3 28 4D 24 29 AD 32 29 4D 24 00 02 6D B8 1F |..(M$).2)M$..m..|
000050F0: 99 22 C5 CE D4 C5 D2 A0 C6 C9 CC C5 CE C1 CD C5 |."..............|
00005100: 3A 22 00 20 6D C2 1F 58 B2 35 3A 59 B2 38 3A 4C |:". m..X.5:Y.8:L|
00005110: B2 31 36 3A 8D 31 39 33 30 3A 46 44 24 B2 53 24 |.16:.1930:FD$.S$|
00005120: 00 48 6D CC 1F 8B 20 C3 28 46 44 24 29 B3 31 36 |.Hm... .(FD$).16|
00005130: 20 A7 20 46 44 24 B2 46 44 24 AA C7 28 31 36 30 | . FD$.FD$..(160|
00005140: 29 3A 89 20 38 31 34 30 00 57 6D D6 1F 54 44 B2 |):. 8140.Wm..TD.|
00005150: 31 38 3A 53 44 B2 31 00 6F 6D E0 1F 9F 38 2C 38 |18:SD.1.om...8,8|
00005160: 2C 38 2C 22 23 22 3A 9F 31 35 2C 38 2C 31 35 00 |,8,"#":.15,8,15.|
00005170: 86 6D EA 1F 98 31 35 2C 22 55 31 22 3B 38 3B 30 |.m...15,"U1";8;0|
00005180: 3B 54 44 3B 53 44 00 98 6D F4 1F 98 31 35 2C 22 |;TD;SD..m...15,"|
00005190: 42 2D 50 22 3B 38 3B 30 00 CC 6D FE 1F A1 23 38 |B-P";8;0..m...#8|
000051A0: 2C 54 52 24 3A A1 23 38 2C 53 45 24 3A 4F 54 B2 |,TR$:.#8,SE$:OT.|
000051B0: 54 44 3A 4F 53 B2 53 44 3A 54 44 B2 C6 28 54 52 |TD:OS.SD:TD..(TR|
000051C0: 24 29 3A 53 44 B2 C6 28 53 45 24 29 00 0F 6E 08 |$):SD..(SE$)..n.|
000051D0: 20 81 46 B2 31 20 A4 20 38 3A 98 31 35 2C 22 42 | .F.1 . 8:.15,"B|
000051E0: 2D 50 22 3B 38 3B 28 33 32 AC 46 AB 33 31 29 AA |-P";8;(32.F.31).|
000051F0: 34 3A 81 4C B2 31 20 A4 20 31 36 3A A1 23 38 2C |4:.L.1 . 16:.#8,|
00005200: 41 24 3A 46 43 24 B2 46 43 24 AA 41 24 3A 82 00 |A$:FC$.FC$.A$:..|
00005210: 23 6E 12 20 8B 20 46 44 24 B2 46 43 24 20 A7 38 |#n. . FD$.FC$ .8|
00005220: 32 35 30 00 31 6E 1C 20 46 43 24 B2 22 22 3A 82 |250.1n. FC$."":.|
00005230: 3A 00 82 6E 26 20 8B 20 53 44 B2 32 35 35 20 AF |:..n& . SD.255 .|
00005240: 54 44 B2 30 20 A7 20 A0 38 3A A0 31 35 3A 99 22 |TD.0 . .8:.15:."|
00005250: 93 4E 4F 20 53 55 43 48 20 46 49 4C 45 22 3A 99 |.NO SUCH FILE":.|
00005260: 22 11 11 50 52 45 53 53 20 41 4E 59 20 4B 45 59 |"..PRESS ANY KEY|
00005270: 22 3A 58 B2 32 30 3A 59 B2 32 34 3A 8D 34 31 30 |":X.20:Y.24:.410|
00005280: 3A 8E 00 8D 6E 30 20 89 20 38 31 37 30 00 93 6E |:...n0 . 8170..n|
00005290: 3A 20 8E 00 00 00 |: .... |
.......G(142).6...."....................
............."._....". * HASH BASE 1
28 V2.0 * ."...(..".
."...2..". * WRITTEN & PR
OGRAMMED BY * .".Z.<..".
."...F..". * STEVEN P
AUL BURGESS * .".,.P..".
.".U.Z..". * COP
YRIGHT 1989 * .".~.D.."............
....................."...N..G(142)...X..
......5490......0,8:.4,9:.5,1.......Y. .
.A:.L.1 . A:.A$:..20.C(A$).2)A$:.......1
9......"O..................P "......".HA
SH BASE 128 V2.0...".<.H..". L..........
...........".Z.R.." ....................
.".C...."."......"O.....................
....P "......" .WRITTEN BY STEVEN BURGES
S...".U....". L........................
...."......" ..........................
.."......"."........."...(.,..".........
.......".?.6..".COPYRIGHT 1989..W.@.."..
..............".].J...}.T.."............
............"...^..".PRESS ANY KEY TO BE
GIN."...H.."........................".K.
R.X.20:Y.23.W.|..410'........500'MENU...
... 390.. ...****************.. ...*GETK
EY ROUTINE*.1 ...****************.7 ..:.
H B.TI$."000000".H L.. TI.5..(TI.5)..1,X
,Y," ",1.. V.. TI.60..(TI.60) . .1,X,Y,"
",0.. ...KE$:.KE$."". 460.. ..... ...**
****.. ...*MENU*.L ...******.R ..:.. ..D
I$."".. &.X.19:Y.24.. 0.... :..0,8:.5,1.
'!D..:.A:.L.1 . 4:.A$:..20.C(A$).2)A$:..
0!N..5,1.:!X.. 620.`!B..L.1 . 10:.A$:..2
0.C(A$).2)A$:.:...!L..1...CREATE FILE,2.
..ADD RECORDS,3...AMEND RECORD,4...DELET
E RECORD,5...VIEW RECORDS,6...SEARCH,7..
.PRINT MENU,8...LOAD/SAVE MENU,9...DISK
UTILITY.."V..0...DELETE ENTIRE FILE.."..
.410.7"... KE$."0".KE$."9". 640.E"..K.E(
KE$):.W"... FI.0 . (K..1 . K..8 . K..9)
. W.2:.750:.500.."... FI.1 . (K.1) . W.
1:.750:.500.."... K.6 . PR.0.."... K.7 .
PR.1.."F.. K .1070,2240,2420,2930,3240,
3660,4170,5520,6650..#P.. K.0 . . 6460..
#Z.. 500..#....%#...*********.4#...*WARN
ING*.C#...*********.N#...:.840.T#....K#
..N$:. W.E(N$). 830.|#*.. . E(N$)..1..#4
.. E(N$)..1 . ...#>..L.1 . 5:.A$:.A$:.:.
410:...#H..1..#R..".....................
..................."..$\..".SORRY, BUT T
HERE IS ALREADY A FILE .".C$F..".LOAD
ED INTO THE COMPUTER. YOU MUST ..S$P.
.".FIRST DELETE THIS ONE TO CONTINUE.
."..$Z.."..............................
.........."..$...2.Z$..."...............
........................."..%...".SORRY,
BUT THERE IS NO FILE IN MEMORY .".9%...
".THEREFORE YOU CANNOT MANIPULATE, SAVE
..I%...".OR PRINT IT. IT DOES NOT EXIST
."..%..."........................
................". %...3.P%J..".........
..............................."..&T..".
SORRY, BUT THE RECORD WHICH YOU ARE ."
.0&...".WISHING TO ACCESS DOES NOT EXIST
. YOU .".`&...".CANNOT THEREFORE ACCESS
IT ."..&...".................
.......................".B&...4,".......
................................."..&...
".SORRY, BUT AS YOU HAVE NOT ENTERED A
."."'...".FILENAME, IT IS IMPOSSIBLE FOR
YOU TO .".R'...".LOAD OR SAVE A FILE. S
ELECT OPTION 4 ."..'$.."...............
.........................",-1..'...*****
********..'8..*CREATE FILE*..'B..*******
******.D'L.:.J'V....'`..0,1:.4,1:.5,2..'
J..".............."..(T.."CREATE FILE"..
(~.."..............".G(..."PLEASE ENTER
NUMBER OF FIELDSFIELDS".W(...:."01 02
03 04 05 06 07 08 09 10"..(..::::
::.".^ ^ ^ ^ ^ ^ ^ ^ ^
^".V(...".....MOVE CURSOR USING < AND >
KEYS"..(..."..PRESS RETURN TO MAKE CHOI
CE"..)...".......";:..0.D)".^"..)D..410.
6)N.. KE$.G(13) . 1310.U)X.. KE$..".". K
E$..",". 1210.P)...".......";:..0.D)".^"
..)... KE$.".". D.D.4..)... KE$.",". D.D
.4..)... D.0 . D.0..)... D.36 . D.36.G).
.. 1210.M).....)(.."............."..)2..
"CREATE FILE"..*<..".............".-*F..
:."NUMBER OF FIELDS=";(D.4).4.?*P.NF.(D.
4).4 :..L*Z..".MAXIMUM POSSIBLE NUMBER O
F RECORDS:";..*D.. NF.10. NR.500..*N.. N
F.9 . NR.650..*X.. NF.8 . NR.750..*... N
F.7 . NR.800.P*... NF.6 . NR.900..*... N
F.5 . NR.1000..* .. NF.4 . NR.1250..+...
NF.3 . NR.1500.$+... NF.2 . NR.1750.9+.
.. NF.1 . NR.2000.A+H..NR.R+R.HT.NR.10.1
00._+..OT.NR.HT.|+..."HASH TABLE STRUCTU
RE:"..+..."---------------------"..+..."
.HASH TABLE:"HT" RECORDS"..+...".OVERFLO
W TABLE:"OT" RECORDS"..+...A$(NR,NF):.T$
(NF):.PO(NR)..,...410..,"...E,,..1,5,5,"
PLEASE WAIT:FORMATTING TABLE":.S.1 . 300
:.:.%.|,6..L.1 . NR:A$(L,NF)."0":.4,1:.4
,8:.:FR.HT.1:.&:.4,1..,@....,J..%..,T.."
..............................".S,^.."CR
EATE FILE:FIELD NAME ENTRY"..,H.."......
........................"..-R..F.0 . (NF
.1).B-|..".....ENTER FIELDNAME"F.1":
...................";:X.2
0:Y.4:L.15.T-...1930'.STRING..-..A$(0,F)
.S$..-.....-...:FI.1..-..."FIELD NAMES A
RE AS FOLLOWS:".Z-..."------------------
---------"..-B..F.0 . NF.1..-L..F.1.5)A$
(0,F)...V...1...X.20:Y.24:.".ARE THERE A
NY ERRORS (Y/N)?".:....410.X.... KE$.."Y
".KE$.."N". 1770.I.... KE$."N". ..O.....
....F.0 . NF.1......F.1.5)A$(0,F)...&..
.C.0..".WHICH FIELD HAS AN ERROR (1-"NF"
)?"...:.X.35:Y.1.NF:L.2:.1930...D.. E(S$
).1 . E(S$).NF . 1800../N.FC.E(S$):..2/X
.."THE FIELD CHOSEN IS:"A$(0,FC.1)._/B..
".INPUT NEW VALUE:":L.15:X.20:Y.2:.1930.
Q/L.A$(0,FC.1).S$.|/V.. 1700../...../...
************../...*GET STRING*../...****
********.L/..S$."":X1.X:Y1.Y..0..CH$."AB
CDEFGHIJKLMNOPQRSTUVWXYZ 1234567890.+-\=
?!#$%&'()@*^/[].".DI$..0...&.%0F..410.I0
P.. KE$.G(20) .C(S$).0 . S$.H(S$,C(S$).1
):.1,X,Y," ":X.X.1:. 1990..0Z.. KE$.G(13
) . C(S$).0 . ...0... T(CH$,KE$).0 . 199
0..0... C(S$)..L . 1990.E0..S$.S$.KE$..0
...1,X1,Y1,S$:X.X.1:.1990..0...*********
******..1...*HASH EQUATION*. 1 ..*******
********.&1*.:..14.H.0.X1>..L.1 . C(T$(0
)):H.H.F(J(T$(0),L,1)):..I1H.H.H.C(T$(0)
).Z1R.H.H.255.(HT)..1\.H..(H)..1F...F1P.
.************* RE
M*INSERT DATA*.Y1Z..*************..1..I.
0..2... A$(H,0).""..L.0 . NF.1:A$(H,L).T
$(L):.:I.1:..`2... A$(H,NF)."0". A$(H,NF
).D(FR):.L.0 . NF.1:A$(FR,L).T$(L):.:FR.
FR.1:I.1..2... I..1 . H.E(A$(H,NF)):. 21
90..2.....2...PO(100)..2.....2J..0,1:.4,
1:.5,2.F2T.."................".Y2..."ADD
RECORDS"..2..."................"..2....
.3...F.0 . NF.1.)3...:.A$(0,F)":":X.16:Y
.F.5:L.23.33...1930.@3..T$(F).S$.F3$...]
3...2060'HASH EQUATI..{38..2160'INSERT .
INTO TABLE..3B..:."..ANOTHER RECORD (Y/
N)"..3L.X.20:Y.24:.410.M3V.. KE$.."Y". K
E$.."N". 2380..3`.. KE$."N". FI.1:...3J.
. 2240..4T..***************..4~..*AMEND
RECORDS*.-4...***************.34..:.94..
..S4..."..................".H4..."AMEND
RECORDS"..4...".................."..4D.F
O.0.T4N..:."ENTER "A$(0,0)" OF RECORD YO
U WISH TO AMEND"..4X
.X.0:Y.8:L.24:.1930:T$(0).S$..4...2060..
5... A$(H,0).S$ . FO.1.15... FO.0 . H.E(
A$(H,NF)).K5... H..0 . FO..1 . 2540.I5..
. H.0 . FO.0 . W.3:.750:..S5...".";..5..
."RECORD FOUND:"..5(.."-------------"..5
2..L.0 . NF.1.H5<..A$(0,L)":".16)A$(H,L)
.N5F....5P.."...........................
.............";./6Z.."IS THIS THE RECORD
YOU WISH TO AMEND Y/N".`6D.."..........
..............................";.S6N.X.2
0:Y.24:.410..6X.. KE$.."Y".KE$.."N". 267
0..6... KE$."N".H.E(A$(H,NF)):FO.0:. 254
0..7... NF.1 . .:.".............DO YOU W
ISH TO AMEND THE ";A$(0,0);" FIELD?":B.2
."7... NF.1 . S$."1". 2820.57 .X.20:Y.24
:.410.R7... KE$.."Y".KE$.."N".2720..7...
KE$."Y". .L.0 . NF.1:T$(L).A$(H,L):A$(H
,L)."":.:B.1:S$."1":. 2820. 7....O7H..L.
0 . NF.1:.L.1":"A$(0,L)":".17)A$(H,L):..
.7R.."..ENTER FIELD TO AMEND ("B"-"NF")"
..8..."..ENTER 0 TO END".(8..L.2:X.19:Y.
24:.1930.88... S$."0". ..X8... E(S$).B .
E(S$).NF . 2790.^8....T8... S$."1" . .
2880..8..R.E(S$):."CURRENT VALUE:"A$(H,R
.1)..8".."..ENTER NEW VALUE".L8,.X.5:Y.1
0:L.24:.1930..86.A$(H,R.1).S$:. 2750..9@
.R.E(S$):."CURRENT VALUE:"T$(R.1)."9J.."
..ENTER NEW VALUE".:9T.X.5:Y.10:L.24:.19
30.T9^.T$(0).S$:. 2060:.2160._9H.. 2750.
E9R...|9|.."..............."..9..."DELET
E RECORD"..9..."..............."..9..FO.
0..9...:."ENTER "A$(0,0)" OF RECORD YOU
WISH TO DELETE:"..:..X.5:Y.
10:L.24:.1930. :..T$(0).S$:.2060.8:B.. A
$(H,0).S$ . FO.1.S:L.. FO.0 . H.E(A$(H,N
F)).M:V.. H..0 . FO..1 . 3010..:... H.0
. FO.0 . W.3:.750:...:.....:...L.0 . NF.
1..:...A$(0,L)":".16)A$(H,L):...:..."...
....................................."..
;..."IS THIS THE RECORD YOU WISH TO DELE
TE? ".N;..."...........................
.............".A;&.X.20:Y.24:.410..;0..
KE$.."Y". KE$.."N". 3110..;:.. KE$."Y".
3150..;D.H.E(A$(H,NF)):FO.0:. 3010.P;N..
: ."ARE YOU SURE (Y/N)?"..;X.X.20:Y.24:.
410..<B.. KE$.."Y". KE$.."N". 3110..<L..
KE$."N". ..-<V..:.".DELETING RECORD".J<
...L.0 . NF.1:A$(H,L)."":..G<...: .".DEL
ETION COMPLETE".<...:.".PRESS ANY KEY".
.<...410:...<.....<..."...............".
.<..."VIEW RECORDS".R<F.."..............
.".X<P....=Z.."PLEASE NOTE THAT THIS ROU
TINE DOES NOT".2=..."ALLOW YOU TO ACCESS
SPECIFIC RECORDS"._=..."SELECTIVELY. IT
SIMPLY SCANS THROUGH "..=..."THE ENTIRE
TABLE PRINTING OUT ALL THE"..=..."RECOR
DS WHICH CONTAIN ANY DATA. AS THE"..=...
"TABLES ARE USUALLY QUITE LARGE, THIS"..
>..."CAN TAKE A CONSIDERABLE AMOUNT OF T
IME.".C> .."THE PROCESS CAN ONLY BE STOP
PED IF AND".P>*.."WHEN A RECORD IS FOUND
. IF NO RECORDS"..>4.."HAVE BEEN ENTERED
AND YOU INADVERTANTLY".M>>.."SELECT THI
S OPTION, EVEN AFTER READING"..>H.."THIS
, THEN YOU COULD HAVE A PRETTY LONG".+?R
.."WAIT. FOR SELECTIVE VIEWING, CHOOSE T
HE".M?\.."SEARCH OPTION ON THE MENU.".S?
F...|?P.."ARE YOU SURE YOU WISH TO PROCE
ED?"..?Z.X.20:Y.24:.410..?... KE$.."Y".K
E$.."N". 3450..?... KE$."N". ..D?....K?.
..%.Y?...L.1 . NR..?...%..?..FL.0:. A$(L
,0).."". .3570..@J.. FL.1 . 3550..@T....
@...&.#@....,@...&:..S@...E.0 . NF.1:.A$
(0,E)":".16)A$(L,E).Y@...._@....{@..."PR
ESS SPACE TO ABORT"..@$.."PRESS ANY OTHE
R KEY TO CONTINUE"..@..X.20:Y.24:.410.G@
8.. KE$.." ". ..R@B.FL.1:...@L..********
..@V..*SEARCH*..@`..********..AJ.TA.0:P.
0:R.0.@AT.:.:."............":."SEARCH":.
"............":..PA~..:."ENTER AS MUCH I
NFORMATION AS YOU KNOW "..A..."ABOUT THE
RECORD. IF YOU ONLY KNOW PART":."OF A F
IELD OR AREN'T SURE THEN MISS IT":."OUT.
IF YOU INCLUDE THE FULL":.A$(0,0);..B..
." OF THE RECORD THEN THE".?B..."TIME TA
KEN FOR THE SEARCH TO COMPLETE".LB..."WI
LL BE VERY VERY SHORT. IF, HOWEVER,"..B.
.."YOU DO NOT KNOW THIS DATA, THE TIME
TAKEN WILL BE VERY LONG.".TB..."..PRE
SS ANY KEY TO BEGIN"..BD.X.20:Y.24:.410:
..BN....CX..L.0 . NF.1:.A$(0,L)":":...C.
.."..IF YOU DO NOT WISH TO ENTER THE FIE
LD TYPE 0 AND PRESS RETURN, OTHERWISE
ENTERTHE INFORMATION YOU KNOW AND TRY TO
ENTER THE "A$(0,0)"."..C..X.16:Y.0:
L.22..C...Q.0 . NF.1:Y.Q:.1930:T$(Q).S$:
. S$."0" . T$(Q).""..C..X.16:.:.%..D...L
.0 . NF.1:. T$(L).."". TA.TA.1.$D.....D.
..T$(0)."". .&:.".AS YOU HAVE NOT ENTERE
D THE":.A$(0,0)" OF THE RECORD IT WILL":
."TAKE QUITE A WHILE TO SEARCH SO YOU HA
D BETTER GO AND"..E(.. T$(0)."". ."HAVE
A FEW CUPS OF TEA, I SHOULD HAVE FINIS
HED BY THEN, I THINK":.L.1 . 1000:.:.397
0::..1E2..2060:R.0:P.0:.%.AE<..L.0 . NF.
1._EF.. A$(H,0)."". P..1:. 3940.{EP.. A$
(H,L).T$(L) . P.P.1..EZ....ED.. TA.P . P
O(R).H:R.R.1:..EN.. A$(H,NF)."0". .4080:
..WEX.H.E(A$(H,NF)):P.0: . 3900..E..R.0:
P.0:.%..E...S.1 . NR..F...L.0 . NF.1."F
.. A$(S,0)."". P..1:. 4020.>F... A$(S,L)
.T$(L) . P.P.1.LF...4,2:.4,1.RF....LFH..
TA.P .PO(R).S:R.R.1.VFR.P.0:...F...4080
..F.....F... PR.1 . ...F... R.0 . .".THE
RE ARE NO MATCHES : PRESS ANY KEY":X.20:
Y.24:.&:.410:...F...".I HAVE FOUND"R" MA
TCHES"."G..."..PRESS ANY KEY TO VIEW THE
M".8G..X.20:Y.24:.&:.410.IG"..L.0 . R.1:
..YG,..S.0 . NF.1..G6..A$(0,S)":".16)A$(
PO(L),S):.:."..PRESS ANY KEY":.410:...G@
....GJ..************..GT..*PRINT MENU*.P
G^..************.VGH.:..GR....G|.. PT.0
. PT.2..H... PS.0 . PS.1..H... PP.0 . PP
.1.$H... PQ.0 . PQ.1.;H...".............
..".MH..."PRINT MENU".CH..."............
..".|HB..:."1...SEARCH+PRINT..HL..:."2..
.RETURN TO MAIN MENU".VHV..:."3...";:.PT
.1 . ."FANFOLD ":U ."SINGLE SHEET"..
H... PT.1 . PS.1..I...:."4...";:.PS.1 .
."A4":..I... PS.2 . ."A5".OI...:."5...";
:. PQ.1 . ."DRAFT ":.
QI... PQ.2 . ."DOUBLE STRIKE/NLQ"..I...:
."6...";:. PP.1 . ."PICA "..I...
PP.2 . ."ELITE ".MI&.. PP.3 . ."CONDE
NSED"..I0..:."7...ENTER PRINTER CODES"..
J:..:.:."ENTER OPTION"..JD.X.20:Y.24:.41
0.:JN.. E(KE$).1 . E(KE$).7 . 4420.YJX..
KE$."3".PT.1.PT.2:. 4260.WJB.. KE$."3".
PT.2.PT.1:.4260..JL.. KE$."4".PS.1.PS.2:
. 4260..JV.. KE$."4".PS.2.PS.1:. 4260.TJ
... KE$."5".PQ.1.PQ.2:. 4260..J... KE$."
5".PQ.2.PQ.1:.4260..K... KE$."6".PP.1 .
PP.2:. 4260.4K... KE$."6".PP.2 . PP.3:.
4260.VK... KE$."6". PP.3 . PP.1:. 4260.Q
K... KE$."1". .3660:.4570..K... KE$."7".
. 4900..KF.. KE$."2". ...KP.. 4210..KZ.
.*************..K.. 4.ZK...*PRINT OUT FO
UND ITEMS*.#L... R.0 . .".THERE ARE NO M
ATCHES : PRESS ANY KEY":X.20:Y.24:.&:.41
0:..@L...***********************.IL...4,
4.^L... PP.1 . .4,PI$;.SL .. PP.2 . .4,E
L$;..L*.. PP.3 . .4,CO$;..L4.. PQ.1 . .4
,DR$;..L>.. PQ.2 . .4,NL$;..LH..%:..TLR.
. PS.1 . C.60:U C.40..L\.NP.C.(NF.2):RN.
0..LF.NP..(NP)..MP.PN.(R).NP..MZ.FA.PN..
(PN):."M..PN..(PN).7M... FA.0 . PN.PN.1.
FM...L1.1 . PN.UM...L2.1 . NP.FM...L3.0
. NF.1.MM...%..M...4,A$(0,L3);.15.C(A$(0
,L3)))" : ";.5);A$(PO(RN),L3)..MJ....MT.
.4,:.4.BM..RN.RN.1..M... RN.R . L1.PN:L2
.NP..M...:.&.)N... PT.2 . .4,G(12);:.:."
INSERT NEW PAGE AND PRESS ANY KEY":.410:
..BN... PT.1 . .4,G(12);:..MN...: 4:..SN
....LN$..*******************..N...*ENTER
PRINT CODES*..N8..*******************..
NB.:...NL..:."IF A CODE FOR AN ACTION IS
":."27,43,55 : THEN YOU ENTER IT AS FOL
LOWS".MOV..".THE COMPUTER WILL PROMPT YO
U AND AT EACH PROMPT YOU ENTER ONE O
F THE VALUES".YO`.."E.G."..OJ..:."CODE1>
:27":."CODE2>:43":."CODE3>:55":."CODE4>:
-1":..OT..:."ALWAYS ENTER -1 TO END A CO
DE.".SO~..:."PRESS ANY KEY"..O..X.20:Y.2
4:.410..O.....P..."ENTER CODE FOR PICA P
ITCH":Q.1..P....)P...:."CODE"Q">:.<P..X.
10:Y.Q.1:L.3.FPD..1930.SPN.CO.E(S$).EPX.
. CO..1 .5100.}P..PI$.PI$.G(CO):Q.Q.1..P
... . CO..1..P.....P..."ENTER CODE FOR E
LITE PITCH":Q.1..P....OP...:."CODE"Q">:.
.P..X.10:Y.Q.1:L.3..P(..1930..P2.CO.E(S$
)..Q<.. CO..1 . 5200.$QF.EL$.EL$.G(CO):Q
.Q.1.2QP.. . CO..1.\QZ.."ENTER CODE FOR
CONDENSED PITCH":Q.1.BQD...TQN..:."CODE"
Q">:..QX.X.10:Y.Q.1:L.3..Q...1930..Q..CO
.E(S$)..Q... CO..1 . 5200.IQ .CO$.CO$.G(
CO):Q.Q.1.WQ... . CO..1..R..."ENTER CODE
FOR DRAFT CHARACTERS":Q.1..R.....RH..:.
"CODE"Q">:.-RR.X.10:Y.Q.1:L.3.7R...1930.
DR..CO.E(S$).WR... CO..1 . 5200.OR..DR$.
DR$.G(CO):Q.Q.1.}R... . CO..1..R..."ENTE
R CODE FOR NLQ/DOUBLE CHARACTERS":Q.1..R
....ER"..:."CODE"Q">:.XR,.X.10:Y.Q.1:L.3
..R6..1930..R@.CO.E(S$)..SJ.. CO..1 . 52
00..ST.NL$.NL$.G(CO):Q.Q.1.(S^.. . CO..1
..SH....SR.PI$.G(27).G(80):EL$.G(27).G(7
7):CO$.G(27).G(33).G(4):DR$.G(27).G(120)
.G(48):NL$.G(27).G(120).G(49).G(27)..S|.
NL$.NL$.G(107).G(3)..S....OS...*********
*******..S...*LOAD SAVE MENU*..S...*****
***********..T.....T... DE.0 . DE.8.-TB.
."..................".CTL.."LOAD/SAVE ME
NU".\TV..".................".ST...:."1..
.LOAD FILE"..T...:."2...SAVE FILE". T...
:."3...DEVICE:";..T... DE.1 . ."CASSETTE
".RT... DE.8 . ."DISK (8)"..T... DE.9 .
."DISK (9)"..U...:."4...FILE NAME:";.%U&
.. FI$."". ."NOT YET ENTERED".9U0.. FI$.
."". .FI$.ZU:..:."5...RETURN TO MAIN MEN
U".RUD..:.".SELECT OPTION"..UN.X.20:Y.24
:.410..UX.. E(KE$).1 . E(KE$).5 . 5710.H
UB.. KE$."3". DE.1 . DE.8:. 5570..UL.. K
E$."1". FI.1 . W.1:.750:. 5520..VV.. KE$
."2". FI.0 . W.2:.750:. 5520.6V... KE$."
3". DE.8 . DE.9:. 5570.XV... KE$."3". DE
.9 . DE.1:. 5570.UV... KE$."4". . 6070:.
5520..V... KE$."5". ...V... (KE$."1".KE
$."2").FI$."". W.4:.750:. 5520.LV... KE$
."2". . 5840..V... KE$."1". .6100..VF..
5520..VP.TA.0:P.0:R.0.GWZ..".".5)".....P
LEASE WAIT : COMPACTING FILE":.L.0 . NF:
T$(L)."":.:PR.1.QW...3970.XW...&..W...".
PREPARE DEVICE "DE" AND PRESS ANY KEY"..
W..X.20:Y.24:.410..W...8,DE,1,FI$.".HASH
,S,W"..W... DE..1 . . DS..0 . ."."DS$:."
...PRESS ANY KEY":X.20:Y.24:.410: 8:...X
..8,OT..X*..8,HT..X4..8,NF.%X>..8,FR..X
H..8,R.>XR..L.0 . NF.1.MX\..8,A$(0,L).SX
F...BXP..L.0 . R.1.RXZ..S.0 . NF.1..X...
8,A$(PO(L),S)..X.....X.....X.. 8..X.....
X..X.20:Y.14:L.10.YX...1,0,14,"ENTER NEW
FILENAME:":.1930..XJ.FI$.S$:...XT..*LOA
D*..X....%Y..."PREPARE DEVICE "DE" AND P
RESS ANY KEY".0Y..FL$."".CY..X.20:Y.24:.
410.WY..FL$.FI$.".HASH".ZY... DE.8 . DE.
9 . FL$.FL$.",S,R"..Y...8,DE,0,FL$.QY$..
DE..1 . . DS..0 . ."."DS$:."..PRESS ANY
KEY":X.20:Y.24:.410: 8:...Y...8,OT./Z8.
."...............READING:FORMAT DATA":."
............... ".
9ZB..8,HT.CZL..8,NF.MZV..8,FR.VZ`..8,R.C
ZJ.NR.OT.HT..ZT..A$(NR,NF):.T$(NF):.PO(N
R):FI.1..Z~....Z..FL$."".XZ...".....
PLEASE WAIT : FORMATTING TABLE":.L.1 .
500:.:.%..[...L.1 . NR:A$(L,NF)."0":.4,2
:.4,1:.:.&..[..FL$.FI$.".HASH".9[... DE.
8 . DE.9 . FL$.FL$.",S,R"..[... DE..1 .
. DS..0 . ."."DS$:."..PRESS ANY KEY":X.2
0:Y.24:.410: 8:...[D..L.0 . NF.1..[N..".
..............READING:FIELD DATA":."....
........... "..[X..8,A$
(0,L):...[...L4.0 . R.1..\...S4.0 . NF.1
..\...8,T$(S4).E\..."...............READ
ING:DATA":."................
".K\....{\...2060:.2160..\.....\(. 8
..\2....\<..********************.B\F..*D
ELETE ENTIRE FILE*..\P..****************
****..\Z.:..\D.."...................."..
]N.."DELETE ENTIRE FILE".4]X..".........
...........".V]...:."ARE YOU ABSOLUTELY
SURE?".I]..X.20:Y.24:.410..]... KE$.."N"
. KE$.."Y". 6540..] .. KE$."N". ..Q]..."
.":."......ARE YOU SURE YOU ARE ABSOLUTE
LY SURE?".Z]...410..]... KE$.."N". KE$..
"Y". 6580..^H.. KE$."N". ..5^R..".":."..
..............DELETING FILE":.`^...".":.
"................FILE DELETED "..^..."P
RESS ANY KEY TO RETURN TO MAIN MENU"..^.
..410:.:...^...****************.E^...* D
ISK UTILITY *..^...****************.._..
DI$."ABCDEFGHIJKLMNOPQRSTUVWXYZ":.G(14).
._"..0,3:.4,3:.5,2. _,...(_6..:..A_@..".
................".Z_J.."DISK UTILITY MEN
U".._T.."...............................
.........".._^...5)"1:INITIALISE DISK"..
_H...5)"2:VALIDATE DISK".Y_R...5)"3:SCRA
TCH FILE".._|...5)"4:RETRIEVE SCRATCHED
FILE"..`....5)"5:DIRECTORY".0`....5)"6:C
HANGE DISK NAME".H`....5)"7:FAST FORMAT"
.[`....5)"8:FORMAT"..`....5)"9:READ ERRO
R CHANNEL & DISK STATUS"..`....5)"0:PROT
ECT FILE FROM ERASURE".I`B...5)"A:UNPROT
ECT FILE"..`L...5)"B:CHANGE FILENAME"..A
V...5)"C:RETURN TO HASH BASE".5A..."....
....................................".IA
..."ENTER OPTION".]A..."............".PA
..X.20:Y.24:.410..A... F(KE$)..48 . F(KE
$)..57 . 6940..A... F(KE$).65 . F(KE$).6
7 . 6910.XA... KE$."C". DI$."":.G(142):.
..A&.. KE$."1". .15,8,15:.15,"I": 15..B0
.. KE$."2". ..;B:.. KE$."5". .".":.:."..
PRESS ANY KEY":.410.WBD.. KE$."9". .".":
.DS$:."..PRESS ANY KEY":X.20:Y.20:.410:.
.BN.. KE$."3". .7080..BX.. KE$."4". .713
0..BB.. KE$."6". .7240.KBL.. KE$."7". .7
460..BV.. KE$."8". .7770..B... KE$."0".
.7780..C... KE$."A". .7920..C... KE$."B"
. .8060.*C... 6650.0C....[C..."ENTER FIL
ENAME:":X.20:Y.0:L.16:.1930.EC...(S$).PC
F..:.DS$.VCP...|CZ....C..M$."UNSCRATCH F
ILE"..C... 8110..C... F.8 . SD.255 . TD.
0 . ...C...:."WHAT TYPE OF FILE WAS IT?"
..D...".1..SEQ":."2..PRG":."3..USR":."4.
.REL". D..X.20:Y.24:.410.AD .. E(KE$).1
. E(KE$).4 . 7190.SD*.FT.E(KE$).128..D4.
.15,"B-P";8;(32.F.31).1:.8,G(FT);:.15,"U
2";8;0;OT;OS..D>. 8: 15:...DH....DR.."..
..............".OD\.."CHANGE DISK NAME".
.DF.."................"..EP.."..ENTER NE
W DISK NAME"..EZ.X.5:Y.6:L.16:.1930.@E..
. C(S$).18 . S$.S$.G(160):. 7300.KE..DN$
.S$.~E..."......ENTER NEW DISK I.D.":X.5
:Y.7:L.5:.1930. E... C(S$).2 . S$.S$.G(1
60)."2A".HE... C(S$).1 . S$.S$.G(32).G(1
60)."2A"..E... C(S$).5 . S$.S$.G(160):.
7350..E..ID$.S$..FJ..8,8,8,"#":.15,8,15.
%FT..15,"U1";8;0;18;0.9F...15,"B-P";8;14
4.HF...8,DN$;ID$.^F...15,"U2";8;0;18;0.I
F.. 8: 15.~F...15,8,15,"I": 15..F...:.:.
..F...410:...F$....F..."................
.".EF8.."FAST FORMAT"..FB.."............
....."..GL..".PLEASE NOTE THAT THIS ROUT
INE CAN ONLY".9GV.."BE USED ON DISKS WHI
CH HAVE, AT SOME".HG`.."TIME OR ANOTHER,
BEEN FORMATTED FOR USE"..GJ.."ON 1541 D
ISK DRIVE AND HAVE NOT SINCE ".AGT.."BEE
N REFORMATTED FOR ANOTHER DRIVE."..G~.."
IN ORDER TO FORMAT A BRAND NEW DISK"..
H..."OR A DISK FROM ANOTHER COMPUTER SYS
TEM".AH..."PLEASE USE THE OPTION FORMAT.
".BH...:."DO YOU WISH TO CONTINUE".UH..X
.20:Y.24:.410..H... KE$.."N".KE$.."Y"..
7590..H... KE$."N". ...HD.I$.""..HN...XH
X.."FORMAT...":."ENTER DISKNAME"..H..X.5
:Y.7:L.16:.1930..H..FD$.S$."I...:."..ENT
ER I.D":X.5:Y.13:L.5:.1930.-I..ID$.S$.?I
...(FD$.",".I$).WI...8,8,8,"#":.15,8,15.
MI...15,"U1";8;0;18;0..I(..15,"B-P";8;16
2..I2..8,ID$..I<..15,"U2";8;0;18;0.BIF.
8: 15:.:.15,8,15,"I": 15:..WIP.X.20:Y.24
:.410:...IZ.I$."A2":.7630:...ID....JN.M$
."PROTECT FILE"..JX..8110.5J... F.8 .SD.
255 . TD.0 . 8: 15:..QJ...15,"B-P";8;(3
2.F.31).1.\J...#8,T$.IJ .TY.F(T$)..J...
TY.127 . TY.132 . .".INVALID FILE TYPE":
X.20:Y.24:.410: 8: 15:...J..TY.TY.64.IJ.
.T$.G(TY)..JH..15,"B-P";8;(32.F.31).1..J
R..8,T$;..K...15,"U2";8;0;OT,OS..K.. 8:
15:...K....2K..M$."UNPROTECT FILE".<K...
8110.`K... F.8 .SD.255 . TD.0 . 8: 15:.
.|K...15,"B-P";8;(32.F.31).1..K"..#8,T$.
.K,.TY.F(T$)..K6.. (TY.64).127 . (TY.64)
.132 . .".INVALID FILE TYPE":X.20:Y.24:.
410: 8: 15:...K@.TY.TY.64..KJ.T$.G(TY)..
LT..15,"B-P";8;(32.F.31).1.%L^..8,T$;.<L
H..15,"U2";8;0;OT;OS.ILR. 8: 15:..OL|...
.L..."ENTER OLD FILENAME:":X.20:Y.0:L.16
:.1930:DI$.S$..L...:.".ENTER NEW FILENAM
E:":X.20:Y.2:L.16:.1930:FD$.S$.OL...(DI$
).(FD$).UL.....L...:..20.C(M$).2)M$..M..
."ENTER FILENAME:". MB.X.5:Y.8:L.16:.193
0:FD$.S$.HML.. C(FD$).16 . FD$.FD$.G(160
):. 8140.WMV.TD.18:SD.1.OM...8,8,8,"#":.
15,8,15..M...15,"U1";8;0;TD;SD..M...15,"
B-P";8;0.LM...#8,TR$:.#8,SE$:OT.TD:OS.SD
:TD.F(TR$):SD.F(SE$)..N. .F.1 . 8:.15,"B
-P";8;(32.F.31).4:.L.1 . 16:.#8,A$:FC$.F
C$.A$:..#N. . FD$.FC$ .8250.1N. FC$."":.
:..N& . SD.255 .TD.0 . 8: 15:.".NO SUCH
FILE":."..PRESS ANY KEY":X.20:Y.24:.410
:...N0 . 8170..N: ....
> CLICK IMAGE PREVIEW FOR FULL MODAL