DICT.MERGE.2.0
FILE INFORMATION
FILENAME(S): DICT.MERGE.2.0
FILE TYPE(S): PRG
FILE SIZE: 12.9K
FIRST SEEN: 2025-11-30 21:14:41
APPEARS ON: 1 disk(s)
FILE HASH
fde6f28c151365d81d0694a9cac3b16e3c20a4b9453ceac2646618f1b473ae8e
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SCRIPT 64 | DICT.MERGE.2.0 | PRG | DuncanTwain | 25 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 3F 08 0A 00 8F 20 20 54 49 4D 45 20 4F 46 |..?.... TIME OF| 00000010: 20 4C 41 53 54 20 55 50 44 41 54 45 20 4A 41 4E | LAST UPDATE JAN| 00000020: 55 41 52 59 20 20 32 39 2F 38 33 20 41 54 20 31 |UARY 29/83 AT 1| 00000030: 34 2E 30 30 20 20 20 20 20 20 20 56 32 2E 30 00 |4.00 V2.0.| 00000040: 70 08 14 00 8F 20 56 32 2E 30 20 49 4E 43 4C 55 |p.... V2.0 INCLU| 00000050: 44 45 53 20 53 55 50 50 4F 52 54 20 46 4F 52 20 |DES SUPPORT FOR | 00000060: 54 48 45 20 43 4F 4D 4D 4F 44 4F 52 45 20 36 34 |THE COMMODORE 64| 00000070: 00 B6 08 1E 00 8F 20 56 32 2E 30 20 49 4E 43 4C |...... V2.0 INCL| 00000080: 55 44 45 53 20 53 54 41 54 49 53 54 49 43 53 20 |UDES STATISTICS | 00000090: 49 4E 20 54 48 45 20 43 4F 4E 54 52 49 42 55 54 |IN THE CONTRIBUT| 000000A0: 49 4F 4E 20 4F 46 20 45 41 43 48 20 44 49 43 54 |ION OF EACH DICT| 000000B0: 49 4F 4E 41 52 59 00 F4 08 28 00 8F 20 43 4F 50 |IONARY...(.. COP| 000000C0: 59 52 49 47 48 54 20 42 59 20 52 49 43 48 56 41 |YRIGHT BY RICHVA| 000000D0: 4C 45 20 54 45 4C 45 43 4F 4D 4D 55 4E 49 43 41 |LE TELECOMMUNICA| 000000E0: 54 49 4F 4E 53 2E 20 4A 41 4E 55 41 52 59 20 31 |TIONS. JANUARY 1| 000000F0: 39 38 33 2E 00 1D 09 32 00 43 4F B2 38 30 3A 20 |983....2.CO.80: | 00000100: 8F 20 49 4E 50 55 54 20 22 48 4F 57 20 4D 41 4E |. INPUT "HOW MAN| 00000110: 59 20 43 4F 4C 55 4D 4E 53 22 3B 43 4F 00 4D 09 |Y COLUMNS";CO.M.| 00000120: 3C 00 8B 20 C2 28 34 34 29 B2 38 20 A7 20 43 4F |<.. .(44).8 . CO| 00000130: B2 34 30 3A 97 20 35 33 32 38 30 2C 31 34 3A 97 |.40:. 53280,14:.| 00000140: 20 35 33 32 38 31 2C 36 3A 99 22 05 22 00 8C 09 | 53281,6:."."...| 00000150: 46 00 51 31 24 B2 C7 28 33 32 29 3A 51 42 B2 34 |F.Q1$..(32):QB.4| 00000160: 3A 51 43 B2 33 3A 51 34 24 B2 C7 28 31 34 32 29 |:QC.3:Q4$..(142)| 00000170: 3A 51 35 24 B2 C7 28 31 34 29 3A 51 37 24 B2 22 |:Q5$..(14):Q7$."| 00000180: 20 20 20 20 20 20 20 20 20 20 20 22 00 A2 09 50 | "...P| 00000190: 00 51 44 B2 33 36 3A 51 45 B2 31 30 3A 51 46 B2 |.QD.36:QE.10:QF.| 000001A0: 32 31 00 C0 09 5A 00 50 41 B2 31 34 34 3A 50 42 |21...Z.PA.144:PB| 000001B0: B2 38 38 3A 50 43 B2 38 35 3A 50 44 B2 31 35 30 |.88:PC.85:PD.150| 000001C0: 00 D2 09 64 00 8B 20 43 4F B2 38 30 20 A7 20 31 |...d.. CO.80 . 1| 000001D0: 33 30 00 02 0A 6E 00 51 31 24 B2 C7 28 31 33 29 |30...n.Q1$..(13)| 000001E0: 3A 51 42 B2 32 3A 51 43 B2 31 3A 51 37 24 B2 22 |:QB.2:QC.1:Q7$."| 000001F0: 22 3A 51 44 B2 31 36 3A 51 45 B2 36 3A 51 46 B2 |":QD.16:QE.6:QF.| 00000200: 32 30 00 20 0A 78 00 50 41 B2 37 38 38 3A 50 42 |20. .x.PA.788:PB| 00000210: B2 35 32 3A 50 43 B2 34 39 3A 50 44 B2 31 34 34 |.52:PC.49:PD.144| 00000220: 00 68 0A 82 00 42 41 24 B2 22 12 20 20 20 20 20 |.h...BA$.". | 00000230: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000240: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000250: 20 20 92 22 3A 8B 43 4F B2 38 30 A7 20 42 41 24 | .":.CO.80. BA$| 00000260: B2 42 41 24 AA 42 41 24 00 B3 0A 8C 00 41 58 24 |.BA$.BA$.....AX$| 00000270: B2 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |."..............| 00000280: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................| 00000290: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................| 000002A0: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................| 000002B0: 1D 1D 22 00 FC 0A 96 00 42 58 24 B2 22 9D 9D 9D |..".....BX$."...| 000002C0: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |................| 000002D0: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |................| 000002E0: 9D 9D 9D 9D 9D 22 3A 8B 20 43 4F B2 38 30 20 A7 |.....":. CO.80 .| 000002F0: 20 42 58 24 B2 42 58 24 AA 42 58 24 00 1F 0B A0 | BX$.BX$.BX$....| 00000300: 00 54 45 24 B2 22 C4 49 43 54 49 4F 4E 41 52 59 |.TE$.".ICTIONARY| 00000310: 20 CD 45 52 47 45 20 D0 52 4F 47 52 41 4D 22 00 | .ERGE .ROGRAM".| 00000320: 51 0B AA 00 44 4E 24 B2 22 11 11 11 11 11 11 11 |Q...DN$.".......| 00000330: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................| 00000340: 11 11 22 3A 44 4F B2 32 33 3A 97 20 50 41 2C 50 |..":DO.23:. PA,P| 00000350: 42 00 67 0B B4 00 8D 31 33 37 30 3A 8D 20 31 39 |B.g....1370:. 19| 00000360: 30 3A 89 20 32 31 30 00 96 0B BE 00 99 20 22 93 |0:. 210...... ".| 00000370: 22 3B 42 41 24 3B 42 58 24 3B 22 12 22 3B C8 28 |";BA$;BX$;".";.(| 00000380: 41 58 24 2C 28 43 4F AB C3 28 54 45 24 29 29 AD |AX$,(CO..(TE$)).| 00000390: 32 29 3B 54 45 24 00 AB 0B C8 00 54 46 24 B2 22 |2);TE$.....TF$."| 000003A0: A0 22 3A 8D 20 31 36 34 30 3A 8E 00 C9 0B D2 00 |.":. 1640:......| 000003B0: 54 46 24 B2 22 C9 4E 49 54 49 41 4C 49 5A 49 4E |TF$.".NITIALIZIN| 000003C0: 47 22 3A 8D 20 31 36 34 30 00 EA 0B DC 00 9F 31 |G":. 1640......1| 000003D0: 2C 38 2C 31 35 20 20 20 3A 8F 20 43 4F 4D 4D 41 |,8,15 :. COMMA| 000003E0: 4E 44 20 43 48 41 4E 4E 45 4C 00 FB 0B E6 00 4D |ND CHANNEL.....M| 000003F0: 58 B2 36 35 30 3A 4E 4D B2 32 30 00 3F 0C F0 00 |X.650:NM.20.?...| 00000400: 86 20 53 30 25 28 32 37 29 2C 45 30 25 28 32 36 |. S0%(27),E0%(26| 00000410: 29 2C 53 31 25 28 32 37 29 2C 45 31 25 28 32 36 |),S1%(27),E1%(26| 00000420: 29 2C 44 30 25 28 32 35 34 29 2C 44 31 25 28 32 |),D0%(254),D1%(2| 00000430: 35 34 29 2C 52 30 25 28 32 30 2C 32 35 34 29 00 |54),R0%(20,254).| 00000440: 6A 0C FA 00 86 20 52 31 25 28 32 35 34 29 2C 52 |j.... R1%(254),R| 00000450: 4F 25 28 32 35 35 29 2C 54 4B 24 28 31 32 37 29 |O%(255),TK$(127)| 00000460: 2C 57 43 25 28 33 2C 32 36 29 00 8F 0C 04 01 41 |,WC%(3,26).....A| 00000470: 42 24 B2 22 41 42 43 44 45 46 47 48 49 4A 4B 4C |B$."ABCDEFGHIJKL| 00000480: 4D 4E 4F 50 51 52 53 54 55 56 57 58 59 5A 22 00 |MNOPQRSTUVWXYZ".| 00000490: AA 0C 0E 01 81 20 49 B2 30 A4 31 32 37 3A 87 20 |..... I.0.127:. | 000004A0: 54 4B 24 28 49 29 3A 82 20 49 00 E8 0C 18 01 53 |TK$(I):. I.....S| 000004B0: 50 24 B2 22 20 20 20 20 20 20 20 20 20 20 20 20 |P$." | 000004C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000004D0: 20 20 20 20 20 20 20 20 20 20 20 22 3A 53 50 24 | ":SP$| 000004E0: B2 53 50 24 AA 53 50 24 00 02 0D 22 01 53 30 25 |.SP$.SP$...".S0%| 000004F0: 28 32 37 29 B2 4D 58 3A 53 31 25 28 32 37 29 B2 |(27).MX:S1%(27).| 00000500: 4D 58 00 11 0D 2C 01 44 4E B2 30 3A 8D 31 37 38 |MX...,.DN.0:.178| 00000510: 30 00 38 0D 36 01 54 46 24 B2 22 CC 4F 41 44 49 |0.8.6.TF$.".OADI| 00000520: 4E 47 20 44 49 52 45 43 54 4F 52 59 20 2D C4 30 |NG DIRECTORY -.0| 00000530: 22 3A 8D 20 31 36 34 30 00 49 0D 40 01 8B 20 54 |":. 1640.I.@.. T| 00000540: 58 B2 33 20 A7 20 33 37 30 00 63 0D 4A 01 9F 32 |X.3 . 370.c.J..2| 00000550: 2C 38 2C 32 2C 22 30 3A 44 49 43 54 49 4F 4E 41 |,8,2,"0:DICTIONA| 00000560: 52 59 22 00 89 0D 54 01 8D 33 37 31 30 3A 4D 4F |RY"...T..3710:MO| 00000570: B2 44 39 3A 4D 4F 24 B2 44 39 24 3A 8B 20 4D 4F |.D9:MO$.D9$:. MO| 00000580: B3 32 30 20 A7 20 33 38 30 00 A7 0D 5E 01 8B 20 |.20 . 380...^.. | 00000590: 4D 4F B2 32 31 20 A7 20 A0 32 3A 54 58 B2 54 58 |MO.21 . .2:TX.TX| 000005A0: AA 31 3A 89 33 30 30 00 C5 0D 68 01 8B 20 4D 4F |.1:.300...h.. MO| 000005B0: B2 36 32 20 A7 20 A0 32 3A 54 58 B2 54 58 AA 31 |.62 . .2:TX.TX.1| 000005C0: 3A 89 33 30 30 00 F6 0D 72 01 8D 20 31 39 30 3A |:.300...r.. 190:| 000005D0: 99 20 22 13 11 11 11 11 44 49 53 4B 20 45 52 52 |. ".....DISK ERR| 000005E0: 4F 52 3A 22 4D 4F 24 3A A0 32 3A A0 31 3A 97 50 |OR:"MO$:.2:.1:.P| 000005F0: 41 2C 50 43 3A 80 00 0A 0E 7C 01 52 46 B2 32 3A |A,PC:....|.RF.2:| 00000600: 52 52 B2 31 3A 8D 33 37 33 30 00 1A 0E 86 01 81 |RR.1:.3730......| 00000610: 20 49 B2 31 20 A4 20 32 35 34 00 25 0E 90 01 A1 | I.1 . 254.%....| 00000620: 23 32 2C 41 24 00 41 0E 9A 01 8B 20 41 24 B2 22 |#2,A$.A.... A$."| 00000630: 22 20 A7 20 44 30 25 28 49 29 B2 30 3A 89 34 33 |" . D0%(I).0:.43| 00000640: 30 00 52 0E A4 01 44 30 25 28 49 29 B2 C6 28 41 |0.R...D0%(I)..(A| 00000650: 24 29 00 64 0E AE 01 82 20 49 3A 54 58 B2 30 3A |$).d.... I:TX.0:| 00000660: 89 34 35 30 00 73 0E B8 01 44 4E B2 31 3A 8D 31 |.450.s...DN.1:.1| 00000670: 37 38 30 00 9A 0E C2 01 54 46 24 B2 22 CC 4F 41 |780.....TF$.".OA| 00000680: 44 49 4E 47 20 44 49 52 45 43 54 4F 52 59 20 2D |DING DIRECTORY -| 00000690: C4 31 22 3A 8D 20 31 36 34 30 00 AB 0E CC 01 8B |.1":. 1640......| 000006A0: 20 54 58 B2 33 20 A7 20 35 31 30 00 C5 0E D6 01 | TX.3 . 510.....| 000006B0: 9F 33 2C 38 2C 33 2C 22 31 3A 44 49 43 54 49 4F |.3,8,3,"1:DICTIO| 000006C0: 4E 41 52 59 22 00 EB 0E E0 01 8D 33 37 31 30 3A |NARY"......3710:| 000006D0: 4D 4F B2 44 39 3A 4D 4F 24 B2 44 39 24 3A 8B 20 |MO.D9:MO$.D9$:. | 000006E0: 4D 4F B3 32 30 20 A7 20 35 32 30 00 09 0F EA 01 |MO.20 . 520.....| 000006F0: 8B 20 4D 4F B2 32 31 20 A7 20 A0 33 3A 54 58 B2 |. MO.21 . .3:TX.| 00000700: 54 58 AA 31 3A 89 34 34 30 00 27 0F F4 01 8B 20 |TX.1:.440.'.... | 00000710: 4D 4F B2 36 32 20 A7 20 A0 33 3A 54 58 B2 54 58 |MO.62 . .3:TX.TX| 00000720: AA 31 3A 89 34 34 30 00 5B 0F FE 01 8D 20 31 39 |.1:.440.[.... 19| 00000730: 30 3A 99 20 22 13 11 11 11 11 44 49 53 4B 20 45 |0:. ".....DISK E| 00000740: 52 52 4F 52 3A 22 4D 4F 24 3A A0 32 3A A0 33 3A |RROR:"MO$:.2:.3:| 00000750: A0 31 3A 97 50 41 2C 50 43 3A 80 00 6F 0F 08 02 |.1:.PA,PC:..o...| 00000760: 52 46 B2 33 3A 52 52 B2 31 3A 8D 33 37 33 30 00 |RF.3:RR.1:.3730.| 00000770: 7F 0F 12 02 81 20 49 B2 31 20 A4 20 32 35 34 00 |..... I.1 . 254.| 00000780: 8A 0F 1C 02 A1 23 33 2C 41 24 00 A6 0F 26 02 8B |.....#3,A$...&..| 00000790: 20 41 24 B2 22 22 20 A7 20 44 31 25 28 49 29 B2 | A$."" . D1%(I).| 000007A0: 30 3A 89 35 37 30 00 B7 0F 30 02 44 31 25 28 49 |0:.570...0.D1%(I| 000007B0: 29 B2 C6 28 41 24 29 00 BF 0F 3A 02 82 20 49 00 |)..(A$)...:.. I.| 000007C0: CD 0F 44 02 81 20 49 B2 31 A4 20 32 36 00 E4 0F |..D.. I.1. 26...| 000007D0: 4E 02 5A 31 B2 44 30 25 28 49 AC 32 AB 31 29 AF |N.Z1.D0%(I.2.1).| 000007E0: 20 31 32 37 00 FC 0F 58 02 5A 32 B2 32 AC 28 44 | 127...X.Z2.2.(D| 000007F0: 30 25 28 49 AC 32 29 AF 20 36 34 29 00 1A 10 62 |0%(I.2). 64)...b| 00000800: 02 5A 33 B2 32 35 36 AC 28 44 30 25 28 49 AC 32 |.Z3.256.(D0%(I.2| 00000810: AA 35 31 29 AF 20 31 32 37 29 00 2E 10 6C 02 53 |.51). 127)...l.S| 00000820: 30 25 28 49 29 B2 5A 31 AA 5A 32 AA 5A 33 00 47 |0%(I).Z1.Z2.Z3.G| 00000830: 10 76 02 5A 31 B2 44 30 25 28 49 AC 32 AA 31 30 |.v.Z1.D0%(I.2.10| 00000840: 33 29 AF 20 31 32 37 00 63 10 80 02 5A 32 B2 32 |3). 127.c...Z2.2| 00000850: AC 28 44 30 25 28 49 AC 32 AA 31 30 34 29 AF 20 |.(D0%(I.2.104). | 00000860: 36 34 29 00 82 10 8A 02 5A 33 B2 32 35 36 AC 28 |64).....Z3.256.(| 00000870: 44 30 25 28 49 AC 32 AA 31 35 35 29 AF 20 31 32 |D0%(I.2.155). 12| 00000880: 37 29 00 96 10 94 02 45 30 25 28 49 29 B2 5A 31 |7).....E0%(I).Z1| 00000890: AA 5A 32 AA 5A 33 00 AD 10 9E 02 5A 31 B2 44 31 |.Z2.Z3.....Z1.D1| 000008A0: 25 28 49 AC 32 AB 31 29 AF 20 31 32 37 00 C5 10 |%(I.2.1). 127...| 000008B0: A8 02 5A 32 B2 32 AC 28 44 31 25 28 49 AC 32 29 |..Z2.2.(D1%(I.2)| 000008C0: AF 20 36 34 29 00 E3 10 B2 02 5A 33 B2 32 35 36 |. 64).....Z3.256| 000008D0: AC 28 44 31 25 28 49 AC 32 AA 35 31 29 AF 20 31 |.(D1%(I.2.51). 1| 000008E0: 32 37 29 00 F7 10 BC 02 53 31 25 28 49 29 B2 5A |27).....S1%(I).Z| 000008F0: 31 AA 5A 32 AA 5A 33 00 10 11 C6 02 5A 31 B2 44 |1.Z2.Z3.....Z1.D| 00000900: 31 25 28 49 AC 32 AA 31 30 33 29 AF 20 31 32 37 |1%(I.2.103). 127| 00000910: 00 2C 11 D0 02 5A 32 B2 32 AC 28 44 31 25 28 49 |.,...Z2.2.(D1%(I| 00000920: AC 32 AA 31 30 34 29 AF 20 36 34 29 00 4B 11 DA |.2.104). 64).K..| 00000930: 02 5A 33 B2 32 35 36 AC 28 44 31 25 28 49 AC 32 |.Z3.256.(D1%(I.2| 00000940: AA 31 35 35 29 AF 20 31 32 37 29 00 5F 11 E4 02 |.155). 127)._...| 00000950: 45 31 25 28 49 29 B2 5A 31 AA 5A 32 AA 5A 33 00 |E1%(I).Z1.Z2.Z3.| 00000960: 67 11 EE 02 82 20 49 00 A1 11 F8 02 49 53 B2 31 |g.... I.....IS.1| 00000970: 3A 49 45 B2 31 33 3A 44 4E B2 30 3A 8D 20 32 30 |:IE.13:DN.0:. 20| 00000980: 33 30 3A 8F 20 44 49 53 50 4C 41 59 20 44 49 43 |30:. DISPLAY DIC| 00000990: 54 49 4F 4E 41 52 59 20 44 49 52 45 43 54 4F 52 |TIONARY DIRECTOR| 000009A0: 59 00 C8 11 02 03 8B 20 43 4F B2 34 30 20 20 A7 |Y...... CO.40 .| 000009B0: 20 49 53 B2 31 34 3A 49 45 B2 32 36 3A 44 4E B2 | IS.14:IE.26:DN.| 000009C0: 30 3A 8D 20 32 30 33 30 00 E3 11 0C 03 49 53 B2 |0:. 2030.....IS.| 000009D0: 31 3A 49 45 B2 31 33 3A 44 4E B2 31 3A 8D 20 32 |1:IE.13:DN.1:. 2| 000009E0: 30 33 30 00 0A 12 16 03 8B 20 43 4F B2 34 30 20 |030...... CO.40 | 000009F0: 20 A7 20 49 53 B2 31 34 3A 49 45 B2 32 36 3A 44 | . IS.14:IE.26:D| 00000A00: 4E B2 31 3A 8D 20 32 30 33 30 00 3A 12 20 03 8D |N.1:. 2030.:. ..| 00000A10: 20 32 33 38 30 3A 8F 20 43 48 45 43 4B 20 44 49 | 2380:. CHECK DI| 00000A20: 52 45 43 54 4F 52 59 20 56 41 4C 49 44 49 54 59 |RECTORY VALIDITY| 00000A30: 20 46 4F 52 20 4D 45 52 47 45 00 6E 12 2A 03 54 | FOR MERGE.n.*.T| 00000A40: 46 24 B2 22 CD 45 52 47 45 20 54 48 45 20 57 48 |F$.".ERGE THE WH| 00000A50: 4F 4C 45 20 44 49 43 54 49 4F 4E 41 52 59 20 3F |OLE DICTIONARY ?| 00000A60: 20 28 59 2F 4E 29 22 3A 8D 20 31 36 34 30 00 85 | (Y/N)":. 1640..| 00000A70: 12 34 03 A1 20 41 24 3A 8B 20 41 24 B2 22 22 20 |.4.. A$:. A$."" | 00000A80: A7 20 38 32 30 00 98 12 3E 03 8B 20 41 24 B2 22 |. 820...>.. A$."| 00000A90: 59 22 20 A7 20 39 37 30 00 AC 12 48 03 8B 20 41 |Y" . 970...H.. A| 00000AA0: 24 B3 B1 22 4E 22 20 A7 20 38 32 30 00 E2 12 52 |$.."N" . 820...R| 00000AB0: 03 54 46 24 B2 22 CD 45 52 47 45 20 57 4F 52 44 |.TF$.".ERGE WORD| 00000AC0: 53 20 46 4F 52 20 57 48 49 43 48 20 4C 45 54 54 |S FOR WHICH LETT| 00000AD0: 45 52 20 3F 20 20 3D 3D 3D 3E 20 22 3A 8D 31 36 |ER ? ===> ":.16| 00000AE0: 34 30 00 F9 12 5C 03 A1 20 4C 24 3A 8B 20 4C 24 |40...\.. L$:. L$| 00000AF0: B2 22 22 20 A7 20 38 36 30 00 15 13 66 03 8B 20 |."" . 860...f.. | 00000B00: 4C 24 B3 22 41 22 20 B0 20 4C 24 B1 22 5A 22 20 |L$."A" . L$."Z" | 00000B10: A7 20 38 36 30 00 38 13 70 03 54 46 24 B2 22 D7 |. 860.8.p.TF$.".| 00000B20: 4F 52 4B 49 4E 47 20 4F 4E 20 22 AA 4C 24 3A 8D |ORKING ON ".L$:.| 00000B30: 31 36 34 30 3A 4C B2 30 00 56 13 7A 03 4C B2 4C |1640:L.0.V.z.L.L| 00000B40: AA 31 3A 8B 4C 24 B2 CA 28 41 42 24 2C 4C 2C 31 |.1:.L$..(AB$,L,1| 00000B50: 29 A7 20 39 31 30 00 60 13 84 03 89 20 38 39 30 |). 910.`.... 890| 00000B60: 00 83 13 8E 03 8D 20 31 30 34 30 3A 8F 20 4D 45 |...... 1040:. ME| 00000B70: 52 47 45 20 43 4F 4E 54 52 4F 4C 20 52 4F 55 54 |RGE CONTROL ROUT| 00000B80: 49 4E 45 00 AF 13 98 03 54 46 24 B2 22 CD 45 52 |INE.....TF$.".ER| 00000B90: 47 45 20 41 4E 4F 54 48 45 52 20 4C 45 54 54 45 |GE ANOTHER LETTE| 00000BA0: 52 20 28 59 2F 4E 29 20 22 3A 8D 31 36 34 30 00 |R (Y/N) ":.1640.| 00000BB0: C6 13 A2 03 A1 20 41 24 3A 8B 20 41 24 B2 22 22 |..... A$:. A$.""| 00000BC0: 20 A7 20 39 33 30 00 D9 13 AC 03 8B 20 41 24 B2 | . 930...... A$.| 00000BD0: 22 59 22 20 A7 20 38 35 30 00 ED 13 B6 03 8B 20 |"Y" . 850...... | 00000BE0: 41 24 B3 B1 22 4E 22 20 A7 20 39 33 30 00 F8 13 |A$.."N" . 930...| 00000BF0: C0 03 89 20 31 30 32 30 00 24 14 CA 03 81 20 47 |... 1020.$.... G| 00000C00: B2 31 20 A4 20 32 36 3A 4C B2 47 3A 4C 24 B2 54 |.1 . 26:L.G:L$.T| 00000C10: 4B 24 28 47 29 3A 43 30 B2 30 3A 43 31 B2 30 3A |K$(G):C0.0:C1.0:| 00000C20: 43 45 B2 30 00 2F 14 D4 03 8D 20 31 30 34 30 00 |CE.0./.... 1040.| 00000C30: 57 14 DE 03 57 43 25 28 31 2C 47 29 B2 43 30 3A |W...WC%(1,G).C0:| 00000C40: 57 43 25 28 32 2C 47 29 B2 43 45 3A 57 43 25 28 |WC%(2,G).CE:WC%(| 00000C50: 33 2C 47 29 B2 43 31 00 5F 14 E8 03 82 20 47 00 |3,G).C1._.... G.| 00000C60: 6A 14 F2 03 8D 20 33 37 36 30 00 75 14 FC 03 89 |j.... 3760.u....| 00000C70: 20 31 36 37 30 00 BD 14 06 04 8F 20 2A 2A 2A 2A | 1670...... ****| 00000C80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 4D 45 52 |************ MER| 00000C90: 47 45 20 43 4F 4E 54 52 4F 4C 20 52 4F 55 54 49 |GE CONTROL ROUTI| 00000CA0: 4E 45 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |NE *************| 00000CB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 D5 14 |*************...| 00000CC0: 10 04 53 41 B2 53 30 25 28 4C 29 3A 45 41 B2 45 |..SA.S0%(L):EA.E| 00000CD0: 30 25 28 4C 29 00 F2 14 1A 04 8D 20 32 37 31 30 |0%(L)...... 2710| 00000CE0: 3A 8F 20 20 42 55 49 4C 44 20 52 30 20 41 52 52 |:. BUILD R0 ARR| 00000CF0: 41 59 00 0A 15 24 04 53 42 B2 53 31 25 28 4C 29 |AY...$.SB.S1%(L)| 00000D00: 3A 45 42 B2 45 31 25 28 4C 29 00 31 15 2E 04 8D |:EB.E1%(L).1....| 00000D10: 20 31 35 37 30 3A 8F 20 52 45 41 44 20 52 45 43 | 1570:. READ REC| 00000D20: 4F 52 44 20 49 4E 54 30 20 52 31 20 41 52 52 41 |ORD INT0 R1 ARRA| 00000D30: 59 00 55 15 38 04 8D 20 31 39 30 3A 54 46 24 B2 |Y.U.8.. 190:TF$.| 00000D40: 22 57 4F 52 4B 49 4E 47 20 2D 20 22 AA 4C 24 3A |"WORKING - ".L$:| 00000D50: 8D 31 36 34 30 00 85 15 42 04 8D 20 32 38 31 30 |.1640...B.. 2810| 00000D60: 3A 8F 20 4D 45 52 47 45 20 44 49 43 54 49 4F 4E |:. MERGE DICTION| 00000D70: 41 52 49 45 53 20 46 4F 52 20 54 48 49 53 20 4C |ARIES FOR THIS L| 00000D80: 45 54 54 45 52 00 AB 15 4C 04 52 55 B2 52 55 AA |ETTER...L.RU.RU.| 00000D90: 31 3A 8D 20 31 32 32 30 3A 8F 20 55 50 44 41 54 |1:. 1220:. UPDAT| 00000DA0: 45 20 44 49 52 45 43 54 4F 52 59 00 B1 15 56 04 |E DIRECTORY...V.| 00000DB0: 8E 00 F9 15 60 04 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |....`.. ********| 00000DC0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 57 52 49 54 45 20 |********* WRITE | 00000DD0: 44 49 43 54 49 4F 4E 41 52 59 20 52 45 43 4F 52 |DICTIONARY RECOR| 00000DE0: 44 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |D **************| 00000DF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 2F 16 6A 04 54 46 |*********./.j.TF| 00000E00: 24 B2 22 C9 20 41 4D 20 53 54 49 4C 4C 20 57 4F |$.". AM STILL WO| 00000E10: 52 4B 49 4E 47 20 41 53 20 48 41 52 44 20 41 53 |RKING AS HARD AS| 00000E20: 20 C9 20 43 41 4E 2E 22 3A 8D 20 31 36 34 30 00 | . CAN.":. 1640.| 00000E30: 44 16 74 04 52 46 B2 32 3A 52 52 B2 52 55 3A 8D |D.t.RF.2:RR.RU:.| 00000E40: 33 37 33 30 00 56 16 7E 04 50 52 24 B2 C7 28 52 |3730.V.~.PR$..(R| 00000E50: 4F 25 28 31 29 29 00 66 16 88 04 81 20 50 B2 32 |O%(1)).f.... P.2| 00000E60: 20 A4 20 32 35 34 00 7C 16 92 04 50 52 24 B2 50 | . 254.|...PR$.P| 00000E70: 52 24 AA C7 28 52 4F 25 28 50 29 29 00 84 16 9C |R$..(RO%(P))....| 00000E80: 04 82 20 50 00 90 16 A6 04 98 32 2C 50 52 24 3B |.. P......2,PR$;| 00000E90: 00 96 16 B0 04 8E 00 DE 16 BA 04 8F 20 2A 2A 2A |............ ***| 00000EA0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 57 |************** W| 00000EB0: 52 49 54 45 20 44 49 52 45 43 54 4F 52 59 20 52 |RITE DIRECTORY R| 00000EC0: 45 43 4F 52 44 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |ECORD **********| 00000ED0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 08 |**************..| 00000EE0: 17 C4 04 54 46 24 B2 22 D7 52 49 54 49 4E 47 20 |...TF$.".RITING | 00000EF0: 44 49 52 45 43 54 4F 52 59 20 52 45 43 4F 52 44 |DIRECTORY RECORD| 00000F00: 22 3A 8D 20 31 36 34 30 00 1F 17 CE 04 8B 20 52 |":. 1640...... R| 00000F10: 55 B2 45 30 25 28 4C 29 20 A7 20 31 33 35 30 00 |U.E0%(L) . 1350.| 00000F20: 3F 17 D8 04 45 48 B2 B5 28 28 52 55 29 AD 32 35 |?...EH..((RU).25| 00000F30: 36 29 3A 45 4C B2 52 55 AB 45 48 AC 32 35 36 00 |6):EL.RU.EH.256.| 00000F40: 5F 17 E2 04 44 30 25 28 4C AC 32 AA 31 30 33 29 |_...D0%(L.2.103)| 00000F50: B2 28 31 32 38 AA 28 45 4C AF 31 32 37 29 29 00 |.(128.(EL.127)).| 00000F60: 81 17 EC 04 44 30 25 28 4C AC 32 AA 31 30 34 29 |....D0%(L.2.104)| 00000F70: B2 28 31 32 38 AA 28 45 4C AF 31 32 38 29 AD 32 |.(128.(EL.128).2| 00000F80: 29 00 A1 17 F6 04 44 30 25 28 4C AC 32 AA 31 35 |).....D0%(L.2.15| 00000F90: 35 29 B2 28 31 32 38 AA 28 45 48 AF 31 32 37 29 |5).(128.(EH.127)| 00000FA0: 29 00 C3 17 00 05 44 30 25 28 4C AC 32 AA 31 35 |).....D0%(L.2.15| 00000FB0: 36 29 B2 28 31 32 38 AA 28 45 48 AF 31 32 38 29 |6).(128.(EH.128)| 00000FC0: AD 32 29 00 D7 17 0A 05 52 46 B2 32 3A 52 52 B2 |.2).....RF.2:RR.| 00000FD0: 31 3A 8D 33 37 33 30 00 E9 17 14 05 50 52 24 B2 |1:.3730.....PR$.| 00000FE0: C7 28 44 30 25 28 31 29 29 00 F9 17 1E 05 81 20 |.(D0%(1))...... | 00000FF0: 50 B2 32 20 A4 20 32 35 34 00 0F 18 28 05 50 52 |P.2 . 254...(.PR| 00001000: 24 B2 50 52 24 AA C7 28 44 30 25 28 50 29 29 00 |$.PR$..(D0%(P)).| 00001010: 17 18 32 05 82 20 50 00 23 18 3C 05 98 32 2C 50 |..2.. P.#.<..2,P| 00001020: 52 24 3B 00 29 18 46 05 8E 00 71 18 50 05 8F 20 |R$;.).F...q.P.. | 00001030: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00001040: 2A 2A 2A 2A 2A 20 20 43 4F 4D 4D 45 52 43 49 41 |***** COMMERCIA| 00001050: 4C 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |L **************| 00001060: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00001070: 2A 00 7F 18 5A 05 99 20 22 93 22 3B 51 34 24 00 |*...Z.. ".";Q4$.| 00001080: 97 18 6E 05 54 46 24 B2 22 20 22 3A 44 4F B2 31 |..n.TF$." ":DO.1| 00001090: 3A 8D 20 31 36 34 30 00 D9 18 78 05 54 46 24 B2 |:. 1640...x.TF$.| 000010A0: 22 4A 41 4E 55 41 52 59 2D 38 33 22 AA 51 37 24 |"JANUARY-83".Q7$| 000010B0: AA 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |." | 000010C0: 56 45 52 53 49 4F 4E 20 32 2E 30 20 22 3A 44 4F |VERSION 2.0 ":DO| 000010D0: B2 32 3A 8D 20 31 36 34 30 00 FD 18 82 05 54 46 |.2:. 1640.....TF| 000010E0: 24 B2 22 20 20 22 3A 81 20 44 4F B2 33 20 A4 20 |$." ":. DO.3 . | 000010F0: 39 3A 8D 20 31 36 34 30 3A 82 20 44 4F 00 2C 19 |9:. 1640:. DO.,.| 00001100: 8C 05 54 46 24 B2 22 44 49 43 54 49 4F 4E 41 52 |..TF$."DICTIONAR| 00001110: 59 20 4D 45 52 47 45 20 50 52 4F 47 52 41 4D 22 |Y MERGE PROGRAM"| 00001120: 3A 44 4F B2 39 3A 8D 20 31 36 34 30 00 45 19 96 |:DO.9:. 1640.E..| 00001130: 05 54 46 24 B2 22 20 22 3A 44 4F B2 31 30 3A 8D |.TF$." ":DO.10:.| 00001140: 20 31 36 34 30 00 60 19 A0 05 54 46 24 B2 22 46 | 1640.`...TF$."F| 00001150: 4F 52 22 3A 44 4F B2 31 31 3A 8D 20 31 36 34 30 |OR":DO.11:. 1640| 00001160: 00 79 19 AA 05 54 46 24 B2 22 20 22 3A 44 4F B2 |.y...TF$." ":DO.| 00001170: 31 32 3A 8D 20 31 36 34 30 00 AC 19 B4 05 54 46 |12:. 1640.....TF| 00001180: 24 B2 22 52 49 43 48 56 41 4C 45 20 54 45 4C 45 |$."RICHVALE TELE| 00001190: 43 4F 4D 4D 55 4E 49 43 41 54 49 4F 4E 53 22 3A |COMMUNICATIONS":| 000011A0: 44 4F B2 31 33 3A 8D 20 31 36 34 30 00 C5 19 BE |DO.13:. 1640....| 000011B0: 05 54 46 24 B2 22 20 22 3A 44 4F B2 31 34 3A 8D |.TF$." ":DO.14:.| 000011C0: 20 31 36 34 30 00 D8 19 C3 05 8B 20 43 4F B2 34 | 1640...... CO.4| 000011D0: 30 20 A7 20 31 34 38 35 00 14 1A C8 05 54 46 24 |0 . 1485.....TF$| 000011E0: B2 22 52 54 43 2D 34 20 57 4F 52 44 20 50 52 4F |."RTC-4 WORD PRO| 000011F0: 43 45 53 53 49 4E 47 20 53 59 53 54 45 4D 53 22 |CESSING SYSTEMS"| 00001200: 3A 44 4F B2 31 35 3A 8D 20 31 36 34 30 3A 89 20 |:DO.15:. 1640:. | 00001210: 31 34 39 30 00 4D 1A CD 05 54 46 24 B2 22 53 43 |1490.M...TF$."SC| 00001220: 52 49 50 54 20 36 34 20 57 4F 52 44 20 50 52 4F |RIPT 64 WORD PRO| 00001230: 43 45 53 53 49 4E 47 20 53 59 53 54 45 4D 53 22 |CESSING SYSTEMS"| 00001240: 3A 44 4F B2 31 35 3A 8D 20 31 36 34 30 00 72 1A |:DO.15:. 1640.r.| 00001250: D2 05 54 46 24 B2 22 20 22 3A 81 20 44 4F B2 31 |..TF$." ":. DO.1| 00001260: 36 20 A4 20 32 31 3A 8D 20 31 36 34 30 3A 82 20 |6 . 21:. 1640:. | 00001270: 44 4F 00 AD 1A DC 05 54 46 24 B2 51 37 24 AA 22 |DO.....TF$.Q7$."| 00001280: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00001290: 20 20 20 20 20 20 42 59 20 42 49 4C 4C 20 44 55 | BY BILL DU| 000012A0: 54 46 49 45 4C 44 22 3A 44 4F B2 32 32 00 B8 1A |TFIELD":DO.22...| 000012B0: E6 05 8D 20 31 36 34 30 00 D1 1A F0 05 54 46 24 |... 1640.....TF$| 000012C0: B2 22 20 22 3A 44 4F B2 32 33 3A 8D 20 31 36 34 |." ":DO.23:. 164| 000012D0: 30 00 F0 1A FA 05 81 20 49 B2 31 A4 35 30 30 30 |0...... I.1.5000| 000012E0: 20 3A 82 49 3A 44 4F B2 32 33 3A 99 20 51 35 24 | :.I:DO.23:. Q5$| 000012F0: 00 F6 1A 0E 06 8E 00 3E 1B 18 06 8F 20 2A 2A 2A |.......>.... ***| 00001300: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 53 55 |************* SU| 00001310: 42 52 4F 55 54 49 4E 45 20 54 4F 20 52 45 41 44 |BROUTINE TO READ| 00001320: 20 41 20 52 45 43 4F 52 44 2A 2A 2A 2A 2A 2A 2A | A RECORD*******| 00001330: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 59 |**************.Y| 00001340: 1B 22 06 52 46 B2 33 3A 52 52 B2 53 42 3A 8D 33 |.".RF.3:RR.SB:.3| 00001350: 37 33 30 3A 97 50 44 2C 30 00 6A 1B 2C 06 81 20 |730:.PD,0.j.,.. | 00001360: 49 31 B2 31 20 A4 20 32 35 34 00 94 1B 36 06 8B |I1.1 . 254...6..| 00001370: 20 53 54 B2 30 20 A7 20 A1 23 33 2C 52 49 24 3A | ST.0 . .#3,RI$:| 00001380: 52 31 25 28 49 31 29 B2 C6 28 52 49 24 29 3A 89 |R1%(I1)..(RI$):.| 00001390: 31 36 31 30 00 A2 1B 40 06 52 31 25 28 49 31 29 |1610...@.R1%(I1)| 000013A0: B2 30 00 AB 1B 4A 06 82 20 49 31 00 B1 1B 54 06 |.0...J.. I1...T.| 000013B0: 8E 00 F9 1B 5E 06 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |....^.. ********| 000013C0: 2A 2A 2A 2A 2A 2A 2A 2A 20 50 52 49 4E 54 20 42 |******** PRINT B| 000013D0: 4F 54 54 4F 4D 20 43 4F 4E 54 52 4F 4C 20 4C 49 |OTTOM CONTROL LI| 000013E0: 4E 45 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |NE *************| 000013F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 32 1C 68 06 99 20 |*********.2.h.. | 00001400: 22 13 22 3B C8 28 44 4E 24 2C 44 4F 29 3B 42 41 |".";.(DN$,DO);BA| 00001410: 24 3B 42 58 24 3B 22 12 22 3B C8 28 41 58 24 2C |$;BX$;".";.(AX$,| 00001420: 28 43 4F AB C3 28 54 46 24 29 29 AD 32 29 3B 54 |(CO..(TF$)).2);T| 00001430: 46 24 00 38 1C 72 06 8E 00 80 1C 7C 06 8F 20 2A |F$.8.r.....|.. *| 00001440: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00001450: 2A 2A 2A 2A 2A 2A 20 54 45 52 4D 49 4E 41 54 49 |****** TERMINATI| 00001460: 4F 4E 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |ON *************| 00001470: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00001480: 00 8D 1C 86 06 A0 32 3A A0 33 3A A0 31 00 C2 1C |......2:.3:.1...| 00001490: 90 06 99 22 93 22 B8 28 4F 29 3B 22 11 11 11 11 |...".".(O);"....| 000014A0: 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................| 000014B0: 47 4F 4F 44 20 42 59 45 22 3A 97 50 41 2C 50 43 |GOOD BYE":.PA,PC| 000014C0: 3A 80 00 0A 1D 9A 06 8F 20 2A 2A 2A 2A 2A 2A 2A |:....... *******| 000014D0: 2A 2A 2A 2A 20 44 41 54 41 20 54 4F 20 54 52 41 |**** DATA TO TRA| 000014E0: 4E 53 4C 41 54 45 20 54 4F 4B 45 4E 49 5A 45 44 |NSLATE TOKENIZED| 000014F0: 20 44 49 43 54 49 4F 4E 41 52 59 20 2A 2A 2A 2A | DICTIONARY ****| 00001500: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 46 1D A4 06 83 |**********.F....| 00001510: 20 21 2C 41 2C 42 2C 43 2C 44 2C 45 2C 46 2C 47 | !,A,B,C,D,E,F,G| 00001520: 2C 48 2C 49 2C 4A 2C 4B 2C 4C 2C 4D 2C 4E 2C 4F |,H,I,J,K,L,M,N,O| 00001530: 2C 50 2C 51 2C 52 2C 53 2C 54 2C 55 2C 56 2C 57 |,P,Q,R,S,T,U,V,W| 00001540: 2C 58 2C 59 2C 5A 00 87 1D AE 06 83 20 49 4E 47 |,X,Y,Z...... ING| 00001550: 2C 45 44 2C 54 49 4F 4E 2C 53 49 4F 4E 2C 49 45 |,ED,TION,SION,IE| 00001560: 53 2C 4C 59 2C 45 53 53 2C 41 52 45 2C 4E 43 45 |S,LY,ESS,ARE,NCE| 00001570: 2C 47 48 54 2C 49 56 45 2C 4F 52 2C 45 53 54 2C |,GHT,IVE,OR,EST,| 00001580: 45 4E 54 2C 41 54 45 00 CA 1D B8 06 83 20 42 4C |ENT,ATE...... BL| 00001590: 45 2C 4F 55 53 2C 49 53 54 2C 54 49 43 2C 41 52 |E,OUS,IST,TIC,AR| 000015A0: 59 2C 50 4C 45 2C 41 4E 45 2C 54 43 48 2C 54 4C |Y,PLE,ANE,TCH,TL| 000015B0: 45 2C 41 47 45 2C 45 41 52 2C 4F 55 52 2C 45 45 |E,AGE,EAR,OUR,EE| 000015C0: 44 2C 45 53 2C 45 41 2C 4F 4F 00 0C 1E C2 06 83 |D,ES,EA,OO......| 000015D0: 20 45 45 2C 49 41 2C 41 49 2C 4F 55 2C 41 55 2C | EE,IA,AI,OU,AU,| 000015E0: 51 55 2C 45 43 54 2C 43 54 2C 49 45 2C 45 49 2C |QU,ECT,CT,IE,EI,| 000015F0: 43 4B 2C 52 45 2C 54 48 2C 41 4B 45 2C 53 54 45 |CK,RE,TH,AKE,STE| 00001600: 52 2C 53 54 2C 50 45 52 2C 45 52 54 00 50 1E CC |R,ST,PER,ERT.P..| 00001610: 06 83 20 4C 41 52 2C 4E 43 54 2C 50 4C 2C 41 52 |.. LAR,NCT,PL,AR| 00001620: 2C 45 52 2C 4F 53 2C 54 45 4E 2C 45 50 54 2C 54 |,ER,OS,TEN,EPT,T| 00001630: 52 2C 45 4E 2C 54 54 2C 54 45 52 2C 4F 4E 2C 53 |R,EN,TT,TER,ON,S| 00001640: 50 2C 53 43 2C 45 4C 2C 52 54 2C 43 48 2C 41 4C |P,SC,EL,RT,CH,AL| 00001650: 00 94 1E D6 06 83 20 4C 4C 2C 4E 4E 2C 44 44 2C |...... LL,NN,DD,| 00001660: 50 50 2C 52 52 2C 43 41 4C 2C 55 49 2C 49 4E 2C |PP,RR,CAL,UI,IN,| 00001670: 4E 54 45 52 2C 4E 54 2C 52 59 2C 55 41 2C 41 4E |NTER,NT,RY,UA,AN| 00001680: 44 2C 41 4E 54 2C 41 4E 2C 4E 44 2C 50 45 52 2C |D,ANT,AN,ND,PER,| 00001690: 4E 53 54 52 00 CF 1E E0 06 83 20 45 4E 54 2C 44 |NSTR...... ENT,D| 000016A0: 47 45 2C 4C 41 54 2C 4F 4C 44 2C 45 4E 44 2C 54 |GE,LAT,OLD,END,T| 000016B0: 41 4C 2C 53 53 2C 50 48 2C 54 48 45 52 2C 41 43 |AL,SS,PH,THER,AC| 000016C0: 54 2C 45 43 54 2C 4C 41 2C 4C 45 2C 5C 2C 5E 00 |T,ECT,LA,LE,\,^.| 000016D0: 17 1F EA 06 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..... **********| 000016E0: 2A 2A 2A 2A 2A 2A 2A 20 41 20 43 41 55 54 49 4F |******* A CAUTIO| 000016F0: 4E 20 4E 4F 54 45 20 4F 4E 20 55 53 45 20 2A 2A |N NOTE ON USE **| 00001700: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00001710: 2A 2A 2A 2A 2A 2A 2A 00 35 1F F4 06 54 46 24 B2 |*******.5...TF$.| 00001720: 22 43 41 55 54 49 4F 4E 22 3A 44 4F B2 33 3A 8D |"CAUTION":DO.3:.| 00001730: 20 31 36 34 30 00 59 1F FE 06 54 46 24 B2 22 3D | 1640.Y...TF$."=| 00001740: 3D 3D 3D 3D 3D 3D 22 3A 44 4F B2 34 3A 8D 20 31 |======":DO.4:. 1| 00001750: 36 34 30 3A 44 4F B2 32 33 00 8D 1F 08 07 99 22 |640:DO.23......"| 00001760: 11 D4 48 49 53 20 50 52 4F 47 52 41 4D 20 57 49 |..HIS PROGRAM WI| 00001770: 4C 4C 20 4D 45 52 47 45 20 54 48 45 20 44 49 43 |LL MERGE THE DIC| 00001780: 54 49 4F 4E 41 52 59 22 3B 51 31 24 3B 00 B5 1F |TIONARY";Q1$;...| 00001790: 12 07 99 22 49 4E 20 44 52 49 56 45 20 31 20 57 |..."IN DRIVE 1 W| 000017A0: 49 54 48 20 54 48 41 54 20 4F 4E 20 44 52 49 56 |ITH THAT ON DRIV| 000017B0: 45 20 30 2E 22 00 E8 1F 1C 07 99 20 51 33 24 3B |E 0."...... Q3$;| 000017C0: 22 C1 53 20 54 48 49 53 20 50 52 4F 47 52 41 4D |".S THIS PROGRAM| 000017D0: 20 4D 4F 44 49 46 49 45 53 20 42 4F 54 48 20 54 | MODIFIES BOTH T| 000017E0: 48 45 22 3B 51 31 24 3B 00 16 20 26 07 99 20 22 |HE";Q1$;.. &.. "| 000017F0: 52 45 43 4F 52 44 53 20 41 4E 44 20 54 48 45 20 |RECORDS AND THE | 00001800: 4D 41 49 4E 20 44 49 52 45 43 54 4F 52 59 20 4F |MAIN DIRECTORY O| 00001810: 46 20 54 48 45 22 00 4E 20 30 07 99 20 51 33 24 |F THE".N 0.. Q3$| 00001820: 3B 22 4F 46 20 54 48 45 20 44 49 43 54 49 4F 4E |;"OF THE DICTION| 00001830: 41 52 59 20 49 4E 20 12 44 52 49 56 45 20 C4 30 |ARY IN .DRIVE .0| 00001840: 92 3B 20 49 54 20 49 53 22 3B 51 31 24 3B 00 7A |.; IT IS";Q1$;.z| 00001850: 20 3A 07 99 20 22 53 54 52 4F 4E 47 4C 59 20 52 | :.. "STRONGLY R| 00001860: 45 43 4F 4D 4D 45 4E 44 45 44 20 54 48 41 54 20 |ECOMMENDED THAT | 00001870: 41 20 42 41 43 4B 2D 55 50 22 00 B0 20 44 07 99 |A BACK-UP".. D..| 00001880: 20 51 33 24 3B 22 43 4F 50 59 20 4F 46 20 54 48 | Q3$;"COPY OF TH| 00001890: 45 20 44 49 43 54 49 4F 4E 41 52 59 20 44 49 53 |E DICTIONARY DIS| 000018A0: 4B 20 42 45 20 54 41 4B 45 4E 22 3B 51 31 24 3B |K BE TAKEN";Q1$;| 000018B0: 00 D9 20 4E 07 99 20 22 12 42 45 46 4F 52 45 92 |.. N.. ".BEFORE.| 000018C0: 20 54 48 49 53 20 4D 45 52 47 45 20 41 43 54 49 | THIS MERGE ACTI| 000018D0: 56 49 54 59 20 42 45 20 22 00 F2 20 58 07 99 20 |VITY BE ".. X.. | 000018E0: 51 33 24 3B 22 55 4E 44 45 52 2D 54 41 4B 45 4E |Q3$;"UNDER-TAKEN| 000018F0: 2E 22 00 06 21 62 07 8B 20 4D 4F B3 B1 32 31 20 |."..!b.. MO..21 | 00001900: A7 20 31 39 32 30 00 44 21 6C 07 99 20 C8 28 44 |. 1920.D!l.. .(D| 00001910: 4E 24 2C 51 45 29 3B 22 12 C9 4E 53 45 52 54 20 |N$,QE);"..NSERT | 00001920: 54 48 45 20 44 49 43 54 49 4F 4E 41 52 59 20 44 |THE DICTIONARY D| 00001930: 49 53 4B 20 49 4E 20 44 52 49 56 45 22 3B 44 4E |ISK IN DRIVE";DN| 00001940: 3B 22 9D 22 00 4E 21 76 07 89 31 39 37 30 00 7F |;".".N!v..1970..| 00001950: 21 80 07 99 20 22 11 D0 4C 41 43 45 20 4D 41 53 |!... "..LACE MAS| 00001960: 54 45 52 20 44 49 43 54 49 4F 4E 41 52 59 20 44 |TER DICTIONARY D| 00001970: 49 53 4B 20 49 4E 20 44 52 49 56 45 20 30 22 00 |ISK IN DRIVE 0".| 00001980: B3 21 8A 07 99 20 22 11 C9 4E 53 45 52 54 20 54 |.!... "..NSERT T| 00001990: 48 45 20 44 49 53 4B 20 57 49 54 48 20 44 49 43 |HE DISK WITH DIC| 000019A0: 54 49 4F 4E 41 52 59 20 54 4F 20 42 45 22 3B 51 |TIONARY TO BE";Q| 000019B0: 31 24 3B 00 CD 21 94 07 99 20 22 4D 45 52 47 45 |1$;..!... "MERGE| 000019C0: 44 20 49 4E 20 44 52 49 56 45 20 31 22 00 0B 22 |D IN DRIVE 1".."| 000019D0: 9E 07 8B 20 4D 4F B2 36 32 A7 99 22 13 22 3B C8 |... MO.62..".";.| 000019E0: 28 44 4E 24 2C 51 46 29 3B 22 12 C6 49 4C 45 20 |(DN$,QF);"..ILE | 000019F0: 4E 4F 54 20 46 4F 55 4E 44 20 3A 44 52 49 56 45 |NOT FOUND :DRIVE| 00001A00: 20 2D 22 3B 44 4E 3B 51 31 24 3B 00 31 22 A8 07 | -";DN;Q1$;.1"..| 00001A10: 8B 20 4D 4F B2 36 32 20 A7 20 99 22 12 49 4E 53 |. MO.62 . .".INS| 00001A20: 45 52 54 20 43 4F 52 52 45 43 54 20 44 49 53 4B |ERT CORRECT DISK| 00001A30: 22 00 66 22 B2 07 54 46 24 B2 22 D0 52 45 53 53 |".f"..TF$.".RESS| 00001A40: 20 27 59 27 20 54 4F 20 43 4F 4E 54 49 4E 55 45 | 'Y' TO CONTINUE| 00001A50: 20 4F 52 20 27 53 27 20 54 4F 20 53 54 4F 50 22 | OR 'S' TO STOP"| 00001A60: 3A 8D 31 36 34 30 00 7D 22 BC 07 A1 41 24 3A 8B |:.1640.}"...A$:.| 00001A70: 20 41 24 B2 22 22 20 A7 20 31 39 38 30 00 92 22 | A$."" . 1980.."| 00001A80: C6 07 8B 20 41 24 B2 22 53 22 20 A7 20 89 31 36 |... A$."S" . .16| 00001A90: 37 30 00 A7 22 D0 07 8B 20 41 24 B3 B1 22 59 22 |70.."... A$.."Y"| 00001AA0: 20 A7 20 31 39 38 30 00 CD 22 DA 07 99 20 22 13 | . 1980.."... ".| 00001AB0: 22 3B C8 28 44 4E 24 2C 32 30 29 3B 53 50 24 3B |";.(DN$,20);SP$;| 00001AC0: 3A 99 20 53 50 24 3A 4D 4F B2 30 3A 8E 00 15 23 |:. SP$:MO.0:...#| 00001AD0: E4 07 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |... ************| 00001AE0: 2A 2A 2A 2A 20 44 49 53 50 4C 41 59 20 44 49 43 |**** DISPLAY DIC| 00001AF0: 54 49 4F 4E 41 52 59 20 44 49 52 45 43 54 4F 52 |TIONARY DIRECTOR| 00001B00: 59 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |Y **************| 00001B10: 2A 2A 2A 2A 2A 00 26 23 EE 07 8D 20 31 39 30 3A |*****.&#... 190:| 00001B20: 99 22 13 11 11 22 00 43 23 F8 07 99 20 A3 51 44 |."...".C#... .QD| 00001B30: 29 3B 22 12 44 52 49 56 45 20 C4 9D 22 3B 44 4E |);".DRIVE ..";DN| 00001B40: 3B 22 92 00 5F 23 02 08 99 20 A3 31 36 29 3B 22 |;".._#... .16);"| 00001B50: C4 49 52 45 43 54 4F 52 59 22 3B 51 31 24 3B 00 |.IRECTORY";Q1$;.| 00001B60: 80 23 0C 08 8B 20 43 4F B2 38 30 20 A7 20 99 20 |.#... CO.80 . . | 00001B70: A3 35 36 29 3B 22 C4 49 52 45 43 54 4F 52 59 22 |.56);".IRECTORY"| 00001B80: 00 B2 23 16 08 99 20 22 20 20 20 53 54 41 52 54 |..#... " START| 00001B90: 20 20 20 20 20 20 20 20 45 4E 44 20 20 55 53 45 | END USE| 00001BA0: 44 20 20 55 4E 55 53 45 44 20 20 20 22 3B 51 31 |D UNUSED ";Q1| 00001BB0: 24 3B 00 EF 23 20 08 8B 20 43 4F B2 38 30 20 A7 |$;..# .. CO.80 .| 00001BC0: 20 99 20 22 20 20 20 20 20 20 20 20 20 20 20 20 | . " | 00001BD0: 53 54 41 52 54 20 20 20 20 20 20 20 20 45 4E 44 |START END| 00001BE0: 20 20 55 53 45 44 20 20 55 4E 55 53 45 44 22 00 | USED UNUSED".| 00001BF0: FF 23 2A 08 81 20 49 B2 49 53 20 A4 20 49 45 00 |.#*.. I.IS . IE.| 00001C00: 11 24 34 08 8B 20 44 4E B2 31 20 A7 20 32 32 32 |.$4.. DN.1 . 222| 00001C10: 30 00 54 24 3E 08 56 31 24 B2 C4 28 53 30 25 28 |0.T$>.V1$..(S0%(| 00001C20: 49 29 29 3A 56 32 B2 45 30 25 28 49 29 AB 31 3A |I)):V2.E0%(I).1:| 00001C30: 56 32 24 B2 C4 28 56 32 29 3A 56 33 B2 45 30 25 |V2$..(V2):V3.E0%| 00001C40: 28 49 29 AB 53 30 25 28 49 29 3A 56 33 24 B2 C4 |(I).S0%(I):V3$..| 00001C50: 28 56 33 29 00 7F 24 48 08 56 34 B2 53 30 25 28 |(V3)..$H.V4.S0%(| 00001C60: 49 AA 31 29 AB 45 30 25 28 49 29 3A 56 34 24 B2 |I.1).E0%(I):V4$.| 00001C70: C4 28 56 34 29 3A 52 31 25 28 49 29 B2 56 33 00 |.(V4):R1%(I).V3.| 00001C80: B7 24 52 08 99 20 C7 28 49 AA 36 34 29 3B C8 28 |.$R.. .(I.64);.(| 00001C90: 53 50 24 2C 37 AB C3 28 56 31 24 29 29 3B 56 31 |SP$,7..(V1$));V1| 00001CA0: 24 3B C8 28 53 50 24 2C 31 31 AB C3 28 56 32 24 |$;.(SP$,11..(V2$| 00001CB0: 29 29 3B 56 32 24 3B 00 E6 24 5C 08 99 20 C8 28 |));V2$;..$\.. .(| 00001CC0: 53 50 24 2C 36 AB C3 28 56 33 24 29 29 3B 56 33 |SP$,6..(V3$));V3| 00001CD0: 24 3B C8 28 53 50 24 2C 38 AB C3 28 56 34 24 29 |$;.(SP$,8..(V4$)| 00001CE0: 29 3B 56 34 24 3B 00 00 25 66 08 99 20 51 31 24 |);V4$;..%f.. Q1$| 00001CF0: 3B 3A 8B 20 43 4F B2 34 30 20 A7 20 32 33 32 30 |;:. CO.40 . 2320| 00001D00: 00 11 25 70 08 99 20 C8 28 53 50 24 2C 31 32 29 |..%p.. .(SP$,12)| 00001D10: 3B 00 56 25 7A 08 56 31 24 B2 C4 28 53 30 25 28 |;.V%z.V1$..(S0%(| 00001D20: 49 AA 31 33 29 29 3A 56 32 B2 45 30 25 28 49 AA |I.13)):V2.E0%(I.| 00001D30: 31 33 29 AB 31 3A 56 32 24 B2 C4 28 56 32 29 3A |13).1:V2$..(V2):| 00001D40: 56 33 B2 45 30 25 28 49 AA 31 33 29 AB 53 30 25 |V3.E0%(I.13).S0%| 00001D50: 28 49 AA 31 33 29 00 92 25 84 08 56 33 24 B2 C4 |(I.13)..%..V3$..| 00001D60: 28 56 33 29 3A 56 34 B2 53 30 25 28 49 AA 31 34 |(V3):V4.S0%(I.14| 00001D70: 29 AB 45 30 25 28 49 AA 31 33 29 3A 56 34 24 B2 |).E0%(I.13):V4$.| 00001D80: C4 28 56 34 29 3A 52 31 25 28 49 AA 31 33 29 B2 |.(V4):R1%(I.13).| 00001D90: 56 33 00 CA 25 8E 08 99 20 C7 28 49 AA 37 37 29 |V3..%... .(I.77)| 00001DA0: 3B C8 28 53 50 24 2C 37 AB C3 28 56 31 24 29 29 |;.(SP$,7..(V1$))| 00001DB0: 3B 56 31 24 3B C8 28 53 50 24 2C 31 31 AB C3 28 |;V1$;.(SP$,11..(| 00001DC0: 56 32 24 29 29 3B 56 32 24 3B 00 F8 25 98 08 99 |V2$));V2$;..%...| 00001DD0: 20 C8 28 53 50 24 2C 36 AB C3 28 56 33 24 29 29 | .(SP$,6..(V3$))| 00001DE0: 3B 56 33 24 3B C8 28 53 50 24 2C 38 AB C3 28 56 |;V3$;.(SP$,8..(V| 00001DF0: 34 24 29 29 3B 56 34 24 00 03 26 A2 08 89 20 32 |4$));V4$..&... 2| 00001E00: 33 32 30 00 46 26 AC 08 56 31 24 B2 C4 28 53 31 |320.F&..V1$..(S1| 00001E10: 25 28 49 29 29 3A 56 32 B2 45 31 25 28 49 29 AB |%(I)):V2.E1%(I).| 00001E20: 31 3A 56 32 24 B2 C4 28 56 32 29 3A 56 33 B2 45 |1:V2$..(V2):V3.E| 00001E30: 31 25 28 49 29 AB 53 31 25 28 49 29 3A 56 33 24 |1%(I).S1%(I):V3$| 00001E40: B2 C4 28 56 33 29 00 71 26 B6 08 56 34 B2 53 31 |..(V3).q&..V4.S1| 00001E50: 25 28 49 AA 31 29 AB 45 31 25 28 49 29 3A 56 34 |%(I.1).E1%(I):V4| 00001E60: 24 B2 C4 28 56 34 29 3A 52 4F 25 28 49 29 B2 56 |$..(V4):RO%(I).V| 00001E70: 33 00 A9 26 C0 08 99 20 C7 28 49 AA 36 34 29 3B |3..&... .(I.64);| 00001E80: C8 28 53 50 24 2C 37 AB C3 28 56 31 24 29 29 3B |.(SP$,7..(V1$));| 00001E90: 56 31 24 3B C8 28 53 50 24 2C 31 31 AB C3 28 56 |V1$;.(SP$,11..(V| 00001EA0: 32 24 29 29 3B 56 32 24 3B 00 D8 26 CA 08 99 20 |2$));V2$;..&... | 00001EB0: C8 28 53 50 24 2C 36 AB C3 28 56 33 24 29 29 3B |.(SP$,6..(V3$));| 00001EC0: 56 33 24 3B C8 28 53 50 24 2C 38 AB C3 28 56 34 |V3$;.(SP$,8..(V4| 00001ED0: 24 29 29 3B 56 34 24 3B 00 F2 26 D4 08 99 20 51 |$));V4$;..&... Q| 00001EE0: 31 24 3B 3A 8B 20 43 4F B2 34 30 20 A7 20 32 33 |1$;:. CO.40 . 23| 00001EF0: 32 30 00 03 27 DE 08 99 20 C8 28 53 50 24 2C 31 |20..'... .(SP$,1| 00001F00: 32 29 3B 00 48 27 E8 08 56 31 24 B2 C4 28 53 31 |2);.H'..V1$..(S1| 00001F10: 25 28 49 AA 31 33 29 29 3A 56 32 B2 45 31 25 28 |%(I.13)):V2.E1%(| 00001F20: 49 AA 31 33 29 AB 31 3A 56 32 24 B2 C4 28 56 32 |I.13).1:V2$..(V2| 00001F30: 29 3A 56 33 B2 45 31 25 28 49 AA 31 33 29 AB 53 |):V3.E1%(I.13).S| 00001F40: 31 25 28 49 AA 31 33 29 00 84 27 F2 08 56 33 24 |1%(I.13)..'..V3$| 00001F50: B2 C4 28 56 33 29 3A 56 34 B2 53 31 25 28 49 AA |..(V3):V4.S1%(I.| 00001F60: 31 34 29 AB 45 31 25 28 49 AA 31 33 29 3A 56 34 |14).E1%(I.13):V4| 00001F70: 24 B2 C4 28 56 34 29 3A 52 4F 25 28 49 AA 31 33 |$..(V4):RO%(I.13| 00001F80: 29 B2 56 33 00 BC 27 FC 08 99 20 C7 28 49 AA 37 |).V3..'... .(I.7| 00001F90: 37 29 3B C8 28 53 50 24 2C 37 AB C3 28 56 31 24 |7);.(SP$,7..(V1$| 00001FA0: 29 29 3B 56 31 24 3B C8 28 53 50 24 2C 31 31 AB |));V1$;.(SP$,11.| 00001FB0: C3 28 56 32 24 29 29 3B 56 32 24 3B 00 EA 27 06 |.(V2$));V2$;..'.| 00001FC0: 09 99 20 C8 28 53 50 24 2C 36 AB C3 28 56 33 24 |.. .(SP$,6..(V3$| 00001FD0: 29 29 3B 56 33 24 3B C8 28 53 50 24 2C 38 AB C3 |));V3$;.(SP$,8..| 00001FE0: 28 56 34 24 29 29 3B 56 34 24 00 F2 27 10 09 82 |(V4$));V4$..'...| 00001FF0: 20 49 00 18 28 1A 09 54 46 24 B2 22 D0 52 45 53 | I..(..TF$.".RES| 00002000: 53 20 27 59 27 20 54 4F 20 43 4F 4E 54 49 4E 55 |S 'Y' TO CONTINU| 00002010: 45 22 3A 8D 31 36 34 30 00 2F 28 24 09 A1 41 24 |E":.1640./($..A$| 00002020: 3A 8B 20 41 24 B2 22 22 20 A7 20 32 33 34 30 00 |:. A$."" . 2340.| 00002030: 44 28 2E 09 8B 20 41 24 B3 B1 22 59 22 20 A7 20 |D(... A$.."Y" . | 00002040: 32 33 34 30 00 4A 28 38 09 8E 00 92 28 42 09 8F |2340.J(8....(B..| 00002050: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 43 | ************* C| 00002060: 48 45 43 4B 20 56 41 4C 49 44 49 54 59 20 46 4F |HECK VALIDITY FO| 00002070: 52 20 4D 45 52 47 45 20 2A 2A 2A 2A 2A 2A 2A 2A |R MERGE ********| 00002080: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00002090: 2A 2A 00 B0 28 4C 09 56 41 B2 30 3A 56 42 B2 30 |**..(L.VA.0:VB.0| 000020A0: 3A 56 43 B2 30 3A 8D 20 31 39 30 3A 99 22 13 22 |:VC.0:. 190:."."| 000020B0: 00 BF 28 56 09 81 20 49 B2 31 20 A4 20 32 36 00 |..(V.. I.1 . 26.| 000020C0: D7 28 60 09 8B 20 52 31 25 28 49 29 B1 20 4E 4D |.(`.. R1%(I). NM| 000020D0: 20 A7 20 56 41 B2 31 00 EF 28 6A 09 8B 20 52 4F | . VA.1..(j.. RO| 000020E0: 25 28 49 29 B1 20 4E 4D 20 A7 20 56 42 B2 31 00 |%(I). NM . VB.1.| 000020F0: 1C 29 74 09 8B 20 52 31 25 28 49 29 AA 52 4F 25 |.)t.. R1%(I).RO%| 00002100: 28 49 29 B1 53 30 25 28 49 AA 31 29 AB 53 30 25 |(I).S0%(I.1).S0%| 00002110: 28 49 29 AA 31 20 A7 20 56 43 B2 31 00 24 29 7E |(I).1 . VC.1.$)~| 00002120: 09 82 20 49 00 3D 29 88 09 8B 20 56 41 B2 30 20 |.. I.=)... VA.0 | 00002130: AF 20 56 43 B2 30 20 A7 20 32 36 39 30 00 50 29 |. VC.0 . 2690.P)| 00002140: 92 09 8B 20 56 41 B3 B1 31 20 A7 20 32 34 38 30 |... VA..1 . 2480| 00002150: 00 88 29 9C 09 99 22 11 11 11 11 11 12 C4 49 43 |..)...".......IC| 00002160: 54 49 4F 4E 41 52 59 20 49 4E 20 44 52 49 56 45 |TIONARY IN DRIVE| 00002170: 20 30 20 49 53 20 54 4F 4F 20 4C 41 52 47 45 20 | 0 IS TOO LARGE | 00002180: 54 4F 22 3B 51 31 24 3B 00 B7 29 A6 09 99 22 12 |TO";Q1$;..)...".| 00002190: 41 43 54 20 41 53 20 54 48 45 20 4D 45 52 47 45 |ACT AS THE MERGE| 000021A0: 20 52 45 43 49 45 56 49 4E 47 20 44 49 43 54 49 | RECIEVING DICTI| 000021B0: 4F 4E 41 52 59 2E 22 00 CA 29 B0 09 8B 20 56 42 |ONARY."..)... VB| 000021C0: B3 B1 31 20 A7 20 32 35 33 30 00 DC 29 BA 09 8B |..1 . 2530..)...| 000021D0: 20 56 41 B2 30 20 A7 20 32 35 33 30 00 13 2A C4 | VA.0 . 2530..*.| 000021E0: 09 99 22 11 11 12 C4 49 43 54 49 4F 4E 41 52 59 |.."....ICTIONARY| 000021F0: 20 49 4E 20 44 52 49 56 45 20 31 20 49 53 20 41 | IN DRIVE 1 IS A| 00002200: 4C 53 4F 20 54 4F 4F 20 4C 41 52 47 45 22 3B 51 |LSO TOO LARGE";Q| 00002210: 31 24 3B 00 3F 2A CE 09 99 22 12 54 4F 20 41 43 |1$;.?*...".TO AC| 00002220: 54 20 41 53 20 54 48 45 20 52 45 43 49 45 56 49 |T AS THE RECIEVI| 00002230: 4E 47 20 44 49 43 54 49 4F 4E 41 52 59 2E 22 00 |NG DICTIONARY.".| 00002240: 6D 2A D8 09 99 22 11 11 12 C9 27 4D 20 53 4F 52 |m*..."....'M SOR| 00002250: 52 59 20 59 4F 55 20 41 52 45 20 4F 55 54 20 4F |RY YOU ARE OUT O| 00002260: 46 20 4C 55 43 4B 22 3A 89 32 36 35 30 00 8D 2A |F LUCK":.2650..*| 00002270: E2 09 8B 20 56 42 B2 30 20 AF 20 56 41 B2 30 20 |... VB.0 . VA.0 | 00002280: AF 20 56 43 B2 30 20 A7 20 32 36 39 30 00 A0 2A |. VC.0 . 2690..*| 00002290: EC 09 8B 20 56 43 B3 B1 30 20 A7 20 32 35 39 30 |... VC..0 . 2590| 000022A0: 00 D4 2A F6 09 99 22 11 11 D4 48 45 20 44 49 43 |..*..."...HE DIC| 000022B0: 54 49 4F 4E 41 52 59 20 49 4E 20 44 52 49 56 45 |TIONARY IN DRIVE| 000022C0: 20 31 20 4D 41 59 20 42 45 20 41 42 4C 45 22 3B | 1 MAY BE ABLE";| 000022D0: 51 31 24 3B 00 FD 2A 00 0A 99 22 54 4F 20 41 43 |Q1$;..*..."TO AC| 000022E0: 54 20 41 53 20 41 20 52 45 43 49 45 56 49 4E 47 |T AS A RECIEVING| 000022F0: 20 44 49 43 54 49 4F 4E 41 52 59 2E 22 00 31 2B | DICTIONARY.".1+| 00002300: 0A 0A 99 22 11 C9 4E 54 45 52 43 48 41 4E 47 45 |..."..NTERCHANGE| 00002310: 20 54 48 45 20 44 49 43 54 49 4F 4E 41 52 49 45 | THE DICTIONARIE| 00002320: 53 20 49 4E 20 44 52 49 56 45 53 22 3B 51 31 24 |S IN DRIVES";Q1$| 00002330: 3B 00 5F 2B 14 0A 99 22 30 20 41 4E 44 20 31 20 |;._+..."0 AND 1 | 00002340: 41 4E 44 20 52 45 52 55 4E 20 54 48 49 53 20 50 |AND RERUN THIS P| 00002350: 52 4F 47 52 41 4D 2E 22 3A 89 20 32 36 35 30 00 |ROGRAM.":. 2650.| 00002360: 92 2B 1E 0A 99 22 11 11 D4 48 45 20 4D 45 52 47 |.+..."...HE MERG| 00002370: 49 4E 47 20 4F 46 20 54 48 45 20 44 49 43 54 49 |ING OF THE DICTI| 00002380: 4F 4E 41 52 49 45 53 20 57 49 4C 4C 22 3B 51 31 |ONARIES WILL";Q1| 00002390: 24 3B 00 CC 2B 28 0A 99 22 52 45 53 55 4C 54 20 |$;..+(.."RESULT | 000023A0: 49 4E 20 54 48 45 20 41 4C 4C 4F 43 41 54 45 44 |IN THE ALLOCATED| 000023B0: 20 53 50 41 43 45 20 42 45 49 4E 47 20 22 3A 99 | SPACE BEING ":.| 000023C0: 20 22 45 58 43 45 45 44 45 44 2E 22 00 F7 2B 32 | "EXCEEDED."..+2| 000023D0: 0A 99 22 D9 4F 55 20 4D 41 59 20 42 45 20 41 42 |..".OU MAY BE AB| 000023E0: 4C 45 20 54 4F 20 4D 4F 44 49 46 59 20 59 4F 55 |LE TO MODIFY YOU| 000023F0: 52 22 3B 51 31 24 3B 00 23 2C 3C 0A 99 22 44 49 |R";Q1$;.#,<.."DI| 00002400: 43 54 49 4F 4E 41 52 59 20 42 4C 4F 43 4B 20 41 |CTIONARY BLOCK A| 00002410: 4C 4C 4F 43 41 54 49 4F 4E 53 20 54 48 52 4F 55 |LLOCATIONS THROU| 00002420: 47 48 22 00 50 2C 46 0A 99 22 55 53 49 4E 47 20 |GH".P,F.."USING | 00002430: 54 48 45 20 44 49 43 54 49 4F 4E 41 52 59 20 4D |THE DICTIONARY M| 00002440: 41 49 4E 54 45 4E 41 4E 43 45 22 3B 51 31 24 3B |AINTENANCE";Q1$;| 00002450: 00 60 2C 50 0A 99 22 50 52 4F 47 52 41 4D 2E 22 |.`,P.."PROGRAM."| 00002460: 00 86 2C 5A 0A 54 46 24 B2 22 D0 52 45 53 53 20 |..,Z.TF$.".RESS | 00002470: 27 59 27 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 |'Y' TO CONTINUE"| 00002480: 3A 8D 31 36 34 30 00 9C 2C 64 0A A1 41 24 3A 8B |:.1640..,d..A$:.| 00002490: 41 24 B2 22 22 20 A7 20 32 36 36 30 00 B1 2C 6E |A$."" . 2660..,n| 000024A0: 0A 8B 20 41 24 B3 B1 22 59 22 20 A7 20 32 36 36 |.. A$.."Y" . 266| 000024B0: 30 00 BC 2C 78 0A 89 20 31 36 37 30 00 C2 2C 82 |0..,x.. 1670..,.| 000024C0: 0A 8E 00 0A 2D 8C 0A 8F 20 2A 2A 2A 2A 2A 2A 2A |....-... *******| 000024D0: 20 52 45 41 44 20 57 4F 52 44 53 20 46 4F 52 20 | READ WORDS FOR | 000024E0: 4F 4E 45 20 4C 45 54 54 45 52 20 46 52 4F 4D 20 |ONE LETTER FROM | 000024F0: 4D 41 53 54 45 52 20 44 49 43 54 49 4F 4E 41 52 |MASTER DICTIONAR| 00002500: 59 20 2A 2A 2A 2A 2A 2A 2A 2A 00 1F 2D 96 0A 4A |Y ********..-..J| 00002510: 4D B2 30 3A 81 20 49 B2 53 41 20 A4 20 45 41 00 |M.0:. I.SA . EA.| 00002520: 2B 2D A0 0A 4A 4D B2 4A 4D AA 31 00 46 2D AA 0A |+-..JM.JM.1.F-..| 00002530: 52 46 B2 32 3A 52 52 B2 49 3A 8D 33 37 33 30 3A |RF.2:RR.I:.3730:| 00002540: 97 31 35 30 2C 30 00 57 2D B4 0A 81 20 49 31 B2 |.150,0.W-... I1.| 00002550: 31 20 A4 20 32 35 34 00 84 2D BE 0A 8B 20 53 54 |1 . 254..-... ST| 00002560: B2 30 20 A7 20 A1 23 32 2C 52 49 24 3A 52 30 25 |.0 . .#2,RI$:R0%| 00002570: 28 4A 4D 2C 49 31 29 B2 C6 28 52 49 24 29 3A 89 |(JM,I1)..(RI$):.| 00002580: 32 37 37 30 00 95 2D C8 0A 52 30 25 28 4A 4D 2C |2770..-..R0%(JM,| 00002590: 49 31 29 B2 30 00 9E 2D D2 0A 82 20 49 31 00 A6 |I1).0..-... I1..| 000025A0: 2D DC 0A 82 20 49 00 AC 2D E6 0A 8E 00 F4 2D F0 |-... I..-.....-.| 000025B0: 0A 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.. *************| 000025C0: 2A 2A 20 42 55 49 4C 44 20 54 48 45 20 4F 55 54 |** BUILD THE OUT| 000025D0: 50 55 54 20 52 45 43 4F 52 44 53 20 2A 2A 2A 2A |PUT RECORDS ****| 000025E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 000025F0: 2A 2A 2A 2A 00 27 2E FA 0A 4A B2 30 3A 4B B2 31 |****.'...J.0:K.1| 00002600: 3A 57 4F B2 31 3A 52 55 B2 53 41 AB 31 3A 57 41 |:WO.1:RU.SA.1:WA| 00002610: B2 31 3A 57 45 B2 31 3A 45 46 B2 31 3A 44 45 B2 |.1:WE.1:EF.1:DE.| 00002620: 32 3A 4A 31 B2 51 43 00 67 2E 04 0B 57 31 24 B2 |2:J1.QC.g...W1$.| 00002630: 22 22 3A 57 33 24 B2 22 22 3A 49 B2 31 3A 8B 20 |"":W3$."":I.1:. | 00002640: 52 31 25 28 31 29 B2 32 35 35 20 B0 20 52 31 25 |R1%(1).255 . R1%| 00002650: 28 32 29 B2 32 35 35 20 A7 20 45 46 B2 45 46 AA |(2).255 . EF.EF.| 00002660: 31 3A 89 32 39 34 30 00 71 2E 0E 0B 49 B2 49 AA |1:.2940.q...I.I.| 00002670: 31 00 7F 2E 18 0B 5A 58 B2 52 31 25 28 49 29 00 |1.....ZX.R1%(I).| 00002680: A5 2E 22 0B 8B 20 5A 58 B2 31 32 36 20 B0 20 5A |..".. ZX.126 . Z| 00002690: 58 B2 31 32 37 20 B0 20 5A 58 B2 32 35 34 20 A7 |X.127 . ZX.254 .| 000026A0: 20 32 39 37 30 00 B9 2E 2C 0B 8B 20 5A 58 B2 32 | 2970...,.. ZX.2| 000026B0: 35 35 20 A7 20 33 30 35 30 00 CB 2E 36 0B 8B 20 |55 . 3050...6.. | 000026C0: 5A 58 B2 30 20 A7 20 32 39 39 30 00 D9 2E 40 0B |ZX.0 . 2990...@.| 000026D0: 45 57 B2 5A 58 AF 31 32 38 00 E7 2E 4A 0B 43 48 |EW.ZX.128...J.CH| 000026E0: B2 5A 58 AF 31 32 37 00 FB 2E 54 0B 57 31 24 B2 |.ZX.127...T.W1$.| 000026F0: 57 31 24 AA 54 4B 24 28 43 48 29 00 0D 2F 5E 0B |W1$.TK$(CH)../^.| 00002700: 57 33 24 B2 57 33 24 AA C7 28 43 48 29 00 1F 2F |W3$.W3$..(CH)../| 00002710: 68 0B 8B 20 45 57 B2 30 20 A7 20 32 39 37 30 00 |h.. EW.0 . 2970.| 00002720: 2E 2F 72 0B 57 46 B2 57 45 3A 57 45 B2 49 00 3F |./r.WF.WE:WE.I.?| 00002730: 2F 7C 0B 8B 44 45 B2 32 20 A7 20 33 30 37 30 00 |/|..DE.2 . 3070.| 00002740: 50 2F 86 0B 8B 44 45 B2 34 20 A7 20 33 32 34 30 |P/...DE.4 . 3240| 00002750: 00 5B 2F 90 0B 89 20 33 33 33 30 00 6D 2F 9A 0B |.[/... 3330.m/..| 00002760: 8B 20 49 B3 32 35 34 20 A7 32 38 33 30 00 77 2F |. I.254 .2830.w/| 00002770: A4 0B 49 B2 49 AA 31 00 87 2F AE 0B 5A 58 B2 52 |..I.I.1../..ZX.R| 00002780: 31 25 28 31 29 AA 32 00 98 2F B8 0B 8B 5A 58 B2 |1%(1).2../...ZX.| 00002790: 49 20 A7 20 33 30 34 30 00 A2 2F C2 0B 8D 20 31 |I . 3040../... 1| 000027A0: 39 30 00 E6 2F CC 0B 99 22 13 11 11 11 11 42 4C |90../...".....BL| 000027B0: 4F 43 4B 20 4C 45 4E 47 54 48 20 45 52 52 4F 52 |OCK LENGTH ERROR| 000027C0: 20 44 45 54 45 43 54 45 44 3A 20 44 49 43 54 49 | DETECTED: DICTI| 000027D0: 4F 4E 41 52 59 20 2D 20 44 52 49 56 45 20 30 3A |ONARY - DRIVE 0:| 000027E0: 22 2C 5A 58 3B 49 00 06 30 D6 0B 99 20 22 11 42 |",ZX;I..0... ".B| 000027F0: 4C 4F 43 4B 20 23 22 3B 53 42 3A 8D 32 33 33 30 |LOCK #";SB:.2330| 00002800: 3A 89 33 30 35 30 00 25 30 E0 0B 57 45 B2 31 3A |:.3050.%0..WE.1:| 00002810: 53 42 B2 53 42 AA 31 3A 8D 20 31 35 37 30 3A 89 |SB.SB.1:. 1570:.| 00002820: 20 32 38 32 30 00 46 30 EA 0B 45 46 B2 45 46 AA | 2820.F0..EF.EF.| 00002830: 31 3A 8B 20 44 45 B2 34 20 A7 20 44 45 B2 30 3A |1:. DE.4 . DE.0:| 00002840: 89 20 33 32 34 30 00 56 30 F4 0B 44 45 B2 30 3A |. 3240.V0..DE.0:| 00002850: 89 20 33 33 33 30 00 95 30 FE 0B 57 30 24 B2 22 |. 3330..0..W0$."| 00002860: 22 3A 57 32 24 B2 22 22 3A 4A B2 4A AA 31 3A 4B |":W2$."":J.J.1:K| 00002870: B2 31 3A 8B 20 52 30 25 28 4A 2C 31 29 B2 32 35 |.1:. R0%(J,1).25| 00002880: 35 B0 20 52 30 25 28 4A 2C 32 29 B2 32 35 35 A7 |5. R0%(J,2).255.| 00002890: 20 33 33 32 30 00 A8 30 08 0C 8B 20 4A B3 B2 4A | 3320..0... J..J| 000028A0: 4D 20 A7 20 33 31 32 30 00 B2 30 12 0C 8D 20 31 |M . 3120..0... 1| 000028B0: 39 30 00 F2 30 1C 0C 99 22 13 11 11 11 11 45 4E |90..0...".....EN| 000028C0: 44 20 4F 46 20 42 4C 4F 43 4B 20 4D 41 52 4B 45 |D OF BLOCK MARKE| 000028D0: 52 20 4D 49 53 53 49 4E 47 20 2D 20 44 52 49 56 |R MISSING - DRIV| 000028E0: 45 20 30 22 3B 53 41 AA 4A AB 31 3A 8D 20 32 33 |E 0";SA.J.1:. 23| 000028F0: 33 30 00 FC 30 26 0C 89 33 32 37 30 00 06 31 30 |30..0&..3270..10| 00002900: 0C 4B B2 4B AA 31 00 16 31 3A 0C 5A 58 B2 52 30 |.K.K.1..1:.ZX.R0| 00002910: 25 28 4A 2C 4B 29 00 3C 31 44 0C 8B 20 5A 58 B2 |%(J,K).<1D.. ZX.| 00002920: 31 32 36 20 B0 20 5A 58 B2 31 32 37 20 B0 20 5A |126 . ZX.127 . Z| 00002930: 58 B2 32 35 34 20 A7 20 33 32 34 30 00 50 31 4E |X.254 . 3240.P1N| 00002940: 0C 8B 20 5A 58 B2 32 35 35 20 A7 20 33 33 32 30 |.. ZX.255 . 3320| 00002950: 00 62 31 58 0C 8B 20 5A 58 B2 30 20 A7 20 33 32 |.b1X.. ZX.0 . 32| 00002960: 36 30 00 70 31 62 0C 45 57 B2 5A 58 AF 31 32 38 |60.p1b.EW.ZX.128| 00002970: 00 7E 31 6C 0C 43 48 B2 5A 58 AF 31 32 37 00 92 |.~1l.CH.ZX.127..| 00002980: 31 76 0C 57 30 24 B2 57 30 24 AA 54 4B 24 28 43 |1v.W0$.W0$.TK$(C| 00002990: 48 29 00 A4 31 80 0C 57 32 24 B2 57 32 24 AA C7 |H)..1..W2$.W2$..| 000029A0: 28 43 48 29 00 B6 31 8A 0C 8B 20 45 57 B2 30 20 |(CH)..1... EW.0 | 000029B0: A7 20 33 32 34 30 00 C5 31 94 0C 57 42 B2 57 41 |. 3240..1..WB.WA| 000029C0: 3A 57 41 B2 4B 00 D0 31 9E 0C 89 20 33 33 33 30 |:WA.K..1... 3330| 000029D0: 00 E3 31 A8 0C 8B 20 4B B3 32 35 34 20 A7 20 33 |..1... K.254 . 3| 000029E0: 31 32 30 00 ED 31 B2 0C 4B B2 4B AA 31 00 FF 31 |120..1..K.K.1..1| 000029F0: BC 0C 5A 58 B2 52 30 25 28 4A 2C 31 29 AA 32 00 |..ZX.R0%(J,1).2.| 00002A00: 10 32 C6 0C 8B 5A 58 B2 4B 20 A7 20 33 33 31 30 |.2...ZX.K . 3310| 00002A10: 00 1A 32 D0 0C 8D 20 31 39 30 00 5E 32 DA 0C 99 |..2... 190.^2...| 00002A20: 22 13 11 11 11 11 42 4C 4F 43 4B 20 4C 45 4E 47 |".....BLOCK LENG| 00002A30: 54 48 20 45 52 52 4F 52 20 44 45 54 45 43 54 45 |TH ERROR DETECTE| 00002A40: 44 3A 20 44 49 43 54 49 4F 4E 41 52 59 20 2D 20 |D: DICTIONARY - | 00002A50: 44 52 49 56 45 20 31 3A 22 2C 5A 58 3B 4B 00 80 |DRIVE 1:",ZX;K..| 00002A60: 32 E4 0C 99 20 22 11 42 4C 4F 43 4B 20 23 22 3B |2... ".BLOCK #";| 00002A70: 53 41 AA 31 3A 8D 32 33 33 30 3A 89 33 33 32 30 |SA.1:.2330:.3320| 00002A80: 00 90 32 EE 0C 57 41 B2 31 3A 89 20 33 30 37 30 |..2..WA.1:. 3070| 00002A90: 00 A1 32 F8 0C 45 46 B2 45 46 AA 32 3A 44 45 B2 |..2..EF.EF.2:DE.| 00002AA0: 30 00 C0 32 02 0D 91 20 45 46 20 89 20 33 33 34 |0..2... EF . 334| 00002AB0: 30 2C 33 33 38 30 2C 33 34 37 30 2C 33 35 36 30 |0,3380,3470,3560| 00002AC0: 00 C9 32 0C 0D 44 45 B2 35 00 DE 32 16 0D 8B 20 |..2..DE.5..2... | 00002AD0: 57 32 24 B3 57 33 24 20 A7 20 44 45 B2 33 00 F3 |W2$.W3$ . DE.3..| 00002AE0: 32 20 0D 8B 20 57 32 24 B2 57 33 24 20 A7 20 44 |2 .. W2$.W3$ . D| 00002AF0: 45 B2 34 00 17 33 2A 0D 91 20 44 45 20 89 20 32 |E.4..3*.. DE . 2| 00002B00: 38 32 30 2C 33 30 37 30 2C 33 33 38 30 2C 33 33 |820,3070,3380,33| 00002B10: 38 30 2C 33 34 37 30 00 38 33 34 0D 4C 57 B2 57 |80,3470.834.LW.W| 00002B20: 41 AB 57 42 3A 8B 20 57 4F AA 4C 57 B3 B2 32 35 |A.WB:. WO.LW..25| 00002B30: 34 20 A7 20 33 34 30 30 00 75 33 3E 0D 52 4F 25 |4 . 3400.u3>.RO%| 00002B40: 28 31 29 B2 57 4F AB 31 3A 52 55 B2 52 55 AA 31 |(1).WO.1:RU.RU.1| 00002B50: 3A 81 20 58 B2 57 4F AA 31 20 A4 32 35 34 3A 52 |:. X.WO.1 .254:R| 00002B60: 4F 25 28 58 29 B2 30 3A 82 58 3A 8D 31 31 33 30 |O%(X).0:.X:.1130| 00002B70: 3A 57 4F B2 31 00 87 33 48 0D 81 20 58 B2 57 42 |:WO.1..3H.. X.WB| 00002B80: AA 31 20 A4 20 57 41 00 93 33 52 0D 57 4F B2 57 |.1 . WA..3R.WO.W| 00002B90: 4F AA 31 00 A8 33 5C 0D 52 4F 25 28 57 4F 29 B2 |O.1..3\.RO%(WO).| 00002BA0: 52 30 25 28 4A 2C 58 29 00 B0 33 66 0D 82 20 58 |R0%(J,X)..3f.. X| 00002BB0: 00 C3 33 70 0D 57 50 24 B2 57 30 24 3A 8D 20 33 |..3p.WP$.W0$:. 3| 00002BC0: 36 33 30 00 FA 33 7A 0D 8B 20 44 45 B2 34 20 A7 |630..3z.. DE.4 .| 00002BD0: 20 57 31 24 B2 22 22 3A 57 33 24 B2 22 22 3A 57 | W1$."":W3$."":W| 00002BE0: 30 24 B2 22 22 3A 57 32 24 B2 22 22 3A 43 45 B2 |0$."":W2$."":CE.| 00002BF0: 43 45 AA 31 3A 89 32 39 37 30 00 1A 34 84 0D 57 |CE.1:.2970..4..W| 00002C00: 30 24 B2 22 22 3A 57 32 24 B2 22 22 3A 43 30 B2 |0$."":W2$."":C0.| 00002C10: 43 30 AA 31 3A 89 33 32 34 30 00 27 34 8E 0D 4C |C0.1:.3240.'4..L| 00002C20: 46 B2 57 45 AB 57 46 00 3F 34 98 0D 8B 20 57 4F |F.WE.WF.?4... WO| 00002C30: AA 4C 46 B3 B2 32 35 34 20 A7 20 33 35 30 30 00 |.LF..254 . 3500.| 00002C40: 7C 34 A2 0D 52 4F 25 28 31 29 B2 57 4F AB 31 3A ||4..RO%(1).WO.1:| 00002C50: 52 55 B2 52 55 AA 31 3A 81 20 58 B2 57 4F AA 31 |RU.RU.1:. X.WO.1| 00002C60: A4 32 35 34 3A 52 4F 25 28 58 29 B2 30 3A 82 20 |.254:RO%(X).0:. | 00002C70: 58 3A 8D 31 31 33 30 3A 57 4F B2 31 00 8E 34 AC |X:.1130:WO.1..4.| 00002C80: 0D 81 20 58 B2 57 46 AA 31 20 A4 20 57 45 00 9A |.. X.WF.1 . WE..| 00002C90: 34 B6 0D 57 4F B2 57 4F AA 31 00 AD 34 C0 0D 52 |4..WO.WO.1..4..R| 00002CA0: 4F 25 28 57 4F 29 B2 52 31 25 28 58 29 00 B5 34 |O%(WO).R1%(X)..4| 00002CB0: CA 0D 82 20 58 00 C8 34 D4 0D 57 50 24 B2 57 31 |... X..4..WP$.W1| 00002CC0: 24 3A 8D 20 33 36 33 30 00 E9 34 DE 0D 57 31 24 |$:. 3630..4..W1$| 00002CD0: B2 22 22 3A 57 33 24 B2 22 22 3A 43 31 B2 43 31 |."":W3$."":C1.C1| 00002CE0: AA 31 3A 89 20 32 39 37 30 00 FD 34 E8 0D 8B 20 |.1:. 2970..4... | 00002CF0: 57 4F B2 32 35 34 20 A7 20 33 35 39 30 00 31 35 |WO.254 . 3590.15| 00002D00: F2 0D 52 4F 25 28 57 4F AA 31 29 B2 32 35 35 3A |..RO%(WO.1).255:| 00002D10: 52 4F 25 28 31 29 B2 57 4F 3A 81 58 B2 57 4F AA |RO%(1).WO:.X.WO.| 00002D20: 32 A4 32 35 34 3A 52 4F 25 28 58 29 B2 30 3A 82 |2.254:RO%(X).0:.| 00002D30: 58 00 4A 35 FC 0D 52 55 B2 52 55 AA 31 3A 8D 20 |X.J5..RU.RU.1:. | 00002D40: 31 31 33 30 3A 89 33 36 31 30 00 79 35 06 0E 52 |1130:.3610.y5..R| 00002D50: 55 B2 52 55 AA 31 3A 8D 20 31 31 33 30 3A 52 55 |U.RU.1:. 1130:RU| 00002D60: B2 52 55 AA 31 3A 52 4F 25 28 31 29 B2 31 3A 52 |.RU.1:RO%(1).1:R| 00002D70: 4F 25 28 32 29 B2 32 35 35 00 9A 35 10 0E 81 20 |O%(2).255..5... | 00002D80: 58 B2 33 A4 32 35 34 3A 52 4F 25 28 58 29 B2 30 |X.3.254:RO%(X).0| 00002D90: 3A 82 58 3A 8D 20 31 31 33 30 00 A0 35 1A 0E 8E |:.X:. 1130..5...| 00002DA0: 00 E8 35 24 0E 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |..5$.. *********| 00002DB0: 2A 2A 2A 2A 2A 2A 2A 20 44 49 53 50 4C 41 59 20 |******* DISPLAY | 00002DC0: 57 4F 52 44 53 20 41 53 20 54 48 45 59 20 41 52 |WORDS AS THEY AR| 00002DD0: 45 20 42 45 49 4E 47 20 41 44 44 45 44 20 2A 2A |E BEING ADDED **| 00002DE0: 2A 2A 2A 2A 2A 2A 2A 2A 00 26 36 2E 0E 57 50 24 |********.&6..WP$| 00002DF0: B2 4C 24 AA 57 50 24 3A 8B 4A 31 B1 43 4F AA 32 |.L$.WP$:.J1.CO.2| 00002E00: 20 A7 20 8D 31 39 30 3A 54 46 24 B2 22 C2 45 49 | . .190:TF$.".EI| 00002E10: 4E 47 20 4D 45 52 47 45 44 22 3A 8D 31 36 34 30 |NG MERGED":.1640| 00002E20: 3A 4A 31 B2 51 43 00 3C 36 38 0E 8B 20 C3 28 57 |:J1.QC.<68.. .(W| 00002E30: 50 24 29 B2 31 20 A7 20 33 37 30 30 00 5D 36 42 |P$).1 . 3700.]6B| 00002E40: 0E 8B 20 C3 28 57 50 24 29 B1 31 39 20 A7 20 4A |.. .(WP$).19 . J| 00002E50: 31 B2 B5 28 4A 31 AD 32 29 AC 32 AA 31 00 69 36 |1..(J1.2).2.1.i6| 00002E60: 4C 0E 4A 31 B2 4A 31 AA 31 00 92 36 56 0E 43 4C |L.J1.J1.1..6V.CL| 00002E70: B2 32 30 AC 28 4A 31 AB B5 28 4A 31 AD 51 42 29 |.20.(J1..(J1.QB)| 00002E80: AC 51 42 29 3A 52 57 B2 B5 28 4A 31 AD 51 42 29 |.QB):RW..(J1.QB)| 00002E90: AA 31 00 B4 36 60 0E 99 20 22 13 22 3B C8 28 44 |.1..6`.. ".";.(D| 00002EA0: 4E 24 2C 52 57 29 3B C8 28 41 58 24 2C 43 4C 29 |N$,RW);.(AX$,CL)| 00002EB0: 3B 57 50 24 00 CE 36 6A 0E 8B 20 C3 28 57 50 24 |;WP$..6j.. .(WP$| 00002EC0: 29 B1 31 39 20 A7 20 4A 31 B2 4A 31 AA 31 00 D4 |).19 . J1.J1.1..| 00002ED0: 36 74 0E 8E 00 15 37 7E 0E 84 31 2C 44 36 24 2C |6t....7~..1,D6$,| 00002EE0: 44 37 24 2C 44 38 24 2C 44 39 24 3A 44 39 B2 C5 |D7$,D8$,D9$:D9..| 00002EF0: 28 44 36 24 29 3A 44 39 24 B2 44 36 24 AA 22 2C |(D6$):D9$.D6$.",| 00002F00: 22 AA 44 37 24 AA 22 2C 22 AA 44 38 24 AA 22 2C |".D7$.",".D8$.",| 00002F10: 22 AA 44 39 24 00 1B 37 88 0E 8E 00 39 37 92 0E |".D9$..7....97..| 00002F20: 52 39 B2 B5 28 52 52 AD 32 35 36 29 3A 52 38 B2 |R9..(RR.256):R8.| 00002F30: 52 52 AB 52 39 AC 32 35 36 00 5B 37 9C 0E 98 31 |RR.R9.256.[7...1| 00002F40: 2C 22 50 22 C7 28 39 36 AA 52 46 29 C7 28 52 38 |,"P".(96.RF).(R8| 00002F50: 29 C7 28 52 39 29 C7 28 31 29 3B 00 7F 37 A1 0E |).(R9).(1);..7..| 00002F60: 98 31 2C 22 50 22 C7 28 39 36 AA 52 46 29 C7 28 |.1,"P".(96.RF).(| 00002F70: 52 38 29 C7 28 52 39 29 C7 28 31 29 3B 3A 8E 00 |R8).(R9).(1);:..| 00002F80: C7 37 A6 0E 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.7... **********| 00002F90: 2A 2A 2A 2A 2A 2A 2A 2A 20 44 49 53 50 4C 41 59 |******** DISPLAY| 00002FA0: 20 53 54 41 54 49 53 54 49 43 53 20 2A 2A 2A 2A | STATISTICS ****| 00002FB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00002FC0: 2A 2A 2A 2A 2A 2A 2A 00 EF 37 B0 0E 8D 20 31 39 |*******..7... 19| 00002FD0: 30 3A 54 31 B2 30 3A 54 32 B2 30 3A 54 33 B2 30 |0:T1.0:T2.0:T3.0| 00002FE0: 3A 54 34 B2 30 3A 54 35 B2 30 3A 54 36 B2 30 00 |:T4.0:T5.0:T6.0.| 00002FF0: 22 38 BA 0E 99 20 22 13 11 20 4C 20 20 20 44 30 |"8... ".. L D0| 00003000: 20 20 20 44 31 20 20 44 55 50 20 20 20 20 20 4C | D1 DUP L| 00003010: 20 20 20 44 30 20 20 20 44 31 20 20 20 44 55 50 | D0 D1 DUP| 00003020: 11 22 00 31 38 C4 0E 81 20 47 B2 31 20 A4 20 31 |.".18... G.1 . 1| 00003030: 33 00 65 38 CE 0E 56 31 24 B2 C4 28 57 43 25 28 |3.e8..V1$..(WC%(| 00003040: 31 2C 47 29 29 3A 56 32 24 B2 C4 28 57 43 25 28 |1,G)):V2$..(WC%(| 00003050: 33 2C 47 29 29 3A 56 33 24 B2 C4 28 57 43 25 28 |3,G)):V3$..(WC%(| 00003060: 32 2C 47 29 29 00 A2 38 D8 0E 56 34 24 B2 C4 28 |2,G))..8..V4$..(| 00003070: 57 43 25 28 31 2C 31 33 AA 47 29 29 3A 56 35 24 |WC%(1,13.G)):V5$| 00003080: B2 C4 28 57 43 25 28 33 2C 31 33 AA 47 29 29 3A |..(WC%(3,13.G)):| 00003090: 56 36 24 B2 C4 28 57 43 25 28 32 2C 47 AA 31 33 |V6$..(WC%(2,G.13| 000030A0: 29 29 00 D3 38 E2 0E 54 31 B2 54 31 AA 57 43 25 |))..8..T1.T1.WC%| 000030B0: 28 31 2C 47 29 3A 54 32 B2 54 32 AA 57 43 25 28 |(1,G):T2.T2.WC%(| 000030C0: 33 2C 47 29 3A 54 33 B2 54 33 AA 57 43 25 28 32 |3,G):T3.T3.WC%(2| 000030D0: 2C 47 29 00 0D 39 EC 0E 54 34 B2 54 34 AA 57 43 |,G)..9..T4.T4.WC| 000030E0: 25 28 31 2C 47 AA 31 33 29 3A 54 35 B2 54 35 AA |%(1,G.13):T5.T5.| 000030F0: 57 43 25 28 33 2C 47 AA 31 33 29 3A 54 36 B2 54 |WC%(3,G.13):T6.T| 00003100: 36 AA 57 43 25 28 32 2C 47 AA 31 33 29 00 44 39 |6.WC%(2,G.13).D9| 00003110: F6 0E 99 20 22 20 22 3B C7 28 36 34 AA 47 29 3B |... " ";.(64.G);| 00003120: C8 28 53 50 24 2C 35 AB C3 28 56 31 24 29 29 3B |.(SP$,5..(V1$));| 00003130: 56 31 24 3B C8 28 53 50 24 2C 35 AB C3 28 56 32 |V1$;.(SP$,5..(V2| 00003140: 24 29 29 3B 00 6C 39 00 0F 99 20 56 32 24 3B C8 |$));.l9... V2$;.| 00003150: 28 53 50 24 2C 35 AB C3 28 56 33 24 29 29 3B 56 |(SP$,5..(V3$));V| 00003160: 33 24 3B C8 28 53 50 24 2C 35 29 3B 00 9F 39 0A |3$;.(SP$,5);..9.| 00003170: 0F 99 20 C7 28 37 37 AA 47 29 3B C8 28 53 50 24 |.. .(77.G);.(SP$| 00003180: 2C 35 AB C3 28 56 34 24 29 29 3B 56 34 24 3B C8 |,5..(V4$));V4$;.| 00003190: 28 53 50 24 2C 35 AB C3 28 56 35 24 29 29 3B 00 |(SP$,5..(V5$));.| 000031A0: BD 39 14 0F 99 20 56 35 24 3B C8 28 53 50 24 2C |.9... V5$;.(SP$,| 000031B0: 35 AB C3 28 56 36 24 29 29 3B 56 36 24 00 C5 39 |5..(V6$));V6$..9| 000031C0: 1E 0F 82 20 47 00 FB 39 28 0F 56 31 24 B2 C4 28 |... G..9(.V1$..(| 000031D0: 54 31 29 3A 56 32 24 B2 C4 28 54 32 29 3A 56 33 |T1):V2$..(T2):V3| 000031E0: 24 B2 C4 28 54 33 29 3A 56 34 24 B2 C4 28 54 34 |$..(T3):V4$..(T4| 000031F0: 29 3A 56 35 24 B2 C4 28 54 35 29 00 30 3A 32 0F |):V5$..(T5).0:2.| 00003200: 56 36 24 B2 C4 28 54 36 29 3A 54 31 B2 54 31 AA |V6$..(T6):T1.T1.| 00003210: 54 34 3A 54 32 B2 54 32 AA 54 35 3A 54 33 B2 54 |T4:T2.T2.T5:T3.T| 00003220: 33 AA 54 36 3A 54 34 B2 54 31 AA 54 32 AA 54 33 |3.T6:T4.T1.T2.T3| 00003230: 00 61 3A 3C 0F 99 20 22 11 20 20 22 3B C8 28 53 |.a:<.. ". ";.(S| 00003240: 50 24 2C 35 AB C3 28 56 31 24 29 29 3B 56 31 24 |P$,5..(V1$));V1$| 00003250: 3B C8 28 53 50 24 2C 35 AB C3 28 56 32 24 29 29 |;.(SP$,5..(V2$))| 00003260: 3B 00 89 3A 46 0F 99 20 56 32 24 3B C8 28 53 50 |;..:F.. V2$;.(SP| 00003270: 24 2C 35 AB C3 28 56 33 24 29 29 3B 56 33 24 3B |$,5..(V3$));V3$;| 00003280: C8 28 53 50 24 2C 36 29 3B 00 B4 3A 50 0F 99 20 |.(SP$,6);..:P.. | 00003290: C8 28 53 50 24 2C 35 AB C3 28 56 34 24 29 29 3B |.(SP$,5..(V4$));| 000032A0: 56 34 24 3B C8 28 53 50 24 2C 35 AB C3 28 56 35 |V4$;.(SP$,5..(V5| 000032B0: 24 29 29 3B 00 D2 3A 5A 0F 99 20 56 35 24 3B C8 |$));..:Z.. V5$;.| 000032C0: 28 53 50 24 2C 35 AB C3 28 56 36 24 29 29 3B 56 |(SP$,5..(V6$));V| 000032D0: 36 24 00 F6 3A 64 0F 99 20 22 11 44 30 20 43 4F |6$..:d.. ".D0 CO| 000032E0: 4E 54 52 49 42 55 54 45 44 22 3B 54 31 3B 22 20 |NTRIBUTED";T1;" | 000032F0: 57 4F 52 44 53 22 00 19 3B 6E 0F 99 20 22 44 31 |WORDS"..;n.. "D1| 00003300: 20 43 4F 4E 54 52 49 42 55 54 45 44 22 3B 54 32 | CONTRIBUTED";T2| 00003310: 3B 22 20 57 4F 52 44 53 22 00 40 3B 78 0F 99 20 |;" WORDS".@;x.. | 00003320: 22 4E 55 4D 42 45 52 20 4F 46 20 44 55 50 4C 49 |"NUMBER OF DUPLI| 00003330: 43 41 54 45 20 57 4F 52 44 53 20 3D 22 3B 54 33 |CATE WORDS =";T3| 00003340: 00 67 3B 82 0F 99 20 22 4E 45 57 20 44 49 43 54 |.g;... "NEW DICT| 00003350: 49 4F 4E 41 52 59 20 48 41 53 22 3B 54 34 3B 22 |IONARY HAS";T4;"| 00003360: 20 57 4F 52 44 53 22 00 74 3B 8C 0F 8D 20 32 33 | WORDS".t;... 23| 00003370: 33 30 3A 8E 00 00 00 |30:.... |
..?.... TIME OF LAST UPDATE JANUARY 29
/83 AT 14.00 V2.0.P.... V2.0 INCLU
DES SUPPORT FOR THE COMMODORE 64...... V
2.0 INCLUDES STATISTICS IN THE CONTRIBUT
ION OF EACH DICTIONARY...(.. COPYRIGHT B
Y RICHVALE TELECOMMUNICATIONS. JANUARY 1
983....2.CO.80: . INPUT "HOW MANY COLUMN
S";CO.M.<.. B(44).8 . CO.40:. 53280,14:.
53281,6:."."...F.Q1$.G(32):QB.4:QC.3:Q4
$.G(142):Q5$.G(14):Q7$." "...P
.QD.36:QE.10:QF.21...Z.PA.144:PB.88:PC.8
5:PD.150.R.D.. CO.80 . 130...N.Q1$.G(13)
:QB.2:QC.1:Q7$."":QD.16:QE.6:QF.20. .X.P
A.788:PB.52:PC.49:PD.144.H...BA$.".
.":.CO
.80. BA$.BA$.BA$.....AX$."..............
........................................
..........".....BX$."...................
.....................":. CO.80 . BX$.BX$
.BX$... .TE$."DICTIONARY MERGE PROGRAM".
Q...DN$.".........................":DO.2
3:. PA,PB.G....1370:. 190:. 210...... ".
";BA$;BX$;".";H(AX$,(CO.C(TE$)).2);TE$..
.H.TF$." ":. 1640:..I.R.TF$."INITIALIZIN
G":. 1640......1,8,15 :. COMMAND CHANN
EL.....MX.650:NM.20.?.... S0%(27),E0%(26
),S1%(27),E1%(26),D0%(254),D1%(254),R0%(
20,254).J.... R1%(254),RO%(255),TK$(127)
,WC%(3,26).....AB$."ABCDEFGHIJKLMNOPQRST
UVWXYZ"...... I.0.127:. TK$(I):. I.....S
P$."
":SP$.SP$.SP$...".S0%(27).MX:S1%(27).
MX...,.DN.0:.1780.8.6.TF$."LOADING DIREC
TORY -D0":. 1640.I.@.. TX.3 . 370.C.J..2
,8,2,"0:DICTIONARY"...T..3710:MO.D9:MO$.
D9$:. MO.20 . 380...^.. MO.21 . 2:TX.TX
.1:.300.E.H.. MO.62 . 2:TX.TX.1:.300...
R.. 190:. ".....DISK ERROR:"MO$: 2: 1:.P
A,PC:....|.RF.2:RR.1:.3730...... I.1 . 2
54.%....#2,A$.A.... A$."" . D0%(I).0:.43
0.R...D0%(I).F(A$).D.... I:TX.0:.450.S..
.DN.1:.1780...B.TF$."LOADING DIRECTORY -
D1":. 1640...L.. TX.3 . 510.E.V..3,8,3,"
1:DICTIONARY"......3710:MO.D9:MO$.D9$:.
MO.20 . 520...... MO.21 . 3:TX.TX.1:.44
0.'.... MO.62 . 3:TX.TX.1:.440.[.... 19
0:. ".....DISK ERROR:"MO$: 2: 3: 1:.PA,P
C:..O...RF.3:RR.1:.3730..... I.1 . 254.
.....#3,A$...&.. A$."" . D1%(I).0:.570..
.0.D1%(I).F(A$)...:.. I.M.D.. I.1. 26...
N.Z1.D0%(I.2.1). 127...X.Z2.2.(D0%(I.2).
64)...B.Z3.256.(D0%(I.2.51). 127)...L.S
0%(I).Z1.Z2.Z3.G.V.Z1.D0%(I.2.103). 127.
C...Z2.2.(D0%(I.2.104). 64).....Z3.256.(
D0%(I.2.155). 127).....E0%(I).Z1.Z2.Z3..
...Z1.D1%(I.2.1). 127.E...Z2.2.(D1%(I.2)
. 64).....Z3.256.(D1%(I.2.51). 127).....
S1%(I).Z1.Z2.Z3...F.Z1.D1%(I.2.103). 127
.,.P.Z2.2.(D1%(I.2.104). 64).K.Z.Z3.256.
(D1%(I.2.155). 127)._...E1%(I).Z1.Z2.Z3.
G.... I.....IS.1:IE.13:DN.0:. 2030:. DIS
PLAY DICTIONARY DIRECTORY.H.... CO.40 .
IS.14:IE.26:DN.0:. 2030.....IS.1:IE.13:
DN.1:. 2030...... CO.40 . IS.14:IE.26:D
N.1:. 2030.:. .. 2380:. CHECK DIRECTORY
VALIDITY FOR MERGE.N.*.TF$."MERGE THE WH
OLE DICTIONARY ? (Y/N)":. 1640...4.. A$:
. A$."" . 820...>.. A$."Y" . 970...H.. A
$.."N" . 820...R.TF$."MERGE WORDS FOR WH
ICH LETTER ? ===> ":.1640...\.. L$:. L$
."" . 860...F.. L$."A" . L$."Z" . 860.8.
P.TF$."WORKING ON ".L$:.1640:L.0.V.Z.L.L
.1:.L$.J(AB$,L,1). 910.`.... 890...... 1
040:. MERGE CONTROL ROUTINE.....TF$."MER
GE ANOTHER LETTER (Y/N) ":.1640.F.... A$
:. A$."" . 930.Y.... A$."Y" . 850......
A$.."N" . 930...... 1020.$.J.. G.1 . 26:
L.G:L$.TK$(G):C0.0:C1.0:CE.0./.T.. 1040.
W...WC%(1,G).C0:WC%(2,G).CE:WC%(3,G).C1.
_.... G.J.... 3760.U.... 1670...... ****
************ MERGE CONTROL ROUTINE *****
*********************.U...SA.S0%(L):EA.E
0%(L)...... 2710:. BUILD R0 ARRAY...$.S
B.S1%(L):EB.E1%(L).1.... 1570:. READ REC
ORD INT0 R1 ARRAY.U.8.. 190:TF$."WORKING
- ".L$:.1640...B.. 2810:. MERGE DICTION
ARIES FOR THIS LETTER...L.RU.RU.1:. 1220
:. UPDATE DIRECTORY...V.....`.. ********
********* WRITE DICTIONARY RECORD ******
*****************./.J.TF$."I AM STILL WO
RKING AS HARD AS I CAN.":. 1640.D.T.RF.2
:RR.RU:.3730.V.~.PR$.G(RO%(1)).F.... P.2
. 254.|...PR$.PR$.G(RO%(P))...... P....
..2,PR$;............ ***************** W
RITE DIRECTORY RECORD ******************
******...D.TF$."WRITING DIRECTORY RECORD
":. 1640...N.. RU.E0%(L) . 1350.?.X.EH..
((RU).256):EL.RU.EH.256._...D0%(L.2.103)
.(128.(EL.127)).....D0%(L.2.104).(128.(E
L.128).2).....D0%(L.2.155).(128.(EH.127)
).C...D0%(L.2.156).(128.(EH.128).2).W...
RF.2:RR.1:.3730.....PR$.G(D0%(1))......
P.2 . 254...(.PR$.PR$.G(D0%(P))...2.. P.
#.<..2,PR$;.).F...Q.P.. ****************
***** COMMERCIAL **********************
*********..Z.. ".";Q4$...N.TF$." ":DO.1
:. 1640.Y.X.TF$."JANUARY-83".Q7$."
VERSION 2.0 ":DO.2:. 1640.....TF
$." ":. DO.3 . 9:. 1640:. DO.,...TF$."D
ICTIONARY MERGE PROGRAM":DO.9:. 1640.E..
.TF$." ":DO.10:. 1640.`. .TF$."FOR":DO.1
1:. 1640.Y...TF$." ":DO.12:. 1640.....TF
$."RICHVALE TELECOMMUNICATIONS":DO.13:.
1640.E...TF$." ":DO.14:. 1640.X.C.. CO.4
0 . 1485...H.TF$."RTC-4 WORD PROCESSING
SYSTEMS":DO.15:. 1640:. 1490.M.M.TF$."SC
RIPT 64 WORD PROCESSING SYSTEMS":DO.15:.
1640.R.R.TF$." ":. DO.16 . 21:. 1640:.
DO.....TF$.Q7$." BY
BILL DUTFIELD":DO.22...... 1640.Q...TF$
." ":DO.23:. 1640...... I.1.5000 :.I:DO.
23:. Q5$.......>.... **************** SU
BROUTINE TO READ A RECORD***************
******.Y.".RF.3:RR.SB:.3730:.PD,0.J.,..
I1.1 . 254...6.. ST.0 . .#3,RI$:R1%(I1).
F(RI$):.1610...@.R1%(I1).0...J.. I1...T.
....^.. **************** PRINT BOTTOM CO
NTROL LINE **********************.2.H..
".";H(DN$,DO);BA$;BX$;".";H(AX$,(CO.C(TF
$)).2);TF$.8.R.....|.. *****************
****** TERMINATION *********************
********..... 2: 3: 1.B....".".(O);"....
................GOOD BYE":.PA,PC:.......
*********** DATA TO TRANSLATE TOKENIZED
DICTIONARY **************.F.... !,A,B,C
,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W
,X,Y,Z...... ING,ED,TION,SION,IES,LY,ESS
,ARE,NCE,GHT,IVE,OR,EST,ENT,ATE.J.... BL
E,OUS,IST,TIC,ARY,PLE,ANE,TCH,TLE,AGE,EA
R,OUR,EED,ES,EA,OO...B.. EE,IA,AI,OU,AU,
QU,ECT,CT,IE,EI,CK,RE,TH,AKE,STER,ST,PER
,ERT.P.L.. LAR,NCT,PL,AR,ER,OS,TEN,EPT,T
R,EN,TT,TER,ON,SP,SC,EL,RT,CH,AL...V.. L
L,NN,DD,PP,RR,CAL,UI,IN,NTER,NT,RY,UA,AN
D,ANT,AN,ND,PER,NSTR.O.... ENT,DGE,LAT,O
LD,END,TAL,SS,PH,THER,ACT,ECT,LA,LE,\,^.
..... ***************** A CAUTION NOTE O
N USE *************************.5...TF$.
"CAUTION":DO.3:. 1640.Y...TF$."=======":
DO.4:. 1640:DO.23......".THIS PROGRAM WI
LL MERGE THE DICTIONARY";Q1$;......"IN D
RIVE 1 WITH THAT ON DRIVE 0."...... Q3$;
"AS THIS PROGRAM MODIFIES BOTH THE";Q1$;
.. &.. "RECORDS AND THE MAIN DIRECTORY O
F THE".N 0.. Q3$;"OF THE DICTIONARY IN .
DRIVE D0.; IT IS";Q1$;.Z :.. "STRONGLY R
ECOMMENDED THAT A BACK-UP".. D.. Q3$;"CO
PY OF THE DICTIONARY DISK BE TAKEN";Q1$;
.Y N.. ".BEFORE. THIS MERGE ACTIVITY BE
".. X.. Q3$;"UNDER-TAKEN."..!B.. MO..21
. 1920.D!L.. H(DN$,QE);".INSERT THE DICT
IONARY DISK IN DRIVE";DN;".".N!V..1970.
!... ".PLACE MASTER DICTIONARY DISK IN D
RIVE 0"..!... ".INSERT THE DISK WITH DIC
TIONARY TO BE";Q1$;.M!... "MERGED IN DRI
VE 1".."... MO.62..".";H(DN$,QF);".FILE
NOT FOUND :DRIVE -";DN;Q1$;.1"... MO.62
. .".INSERT CORRECT DISK".F"..TF$."PRESS
'Y' TO CONTINUE OR 'S' TO STOP":.1640.}
"...A$:. A$."" . 1980.."F.. A$."S" . .16
70.."P.. A$.."Y" . 1980.M"Z.. ".";H(DN$,
20);SP$;:. SP$:MO.0:...#... ************
**** DISPLAY DICTIONARY DIRECTORY ******
*************.&#... 190:."...".C#... .QD
);".DRIVE D.";DN;".._#... .16);"DIRECTOR
Y";Q1$;..#... CO.80 . . .56);"DIRECTORY"
..#... " START END USED UNUSE
D ";Q1$;..# .. CO.80 . . "
START END USED UNUSED"..#*.. I.
IS . IE..$4.. DN.1 . 2220.T$>.V1$.D(S0%(
I)):V2.E0%(I).1:V2$.D(V2):V3.E0%(I).S0%(
I):V3$.D(V3).$H.V4.S0%(I.1).E0%(I):V4$.
D(V4):R1%(I).V3..$R.. G(I.64);H(SP$,7.C(
V1$));V1$;H(SP$,11.C(V2$));V2$;..$\.. H(
SP$,6.C(V3$));V3$;H(SP$,8.C(V4$));V4$;..
%F.. Q1$;:. CO.40 . 2320..%P.. H(SP$,12)
;.V%Z.V1$.D(S0%(I.13)):V2.E0%(I.13).1:V2
$.D(V2):V3.E0%(I.13).S0%(I.13)..%..V3$.D
(V3):V4.S0%(I.14).E0%(I.13):V4$.D(V4):R1
%(I.13).V3.J%... G(I.77);H(SP$,7.C(V1$))
;V1$;H(SP$,11.C(V2$));V2$;..%... H(SP$,6
.C(V3$));V3$;H(SP$,8.C(V4$));V4$..&... 2
320.F&..V1$.D(S1%(I)):V2.E1%(I).1:V2$.D(
V2):V3.E1%(I).S1%(I):V3$.D(V3).Q&..V4.S1
%(I.1).E1%(I):V4$.D(V4):RO%(I).V3..&...
G(I.64);H(SP$,7.C(V1$));V1$;H(SP$,11.C(V
2$));V2$;.X&J.. H(SP$,6.C(V3$));V3$;H(SP
$,8.C(V4$));V4$;..&T.. Q1$;:. CO.40 . 23
20..'... H(SP$,12);.H'..V1$.D(S1%(I.13))
:V2.E1%(I.13).1:V2$.D(V2):V3.E1%(I.13).S
1%(I.13)..'..V3$.D(V3):V4.S1%(I.14).E1%(
I.13):V4$.D(V4):RO%(I.13).V3..'... G(I.7
7);H(SP$,7.C(V1$));V1$;H(SP$,11.C(V2$));
V2$;..'... H(SP$,6.C(V3$));V3$;H(SP$,8.C
(V4$));V4$..'... I..(..TF$."PRESS 'Y' TO
CONTINUE":.1640./($..A$:. A$."" . 2340.
D(... A$.."Y" . 2340.J(8....(B.. *******
****** CHECK VALIDITY FOR MERGE ********
******************..(L.VA.0:VB.0:VC.0:.
190:."."..(V.. I.1 . 26.W(`.. R1%(I). NM
. VA.1..(J.. RO%(I). NM . VB.1..)T.. R1
%(I).RO%(I).S0%(I.1).S0%(I).1 . VC.1.$)~
.. I.=)... VA.0 . VC.0 . 2690.P)... VA..
1 . 2480..)..."......DICTIONARY IN DRIVE
0 IS TOO LARGE TO";Q1$;..)...".ACT AS T
HE MERGE RECIEVING DICTIONARY.".J)... VB
..1 . 2530..)... VA.0 . 2530..*D.."...DI
CTIONARY IN DRIVE 1 IS ALSO TOO LARGE";Q
1$;.?*N..".TO ACT AS THE RECIEVING DICTI
ONARY.".M*X.."...I'M SORRY YOU ARE OUT O
F LUCK":.2650..*... VB.0 . VA.0 . VC.0 .
2690. *... VC..0 . 2590.T*..."..THE DIC
TIONARY IN DRIVE 1 MAY BE ABLE";Q1$;..*.
.."TO ACT AS A RECIEVING DICTIONARY.".1+
...".INTERCHANGE THE DICTIONARIES IN DRI
VES";Q1$;._+..."0 AND 1 AND RERUN THIS P
ROGRAM.":. 2650..+..."..THE MERGING OF T
HE DICTIONARIES WILL";Q1$;.L+(.."RESULT
IN THE ALLOCATED SPACE BEING ":. "EXCEED
ED."..+2.."YOU MAY BE ABLE TO MODIFY YOU
R";Q1$;.#,<.."DICTIONARY BLOCK ALLOCATIO
NS THROUGH".P,F.."USING THE DICTIONARY M
AINTENANCE";Q1$;.`,P.."PROGRAM."..,Z.TF$
."PRESS 'Y' TO CONTINUE":.1640..,D..A$:.
A$."" . 2660..,N.. A$.."Y" . 2660..,X..
1670.B,.....-... ******* READ WORDS FOR
ONE LETTER FROM MASTER DICTIONARY ******
**..-..JM.0:. I.SA . EA.+- .JM.JM.1.F-..
RF.2:RR.I:.3730:.150,0.W-... I1.1 . 254.
.-... ST.0 . .#2,RI$:R0%(JM,I1).F(RI$):.
2770..-H.R0%(JM,I1).0..-R.. I1..-... I..
-.....-... *************** BUILD THE OUT
PUT RECORDS ************************.'..
.J.0:K.1:WO.1:RU.SA.1:WA.1:WE.1:EF.1:DE.
2:J1.QC.G...W1$."":W3$."":I.1:. R1%(1).2
55 . R1%(2).255 . EF.EF.1:.2940.Q...I.I.
1....ZX.R1%(I)...".. ZX.126 . ZX.127 .
ZX.254 . 2970...,.. ZX.255 . 3050.K.6..
ZX.0 . 2990.Y.@.EW.ZX.128...J.CH.ZX.127.
..T.W1$.W1$.TK$(CH)../^.W3$.W3$.G(CH)../
H.. EW.0 . 2970../R.WF.WE:WE.I.?/|..DE.2
. 3070.P/...DE.4 . 3240.[/... 3330.M/..
. I.254 .2830.W/..I.I.1../..ZX.R1%(1).2.
./...ZX.I . 3040../B.. 190../L..".....BL
OCK LENGTH ERROR DETECTED: DICTIONARY -
DRIVE 0:",ZX;I..0V.. ".BLOCK #";SB:.2330
:.3050.%0..WE.1:SB.SB.1:. 1570:. 2820.F0
..EF.EF.1:. DE.4 . DE.0:. 3240.V0..DE.0:
. 3330..0..W0$."":W2$."":J.J.1:K.1:. R0%
(J,1).255. R0%(J,2).255. 3320..0... J..J
M . 3120..0... 190..0...".....END OF BLO
CK MARKER MISSING - DRIVE 0";SA.J.1:. 23
30..0&..3270..10.K.K.1..1:.ZX.R0%(J,K).<
1D.. ZX.126 . ZX.127 . ZX.254 . 3240.P1N
.. ZX.255 . 3320.B1X.. ZX.0 . 3260.P1B.E
W.ZX.128.~1L.CH.ZX.127..1V.W0$.W0$.TK$(C
H)..1..W2$.W2$.G(CH)..1... EW.0 . 3240.E
1..WB.WA:WA.K.P1... 3330..1... K.254 . 3
120..1..K.K.1..1..ZX.R0%(J,1).2..2F..ZX.
K . 3310..2P.. 190.^2Z..".....BLOCK LENG
TH ERROR DETECTED: DICTIONARY - DRIVE 1:
",ZX;K..2... ".BLOCK #";SA.1:.2330:.3320
..2..WA.1:. 3070..2..EF.EF.2:DE.0..2...
EF . 3340,3380,3470,3560.I2..DE.5..2...
W2$.W3$ . DE.3..2 .. W2$.W3$ . DE.4..3*.
. DE . 2820,3070,3380,3380,3470.834.LW.W
A.WB:. WO.LW..254 . 3400.U3>.RO%(1).WO.1
:RU.RU.1:. X.WO.1 .254:RO%(X).0:.X:.1130
:WO.1..3H.. X.WB.1 . WA..3R.WO.WO.1..3\.
RO%(WO).R0%(J,X)..3F.. X.C3P.WP$.W0$:. 3
630..3Z.. DE.4 . W1$."":W3$."":W0$."":W2
$."":CE.CE.1:.2970..4..W0$."":W2$."":C0.
C0.1:.3240.'4..LF.WE.WF.?4... WO.LF..254
. 3500.|4..RO%(1).WO.1:RU.RU.1:. X.WO.1
.254:RO%(X).0:. X:.1130:WO.1..4... X.WF.
1 . WE..4..WO.WO.1..4..RO%(WO).R1%(X)..4
J.. X.H4T.WP$.W1$:. 3630..4..W1$."":W3$.
"":C1.C1.1:. 2970..4... WO.254 . 3590.15
..RO%(WO.1).255:RO%(1).WO:.X.WO.2.254:RO
%(X).0:.X.J5..RU.RU.1:. 1130:.3610.Y5..R
U.RU.1:. 1130:RU.RU.1:RO%(1).1:RO%(2).25
5..5... X.3.254:RO%(X).0:.X:. 1130. 5...
..5$.. **************** DISPLAY WORDS AS
THEY ARE BEING ADDED **********.&6..WP$
.L$.WP$:.J1.CO.2 . .190:TF$."BEING MERGE
D":.1640:J1.QC.<68.. C(WP$).1 . 3700.]6B
.. C(WP$).19 . J1..(J1.2).2.1.I6L.J1.J1.
1..6V.CL.20.(J1..(J1.QB).QB):RW..(J1.QB)
.1..6`.. ".";H(DN$,RW);H(AX$,CL);WP$.N6J
.. C(WP$).19 . J1.J1.1.T6T....7~..1,D6$,
D7$,D8$,D9$:D9.E(D6$):D9$.D6$.",".D7$.",
".D8$.",".D9$..7....97..R9..(RR.256):R8.
RR.R9.256.[7...1,"P"G(96.RF)G(R8)G(R9)G(
1);.7...1,"P"G(96.RF)G(R8)G(R9)G(1);:..
G7... ****************** DISPLAY STATIST
ICS ***************************..7... 19
0:T1.0:T2.0:T3.0:T4.0:T5.0:T6.0."8... ".
. L D0 D1 DUP L D0 D1 DUP
.".18D.. G.1 . 13.E8N.V1$.D(WC%(1,G)):V2
$.D(WC%(3,G)):V3$.D(WC%(2,G))..8X.V4$.D(
WC%(1,13.G)):V5$.D(WC%(3,13.G)):V6$.D(WC
%(2,G.13)).S8..T1.T1.WC%(1,G):T2.T2.WC%(
3,G):T3.T3.WC%(2,G)..9..T4.T4.WC%(1,G.13
):T5.T5.WC%(3,G.13):T6.T6.WC%(2,G.13).D9
... " ";G(64.G);H(SP$,5.C(V1$));V1$;H(SP
$,5.C(V2$));.L9... V2$;H(SP$,5.C(V3$));V
3$;H(SP$,5);..9... G(77.G);H(SP$,5.C(V4$
));V4$;H(SP$,5.C(V5$));..9... V5$;H(SP$,
5.C(V6$));V6$.E9... G..9(.V1$.D(T1):V2$.
D(T2):V3$.D(T3):V4$.D(T4):V5$.D(T5).0:2.
V6$.D(T6):T1.T1.T4:T2.T2.T5:T3.T3.T6:T4.
T1.T2.T3.A:<.. ". ";H(SP$,5.C(V1$));V1$
;H(SP$,5.C(V2$));..:F.. V2$;H(SP$,5.C(V3
$));V3$;H(SP$,6);..:P.. H(SP$,5.C(V4$));
V4$;H(SP$,5.C(V5$));.R:Z.. V5$;H(SP$,5.C
(V6$));V6$..:D.. ".D0 CONTRIBUTED";T1;"
WORDS"..;N.. "D1 CONTRIBUTED";T2;" WORDS
".@;X.. "NUMBER OF DUPLICATE WORDS =";T3
.G;... "NEW DICTIONARY HAS";T4;" WORDS".
T;... 2330:....
> CLICK IMAGE PREVIEW FOR FULL MODAL