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:23:12
APPEARS ON: 1 disk(s)
FILE HASH
040adf737c304f1413075582caa363846f8f74d2ada2e1a60c8c01ac0ebaed22
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 HULP 14 1 | 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: 8F 9D 7B 87 8F 8D FF FF 8F B1 FF FF 9F FF 9F 9F |..{.............|
00001CF0: 8D 9D FD 9F F8 70 D9 87 8F 8F C1 9F 89 89 99 8F |.....p..........|
00001D00: FF FF 9F BF FF FF 9F FF 9F 79 7F 8F 8F 9F 99 8F |.........y......|
00001D10: 9D FF FB 8F BD FF 7B 8F 9F C9 F7 8F 79 9F 8F 9F |......{.....y...|
00001D20: 7F DC 8F 99 9F 9F 9D FB 89 C9 FF 9F 8F 9F 7F DC |................|
00001D30: 8F 99 9F DC 9F 9D FB 89 8F C9 F7 8F 7B 89 8F 9D |............{...|
00001D40: FB 89 D9 FF 9F 8F 9F 7F DC 8F 99 9F DC 79 9F 8F |.............y..|
00001D50: 9F 7F DC 8F 99 9F FF F9 8F F7 FF 7B 89 9F C9 F7 |...........{....|
00001D60: 8F 7B 89 9F 9D FB 87 C9 F9 9F 8F 9F 7F DC 8F 97 |.{..............|
00001D70: 8F DC 7F 9F 8F 9F 7F DC 8F 99 9F 9D FB 87 8F C9 |................|
00001D80: F7 8F 7B 87 8F 9D F9 8F 9F 9F 7F DC 8F 99 9F D9 |..{.............|
00001D90: FB 89 FF FD 8F FF FF FF 9F FB 9F 7F DC 8B 9B 9F |................|
00001DA0: 9D 6F 9F 79 7F 8F 8F 9B DC 69 9F 7B 8F 9F 8F 9F |.o.y.....i.{....|
00001DB0: 9D 7B 8F 9F 8D 6F 9F 79 7F 8F 8F 9F 9F DC 69 9F |.{...o.y......i.|
00001DC0: 7B 89 8F 8F 2B F6 FC FF FD F6 FF 03 FF 22 F3 33 |{...+........".3|
00001DD0: FF A3 F2 FF EF FD FB FC F6 BF F2 FC FF FD F6 1F |................|
00001DE0: 5C EA 44 8A 5C FF 8F EC D0 8A 86 CF 1C 64 8F EA |\.D.\........d..|
00001DF0: CA 8A 1F 6F EB DF BF 32 22 FF F6 F2 20 4F 2F FF |...o...2"... O/.|
00001E00: FF FF A2 23 FF F6 30 21 DF AF 36 F3 1F 21 FF AF |...#..0!..6..!..|
00001E10: 3F 21 6F 6F 6F E3 DF F6 F3 3F AF 3F 21 69 FD C9 |?!ooo....?.?!i..|
00001E20: F9 DF B8 98 FC 9F 78 F7 B8 98 F9 DF B8 9D 9F F9 |......x.........|
00001E30: F9 F9 F7 C2 9A B5 33 12 52 84 92 BF FF CF FF D7 |......3.R.......|
00001E40: FA DF 2F CF FF 2F F4 7F C7 FF 2F CF D7 FF FF 7F |../../..../.....|
00001E50: FF 2D 3F FF 7F 3F 6F FF 7F FF 2D 3F 3F FF CF DF |.-?..?o...-??...|
00001E60: D7 FA DF 2F CF DF 3F FF FD 1F FF 2D 3F 37 FF CF |.../..?....-?7..|
00001E70: FF FF 3F FA FF 33 3F FB 5F 2D 3F FF CF DF 3F 6A |..?..3?._-?...?j|
00001E80: 3F 2F FE FF DF BF 5F 6B FF 2F CF 7F DF 3F 35 CE |?/...._k./...?5.|
00001E90: AC 48 A5 CF F8 FE CD 08 A8 6C 4C 51 C6 48 FE A4 |.H.......lLQ.H..|
00001EA0: 08 A1 F6 9D 7B 89 8F 8D FF 4F 91 FD FF FF 9F FF |....{....O......|
00001EB0: 9F 79 7F 8F 8F 9B CC 69 9F 7B 89 9F F6 9F 9D 7B |.y.....i.{.....{|
00001EC0: 89 B5 24 3B C8 28 53 50 24 2C 38 AB C3 28 56 34 |..$;.(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 8D FF FF 91 FF FF 7B 8F 9F C9 F7 8F 79 9F |2)......{.....y.|
00001F10: 9F 9F 7F DC 8F 99 9F 9F 9D FB 89 C9 FF 9F 9F 9F |................|
00001F20: 7F DC 8F 99 9F DC 9F 9D FB 89 8F C9 F7 8F 7B 89 |..............{.|
00001F30: 8F 9D FB 89 D9 FF 9F 9F 9F 7F DC 8F 99 9F DC 79 |...............y|
00001F40: 9F 9F 9F 7F DC 8F 99 9F FF F7 81 A9 FF 7B 89 9F |.............{..|
00001F50: C9 F7 8F 7B 89 9F 9D FB 87 C9 F9 9F 9F 9F 7F DC |...{............|
00001F60: 8F 97 8F DC 7F 9F 9F 9F 7F DC 8F 99 9F 9D FB 87 |................|
00001F70: 8F C9 F7 8F 7B 87 8F 9D F9 F0 9F 9F 7F DC 8F 99 |....{...........|
00001F80: 9F D9 FB 89 FF C6 91 A6 FF FF 9F FB 9F 7F DC 8B |................|
00001F90: 9B 9F 9D 6F 9F 79 7F 8F 8F 9B DC 69 9F 7B 8F 9F |...o.y.....i.{..|
00001FA0: 8F 9F 9D 7B 8F 9F 8D 6F 9F 79 7F 8F 8F 9F 9F DC |...{...o.y......|
00001FB0: 69 9F 7B 89 8F 8F 9F 9D 7B 89 8F 8D FF 5C 81 F1 |i.{.....{....\..|
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 88 |(V4$));V4$..'...|
00001FF0: 8F FF FF FF 9F FD FF 77 F1 8F C9 88 4F F9 FF 79 |.......w....O..y|
00002000: 79 9F 81 7F FF F2 3B 3F F2 3F BF 17 3B 36 17 3B |y.....;?.?..;6.;|
00002010: B3 FF FE 25 FA FD FB FA 22 FF F2 F3 26 42 B2 F3 |...%...."...&B..|
00002020: FE 24 F2 32 F3 6F FF FF F2 6F F2 FF FF FB FA 22 |.$.2.o...o....."|
00002030: 33 F2 F7 26 04 F2 32 F3 6F EA FF 3E FF F2 6F F2 |3..&..2.o..>..o.|
00002040: FF FF FB FA 22 36 F2 FA 06 05 22 69 8F 78 FF FA |...."6...."i.x..|
00002050: 9F 8C 8C 8C 8C 8C 8C 8C 8C 8C 8C 8C 8C 8C 8F F8 |................|
00002060: 7F 7F 78 7C 9F FB FF 7F 7F 7F FF 77 FF 9F F1 F0 |..x|.......w....|
00002070: 79 8F F4 7F 79 F1 7F 9F 8C 8C 8C 8C 8C 8C 8C 8C |y...y...........|
00002080: 8C 8C 8C 8C 8C 8C 8C 8C 8C 8C 8C 8C 8C 8C 8C 8C |................|
00002090: 8C 8C FF CF 8F 7F FF 7B FF D9 8F 8D FB F8 C9 8F |.......{........|
000020A0: 8D FB F8 D9 8F 8D FE 9F 8F 9F 9F 8D FF 98 F9 98 |................|
000020B0: FF CA 9F 7B FF FF 9F FF D9 8F 9F CF 8F 89 36 00 |...{..........6.|
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 85 88 FF FD 8F DF FF 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 3F 9F 8D FF 0E 9C FF FC FF 98 F7 F0 9F FF 78 |Q?.............x|
000022E0: 77 8F FF 79 9F FF 9F F9 FF 78 7F 7F 7B FF 75 F1 |w..y.....x..{.u.|
000022F0: 9F FF FF 78 77 FF 70 75 FF 79 FF F7 FF 22 FA F6 |...xw.pu.y..."..|
00002300: A6 26 64 FF 2A B4 17 3B 33 BF 3F B2 12 B7 3F B3 |.&d.*..;3.?...?.|
00002310: F2 3B 32 13 F2 33 36 1F BB 36 1F 17 32 BF 36 13 |.;2..36..6..2.6.|
00002320: BF F2 36 17 F2 33 3F 36 1D 33 BF FF FE BA FA F3 |..6..3?6.3......|
00002330: FE A2 3D F6 AB 26 64 FF FA F2 32 B7 33 F2 FA F2 |..=..&d...2.3...|
00002340: 32 B7 33 F2 3F 33 BF 3B B7 F2 3B 32 16 1F F2 3A |2.3.?3.;..;2...:|
00002350: 3F 3F 1F BF 32 B7 F7 FF FE 24 F2 FF FD FB FA 22 |??..2....$....."|
00002360: 6F F6 AF 26 64 FF 2A AA F1 32 13 F2 37 13 BF 3F |o..&d.*..2..7..?|
00002370: B6 17 3F F2 3F 1F F2 3B 32 13 F2 33 36 1F BB 36 |..?.?..;2..36..6|
00002380: 1F 17 32 BF 36 13 BF F2 3D B6 13 13 FF FE BA FA |..2.6...=.......|
00002390: F3 FE A2 31 F6 F2 06 64 FF 3F 33 BF BB B3 1B F2 |...1...d.?3.....|
000023A0: 36 17 F2 3B 32 13 F2 32 B3 13 1F 1F B2 BB 33 B3 |6..;2..2......3.|
000023B0: F2 3F BA 32 BF B3 F2 3F 45 49 4E 47 20 22 3A 99 |.?.2...?EING ":.|
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 88 8F C1 9F 89 8B 8B |.. A$.."Y.......|
000024B0: 8F FF C6 9F BF FC 89 20 31 36 37 30 00 C2 2C 82 |....... 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: 4B F7 F3 7F FF FF 3D FB BF FF 3F FF D3 F6 FF FC |K.....=...?.....|
000025A0: FB AA FF 3F FF D2 FF FB FB DF FF 3F FF 0D FB 0F |...?.......?....|
000025B0: FF 31 FF FF 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.1..************|
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 14 30 00 71 2E 0E 0B 49 B2 49 AA |1:.29.0.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 8B 9F FF |h.. EW.0 . 29...|
00002720: 85 80 B9 FC 7B 71 C9 FB 7F 9D FB 7F D9 FF FF 8A |....{q..........|
00002730: 90 B6 FC FD 7F FF D9 89 8F C1 9F 89 9F 8B 9F FF |................|
00002740: FF 80 FB FC FD 7F FF D9 87 8F C1 9F 89 99 85 8F |................|
00002750: FF FD 90 FF FC FF 9F 89 99 99 9F FF 14 90 FD FC |................|
00002760: FD 9F FF D9 99 87 97 8F C1 99 8F 99 9F FF 1B 90 |................|
00002770: DF FC 7F D9 FF DC 8F FF FB 90 D5 FC 7D FF D9 F9 |............}...|
00002780: 8F 9F 9F 9F 9F DC 89 FF FF 90 DF FC FD 7D FF D9 |.............}..|
00002790: FF 9F C1 9F 89 9F 87 8F FF C8 80 69 FC FE 9F 8F |...........i....|
000027A0: 9F 9F FF 51 80 66 FC FF 98 F9 FF FF FF FF 78 FF |...Q.f........x.|
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 67 |120..1..K.K.1..g|
000029F0: 6A FA FF E3 7F FF FF FF F2 DF FB F7 F3 FF FF FF |j...............|
00002A00: 6F FF BF FA 36 FF E3 7F D7 FF F5 FF FF FF F7 FF |o...6...........|
00002A10: FF 7F FF AF FA 3B FF F7 F2 6F FF FD FF BF FB 33 |.....;...o.....3|
00002A20: FF 7F 66 66 66 66 DF FA D0 DF D7 FF FA FE DF D4 |..ffff..........|
00002A30: EF F3 FF FE FF FF D0 FF FF FF FE EF FE DF EF FE |................|
00002A40: FD FF FF FF D2 DF EF D2 D0 DF F6 FF F3 FF FB FF |................|
00002A50: FF FF D2 FF FF FF F7 FF FF FA FF E3 F6 D6 FF 2F |.............../|
00002A60: FF FF FB 33 FF FF 66 DF FA D0 DF D7 FF FF FF F6 |...3..f.........|
00002A70: FF F7 FF F7 FF 3B FF FF FF FF FF 33 FF FF FF FF |.....;.....3....|
00002A80: FF 2F FF DF FA F4 F7 7F F7 FF 33 FF FF FF F5 FF |./........3.....|
00002A90: FF F7 FF 02 FA FE DC 7F FE DC FF FF FF FF FF 7F |................|
00002AA0: FF FF AF FF FF FB 27 FF FE DC 20 89 20 33 33 34 |......'... . 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 87 F1 F5 F9 |1130:.3610.y....|
00002D50: F7 D9 F9 F7 DC 8F 9D FE 9F 8F 9F 99 9F 8D F9 F7 |................|
00002D60: D9 F9 F7 DC 8F 9D F9 F0 9F 9F 9F 9F D9 8F 9D F9 |................|
00002D70: F0 9F 9F FF F6 4F FF FB FB A2 64 FB AA 27 20 F2 |.....O....d..' .|
00002D80: 3A 4F FF E3 FF FB FB FE 3F 3F F3 F2 1A F6 4F FA |:O......??....O.|
00002D90: FE 2F 3A FE 25 F2 FA FA FF FA 22 62 FB AE 27 25 |./:.%....."b..'%|
00002DA0: 22 72 FB F3 0E 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |"r.... *********|
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 8D F9 FB D9 C7 9F 7C 8F D4 7F 78 8F |.QB)......|...x.|
00002E90: DC 8F FF C7 8B 1F F5 FF 9F 88 F9 98 8D 6F 9F 7F |.............o..|
00002EA0: F5 8F 2C 52 57 29 3B C8 28 41 58 24 2C 43 4C 29 |..,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 8D FF 8F 9F C9 FF 8B 8F CC 88 8F |(D6$)...........|
00002F00: 98 CC FF 8B 9F CC 88 8F 98 CC FF 8F 9F CC 88 8F |................|
00002F10: 98 CC FF 8F 9F FF FD 9B FF F5 FF FF 8F 9B F9 F5 |................|
00002F20: F9 8F D9 C7 9F 79 F9 C4 99 87 9B 8F 9D F9 8F D9 |.....y..........|
00002F30: F9 F9 CC 79 8F DF 99 87 9B FF FD 9B F6 F5 FF FA |...y............|
00002F40: F3 FF 3A FF 3C F2 FE FD 66 3F 3F F6 1C F2 1F FA |..:.<...f??.....|
00002F50: F6 1C F2 1F FE F6 1C F2 FA F6 FE A2 FD FD E2 A7 |................|
00002F60: 60 FA F3 FF 3A FF 3C F2 FE FD 66 3F 3F F6 1C F2 |`...:.<...f??...|
00002F70: 1F FA F6 1C F2 1F FE F6 1C F2 FA F6 FE FE 25 22 |..............%"|
00002F80: 3C FD EF 27 2C F2 F6 F6 F6 F6 F6 F6 F6 F6 F6 F6 |<..',...........|
00002F90: F6 F6 F6 F6 F6 F6 F6 F6 F2 33 36 1F BA 33 12 BE |.........36..3..|
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 8D 7B 87 8F 8D 6F |,5..(V4$)).{...o|
00003190: 9F 79 7F 8F 8F 97 DC 69 9F 7B 87 9F 29 29 3B 00 |.y.....i.{..));.|
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 2B FF FC FF FD 7F AD F2 ED FF F3 FF FC FF |T1+.............|
000031E0: FD 7F AD F2 ED FF F3 FF FC FD FD 7F AD F2 ED FD |................|
000031F0: F3 FF FC FF FD 7F AD F2 ED FF F2 FF FF FF FF F0 |................|
00003200: FC FC FD 7F AD F2 ED FC F3 FF ED F7 7F ED F7 FF |................|
00003210: ED FD FF ED FF 7F ED FF FF ED FF FF ED FF 7F ED |................|
00003220: FF FF ED FC FF ED FD 7F ED F7 FF ED FF FF ED FF |................|
00003230: FF F7 FF FA F1 33 FF FF 67 FF FF FF F6 A3 F2 FF |.....3..g.......|
00003240: EF FD FB FF F6 BF F2 FC F7 FD F3 F3 F6 FC F7 FD |................|
00003250: F6 A3 F2 FF EF FD FD 6F F6 BF F2 FC FF FD F3 F3 |.......o........|
00003260: F6 FF 33 FF DF F1 33 FF FC FF FD F6 A3 F2 FF EF |..3...3.........|
00003270: FD FB FF F6 BF F2 FC FF FD F3 F3 F6 FC FF FD F6 |................|
00003280: A3 F2 FF EF FD FB FC F3 F6 FF 6D FF EF F1 33 FF |..........m...3.|
00003290: A3 F2 FF EF FD FB FF F6 BF F3 56 34 24 29 29 3B |..........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$)..{.....
.............PY...A..............Y.....
......{..I..Y...........I.............
.I..{.....Y.........Y............{..I.
.{.....I....................I..{.....
......Y................O.Y....I.{....
.{...O.Y.....I.{...+........".3........
........\.D.\...P..O.D..J..O...2"... O/.
...#..0!..6..!..?!OOO....?.?!I.I......X.
...........B..3.R....O.W../O./.G./OW..
.-?.?O..-??.O.W../O.?....-?7.O..?..3?.
_-?.O.?J?/...._K./O.?5N.H.O..M..LLQFH..
....{....O.......Y...LI.{.....{..$;H(SP
$,8.C(V4$));V4$;..&T.. Q1$;:. CO.40 . 23
20..'... H(SP$,12)......{..I..Y........
...I..............I..{.....Y.........Y
............{..I..{.....I............
........I..{...........Y...F.........
...O.Y....I.{.....{...O.Y.....I.{.....
{....\.... H(SP$,6.C(V3$));V3$;H(SP$,8.C
(V4$));V4$..'..........W..I.O..YY....;?
.?..;6.;...%...."...&B...$.2.O...O....."
3..&..2.O..>..O....."6...."I.X..........
........X|....W....Y..Y..........
...................O..{.Y....I....Y....
.........J.{....Y..O..6.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........ 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";Q?......
.......XW..Y.....X{.U....XW.PU.Y..."..
.&D.*..;3.?...?..;2..36..6..2.6...6..3?6
.3........=..&D...2.3...2.3.?3.;..;2...:
??..2....$....."O..&D.*..2..7..?..?.?..;
2..36..6..2.6...=..........1...D.?3.....
6..;2..2......3..?.2...?EING ":. "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..A......F....
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,K....=...?.S......?.R..
...?.....1..************** 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:.29.0.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 . 29.......{QI...Y........Y.
.A............Y..A.....................
...Y....A.........Y......U.}.Y.........
.....}.Y..A......H.I.......Q.F........X.
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..GJ..............O...6..
W...........;...O.....3.FFFF..P.W....T
......P.............R..RP.........R.....
.....V./...3..F..P.W.........;.....3....
./.......3.........................'.
.. . 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.Y....
.Y..............Y...........Y........O..
..D..' .:O......??....O../:.%....."B..'%
"R.... **************** 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)...YG.|.TX.
...G.........O...,RW);H(AX$,CL);WP$.N6J
.. C(WP$).19 . J1.J1.1.T6T....7~..1,D6$,
D7$,D8$,D9$:D9.E(D6$)....I...L...L...L..
.L...L...L................YG.Y.D.......Y
..LY..............:.<...F??.............
........`...:.<...F??.................%"
<..',....................36..3.. 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$
)).{...O.Y....I.{..));..9... V5$;H(SP$,
5.C(V6$));V6$.E9... G..9(.V1$.D(T1+....
.....................................
...................................
.............3..G.......................
.......O..........3...3.................
..................M...3...........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