DICT.MAINT.3.1
FILE INFORMATION
FILENAME(S): DICT.MAINT.3.1
FILE TYPE(S): PRG
FILE SIZE: 22.1K
FIRST SEEN: 2025-11-30 21:14:41
APPEARS ON: 1 disk(s)
FILE HASH
e24dbe6562679e7b318bee26fa121767c36e2141e9b147d5f89684030c6e1608
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| SCRIPT 64 | DICT.MAINT.3.1 | PRG | DuncanTwain | 11 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 3C 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 4D 41 52 | LAST UPDATE MAR|
00000020: 43 48 20 20 31 39 2F 38 33 20 41 54 20 31 33 2E |CH 19/83 AT 13.|
00000030: 30 30 20 20 20 20 20 20 56 33 2E 31 00 6D 08 0F |00 V3.1.m..|
00000040: 00 8F 20 20 56 33 2E 31 20 46 49 58 45 53 20 52 |.. V3.1 FIXES R|
00000050: 45 4C 41 54 49 56 45 20 46 49 4C 45 20 42 55 47 |ELATIVE FILE BUG|
00000060: 20 49 4E 20 31 35 34 31 2F 32 30 33 31 00 94 08 | IN 1541/2031...|
00000070: 14 00 8F 20 20 56 33 2E 30 20 53 55 50 50 4F 52 |... V3.0 SUPPOR|
00000080: 54 53 20 54 48 45 20 43 4F 4D 4D 4F 44 4F 52 45 |TS THE COMMODORE|
00000090: 20 36 34 2E 00 E0 08 1E 00 8F 20 20 56 33 2E 30 | 64....... V3.0|
000000A0: 20 49 4E 43 4C 55 44 45 53 20 31 29 20 41 20 57 | INCLUDES 1) A W|
000000B0: 4F 52 44 20 43 4F 55 4E 54 20 46 55 4E 43 54 49 |ORD COUNT FUNCTI|
000000C0: 4F 4E 20 20 20 32 29 20 44 49 52 45 43 54 4F 52 |ON 2) DIRECTOR|
000000D0: 59 20 55 53 45 20 53 54 41 54 49 53 54 49 43 53 |Y USE STATISTICS|
000000E0: 00 1D 09 28 00 8F 20 20 43 4F 50 59 52 49 47 48 |...(.. COPYRIGH|
000000F0: 54 20 42 59 20 52 49 43 48 56 41 4C 45 20 54 45 |T BY RICHVALE TE|
00000100: 4C 45 43 4F 4D 4D 55 4E 49 43 41 54 49 4F 4E 53 |LECOMMUNICATIONS|
00000110: 2E 20 4D 41 52 43 48 20 31 39 38 33 2E 00 32 09 |. MARCH 1983..2.|
00000120: 32 00 8D 20 36 37 37 30 3A 8D 20 36 30 3A 89 20 |2.. 6770:. 60:. |
00000130: 38 30 00 61 09 3C 00 99 20 22 93 22 3B 42 41 24 |80.a.<.. ".";BA$|
00000140: 3B 42 58 24 3B 22 12 22 3B C8 28 41 58 24 2C 28 |;BX$;".";.(AX$,(|
00000150: 43 4F AB C3 28 54 45 24 29 29 AD 32 29 3B 54 45 |CO..(TE$)).2);TE|
00000160: 24 00 72 09 46 00 51 B2 31 3A 8D 20 33 33 38 30 |$.r.F.Q.1:. 3380|
00000170: 3A 8E 00 81 09 50 00 51 B2 32 3A 8D 20 33 33 38 |:....P.Q.2:. 338|
00000180: 30 00 B4 09 5A 00 99 22 13 11 11 11 41 2E 20 C9 |0...Z.."....A. .|
00000190: 4E 49 54 49 41 4C 49 5A 45 20 54 48 45 20 44 49 |NITIALIZE THE DI|
000001A0: 43 54 49 4F 4E 41 52 59 20 44 49 52 45 43 54 4F |CTIONARY DIRECTO|
000001B0: 52 59 2E 22 00 E6 09 64 00 99 22 11 11 11 42 2E |RY."...d.."...B.|
000001C0: 20 D0 45 52 46 4F 52 4D 20 44 49 43 54 49 4F 4E | .ERFORM DICTION|
000001D0: 41 52 59 20 4D 41 49 4E 54 45 4E 41 4E 43 45 2E |ARY MAINTENANCE.|
000001E0: 20 20 20 20 20 22 00 F5 09 6E 00 51 B2 33 3A 8D | "...n.Q.3:.|
000001F0: 20 33 33 38 30 00 0C 0A 78 00 A1 20 41 24 3A 8B | 3380...x.. A$:.|
00000200: 20 41 24 B2 22 22 20 A7 20 31 32 30 00 28 0A 82 | A$."" . 120.(..|
00000210: 00 8B 20 41 24 B2 22 41 22 20 A7 44 52 24 B2 22 |.. A$."A" .DR$."|
00000220: 30 22 3A 89 32 34 39 35 00 3D 0A 8C 00 8B 20 41 |0":.2495.=.... A|
00000230: 24 B3 B1 20 22 42 22 20 A7 20 31 32 30 00 48 0A |$.. "B" . 120.H.|
00000240: 96 00 8D 20 33 34 35 30 00 57 0A A0 00 51 B2 34 |... 3450.W...Q.4|
00000250: 3A 8D 20 33 33 38 30 00 68 0A AA 00 8B 20 54 58 |:. 3380.h.... TX|
00000260: B2 33 20 A7 20 32 31 30 00 8A 0A B4 00 98 31 2C |.3 . 210......1,|
00000270: 22 49 30 22 3A 9F 32 2C 38 2C 32 2C 22 30 3A 44 |"I0":.2,8,2,"0:D|
00000280: 49 43 54 49 4F 4E 41 52 59 22 00 B0 0A BE 00 8D |ICTIONARY"......|
00000290: 36 37 32 30 3A 4D 4F B2 44 39 3A 4D 4F 24 B2 44 |6720:MO.D9:MO$.D|
000002A0: 39 24 3A 8B 20 4D 4F B3 32 30 20 A7 20 32 32 30 |9$:. MO.20 . 220|
000002B0: 00 D9 0A C8 00 8B 20 4D 4F B2 32 31 20 B0 20 4D |...... MO.21 . M|
000002C0: 4F B2 36 32 20 A7 20 A0 32 3A A0 33 3A 54 58 B2 |O.62 . .2:.3:TX.|
000002D0: 54 58 AA 31 3A 89 31 35 30 00 0D 0B D2 00 8D 20 |TX.1:.150...... |
000002E0: 36 30 3A 99 20 22 13 11 11 11 11 44 49 53 4B 20 |60:. ".....DISK |
000002F0: 45 52 52 4F 52 3A 22 4D 4F 24 3A A0 32 3A A0 33 |ERROR:"MO$:.2:.3|
00000300: 3A A0 31 3A 97 20 50 41 2C 50 43 3A 80 00 21 0B |:.1:. PA,PC:..!.|
00000310: DC 00 52 46 B2 32 3A 52 52 B2 31 3A 8D 36 37 34 |..RF.2:RR.1:.674|
00000320: 30 00 31 0B E6 00 81 20 49 B2 31 20 A4 20 32 35 |0.1.... I.1 . 25|
00000330: 34 00 3C 0B F0 00 A1 23 32 2C 41 24 00 58 0B FA |4.<....#2,A$.X..|
00000340: 00 8B 20 41 24 B2 22 22 20 A7 20 52 31 25 28 49 |.. A$."" . R1%(I|
00000350: 29 B2 30 3A 89 32 37 30 00 69 0B 04 01 52 31 25 |).0:.270.i...R1%|
00000360: 28 49 29 B2 C6 28 41 24 29 00 71 0B 0E 01 82 20 |(I)..(A$).q.... |
00000370: 49 00 7F 0B 18 01 81 20 49 B2 31 A4 20 32 36 00 |I...... I.1. 26.|
00000380: 96 0B 22 01 5A 31 B2 52 31 25 28 49 AC 32 AB 31 |..".Z1.R1%(I.2.1|
00000390: 29 AF 20 31 32 37 00 AE 0B 2C 01 5A 32 B2 32 AC |). 127...,.Z2.2.|
000003A0: 28 52 31 25 28 49 AC 32 29 AF 20 36 34 29 00 CC |(R1%(I.2). 64)..|
000003B0: 0B 36 01 5A 33 B2 32 35 36 AC 28 52 31 25 28 49 |.6.Z3.256.(R1%(I|
000003C0: AC 32 AA 35 31 29 AF 20 31 32 37 29 00 DF 0B 40 |.2.51). 127)...@|
000003D0: 01 53 25 28 49 29 B2 5A 31 AA 5A 32 AA 5A 33 00 |.S%(I).Z1.Z2.Z3.|
000003E0: F8 0B 4A 01 5A 31 B2 52 31 25 28 49 AC 32 AA 31 |..J.Z1.R1%(I.2.1|
000003F0: 30 33 29 AF 20 31 32 37 00 14 0C 54 01 5A 32 B2 |03). 127...T.Z2.|
00000400: 32 AC 28 52 31 25 28 49 AC 32 AA 31 30 34 29 AF |2.(R1%(I.2.104).|
00000410: 20 36 34 29 00 33 0C 5E 01 5A 33 B2 32 35 36 AC | 64).3.^.Z3.256.|
00000420: 28 52 31 25 28 49 AC 32 AA 31 35 35 29 AF 20 31 |(R1%(I.2.155). 1|
00000430: 32 37 29 00 46 0C 68 01 45 25 28 49 29 B2 5A 31 |27).F.h.E%(I).Z1|
00000440: AA 5A 32 AA 5A 33 00 4E 0C 72 01 82 20 49 00 57 |.Z2.Z3.N.r.. I.W|
00000450: 0C 7C 01 8D 20 36 30 00 87 0C 86 01 99 20 22 13 |.|.. 60...... ".|
00000460: 11 11 20 20 2D 20 C4 49 43 54 49 4F 4E 41 52 59 |.. - .ICTIONARY|
00000470: 20 CD 41 49 4E 54 45 4E 41 4E 43 45 20 CF 50 54 | .AINTENANCE .PT|
00000480: 49 4F 4E 53 20 2D 22 00 B8 0C 90 01 99 20 22 11 |IONS -"...... ".|
00000490: 31 2E 20 C2 52 4F 57 53 45 20 44 49 43 54 49 4F |1. .ROWSE DICTIO|
000004A0: 4E 41 52 59 20 43 4F 4E 54 45 4E 54 53 20 46 4F |NARY CONTENTS FO|
000004B0: 52 20 22 3B 51 31 24 3B 00 D8 0C 9A 01 99 20 51 |R ";Q1$;...... Q|
000004C0: 32 24 3B 22 47 49 56 45 4E 20 46 49 52 53 54 20 |2$;"GIVEN FIRST |
000004D0: 4C 45 54 54 45 52 2E 22 00 0C 0D A4 01 99 20 22 |LETTER."...... "|
000004E0: 11 32 2E 20 C5 44 49 54 20 44 49 43 54 49 4F 4E |.2. .DIT DICTION|
000004F0: 41 52 59 20 43 4F 4E 54 45 4E 54 53 20 46 4F 52 |ARY CONTENTS FOR|
00000500: 20 47 49 56 45 4E 22 3B 51 31 24 3B 00 26 0D AE | GIVEN";Q1$;.&..|
00000510: 01 99 20 51 32 24 3B 22 46 49 52 53 54 20 4C 45 |.. Q2$;"FIRST LE|
00000520: 54 54 45 52 2E 22 00 57 0D B8 01 99 20 22 11 33 |TTER.".W.... ".3|
00000530: 2E 20 C4 45 4C 45 54 45 20 41 20 4C 49 53 54 20 |. .ELETE A LIST |
00000540: 4F 46 20 57 4F 52 44 53 20 46 52 4F 4D 20 54 48 |OF WORDS FROM TH|
00000550: 45 22 3B 51 31 24 3B 00 6F 0D C2 01 99 20 51 32 |E";Q1$;.o.... Q2|
00000560: 24 3B 22 44 49 43 54 49 4F 4E 41 52 59 2E 22 00 |$;"DICTIONARY.".|
00000570: A3 0D CC 01 99 20 22 11 34 2E 20 D0 52 49 4E 54 |..... ".4. .RINT|
00000580: 20 46 55 4C 4C 20 44 49 43 54 49 4F 4E 41 52 59 | FULL DICTIONARY|
00000590: 20 4F 52 20 57 4F 52 44 53 20 46 4F 52 22 3B 51 | OR WORDS FOR";Q|
000005A0: 31 24 3B 00 C4 0D D6 01 99 20 51 32 24 3B 22 54 |1$;...... Q2$;"T|
000005B0: 48 45 20 53 45 4C 45 43 54 45 44 20 4C 45 54 54 |HE SELECTED LETT|
000005C0: 45 52 2E 22 00 F2 0D E0 01 99 20 22 11 35 2E 20 |ER."...... ".5. |
000005D0: C4 49 53 50 4C 41 59 20 4F 52 20 43 48 41 4E 47 |.ISPLAY OR CHANG|
000005E0: 45 20 44 49 43 54 49 4F 4E 41 52 59 22 3B 51 31 |E DICTIONARY";Q1|
000005F0: 24 3B 00 09 0E EA 01 99 20 51 32 24 3B 22 44 49 |$;...... Q2$;"DI|
00000600: 52 45 43 54 4F 52 59 2E 22 00 30 0E F4 01 99 20 |RECTORY.".0.... |
00000610: 22 11 36 2E 20 C3 4F 55 4E 54 20 57 4F 52 44 53 |".6. .OUNT WORDS|
00000620: 20 49 4E 20 44 49 43 54 49 4F 4E 41 52 59 2E 22 | IN DICTIONARY."|
00000630: 00 41 0E FE 01 99 20 22 11 37 2E 20 C5 58 49 54 |.A.... ".7. .XIT|
00000640: 2E 00 50 0E 08 02 51 B2 35 3A 8D 20 33 33 38 30 |..P...Q.5:. 3380|
00000650: 00 67 0E 12 02 A1 20 4D 24 3A 8B 20 4D 24 B2 22 |.g.... M$:. M$."|
00000660: 22 20 A7 20 35 33 30 00 83 0E 1C 02 8B 20 4D 24 |" . 530...... M$|
00000670: B3 22 31 22 20 B0 20 4D 24 B1 22 37 22 20 A7 20 |."1" . M$."7" . |
00000680: 35 33 30 00 9D 0E 26 02 54 46 24 B2 54 46 24 AA |530...&.TF$.TF$.|
00000690: 22 A0 22 AA 4D 24 3A 8D 20 33 33 39 30 00 D2 0E |".".M$:. 3390...|
000006A0: 30 02 4D 4F B2 C5 28 4D 24 29 3A 91 20 4D 4F 20 |0.MO..(M$):. MO |
000006B0: 89 20 35 37 30 2C 35 37 30 2C 35 36 36 30 2C 33 |. 570,570,5660,3|
000006C0: 36 31 30 2C 34 35 33 30 2C 33 36 31 30 2C 33 34 |610,4530,3610,34|
000006D0: 32 30 00 DF 0E 3A 02 8D 20 36 30 3A 4B B2 31 00 |20...:.. 60:K.1.|
000006E0: EE 0E 44 02 51 B2 36 3A 8D 20 33 33 38 30 00 F9 |..D.Q.6:. 3380..|
000006F0: 0E 4E 02 8D 20 31 34 35 30 00 0F 0F 58 02 52 53 |.N.. 1450...X.RS|
00000700: B2 53 25 28 4C 29 3A 52 45 B2 45 25 28 4C 29 00 |.S%(L):RE.E%(L).|
00000710: 1A 0F 62 02 8D 20 33 33 31 30 00 33 0F 6C 02 57 |..b.. 3310.3.l.W|
00000720: 44 24 B2 4C 24 3A 4A B2 31 3A 49 53 B2 32 3A 4B |D$.L$:J.1:IS.2:K|
00000730: 31 B2 30 00 4B 0F 76 02 8D 20 36 30 3A 4A 31 B2 |1.0.K.v.. 60:J1.|
00000740: 51 43 3A 4A 32 B2 4B 31 AA 4A 31 00 5C 0F 80 02 |QC:J2.K1.J1.\...|
00000750: 81 20 49 B2 49 53 20 A4 20 32 35 34 00 6A 0F 8A |. I.IS . 254.j..|
00000760: 02 5A 58 B2 52 4C 25 28 49 29 00 8F 0F 94 02 8B |.ZX.RL%(I)......|
00000770: 20 5A 58 B2 31 32 36 20 B0 20 5A 58 B2 31 32 37 | ZX.126 . ZX.127|
00000780: 20 B0 20 5A 58 B2 32 35 34 20 A7 20 38 30 30 00 | . ZX.254 . 800.|
00000790: A2 0F 9E 02 8B 20 5A 58 B2 32 35 35 20 A7 20 39 |..... ZX.255 . 9|
000007A0: 34 30 00 B3 0F A8 02 8B 20 5A 58 B2 30 20 A7 20 |40...... ZX.0 . |
000007B0: 38 31 30 00 C1 0F B2 02 45 57 B2 5A 58 AF 31 32 |810.....EW.ZX.12|
000007C0: 38 00 CF 0F BC 02 43 48 B2 5A 58 AF 31 32 37 00 |8.....CH.ZX.127.|
000007D0: E3 0F C6 02 57 44 24 B2 57 44 24 AA 54 4B 24 28 |....WD$.WD$.TK$(|
000007E0: 43 48 29 00 F4 0F D0 02 8B 20 45 57 B2 30 20 A7 |CH)...... EW.0 .|
000007F0: 20 38 30 30 00 1E 10 DA 02 8B 20 C3 28 57 44 24 | 800...... .(WD$|
00000800: 29 B1 31 38 20 A7 20 4A 31 B2 B5 28 4A 31 AD 32 |).18 . J1..(J1.2|
00000810: 29 AC 32 AA 31 3A 4A 32 B2 4B 31 AA 4A 31 00 4F |).2.1:J2.K1.J1.O|
00000820: 10 E4 02 57 45 25 28 4A 29 B2 49 3A 4A 31 B2 4A |...WE%(J).I:J1.J|
00000830: 31 AA 31 3A 4A 32 B2 4B 31 AA 4A 31 3A 57 50 25 |1.1:J2.K1.J1:WP%|
00000840: 28 4A 32 AB 51 43 29 B2 4A 3A 4A B2 4A AA 31 00 |(J2.QC).J:J.J.1.|
00000850: 7B 10 EE 02 43 4C B2 31 39 AC 28 4A 31 AB B5 28 |{...CL.19.(J1..(|
00000860: 4A 31 AD 51 42 29 AC 51 42 29 AA 51 42 3A 52 57 |J1.QB).QB).QB:RW|
00000870: B2 B5 28 4A 31 AD 51 42 29 AA 31 00 9D 10 F8 02 |..(J1.QB).1.....|
00000880: 99 20 22 13 22 3B C8 28 44 4E 24 2C 52 57 29 3B |. ".";.(DN$,RW);|
00000890: C8 28 41 58 24 2C 43 4C 29 3B 57 44 24 00 C0 10 |.(AX$,CL);WD$...|
000008A0: 02 03 8B 20 C3 28 57 44 24 29 B1 31 38 20 A7 20 |... .(WD$).18 . |
000008B0: 4A 31 B2 4A 31 AA 31 3A 4A 32 B2 4B 31 AA 4A 31 |J1.J1.1:J2.K1.J1|
000008C0: 00 CB 10 0C 03 57 44 24 B2 4C 24 00 E9 10 16 03 |.....WD$.L$.....|
000008D0: 8B 20 4A 31 B2 43 4F AA 51 43 20 A7 20 49 53 B2 |. J1.CO.QC . IS.|
000008E0: 49 AA 31 3A 89 20 38 34 30 00 F1 10 20 03 82 20 |I.1:. 840... .. |
000008F0: 49 00 01 11 2A 03 5A 58 B2 52 4C 25 28 31 29 AA |I...*.ZX.RL%(1).|
00000900: 32 00 41 11 34 03 8B 5A 58 B3 B1 49 20 A7 20 99 |2.A.4..ZX..I . .|
00000910: 20 22 93 11 11 12 C2 4C 4F 43 4B 20 4C 45 4E 47 | ".....LOCK LENG|
00000920: 54 48 20 45 52 52 4F 52 20 44 45 54 45 43 54 45 |TH ERROR DETECTE|
00000930: 44 22 3B 5A 58 3B 49 3A 97 20 50 41 2C 50 43 3A |D";ZX;I:. PA,PC:|
00000940: 90 00 4A 11 3E 03 49 53 B2 32 00 5E 11 48 03 8B |..J.>.IS.2.^.H..|
00000950: 20 4D 4F B2 32 20 A7 20 8D 20 31 30 33 30 00 6D | MO.2 . . 1030.m|
00000960: 11 52 03 51 B2 37 3A 8D 20 33 33 38 30 00 83 11 |.R.Q.7:. 3380...|
00000970: 5C 03 A1 20 41 24 3A 8B 20 41 24 B2 22 22 20 A7 |\.. A$:. A$."" .|
00000980: 38 36 30 00 97 11 66 03 8B 20 41 24 B2 22 4E 22 |860...f.. A$."N"|
00000990: 20 A7 20 31 30 30 30 00 AB 11 70 03 8B 20 41 24 | . 1000...p.. A$|
000009A0: B3 B1 22 59 22 20 A7 20 38 36 30 00 C5 11 7A 03 |.."Y" . 860...z.|
000009B0: 51 B2 36 3A 8D 33 33 38 30 3A 4E 4E B2 35 3A 8D |Q.6:.3380:NN.5:.|
000009C0: 20 33 33 38 30 00 E5 11 84 03 8B 20 49 53 B3 B1 | 3380...... IS..|
000009D0: 32 20 A7 20 4B 31 B2 4B 31 AA 4A 31 AB 51 43 3A |2 . K1.K1.J1.QC:|
000009E0: 89 20 36 33 30 00 00 12 8E 03 8B 20 52 53 B3 52 |. 630...... RS.R|
000009F0: 45 20 A7 20 52 53 B2 52 53 AA 31 3A 89 36 31 30 |E . RS.RS.1:.610|
00000A00: 00 44 12 98 03 99 20 22 93 91 91 91 91 91 91 91 |.D.... "........|
00000A10: 12 C9 4E 44 45 58 49 4E 47 20 45 52 52 4F 52 20 |..NDEXING ERROR |
00000A20: 49 4E 20 44 49 52 45 43 54 4F 52 59 20 2D 20 CC |IN DIRECTORY - .|
00000A30: 49 53 54 20 55 53 49 4E 47 20 4F 50 54 49 4F 4E |IST USING OPTION|
00000A40: 20 35 2E 22 00 53 12 A2 03 4D 4F B2 30 3A 89 20 | 5.".S...MO.0:. |
00000A50: 39 37 30 00 5D 12 AC 03 41 24 B2 22 22 00 77 12 |970.]...A$."".w.|
00000A60: B6 03 8B 20 4D 4F B2 32 20 A7 20 8D 20 31 30 33 |... MO.2 . . 103|
00000A70: 30 3A 89 31 30 30 30 00 8B 12 C0 03 8B 20 41 24 |0:.1000...... A$|
00000A80: B2 22 59 22 20 A7 20 31 30 30 30 00 9A 12 CA 03 |."Y" . 1000.....|
00000A90: 51 B2 38 3A 8D 20 33 33 38 30 00 B0 12 D4 03 A1 |Q.8:. 3380......|
00000AA0: 20 41 24 3A 8B 20 41 24 B2 22 22 20 A7 39 38 30 | A$:. A$."" .980|
00000AB0: 00 C4 12 DE 03 8B 20 41 24 B3 B1 22 59 22 20 A7 |...... A$.."Y" .|
00000AC0: 20 39 38 30 00 D8 12 E8 03 8B 20 4D 4F B2 32 20 | 980...... MO.2 |
00000AD0: A7 20 8D 20 31 37 35 30 00 E1 12 F2 03 89 33 38 |. . 1750......38|
00000AE0: 30 00 29 13 FC 03 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |0.).... ********|
00000AF0: 2A 2A 2A 20 45 44 49 54 20 43 55 52 52 45 4E 54 |*** EDIT CURRENT|
00000B00: 4C 59 20 44 49 53 50 4C 41 59 45 44 20 44 49 43 |LY DISPLAYED DIC|
00000B10: 54 49 4F 4E 41 52 59 20 57 4F 52 44 53 20 2A 2A |TIONARY WORDS **|
00000B20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 3C 13 06 04 8B 4A |*********.<....J|
00000B30: 31 B3 B1 51 43 20 A7 20 31 30 38 30 00 4B 13 10 |1..QC . 1080.K..|
00000B40: 04 51 B2 39 3A 8D 20 33 33 38 30 00 62 13 1A 04 |.Q.9:. 3380.b...|
00000B50: A1 41 24 3A 8B 20 41 24 B2 22 22 20 A7 20 31 30 |.A$:. A$."" . 10|
00000B60: 35 30 00 76 13 24 04 8B 20 41 24 B2 22 59 22 20 |50.v.$.. A$."Y" |
00000B70: A7 20 31 34 33 30 00 81 13 2E 04 89 20 31 30 35 |. 1430...... 105|
00000B80: 30 00 93 13 38 04 99 20 51 36 24 3B 54 46 24 28 |0...8.. Q6$;TF$(|
00000B90: 33 39 29 00 BA 13 42 04 81 20 49 B2 31 20 A4 20 |39)...B.. I.1 . |
00000BA0: 52 57 AB 31 3A 99 20 22 12 22 3B C7 28 36 34 AA |RW.1:. ".";.(64.|
00000BB0: 49 29 3B 22 92 22 3A 82 20 49 00 CA 13 4C 04 51 |I);".":. I...L.Q|
00000BC0: B2 31 30 3A 8D 20 33 33 38 30 00 E2 13 56 04 A1 |.10:. 3380...V..|
00000BD0: 20 41 24 3A 8B 20 41 24 B2 22 22 20 A7 20 31 31 | A$:. A$."" . 11|
00000BE0: 31 30 00 F6 13 60 04 8B 20 41 24 B2 22 43 22 20 |10...`.. A$."C" |
00000BF0: A7 20 31 34 33 30 00 0B 14 6A 04 8B 20 41 24 B3 |. 1430...j.. A$.|
00000C00: B1 22 44 22 20 A7 20 31 31 31 30 00 19 14 74 04 |."D" . 1110...t.|
00000C10: 43 4C B2 30 3A 52 4F B2 30 00 29 14 7E 04 51 B2 |CL.0:RO.0.).~.Q.|
00000C20: 31 31 3A 8D 20 33 33 38 30 00 41 14 88 04 A1 20 |11:. 3380.A.... |
00000C30: 41 24 3A 8B 20 41 24 B2 22 22 20 A7 20 31 31 36 |A$:. A$."" . 116|
00000C40: 30 00 5D 14 92 04 8B 20 41 24 B3 22 31 22 B0 20 |0.].... A$."1". |
00000C50: 41 24 B1 51 38 24 20 A7 20 31 31 39 30 00 70 14 |A$.Q8$ . 1190.p.|
00000C60: 9C 04 43 4C B2 C5 28 41 24 29 3A 89 31 32 38 30 |..CL..(A$):.1280|
00000C70: 00 78 14 A6 04 49 B2 30 00 9D 14 B0 04 8B 20 41 |.x...I.0...... A|
00000C80: 24 B3 22 41 22 B0 20 41 24 B1 CA 28 41 42 24 2C |$."A". A$..(AB$,|
00000C90: 52 57 AB 31 2C 31 29 A7 20 31 31 36 30 00 BE 14 |RW.1,1). 1160...|
00000CA0: BA 04 49 B2 49 AA 31 3A 8B 20 41 24 B2 CA 28 41 |..I.I.1:. A$..(A|
00000CB0: 42 24 2C 49 2C 31 29 20 A7 20 31 32 34 30 00 D0 |B$,I,1) . 1240..|
00000CC0: 14 C4 04 8B 20 49 B2 52 57 20 A7 20 31 32 38 30 |.... I.RW . 1280|
00000CD0: 00 DA 14 CE 04 89 31 32 31 30 00 E3 14 D8 04 52 |......1210.....R|
00000CE0: 4F B2 49 00 F6 14 E2 04 8B 20 43 4C B3 B1 30 20 |O.I...... CL..0 |
00000CF0: A7 20 31 32 38 30 00 07 15 EC 04 51 B2 31 32 3A |. 1280.....Q.12:|
00000D00: 20 8D 20 33 33 38 30 00 12 15 F6 04 89 20 31 31 | . 3380...... 11|
00000D10: 36 30 00 25 15 00 05 8B 20 52 4F B3 B1 30 20 A7 |60.%.... RO..0 .|
00000D20: 20 31 33 31 30 00 35 15 0A 05 51 B2 31 33 3A 8D | 1310.5...Q.13:.|
00000D30: 20 33 33 38 30 00 40 15 14 05 89 20 31 31 36 30 | 3380.@.... 1160|
00000D40: 00 5C 15 1E 05 53 43 B2 28 50 46 AA 52 4F AC 51 |.\...SC.(PF.RO.Q|
00000D50: 41 AA 43 4C AC 31 39 29 3A 49 B2 30 00 73 15 28 |A.CL.19):I.0.s.(|
00000D60: 05 8B 20 C2 28 53 43 29 B3 B1 33 32 20 A7 20 31 |.. .(SC)..32 . 1|
00000D70: 34 32 30 00 7D 15 32 05 49 B2 49 AA 31 00 8B 15 |420.}.2.I.I.1...|
00000D80: 3C 05 50 B2 C2 28 53 43 AA 49 29 00 9E 15 46 05 |<.P..(SC.I)...F.|
00000D90: 8B 20 50 B1 31 32 37 20 A7 20 31 34 32 30 00 B6 |. P.127 . 1420..|
00000DA0: 15 50 05 8B 20 50 B2 33 32 20 AF 20 49 B3 33 20 |.P.. P.32 . I.3 |
00000DB0: A7 20 31 34 32 30 00 C8 15 5A 05 8B 20 50 B2 33 |. 1420...Z.. P.3|
00000DC0: 32 20 A7 20 31 34 30 30 00 DA 15 64 05 97 28 53 |2 . 1400...d..(S|
00000DD0: 43 AA 49 29 2C 50 B0 31 32 38 00 E5 15 6E 05 89 |C.I),P.128...n..|
00000DE0: 20 31 33 33 30 00 F5 15 78 05 44 57 25 28 4B 2C | 1330...x.DW%(K,|
00000DF0: 31 29 B2 52 53 00 19 16 82 05 57 4E B2 28 52 4F |1).RS.....WN.(RO|
00000E00: AC 51 42 AA 43 4C 29 AB 51 42 AA 4B 31 3A 8D 31 |.QB.CL).QB.K1:.1|
00000E10: 35 34 30 3A 4B B2 4B AA 31 00 2C 16 8C 05 8B 20 |540:K.K.1.,.... |
00000E20: 4B B3 31 30 30 20 A7 20 31 31 30 30 00 32 16 96 |K.100 . 1100.2..|
00000E30: 05 8E 00 7A 16 A0 05 8F 20 2A 2A 2A 2A 2A 2A 2A |...z.... *******|
00000E40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 52 4F 55 54 49 4E |********* ROUTIN|
00000E50: 45 20 54 4F 20 50 41 52 53 45 20 53 45 4C 45 43 |E TO PARSE SELEC|
00000E60: 54 45 44 20 4C 45 54 54 45 52 20 2A 2A 2A 2A 2A |TED LETTER *****|
00000E70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 8A 16 AA 05 51 |**********.....Q|
00000E80: B2 31 34 3A 8D 20 33 33 38 30 00 A2 16 B4 05 A1 |.14:. 3380......|
00000E90: 20 4C 24 3A 8B 20 4C 24 B2 22 22 20 A7 20 31 34 | L$:. L$."" . 14|
00000EA0: 36 30 00 BF 16 BE 05 8B 20 4C 24 B3 22 41 22 20 |60...... L$."A" |
00000EB0: B0 20 4C 24 B1 22 5A 22 20 A7 20 31 34 36 30 00 |. L$."Z" . 1460.|
00000EC0: DF 16 C8 05 54 46 24 B2 22 57 4F 52 4B 49 4E 47 |....TF$."WORKING|
00000ED0: 20 4F 4E 20 22 AA 4C 24 3A 8D 20 33 33 39 30 00 | ON ".L$:. 3390.|
00000EE0: E7 16 D2 05 4C B2 30 00 08 17 DC 05 4C B2 4C AA |....L.0.....L.L.|
00000EF0: 31 3A 8B 20 4C 24 B2 CA 28 41 42 24 2C 4C 2C 31 |1:. L$..(AB$,L,1|
00000F00: 29 20 A7 20 31 35 32 30 00 13 17 E6 05 89 20 31 |) . 1520...... 1|
00000F10: 35 30 30 00 19 17 F0 05 8E 00 61 17 FA 05 8F 20 |500.......a.... |
00000F20: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000F30: 2A 2A 53 45 51 55 45 4E 43 45 20 44 45 4C 45 54 |**SEQUENCE DELET|
00000F40: 45 20 52 45 51 55 45 53 54 53 20 2A 2A 2A 2A 2A |E REQUESTS *****|
00000F50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000F60: 2A 00 70 17 04 06 57 31 B2 57 50 25 28 57 4E 29 |*.p...W1.WP%(WN)|
00000F70: 00 98 17 0E 06 53 57 B2 57 45 25 28 57 31 AB 31 |.....SW.WE%(W1.1|
00000F80: 29 AA 31 3A 57 4C B2 57 45 25 28 57 31 29 AB 57 |).1:WL.WE%(W1).W|
00000F90: 45 25 28 57 31 AB 31 29 00 AA 17 18 06 8B 20 4B |E%(W1.1)...... K|
00000FA0: B3 B1 31 20 A7 20 31 36 31 30 00 BA 17 22 06 44 |..1 . 1610...".D|
00000FB0: 57 25 28 4B 2C 32 29 B2 57 31 00 CA 17 2C 06 44 |W%(K,2).W1...,.D|
00000FC0: 57 25 28 4B 2C 33 29 B2 53 57 00 DA 17 36 06 44 |W%(K,3).SW...6.D|
00000FD0: 57 25 28 4B 2C 34 29 B2 57 4C 00 E5 17 40 06 89 |W%(K,4).WL...@..|
00000FE0: 20 31 37 33 30 00 F8 17 4A 06 81 20 49 B2 4B 20 | 1730...J.. I.K |
00000FF0: A4 20 31 20 A9 20 AB 31 00 1A 18 54 06 8B 20 44 |. 1 . .1...T.. D|
00001000: 57 25 28 49 2C 31 29 B3 B1 44 57 25 28 49 AB 31 |W%(I,1)..DW%(I.1|
00001010: 2C 31 29 20 A7 20 31 36 38 30 00 35 18 5E 06 8B |,1) . 1680.5.^..|
00001020: 20 44 57 25 28 49 AB 31 2C 32 29 B3 57 31 20 A7 | DW%(I.1,2).W1 .|
00001030: 20 31 36 38 30 00 4D 18 68 06 44 57 25 28 49 2C | 1680.M.h.DW%(I,|
00001040: 32 29 B2 44 57 25 28 49 AB 31 2C 32 29 00 65 18 |2).DW%(I.1,2).e.|
00001050: 72 06 44 57 25 28 49 2C 33 29 B2 44 57 25 28 49 |r.DW%(I,3).DW%(I|
00001060: AB 31 2C 33 29 00 7D 18 7C 06 44 57 25 28 49 2C |.1,3).}.|.DW%(I,|
00001070: 34 29 B2 44 57 25 28 49 AB 31 2C 34 29 00 87 18 |4).DW%(I.1,4)...|
00001080: 86 06 89 31 37 32 30 00 97 18 90 06 44 57 25 28 |...1720.....DW%(|
00001090: 49 2C 32 29 B2 57 31 00 A7 18 9A 06 44 57 25 28 |I,2).W1.....DW%(|
000010A0: 49 2C 33 29 B2 53 57 00 B7 18 A4 06 44 57 25 28 |I,3).SW.....DW%(|
000010B0: 49 2C 34 29 B2 57 4C 00 C2 18 AE 06 89 20 31 37 |I,4).WL...... 17|
000010C0: 33 30 00 CA 18 B8 06 82 20 49 00 D0 18 C2 06 8E |30...... I......|
000010D0: 00 18 19 CC 06 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |...... *********|
000010E0: 2A 2A 2A 2A 2A 2A 2A 2A 20 55 50 44 41 54 45 20 |******** UPDATE |
000010F0: 44 49 43 54 49 4F 4E 41 52 59 20 52 4F 55 54 49 |DICTIONARY ROUTI|
00001100: 4E 45 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |NE *************|
00001110: 2A 2A 2A 2A 2A 2A 2A 2A 00 29 19 D6 06 8B 20 4B |********.).... K|
00001120: B3 32 20 A7 20 32 31 31 30 00 32 19 E0 06 8D 20 |.2 . 2110.2.... |
00001130: 36 30 00 42 19 EA 06 51 B2 31 35 3A 8D 20 33 33 |60.B...Q.15:. 33|
00001140: 38 30 00 6C 19 F4 06 52 53 B2 44 57 25 28 31 2C |80.l...RS.DW%(1,|
00001150: 31 29 3A 52 45 B2 45 25 28 4C 29 3A 4C 57 B2 AB |1):RE.E%(L):LW..|
00001160: 31 3A 4E 55 B2 30 3A 52 55 B2 52 53 00 77 19 FE |1:NU.0:RU.RS.w..|
00001170: 06 8D 20 33 33 31 30 00 89 19 08 07 4B B2 4B AB |.. 3310.....K.K.|
00001180: 31 3A 48 B2 32 3A 4D B2 31 00 9A 19 12 07 81 20 |1:H.2:M.1...... |
00001190: 49 B2 20 32 20 A4 20 32 35 34 00 AC 19 1C 07 8B |I. 2 . 254......|
000011A0: 20 4E 55 B1 30 20 A7 20 32 30 32 30 00 C0 19 26 | NU.0 . 2020...&|
000011B0: 07 8B 20 4C 57 B2 32 35 35 20 A7 20 32 30 32 30 |.. LW.255 . 2020|
000011C0: 00 D2 19 30 07 8B 20 4C 57 B2 30 20 A7 20 31 39 |...0.. LW.0 . 19|
000011D0: 37 30 00 E3 19 3A 07 8B 20 4D B1 4B 20 A7 20 31 |70...:.. M.K . 1|
000011E0: 39 31 30 00 FC 19 44 07 8B 20 44 57 25 28 4D 2C |910...D.. DW%(M,|
000011F0: 31 29 B1 52 53 20 A7 20 31 39 31 30 00 14 1A 4E |1).RS . 1910...N|
00001200: 07 8B 20 44 57 25 28 4D 2C 33 29 B1 48 20 A7 20 |.. DW%(M,3).H . |
00001210: 31 39 31 30 00 2B 1A 58 07 48 B2 48 AA 44 57 25 |1910.+.X.H.H.DW%|
00001220: 28 4D 2C 34 29 3A 4D B2 4D AA 31 00 3D 1A 62 07 |(M,4):M.M.1.=.b.|
00001230: 8B 20 4C 57 B1 30 20 A7 20 31 39 37 30 00 47 1A |. LW.0 . 1970.G.|
00001240: 6C 07 89 31 38 35 30 00 5F 1A 76 07 8B 20 48 B1 |l..1850._.v.. H.|
00001250: 52 4C 25 28 31 29 AA 31 20 A7 20 31 39 36 30 00 |RL%(1).1 . 1960.|
00001260: 74 1A 80 07 8B 20 4C 57 B1 30 20 A7 20 4C 57 B2 |t.... LW.0 . LW.|
00001270: 4C 57 AB 31 00 8C 1A 8A 07 52 4F 25 28 49 29 B2 |LW.1.....RO%(I).|
00001280: 52 4C 25 28 48 29 3A 48 B2 48 AA 31 00 A6 1A 94 |RL%(H):H.H.1....|
00001290: 07 8B 20 52 4F 25 28 49 29 B2 32 35 35 20 A7 20 |.. RO%(I).255 . |
000012A0: 4C 57 B2 32 35 35 00 B1 1A 9E 07 89 20 32 30 34 |LW.255...... 204|
000012B0: 30 00 C9 1A A8 07 52 53 B2 52 53 AA 31 3A 4E 53 |0.....RS.RS.1:NS|
000012C0: B2 32 3A 8D 20 33 33 31 30 00 D4 1A B2 07 8D 20 |.2:. 3310...... |
000012D0: 32 31 33 30 00 E6 1A BC 07 8B 20 4C 57 B2 30 20 |2130...... LW.0 |
000012E0: A7 20 31 39 36 30 00 FA 1A C6 07 8B 20 4C 57 B2 |. 1960...... LW.|
000012F0: 32 35 35 20 A7 20 31 39 33 30 00 10 1B D0 07 8B |255 . 1930......|
00001300: 20 4C 57 AA 49 B1 32 35 34 20 A7 20 32 30 32 30 | LW.I.254 . 2020|
00001310: 00 1B 1B DA 07 89 20 31 38 35 30 00 28 1B E4 07 |...... 1850.(...|
00001320: 52 4F 25 28 49 29 B2 30 00 34 1B EE 07 4E 55 B2 |RO%(I).0.4...NU.|
00001330: 4E 55 AA 31 00 3C 1B F8 07 82 20 49 00 4E 1B 02 |NU.1.<.... I.N..|
00001340: 08 52 4F 25 28 31 29 B2 32 35 33 AB 4E 55 00 59 |.RO%(1).253.NU.Y|
00001350: 1B 0C 08 8D 20 32 32 35 30 00 69 1B 16 08 51 B2 |.... 2250.i...Q.|
00001360: 31 36 3A 8D 20 33 33 38 30 00 7A 1B 20 08 4E 55 |16:. 3380.z. .NU|
00001370: B2 30 3A 52 55 B2 52 55 AA 31 00 97 1B 2A 08 8B |.0:RU.RU.1...*..|
00001380: 20 4C 57 B3 B1 32 35 35 20 A7 20 4C 57 B2 AB 31 | LW..255 . LW..1|
00001390: 3A 89 20 31 38 31 30 00 A2 1B 34 08 8D 20 32 33 |:. 1810...4.. 23|
000013A0: 34 30 00 A8 1B 3E 08 8E 00 F0 1B 48 08 8F 20 2A |40...>.....H.. *|
000013B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000013C0: 2A 2A 20 46 49 4E 44 20 57 4F 52 44 20 4C 45 4E |** FIND WORD LEN|
000013D0: 47 54 48 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |GTH ************|
000013E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000013F0: 00 F9 1B 52 08 48 B2 4E 53 00 0A 1C 5C 08 81 20 |...R.H.NS...\.. |
00001400: 4E B2 4E 53 20 A4 20 32 35 34 00 18 1C 66 08 5A |N.NS . 254...f.Z|
00001410: 58 B2 52 4C 25 28 4E 29 00 3E 1C 70 08 8B 20 5A |X.RL%(N).>.p.. Z|
00001420: 58 B2 31 32 36 20 B0 20 5A 58 B2 31 32 37 20 B0 |X.126 . ZX.127 .|
00001430: 20 5A 58 B2 32 35 34 20 A7 20 32 32 31 30 00 5A | ZX.254 . 2210.Z|
00001440: 1C 7A 08 8B 20 5A 58 B2 32 35 35 20 A7 20 4C 57 |.z.. ZX.255 . LW|
00001450: B2 32 35 35 3A 89 32 32 33 30 00 72 1C 84 08 8B |.255:.2230.r....|
00001460: 20 5A 58 B2 30 20 A7 20 4C 57 B2 30 3A 89 32 32 | ZX.0 . LW.0:.22|
00001470: 33 30 00 80 1C 8E 08 45 57 B2 5A 58 AF 31 32 38 |30.....EW.ZX.128|
00001480: 00 93 1C 98 08 8B 20 45 57 B3 B1 30 20 A7 20 32 |...... EW..0 . 2|
00001490: 32 32 30 00 9B 1C A2 08 82 20 4E 00 B0 1C AC 08 |220...... N.....|
000014A0: 4C 57 B2 4E AA 31 AB 4E 53 3A 4E 53 B2 4E AA 31 |LW.N.1.NS:NS.N.1|
000014B0: 00 B6 1C B6 08 8E 00 FE 1C C0 08 8F 20 2A 2A 2A |............ ***|
000014C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 57 |************** W|
000014D0: 52 49 54 45 20 44 49 43 54 49 4F 4E 41 52 59 20 |RITE DICTIONARY |
000014E0: 52 45 43 4F 52 44 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |RECORD *********|
000014F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 0E |**************..|
00001500: 1D CA 08 51 B2 31 37 3A 8D 20 33 33 38 30 00 23 |...Q.17:. 3380.#|
00001510: 1D D4 08 52 46 B2 32 3A 52 52 B2 52 55 3A 8D 36 |...RF.2:RR.RU:.6|
00001520: 37 34 30 00 35 1D DE 08 50 52 24 B2 C7 28 52 4F |740.5...PR$..(RO|
00001530: 25 28 31 29 29 00 45 1D E8 08 81 20 50 B2 32 20 |%(1)).E.... P.2 |
00001540: A4 20 32 35 34 00 5B 1D F2 08 50 52 24 B2 50 52 |. 254.[...PR$.PR|
00001550: 24 AA C7 28 52 4F 25 28 50 29 29 00 63 1D FC 08 |$..(RO%(P)).c...|
00001560: 82 20 50 00 6F 1D 06 09 98 32 2C 50 52 24 3B 00 |. P.o....2,PR$;.|
00001570: 75 1D 10 09 8E 00 BD 1D 1A 09 8F 20 2A 2A 2A 2A |u.......... ****|
00001580: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 57 52 |************* WR|
00001590: 49 54 45 20 44 49 52 45 43 54 4F 52 59 20 52 45 |ITE DIRECTORY RE|
000015A0: 43 4F 52 44 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |CORD ***********|
000015B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 CD 1D |*************...|
000015C0: 24 09 51 B2 31 38 3A 8D 20 33 33 38 30 00 E3 1D |$.Q.18:. 3380...|
000015D0: 2E 09 8B 20 52 55 B2 45 25 28 4C 29 20 A7 20 32 |... RU.E%(L) . 2|
000015E0: 34 37 30 00 03 1E 38 09 45 48 B2 B5 28 28 52 55 |470...8.EH..((RU|
000015F0: 29 AD 32 35 36 29 3A 45 4C B2 52 55 AB 45 48 AC |).256):EL.RU.EH.|
00001600: 32 35 36 00 23 1E 42 09 52 31 25 28 4C AC 32 AA |256.#.B.R1%(L.2.|
00001610: 31 30 33 29 B2 28 31 32 38 AA 28 45 4C AF 31 32 |103).(128.(EL.12|
00001620: 37 29 29 00 45 1E 4C 09 52 31 25 28 4C AC 32 AA |7)).E.L.R1%(L.2.|
00001630: 31 30 34 29 B2 28 31 32 38 AA 28 45 4C AF 31 32 |104).(128.(EL.12|
00001640: 38 29 AD 32 29 00 65 1E 56 09 52 31 25 28 4C AC |8).2).e.V.R1%(L.|
00001650: 32 AA 31 35 35 29 B2 28 31 32 38 AA 28 45 48 AF |2.155).(128.(EH.|
00001660: 31 32 37 29 29 00 87 1E 60 09 52 31 25 28 4C AC |127))...`.R1%(L.|
00001670: 32 AA 31 35 36 29 B2 28 31 32 38 AA 28 45 48 AF |2.156).(128.(EH.|
00001680: 31 32 38 29 AD 32 29 00 9B 1E 6A 09 52 46 B2 32 |128).2)...j.RF.2|
00001690: 3A 52 52 B2 31 3A 8D 36 37 34 30 00 AD 1E 74 09 |:RR.1:.6740...t.|
000016A0: 50 52 24 B2 C7 28 52 31 25 28 31 29 29 00 BD 1E |PR$..(R1%(1))...|
000016B0: 7E 09 81 20 50 B2 32 20 A4 20 32 35 34 00 D3 1E |~.. P.2 . 254...|
000016C0: 88 09 50 52 24 B2 50 52 24 AA C7 28 52 31 25 28 |..PR$.PR$..(R1%(|
000016D0: 50 29 29 00 DB 1E 92 09 82 20 50 00 E7 1E 9C 09 |P))...... P.....|
000016E0: 98 32 2C 50 52 24 3B 00 ED 1E A6 09 8E 00 35 1F |.2,PR$;.......5.|
000016F0: B0 09 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |... ************|
00001700: 2A 2A 20 49 4E 49 54 49 41 4C 49 5A 45 20 44 49 |** INITIALIZE DI|
00001710: 53 4B 20 41 4E 44 20 44 49 52 45 43 54 4F 52 59 |SK AND DIRECTORY|
00001720: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
00001730: 2A 2A 2A 2A 2A 00 41 1F BA 09 44 52 24 B2 22 31 |*****.A...DR$."1|
00001740: 22 00 4C 1F BF 09 8D 20 32 38 34 30 00 5C 1F C4 |".L.... 2840.\..|
00001750: 09 51 B2 31 39 3A 8D 20 33 33 38 30 00 74 1F CE |.Q.19:. 3380.t..|
00001760: 09 A1 20 41 24 3A 8B 20 41 24 B2 22 22 20 A7 20 |.. A$:. A$."" . |
00001770: 32 35 31 30 00 93 1F D8 09 8B 20 41 24 B2 22 4E |2510...... A$."N|
00001780: 22 20 A7 98 31 2C 22 49 22 AA 44 52 24 3A 89 32 |" ..1,"I".DR$:.2|
00001790: 36 31 30 00 A8 1F E2 09 8B 20 41 24 B3 B1 22 59 |610...... A$.."Y|
000017A0: 22 20 A7 20 32 35 31 30 00 B8 1F EC 09 51 B2 32 |" . 2510.....Q.2|
000017B0: 30 3A 8D 20 33 33 38 30 00 DC 1F F6 09 98 31 2C |0:. 3380......1,|
000017C0: 22 4E 22 AA 44 52 24 AA 22 3A 52 54 43 20 44 49 |"N".DR$.":RTC DI|
000017D0: 43 54 49 4F 4E 41 52 59 2C 44 52 22 00 16 20 00 |CTIONARY,DR".. .|
000017E0: 0A 8B 54 58 B2 33 A7 A0 31 3A A0 32 3A 99 22 11 |..TX.3..1:.2:.".|
000017F0: 12 44 49 53 4B 20 45 52 52 4F 52 20 2D 20 44 52 |.DISK ERROR - DR|
00001800: 49 56 45 20 22 44 52 24 2C 4D 41 24 3A 97 20 50 |IVE "DR$,MA$:. P|
00001810: 41 2C 50 43 3A 80 00 39 20 0A 0A 8D 36 37 32 30 |A,PC:..9 ...6720|
00001820: 3A 4D 41 B2 44 39 3A 4D 41 24 B2 44 39 24 3A 54 |:MA.D9:MA$.D9$:T|
00001830: 58 B2 54 58 AA 31 3A A0 32 00 4B 20 14 0A 8B 20 |X.TX.1:.2.K ... |
00001840: 4D 41 B3 31 39 20 A7 32 36 31 30 00 5E 20 1E 0A |MA.19 .2610.^ ..|
00001850: 8B 20 4D 41 B2 32 31 20 A7 20 32 34 39 30 00 6E |. MA.21 . 2490.n|
00001860: 20 28 0A 54 58 B2 33 20 3A 89 32 35 36 30 00 95 | (.TX.3 :.2560..|
00001870: 20 32 0A 9F 33 2C 38 2C 33 2C 44 52 24 AA 22 3A | 2..3,8,3,DR$.":|
00001880: 44 49 43 54 49 4F 4E 41 52 59 2C 4C 2C 22 AA C7 |DICTIONARY,L,"..|
00001890: 28 32 35 34 29 00 CB 20 3C 0A 8D 36 37 32 30 3A |(254).. <..6720:|
000018A0: 4D 41 B2 44 39 3A 4D 41 24 B2 44 39 24 3A 54 58 |MA.D9:MA$.D9$:TX|
000018B0: B2 54 58 AA 31 3A 8B 20 4D 41 B1 31 39 20 A7 20 |.TX.1:. MA.19 . |
000018C0: A0 32 3A A0 33 3A 89 32 35 39 30 00 DB 20 46 0A |.2:.3:.2590.. F.|
000018D0: 51 B2 32 31 3A 8D 20 33 33 38 30 00 F6 20 50 0A |Q.21:. 3380.. P.|
000018E0: 52 46 B2 33 3A 52 52 B2 4D 58 3A 8D 36 37 34 30 |RF.3:RR.MX:.6740|
000018F0: 3A 8D 36 37 32 30 00 09 21 5A 0A 98 33 2C C7 28 |:.6720..!Z..3,.(|
00001900: 32 35 35 29 3B 3A 52 B2 32 00 2D 21 64 0A 81 20 |255);:R.2.-!d.. |
00001910: 4A B2 31 20 A4 20 32 36 20 20 3A 52 B2 4E 53 25 |J.1 . 26 :R.NS%|
00001920: 28 4A 29 20 3A 20 49 B2 4A AC 32 AB 31 00 67 21 |(J) : I.J.2.1.g!|
00001930: 6E 0A 53 48 B2 B5 28 52 AD 32 35 36 29 3A 53 4C |n.SH..(R.256):SL|
00001940: B2 52 AB 53 48 AC 32 35 36 3A 45 48 B2 B5 28 28 |.R.SH.256:EH..((|
00001950: 52 AA 31 29 AD 32 35 36 29 3A 45 4C B2 52 AA 31 |R.1).256):EL.R.1|
00001960: AB 45 48 AC 32 35 36 00 9B 21 78 0A 52 4D 25 28 |.EH.256..!x.RM%(|
00001970: 49 29 B2 31 32 38 AA 28 53 4C 20 AF 20 31 32 37 |I).128.(SL . 127|
00001980: 29 3A 52 4D 25 28 49 AA 31 29 B2 31 32 38 AA 28 |):RM%(I.1).128.(|
00001990: 53 4C 20 AF 20 31 32 38 29 AD 32 00 D3 21 82 0A |SL . 128).2..!..|
000019A0: 52 4D 25 28 49 AA 35 32 29 B2 31 32 38 AA 28 53 |RM%(I.52).128.(S|
000019B0: 48 20 AF 20 31 32 37 29 3A 52 4D 25 28 49 AA 35 |H . 127):RM%(I.5|
000019C0: 33 29 B2 31 32 38 AA 28 53 48 20 AF 20 31 32 38 |3).128.(SH . 128|
000019D0: 29 AD 32 00 0D 22 8C 0A 52 4D 25 28 49 AA 31 30 |).2.."..RM%(I.10|
000019E0: 34 29 B2 31 32 38 AA 28 45 4C 20 AF 20 31 32 37 |4).128.(EL . 127|
000019F0: 29 3A 52 4D 25 28 49 AA 31 30 35 29 B2 31 32 38 |):RM%(I.105).128|
00001A00: AA 28 45 4C 20 AF 20 31 32 38 29 AD 32 00 47 22 |.(EL . 128).2.G"|
00001A10: 96 0A 52 4D 25 28 49 AA 31 35 36 29 B2 31 32 38 |..RM%(I.156).128|
00001A20: AA 28 45 48 20 AF 20 31 32 37 29 3A 52 4D 25 28 |.(EH . 127):RM%(|
00001A30: 49 AA 31 35 37 29 B2 31 32 38 AA 28 45 48 20 AF |I.157).128.(EH .|
00001A40: 20 31 32 38 29 AD 32 00 6A 22 A0 0A 52 46 B2 33 | 128).2.j"..RF.3|
00001A50: 3A 52 52 B2 52 3A 8D 36 37 34 30 3A 98 33 2C C7 |:RR.R:.6740:.3,.|
00001A60: 28 31 29 C7 28 32 35 35 29 3B 00 A5 22 A5 0A 8F |(1).(255);.."...|
00001A70: 52 52 3D 52 52 2B 32 3A 47 4F 53 55 42 36 37 34 |RR=RR+2:GOSUB674|
00001A80: 30 3A 20 52 45 4D 20 52 45 4C 41 54 49 56 45 20 |0: REM RELATIVE |
00001A90: 42 55 47 20 46 49 58 20 46 4F 52 20 31 35 34 31 |BUG FIX FOR 1541|
00001AA0: 2F 32 30 33 31 00 AD 22 AA 0A 82 20 4A 00 C1 22 |/2031.."... J.."|
00001AB0: B4 0A 52 46 B2 33 3A 52 52 B2 31 3A 8D 36 37 34 |..RF.3:RR.1:.674|
00001AC0: 30 00 D3 22 BE 0A 50 52 24 B2 C7 28 52 4D 25 28 |0.."..PR$..(RM%(|
00001AD0: 31 29 29 00 E3 22 C8 0A 81 20 50 B2 32 20 A4 20 |1)).."... P.2 . |
00001AE0: 32 35 34 00 F9 22 D2 0A 50 52 24 B2 50 52 24 AA |254.."..PR$.PR$.|
00001AF0: C7 28 52 4D 25 28 50 29 29 00 01 23 DC 0A 82 20 |.(RM%(P))..#... |
00001B00: 50 00 0D 23 E6 0A 98 33 2C 50 52 24 3B 00 28 23 |P..#...3,PR$;.(#|
00001B10: F0 0A 8B 20 4D 4F B3 B1 35 20 A7 20 A0 33 3A A0 |... MO..5 . .3:.|
00001B20: 31 3A 89 20 33 34 33 30 00 32 23 FA 0A A0 32 3A |1:. 3430.2#...2:|
00001B30: A0 33 00 38 23 04 0B 8E 00 80 23 0E 0B 8F 20 2A |.3.8#.....#... *|
00001B40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001B50: 2A 2A 2A 20 49 4E 49 54 49 41 4C 49 5A 41 54 49 |*** INITIALIZATI|
00001B60: 4F 4E 20 57 41 52 4E 49 4E 47 20 2A 2A 2A 2A 2A |ON WARNING *****|
00001B70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001B80: 00 89 23 18 0B 8D 20 36 30 00 BB 23 22 0B 99 22 |..#... 60..#".."|
00001B90: 13 11 22 3B 51 33 24 3B 22 D4 48 49 53 20 52 4F |..";Q3$;".HIS RO|
00001BA0: 55 54 49 4E 45 20 57 49 4C 4C 20 43 52 45 41 54 |UTINE WILL CREAT|
00001BB0: 45 20 54 48 45 22 3B 51 31 24 3B 00 D8 23 2C 0B |E THE";Q1$;..#,.|
00001BC0: 99 22 44 49 43 54 49 4F 4E 41 52 59 20 44 49 52 |."DICTIONARY DIR|
00001BD0: 45 43 54 4F 52 59 2E 22 00 11 24 36 0B 99 20 51 |ECTORY."..$6.. Q|
00001BE0: 33 24 3B 22 11 D9 4F 55 20 57 49 4C 4C 20 46 49 |3$;"..OU WILL FI|
00001BF0: 52 53 54 20 42 45 20 41 53 4B 45 44 20 49 46 20 |RST BE ASKED IF |
00001C00: 59 4F 55 20 57 49 53 48 20 54 4F 22 3B 51 31 24 |YOU WISH TO";Q1$|
00001C10: 3B 00 2E 24 40 0B 99 20 22 49 4E 49 54 49 41 4C |;..$@.. "INITIAL|
00001C20: 49 5A 45 20 54 48 45 20 44 49 53 4B 2E 22 00 62 |IZE THE DISK.".b|
00001C30: 24 4A 0B 99 20 51 33 24 3B 22 C9 46 20 54 48 49 |$J.. Q3$;".F THI|
00001C40: 53 20 49 53 20 41 20 4E 45 57 20 44 49 53 4B 20 |S IS A NEW DISK |
00001C50: 49 54 20 12 4D 55 53 54 92 20 42 45 22 3B 51 31 |IT .MUST. BE";Q1|
00001C60: 24 3B 00 8F 24 54 0B 99 22 49 4E 49 54 49 41 4C |$;..$T.."INITIAL|
00001C70: 49 5A 45 44 2E 20 C9 46 20 49 54 20 49 53 20 41 |IZED. .F IT IS A|
00001C80: 4E 20 4F 4C 44 20 44 49 53 4B 20 41 4E 59 22 00 |N OLD DISK ANY".|
00001C90: C4 24 5E 0B 99 20 51 33 24 3B 22 44 41 54 41 20 |.$^.. Q3$;"DATA |
00001CA0: 4F 4E 20 49 54 20 57 49 4C 4C 20 42 45 20 44 45 |ON IT WILL BE DE|
00001CB0: 53 54 52 4F 59 45 44 20 44 55 52 49 4E 47 22 3B |STROYED DURING";|
00001CC0: 51 31 24 3B 00 EB 24 68 0B 99 22 54 48 45 20 49 |Q1$;..$h.."THE I|
00001CD0: 4E 49 54 49 41 4C 49 5A 41 54 49 4F 4E 20 50 52 |NITIALIZATION PR|
00001CE0: 4F 43 45 53 53 2E 20 D4 48 45 22 00 22 25 72 0B |OCESS. .HE"."%r.|
00001CF0: 99 20 51 33 24 3B 22 44 49 43 54 49 4F 4E 41 52 |. Q3$;"DICTIONAR|
00001D00: 59 20 52 45 51 55 49 52 45 53 20 55 53 45 20 4F |Y REQUIRES USE O|
00001D10: 46 20 36 35 30 20 42 4C 4F 43 4B 53 22 3B 51 31 |F 650 BLOCKS";Q1|
00001D20: 24 3B 00 4D 25 7C 0B 99 22 4F 52 20 41 4C 4D 4F |$;.M%|.."OR ALMO|
00001D30: 53 54 20 41 4C 4C 20 4F 46 20 41 20 34 30 34 30 |ST ALL OF A 4040|
00001D40: 2F 31 35 34 31 20 44 49 53 4B 2E 20 22 00 86 25 |/1541 DISK. "..%|
00001D50: 86 0B 99 20 51 33 24 3B 22 C9 46 20 59 4F 55 20 |... Q3$;".F YOU |
00001D60: 48 41 56 45 20 41 20 34 30 34 30 2F 31 35 34 31 |HAVE A 4040/1541|
00001D70: 20 44 49 53 4B 20 55 4E 49 54 20 49 54 20 49 53 | DISK UNIT IT IS|
00001D80: 22 3B 51 31 24 3B 00 B1 25 90 0B 99 22 52 45 43 |";Q1$;..%..."REC|
00001D90: 4F 4D 4D 45 4E 44 45 44 20 54 48 41 54 20 59 4F |OMMENDED THAT YO|
00001DA0: 55 20 49 4E 49 54 49 41 4C 49 5A 45 20 54 48 45 |U INITIALIZE THE|
00001DB0: 22 00 C3 25 9A 0B 99 20 51 33 24 3B 22 44 49 53 |"..%... Q3$;"DIS|
00001DC0: 4B 2E 22 00 02 26 A4 0B 8B 20 4D 41 B2 32 31 20 |K."..&... MA.21 |
00001DD0: A7 20 99 22 11 11 12 D0 4C 45 41 53 45 20 49 4E |. ."....LEASE IN|
00001DE0: 53 45 52 54 20 59 4F 55 52 20 44 49 53 4B 20 49 |SERT YOUR DISK I|
00001DF0: 4E 20 44 52 49 56 45 20 22 44 52 24 3A 89 33 30 |N DRIVE "DR$:.30|
00001E00: 30 30 00 30 26 AE 0B 99 22 11 11 D0 4C 45 41 53 |00.0&..."...LEAS|
00001E10: 45 20 49 4E 53 45 52 54 20 59 4F 55 52 20 44 49 |E INSERT YOUR DI|
00001E20: 53 4B 20 49 4E 20 44 52 49 56 45 20 22 44 52 24 |SK IN DRIVE "DR$|
00001E30: 00 40 26 B8 0B 51 B2 32 32 3A 8D 20 33 33 38 30 |.@&..Q.22:. 3380|
00001E40: 00 57 26 C2 0B A1 20 41 24 3A 8B 41 24 B2 22 22 |.W&... A$:.A$.""|
00001E50: 20 A7 20 33 30 31 30 00 6B 26 CC 0B 8B 20 41 24 | . 3010.k&... A$|
00001E60: B2 22 4E 22 20 A7 20 33 34 32 30 00 80 26 D6 0B |."N" . 3420..&..|
00001E70: 8B 20 41 24 B3 B1 22 59 22 20 A7 20 33 30 31 30 |. A$.."Y" . 3010|
00001E80: 00 86 26 E0 0B 8E 00 CE 26 EA 0B 8F 20 2A 2A 2A |..&.....&... ***|
00001E90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001EA0: 2A 2A 20 20 43 4F 4D 4D 45 52 43 49 41 4C 20 2A |** COMMERCIAL *|
00001EB0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001EC0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 DC |**************..|
00001ED0: 26 F4 0B 99 20 22 93 22 3B 51 34 24 00 F4 26 08 |&... ".";Q4$..&.|
00001EE0: 0C 54 46 24 B2 22 20 22 3A 44 4F B2 31 3A 8D 20 |.TF$." ":DO.1:. |
00001EF0: 33 33 39 30 00 07 27 12 0C 8B 20 43 4F B2 34 30 |3390..'... CO.40|
00001F00: 20 A7 20 33 31 32 30 00 4F 27 1C 0C 54 46 24 B2 | . 3120.O'..TF$.|
00001F10: 22 4A 41 4E 55 41 52 59 2D 38 33 20 20 20 20 20 |"JANUARY-83 |
00001F20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001F30: 20 20 20 20 20 20 20 56 45 52 53 49 4F 4E 20 33 | VERSION 3|
00001F40: 2E 31 22 3A 44 4F B2 32 3A 8D 20 33 33 39 30 00 |.1":DO.2:. 3390.|
00001F50: 5A 27 26 0C 89 20 33 31 33 30 00 97 27 30 0C 54 |Z'&.. 3130..'0.T|
00001F60: 46 24 B2 22 4A 41 4E 55 41 52 59 2D 38 33 20 20 |F$."JANUARY-83 |
00001F70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 56 | V|
00001F80: 45 52 53 49 4F 4E 20 33 2E 31 22 3A 44 4F B2 32 |ERSION 3.1":DO.2|
00001F90: 3A 8D 20 33 33 39 30 00 BB 27 3A 0C 54 46 24 B2 |:. 3390..':.TF$.|
00001FA0: 22 20 20 22 3A 81 20 44 4F B2 33 20 A4 20 39 3A |" ":. DO.3 . 9:|
00001FB0: 8D 20 33 33 39 30 3A 82 20 44 4F 00 F0 27 44 0C |. 3390:. DO..'D.|
00001FC0: 54 46 24 B2 22 44 49 43 54 49 4F 4E 41 52 59 20 |TF$."DICTIONARY |
00001FD0: 4D 41 49 4E 54 45 4E 41 4E 43 45 20 50 52 4F 47 |MAINTENANCE PROG|
00001FE0: 52 41 4D 22 3A 44 4F B2 39 3A 8D 20 33 33 39 30 |RAM":DO.9:. 3390|
00001FF0: 00 09 28 4E 0C 54 46 24 B2 22 20 22 3A 44 4F B2 |..(N.TF$." ":DO.|
00002000: 31 30 3A 8D 20 33 33 39 30 00 24 28 58 0C 54 46 |10:. 3390.$(X.TF|
00002010: 24 B2 22 46 4F 52 22 3A 44 4F B2 31 31 3A 8D 20 |$."FOR":DO.11:. |
00002020: 33 33 39 30 00 3D 28 62 0C 54 46 24 B2 22 20 22 |3390.=(b.TF$." "|
00002030: 3A 44 4F B2 31 32 3A 8D 20 33 33 39 30 00 70 28 |:DO.12:. 3390.p(|
00002040: 6C 0C 54 46 24 B2 22 52 49 43 48 56 41 4C 45 20 |l.TF$."RICHVALE |
00002050: 54 45 4C 45 43 4F 4D 4D 55 4E 49 43 41 54 49 4F |TELECOMMUNICATIO|
00002060: 4E 53 22 3A 44 4F B2 31 33 3A 8D 20 33 33 39 30 |NS":DO.13:. 3390|
00002070: 00 89 28 76 0C 54 46 24 B2 22 20 22 3A 44 4F B2 |..(v.TF$." ":DO.|
00002080: 31 34 3A 8D 20 33 33 39 30 00 9C 28 7B 0C 8B 20 |14:. 3390..({.. |
00002090: 43 4F B2 34 30 20 A7 20 33 32 30 35 00 D8 28 80 |CO.40 . 3205..(.|
000020A0: 0C 54 46 24 B2 22 52 54 43 2D 34 20 57 4F 52 44 |.TF$."RTC-4 WORD|
000020B0: 20 50 52 4F 43 45 53 53 49 4E 47 20 53 59 53 54 | PROCESSING SYST|
000020C0: 45 4D 53 22 3A 44 4F B2 31 35 3A 8D 20 33 33 39 |EMS":DO.15:. 339|
000020D0: 30 3A 89 20 33 32 31 30 00 11 29 85 0C 54 46 24 |0:. 3210..)..TF$|
000020E0: B2 22 53 43 52 49 50 54 20 36 34 20 57 4F 52 44 |."SCRIPT 64 WORD|
000020F0: 20 50 52 4F 43 45 53 53 49 4E 47 20 53 59 53 54 | PROCESSING SYST|
00002100: 45 4D 53 22 3A 44 4F B2 31 35 3A 8D 20 33 33 39 |EMS":DO.15:. 339|
00002110: 30 00 36 29 8A 0C 54 46 24 B2 22 20 22 3A 81 20 |0.6)..TF$." ":. |
00002120: 44 4F B2 31 36 20 A4 20 32 31 3A 8D 20 33 33 39 |DO.16 . 21:. 339|
00002130: 30 3A 82 20 44 4F 00 49 29 94 0C 8B 20 43 4F B2 |0:. DO.I)... CO.|
00002140: 34 30 20 A7 20 33 32 35 30 00 8C 29 9E 0C 54 46 |40 . 3250..)..TF|
00002150: 24 B2 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |$." |
00002160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002170: 20 20 20 20 20 42 59 20 42 49 4C 4C 20 44 55 54 | BY BILL DUT|
00002180: 46 49 45 4C 44 22 3A 44 4F B2 32 32 00 97 29 A8 |FIELD":DO.22..).|
00002190: 0C 89 20 33 32 36 30 00 CE 29 B2 0C 54 46 24 B2 |.. 3260..)..TF$.|
000021A0: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" |
000021B0: 20 20 20 20 20 20 20 42 59 20 42 49 4C 4C 20 44 | BY BILL D|
000021C0: 55 54 46 49 45 4C 44 22 3A 44 4F B2 32 32 00 D9 |UTFIELD":DO.22..|
000021D0: 29 BC 0C 8D 20 33 33 39 30 00 F2 29 C6 0C 54 46 |)... 3390..)..TF|
000021E0: 24 B2 22 20 22 3A 44 4F B2 32 33 3A 8D 20 33 33 |$." ":DO.23:. 33|
000021F0: 39 30 00 0B 2A D0 0C 81 20 49 B2 31 A4 33 30 30 |90..*... I.1.300|
00002200: 30 20 3A 82 49 3A 44 4F B2 32 33 00 11 2A DA 0C |0 :.I:DO.23..*..|
00002210: 8E 00 59 2A E4 0C 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..Y*... ********|
00002220: 2A 2A 2A 2A 2A 2A 2A 2A 20 53 55 42 52 4F 55 54 |******** SUBROUT|
00002230: 49 4E 45 20 54 4F 20 52 45 41 44 20 41 20 52 45 |INE TO READ A RE|
00002240: 43 4F 52 44 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |CORD************|
00002250: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 75 2A EE 0C 52 46 |*********.u*..RF|
00002260: B2 32 3A 52 52 B2 52 53 3A 8D 36 37 34 30 3A 97 |.2:RR.RS:.6740:.|
00002270: 20 50 44 2C 30 00 86 2A F8 0C 81 20 49 31 B2 31 | PD,0..*... I1.1|
00002280: 20 A4 20 32 35 34 00 B0 2A 02 0D 8B 20 53 54 B2 | . 254..*... ST.|
00002290: 30 20 A7 20 A1 23 32 2C 52 49 24 3A 52 4C 25 28 |0 . .#2,RI$:RL%(|
000022A0: 49 31 29 B2 C6 28 52 49 24 29 3A 89 33 33 35 30 |I1)..(RI$):.3350|
000022B0: 00 BE 2A 0C 0D 52 4C 25 28 49 31 29 B2 30 00 C7 |..*..RL%(I1).0..|
000022C0: 2A 16 0D 82 20 49 31 00 CD 2A 20 0D 8E 00 15 2B |*... I1..* ....+|
000022D0: 2A 0D 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |*.. ************|
000022E0: 2A 2A 2A 2A 20 50 52 49 4E 54 20 42 4F 54 54 4F |**** PRINT BOTTO|
000022F0: 4D 20 43 4F 4E 54 52 4F 4C 20 4C 49 4E 45 20 2A |M CONTROL LINE *|
00002300: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002310: 2A 2A 2A 2A 2A 00 24 2B 34 0D 54 46 24 B2 54 46 |*****.$+4.TF$.TF|
00002320: 24 28 51 29 00 5D 2B 3E 0D 99 20 22 13 22 3B C8 |$(Q).]+>.. ".";.|
00002330: 28 44 4E 24 2C 44 4F 29 3B 42 41 24 3B 42 58 24 |(DN$,DO);BA$;BX$|
00002340: 3B 22 12 22 3B C8 28 41 58 24 2C 28 43 4F AB C3 |;".";.(AX$,(CO..|
00002350: 28 54 46 24 29 29 AD 32 29 3B 54 46 24 00 63 2B |(TF$)).2);TF$.c+|
00002360: 48 0D 8E 00 AB 2B 52 0D 8F 20 2A 2A 2A 2A 2A 2A |H....+R.. ******|
00002370: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002380: 2A 20 54 45 52 4D 49 4E 41 54 49 4F 4E 20 2A 2A |* TERMINATION **|
00002390: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000023A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 B8 2B 5C 0D |***********..+\.|
000023B0: A0 32 3A A0 33 3A A0 31 00 EE 2B 66 0D 99 22 93 |.2:.3:.1..+f..".|
000023C0: 22 B8 28 4F 29 3B 22 11 11 11 11 11 11 11 11 11 |".(O);".........|
000023D0: 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 47 4F 4F 44 20 |...........GOOD |
000023E0: 42 59 45 22 3A 97 20 50 41 2C 50 43 3A 80 00 36 |BYE":. PA,PC:..6|
000023F0: 2C 70 0D 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |,p.. ***********|
00002400: 2A 2A 2A 2A 2A 2A 20 41 20 43 41 55 54 49 4F 4E |****** A CAUTION|
00002410: 20 4E 4F 54 45 20 4F 4E 20 55 53 45 20 2A 2A 2A | NOTE ON USE ***|
00002420: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002430: 2A 2A 2A 2A 2A 2A 00 58 2C 7A 0D 8D 36 30 3A 54 |******.X,z..60:T|
00002440: 46 24 B2 22 43 41 55 54 49 4F 4E 22 3A 44 4F B2 |F$."CAUTION":DO.|
00002450: 33 3A 8D 20 33 33 39 30 00 7C 2C 84 0D 54 46 24 |3:. 3390.|,..TF$|
00002460: B2 22 3D 3D 3D 3D 3D 3D 3D 22 3A 44 4F B2 34 3A |."=======":DO.4:|
00002470: 8D 20 33 33 39 30 3A 44 4F B2 32 33 00 AC 2C 8E |. 3390:DO.23..,.|
00002480: 0D 99 20 22 11 C1 53 20 54 48 49 53 20 50 52 4F |.. "..S THIS PRO|
00002490: 47 52 41 4D 20 4D 4F 44 49 46 49 45 53 20 42 4F |GRAM MODIFIES BO|
000024A0: 54 48 20 54 48 45 22 3B 51 31 24 3B 00 DA 2C 98 |TH THE";Q1$;..,.|
000024B0: 0D 99 20 22 52 45 43 4F 52 44 53 20 41 4E 44 20 |.. "RECORDS AND |
000024C0: 54 48 45 20 4D 41 49 4E 20 44 49 52 45 43 54 4F |THE MAIN DIRECTO|
000024D0: 52 59 20 4F 46 20 54 48 45 22 00 12 2D A2 0D 99 |RY OF THE"..-...|
000024E0: 20 51 33 24 3B 22 44 49 43 54 49 4F 4E 41 52 59 | Q3$;"DICTIONARY|
000024F0: 2C 20 49 54 20 49 53 20 53 54 52 4F 4E 47 4C 59 |, IT IS STRONGLY|
00002500: 20 52 45 43 4F 4D 4D 45 4E 44 45 44 22 3B 51 31 | RECOMMENDED";Q1|
00002510: 24 3B 00 40 2D AC 0D 99 20 22 54 48 41 54 20 41 |$;.@-... "THAT A|
00002520: 20 42 41 43 4B 2D 55 50 20 43 4F 50 59 20 4F 46 | BACK-UP COPY OF|
00002530: 20 54 48 45 20 44 49 43 54 49 4F 4E 41 52 59 22 | THE DICTIONARY"|
00002540: 00 78 2D B6 0D 99 20 51 33 24 3B 22 44 49 53 4B |.x-... Q3$;"DISK|
00002550: 20 42 45 20 54 41 4B 45 4E 20 12 42 45 46 4F 52 | BE TAKEN .BEFOR|
00002560: 45 92 20 41 4E 59 20 4D 41 49 4E 54 45 4E 41 4E |E. ANY MAINTENAN|
00002570: 43 45 22 3B 51 31 24 3B 00 99 2D C0 0D 99 20 22 |CE";Q1$;..-... "|
00002580: 41 43 54 49 56 49 54 59 20 42 45 20 55 4E 44 45 |ACTIVITY BE UNDE|
00002590: 52 2D 54 41 4B 45 4E 2E 22 00 DA 2D CA 0D 8B 20 |R-TAKEN."..-... |
000025A0: 4D 4F B2 32 31 20 A7 20 99 22 11 11 11 12 49 4E |MO.21 . ."....IN|
000025B0: 53 45 52 54 20 54 48 45 20 44 49 43 54 49 4F 4E |SERT THE DICTION|
000025C0: 41 52 59 20 44 49 53 4B 20 49 4E 20 44 52 49 56 |ARY DISK IN DRIV|
000025D0: 45 20 30 22 3A 89 33 35 36 30 00 0B 2E D4 0D 99 |E 0":.3560......|
000025E0: 20 22 11 11 11 C9 4E 53 45 52 54 20 54 48 45 20 | "....NSERT THE |
000025F0: 44 49 43 54 49 4F 4E 41 52 59 20 44 49 53 4B 20 |DICTIONARY DISK |
00002600: 49 4E 20 44 52 49 56 45 20 30 22 00 43 2E DE 0D |IN DRIVE 0".C...|
00002610: 8B 20 4D 4F B2 36 32 20 A7 20 99 22 11 12 46 49 |. MO.62 . ."..FI|
00002620: 4C 45 20 4E 4F 54 20 46 4F 55 4E 44 20 2D 20 49 |LE NOT FOUND - I|
00002630: 4E 53 45 52 54 20 43 4F 52 52 45 43 54 20 44 49 |NSERT CORRECT DI|
00002640: 53 4B 22 00 52 2E E8 0D 51 B2 33 38 3A 8D 33 33 |SK".R...Q.38:.33|
00002650: 38 30 00 69 2E F2 0D A1 41 24 3A 8B 20 41 24 B2 |80.i....A$:. A$.|
00002660: 22 22 20 A7 20 33 35 37 30 00 72 2E FC 0D 4D 4F |"" . 3570.r...MO|
00002670: B2 30 00 78 2E 06 0E 8E 00 C0 2E 10 0E 8F 20 2A |.0.x.......... *|
00002680: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 50 |************** P|
00002690: 52 49 4E 54 20 44 49 43 54 49 4F 4E 41 52 59 20 |RINT DICTIONARY |
000026A0: 52 4F 55 54 49 4E 45 20 2A 2A 2A 2A 2A 2A 2A 2A |ROUTINE ********|
000026B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000026C0: 00 DF 2E 1A 0E 8B 20 4D 4F B2 36 20 A7 20 51 B2 |...... MO.6 . Q.|
000026D0: 32 38 3A 8D 20 33 33 38 30 3A 89 33 37 35 30 00 |28:. 3380:.3750.|
000026E0: EC 2E 24 0E 8D 36 30 3A 51 B2 32 33 00 F7 2E 2E |..$..60:Q.23....|
000026F0: 0E 8D 20 33 33 38 30 00 11 2F 38 0E 9F 20 34 2C |.. 3380../8.. 4,|
00002700: 34 3A 20 4A 31 B2 33 3A 43 52 24 B2 C7 28 31 33 |4: J1.3:CR$..(13|
00002710: 29 00 29 2F 42 0E A1 20 42 24 3A 8B 20 42 24 B2 |).)/B.. B$:. B$.|
00002720: 22 22 20 A7 20 33 36 35 30 00 48 2F 4C 0E 8B 20 |"" . 3650.H/L.. |
00002730: 42 24 B2 22 59 22 20 A7 20 43 52 24 B2 C7 28 31 |B$."Y" . CR$..(1|
00002740: 30 29 3A 89 33 36 38 30 00 5D 2F 56 0E 8B 20 42 |0):.3680.]/V.. B|
00002750: 24 B3 B1 22 4E 22 20 A7 20 33 36 35 30 00 6C 2F |$.."N" . 3650.l/|
00002760: 60 0E 51 B2 32 34 3A 8D 33 33 38 30 00 84 2F 6A |`.Q.24:.3380../j|
00002770: 0E A1 20 41 24 3A 8B 20 41 24 B2 22 22 20 A7 20 |.. A$:. A$."" . |
00002780: 33 36 39 30 00 98 2F 74 0E 8B 20 41 24 B2 22 59 |3690../t.. A$."Y|
00002790: 22 20 A7 20 33 37 35 30 00 AD 2F 7E 0E 8B 20 41 |" . 3750../~.. A|
000027A0: 24 B3 B1 22 4E 22 20 A7 20 33 36 39 30 00 B8 2F |$.."N" . 3690../|
000027B0: 88 0E 8D 20 31 34 35 30 00 C1 2F 92 0E 51 B2 32 |... 1450../..Q.2|
000027C0: 35 00 D9 2F 9C 0E 8D 20 33 33 38 30 3A 8D 20 33 |5../... 3380:. 3|
000027D0: 39 33 30 3A 89 33 39 30 30 00 00 30 A6 0E 81 20 |930:.3900..0... |
000027E0: 47 B2 31 20 A4 20 32 36 3A 4C B2 47 3A 4C 24 B2 |G.1 . 26:L.G:L$.|
000027F0: 54 4B 24 28 47 29 3A 4A 31 B2 33 3A 4A 43 B2 30 |TK$(G):J1.3:JC.0|
00002800: 00 12 30 B0 0E 8B 20 4D 4F B2 36 20 A7 20 33 37 |..0... MO.6 . 37|
00002810: 38 30 00 22 30 BA 0E 51 B2 32 35 3A 8D 20 33 33 |80."0..Q.25:. 33|
00002820: 38 30 00 2D 30 C4 0E 8D 20 33 39 33 30 00 49 30 |80.-0... 3930.I0|
00002830: CE 0E 57 43 25 28 47 29 B2 4A 43 3A 8B 20 4D 4F |..WC%(G).JC:. MO|
00002840: B2 36 20 A7 20 33 38 32 30 00 59 30 D8 0E 98 34 |.6 . 3820.Y0...4|
00002850: 2C 53 50 24 3B 43 52 24 3B 00 6D 30 E2 0E 8B 20 |,SP$;CR$;.m0... |
00002860: 41 24 B2 22 51 22 20 A7 20 33 39 30 30 00 75 30 |A$."Q" . 3900.u0|
00002870: EC 0E 82 20 47 00 AC 30 F6 0E 8D 20 36 30 3A 99 |... G..0... 60:.|
00002880: 20 22 13 11 11 4C 45 54 54 45 52 20 20 57 4F 52 | "...LETTER WOR|
00002890: 44 53 20 20 20 20 20 20 4C 45 54 54 45 52 53 20 |DS LETTERS |
000028A0: 20 57 4F 52 44 53 22 3A 56 33 B2 30 00 F1 30 00 | WORDS":V3.0..0.|
000028B0: 0F 81 20 47 B2 31 20 A4 20 31 33 3A 56 31 24 B2 |.. G.1 . 13:V1$.|
000028C0: C4 28 57 43 25 28 47 29 29 3A 56 32 24 B2 C4 28 |.(WC%(G)):V2$..(|
000028D0: 57 43 25 28 47 AA 31 33 29 29 3A 56 33 B2 56 33 |WC%(G.13)):V3.V3|
000028E0: AA 57 43 25 28 47 29 AA 57 43 25 28 47 AA 31 33 |.WC%(G).WC%(G.13|
000028F0: 29 00 1F 31 0A 0F 99 20 22 20 20 22 3B C7 28 36 |)..1... " ";.(6|
00002900: 34 AA 47 29 3B C8 28 53 50 24 2C 31 30 AB C3 28 |4.G);.(SP$,10..(|
00002910: 56 31 24 29 29 3B 56 31 24 3B A3 32 31 29 3B 00 |V1$));V1$;.21);.|
00002920: 42 31 14 0F 99 20 C7 28 37 37 AA 47 29 3B C8 28 |B1... .(77.G);.(|
00002930: 53 50 24 2C 31 31 AB C3 28 56 32 24 29 29 3B 56 |SP$,11..(V2$));V|
00002940: 32 24 00 4A 31 1E 0F 82 20 47 00 75 31 28 0F 99 |2$.J1... G.u1(..|
00002950: 20 22 11 11 D4 4F 54 41 4C 20 57 4F 52 44 53 20 | "...OTAL WORDS |
00002960: 49 4E 20 44 49 43 54 49 4F 4E 41 52 59 20 3D 3D |IN DICTIONARY ==|
00002970: 3E 22 3B 56 33 00 7F 31 32 0F 89 20 39 37 30 00 |>";V3..12.. 970.|
00002980: 93 31 3C 0F 98 34 2C 53 50 24 3B 43 52 24 3B 3A |.1<..4,SP$;CR$;:|
00002990: A0 20 34 00 9C 31 46 0F 89 33 38 30 00 E4 31 50 |. 4..1F..380..1P|
000029A0: 0F 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.. *************|
000029B0: 20 52 4F 55 54 49 4E 45 20 54 4F 20 50 52 49 4E | ROUTINE TO PRIN|
000029C0: 54 20 57 4F 52 44 53 20 46 4F 52 20 4F 4E 45 20 |T WORDS FOR ONE |
000029D0: 4C 45 54 54 45 52 20 2A 2A 2A 2A 2A 2A 2A 2A 2A |LETTER *********|
000029E0: 2A 2A 2A 2A 00 FA 31 5A 0F 52 53 B2 53 25 28 4C |****..1Z.RS.S%(L|
000029F0: 29 3A 52 45 B2 45 25 28 4C 29 00 05 32 64 0F 8D |):RE.E%(L)..2d..|
00002A00: 20 33 33 31 30 00 10 32 6E 0F 57 44 24 B2 4C 24 | 3310..2n.WD$.L$|
00002A10: 00 20 32 78 0F 81 20 49 B2 32 20 A4 20 32 35 34 |. 2x.. I.2 . 254|
00002A20: 00 2E 32 82 0F 5A 58 B2 52 4C 25 28 49 29 00 54 |..2..ZX.RL%(I).T|
00002A30: 32 8C 0F 8B 20 5A 58 B2 31 32 36 20 B0 20 5A 58 |2... ZX.126 . ZX|
00002A40: B2 31 32 37 20 B0 20 5A 58 B2 32 35 34 20 A7 20 |.127 . ZX.254 . |
00002A50: 34 31 36 30 00 68 32 96 0F 8B 20 5A 58 B2 32 35 |4160.h2... ZX.25|
00002A60: 35 20 A7 20 34 32 32 30 00 7A 32 A0 0F 8B 20 5A |5 . 4220.z2... Z|
00002A70: 58 B2 30 20 A7 20 34 31 37 30 00 88 32 AA 0F 45 |X.0 . 4170..2..E|
00002A80: 57 B2 5A 58 AF 31 32 38 00 96 32 B4 0F 43 48 B2 |W.ZX.128..2..CH.|
00002A90: 5A 58 AF 31 32 37 00 AA 32 BE 0F 57 44 24 B2 57 |ZX.127..2..WD$.W|
00002AA0: 44 24 AA 54 4B 24 28 43 48 29 00 BC 32 C8 0F 8B |D$.TK$(CH)..2...|
00002AB0: 20 45 57 B2 30 20 A7 20 34 31 36 30 00 D6 32 D2 | EW.0 . 4160..2.|
00002AC0: 0F 4A 43 B2 4A 43 AA 31 3A 8B 20 4D 4F B2 36 20 |.JC.JC.1:. MO.6 |
00002AD0: A7 20 34 31 35 30 00 FE 32 DC 0F 8B 20 C3 28 57 |. 4150..2... .(W|
00002AE0: 44 24 29 B1 31 39 20 A7 20 4A 31 B2 B5 28 4A 31 |D$).19 . J1..(J1|
00002AF0: AD 32 29 AC 32 AA 31 3A 89 20 34 31 30 30 00 1A |.2).2.1:. 4100..|
00002B00: 33 E6 0F 4A 31 B2 4A 31 AA 31 3A 4A 32 B2 4A 31 |3..J1.J1.1:J2.J1|
00002B10: AB B5 28 4A 31 AD 34 29 AC 34 00 4C 33 F0 0F 8B |..(J1.4).4.L3...|
00002B20: 20 4A 32 B3 B1 33 20 A7 20 98 34 2C 57 44 24 3B | J2..3 . .4,WD$;|
00002B30: C8 28 53 50 24 2C 32 30 AB C3 28 57 44 24 29 29 |.(SP$,20..(WD$))|
00002B40: 3B 3A 4A 33 B2 31 3A 89 34 31 35 30 00 78 33 FA |;:J3.1:.4150.x3.|
00002B50: 0F 98 34 2C 57 44 24 3B C8 28 53 50 24 2C 32 30 |..4,WD$;.(SP$,20|
00002B60: AB C3 28 57 44 24 29 29 3B 43 52 24 3B 3A 4A 33 |..(WD$));CR$;:J3|
00002B70: B2 30 3A 89 34 31 35 30 00 94 33 04 10 4A 31 B2 |.0:.4150..3..J1.|
00002B80: 4A 31 AA 31 3A 4A 32 B2 4A 31 AB B5 28 4A 31 AD |J1.1:J2.J1..(J1.|
00002B90: 34 29 AC 34 00 B0 33 0E 10 8B 20 4A 32 B2 30 20 |4).4..3... J2.0 |
00002BA0: AF 20 4A 33 B2 31 20 A7 20 98 34 2C 43 52 24 3B |. J3.1 . .4,CR$;|
00002BB0: 00 E2 33 18 10 8B 20 4A 32 B3 B1 32 20 A7 20 98 |..3... J2..2 . .|
00002BC0: 34 2C 57 44 24 3B C8 28 53 50 24 2C 34 30 AB C3 |4,WD$;.(SP$,40..|
00002BD0: 28 57 44 24 29 29 3B 3A 4A 33 B2 31 3A 89 34 31 |(WD$));:J3.1:.41|
00002BE0: 34 30 00 08 34 22 10 98 34 2C 57 44 24 3B C8 28 |40..4"..4,WD$;.(|
00002BF0: 53 50 24 2C 34 30 AB C3 28 57 44 24 29 29 3B 43 |SP$,40..(WD$));C|
00002C00: 52 24 3B 3A 4A 33 B2 30 00 14 34 2C 10 4A 31 B2 |R$;:J3.0..4,.J1.|
00002C10: 4A 31 AA 31 00 1F 34 36 10 57 44 24 B2 4C 24 00 |J1.1..46.WD$.L$.|
00002C20: 27 34 40 10 82 20 49 00 37 34 4A 10 5A 58 B2 52 |'4@.. I.74J.ZX.R|
00002C30: 4C 25 28 31 29 AA 32 00 74 34 54 10 8B 20 5A 58 |L%(1).2.t4T.. ZX|
00002C40: B3 B1 49 20 A7 20 99 20 22 C2 4C 4F 43 4B 20 4C |..I . . ".LOCK L|
00002C50: 45 4E 47 54 48 20 45 52 52 4F 52 20 44 45 54 45 |ENGTH ERROR DETE|
00002C60: 43 54 45 44 22 3B 5A 58 3B 49 3A 97 20 50 41 2C |CTED";ZX;I:. PA,|
00002C70: 50 43 3A 90 00 8A 34 5E 10 A1 41 24 3A 8B 41 24 |PC:...4^..A$:.A$|
00002C80: B2 22 22 20 A7 20 34 32 31 30 00 9E 34 68 10 8B |."" . 4210..4h..|
00002C90: 20 41 24 B2 22 51 22 20 A7 20 34 32 33 30 00 BA | A$."Q" . 4230..|
00002CA0: 34 72 10 8B 20 52 53 B3 52 45 20 A7 20 52 53 B2 |4r.. RS.RE . RS.|
00002CB0: 52 53 AA 31 3A 89 33 39 34 30 00 C2 34 7C 10 A1 |RS.1:.3940..4|..|
00002CC0: 41 24 00 C8 34 86 10 8E 00 10 35 90 10 8F 20 2A |A$..4.....5... *|
00002CD0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 |*************** |
00002CE0: 50 52 49 4E 54 20 44 49 43 54 49 4F 4E 41 52 59 |PRINT DICTIONARY|
00002CF0: 20 44 49 52 45 43 54 4F 52 59 20 2A 2A 2A 2A 2A | DIRECTORY *****|
00002D00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002D10: 00 1F 35 9A 10 8D 20 36 30 3A 99 22 13 11 22 00 |..5... 60:."..".|
00002D20: 3B 35 A4 10 99 20 54 46 24 28 34 31 29 3A 99 20 |;5... TF$(41):. |
00002D30: 22 11 22 3B 54 46 24 28 34 32 29 00 4B 35 AE 10 |".";TF$(42).K5..|
00002D40: 81 20 49 B2 55 31 20 A4 20 55 32 00 8A 35 B8 10 |. I.U1 . U2..5..|
00002D50: 56 31 24 B2 C4 28 53 25 28 49 29 29 3A 56 32 B2 |V1$..(S%(I)):V2.|
00002D60: 45 25 28 49 29 AB 31 3A 56 32 24 B2 C4 28 56 32 |E%(I).1:V2$..(V2|
00002D70: 29 3A 56 33 B2 45 25 28 49 29 AB 53 25 28 49 29 |):V3.E%(I).S%(I)|
00002D80: 3A 56 33 24 B2 C4 28 56 33 29 00 BB 35 C2 10 56 |:V3$..(V3)..5..V|
00002D90: 34 B2 53 25 28 49 AA 31 29 AB 45 25 28 49 29 3A |4.S%(I.1).E%(I):|
00002DA0: 56 34 24 B2 C4 28 56 34 29 3A 56 35 B2 56 35 AA |V4$..(V4):V5.V5.|
00002DB0: 56 33 3A 56 36 B2 56 36 AA 56 34 00 F3 35 CC 10 |V3:V6.V6.V4..5..|
00002DC0: 99 20 C7 28 49 AA 36 34 29 3B C8 28 53 50 24 2C |. .(I.64);.(SP$,|
00002DD0: 37 AB C3 28 56 31 24 29 29 3B 56 31 24 3B C8 28 |7..(V1$));V1$;.(|
00002DE0: 53 50 24 2C 31 31 AB C3 28 56 32 24 29 29 3B 56 |SP$,11..(V2$));V|
00002DF0: 32 24 3B 00 22 36 D6 10 99 20 C8 28 53 50 24 2C |2$;."6... .(SP$,|
00002E00: 36 AB C3 28 56 33 24 29 29 3B 56 33 24 3B C8 28 |6..(V3$));V3$;.(|
00002E10: 53 50 24 2C 38 AB C3 28 56 34 24 29 29 3B 56 34 |SP$,8..(V4$));V4|
00002E20: 24 3B 00 3E 36 E0 10 8B 20 43 4F B2 34 30 20 A7 |$;.>6... CO.40 .|
00002E30: 20 99 20 51 31 24 3B 3A 89 20 34 33 38 30 00 4F | . Q1$;:. 4380.O|
00002E40: 36 EA 10 99 20 C8 28 53 50 24 2C 31 32 29 3B 00 |6... .(SP$,12);.|
00002E50: 90 36 F4 10 56 31 24 B2 C4 28 53 25 28 49 AA 31 |.6..V1$..(S%(I.1|
00002E60: 33 29 29 3A 56 32 B2 45 25 28 49 AA 31 33 29 AB |3)):V2.E%(I.13).|
00002E70: 31 3A 56 32 24 B2 C4 28 56 32 29 3A 56 33 B2 45 |1:V2$..(V2):V3.E|
00002E80: 25 28 49 AA 31 33 29 AB 53 25 28 49 AA 31 33 29 |%(I.13).S%(I.13)|
00002E90: 00 CF 36 FE 10 56 33 24 B2 C4 28 56 33 29 3A 56 |..6..V3$..(V3):V|
00002EA0: 34 B2 53 25 28 49 AA 31 34 29 AB 45 25 28 49 AA |4.S%(I.14).E%(I.|
00002EB0: 31 33 29 3A 56 34 24 B2 C4 28 56 34 29 3A 56 37 |13):V4$..(V4):V7|
00002EC0: B2 56 37 AA 56 33 3A 56 38 B2 56 38 AA 56 34 00 |.V7.V3:V8.V8.V4.|
00002ED0: 07 37 08 11 99 20 C7 28 49 AA 37 37 29 3B C8 28 |.7... .(I.77);.(|
00002EE0: 53 50 24 2C 37 AB C3 28 56 31 24 29 29 3B 56 31 |SP$,7..(V1$));V1|
00002EF0: 24 3B C8 28 53 50 24 2C 31 31 AB C3 28 56 32 24 |$;.(SP$,11..(V2$|
00002F00: 29 29 3B 56 32 24 3B 00 35 37 12 11 99 20 C8 28 |));V2$;.57... .(|
00002F10: 53 50 24 2C 36 AB C3 28 56 33 24 29 29 3B 56 33 |SP$,6..(V3$));V3|
00002F20: 24 3B C8 28 53 50 24 2C 38 AB C3 28 56 34 24 29 |$;.(SP$,8..(V4$)|
00002F30: 29 3B 56 34 24 00 3D 37 1C 11 82 20 49 00 43 37 |);V4$.=7... I.C7|
00002F40: 26 11 8E 00 8B 37 30 11 8F 20 2A 2A 2A 2A 2A 2A |&....70.. ******|
00002F50: 2A 2A 2A 2A 2A 2A 2A 20 50 52 49 4E 54 20 44 49 |******* PRINT DI|
00002F60: 43 54 49 4F 4E 41 52 59 20 44 49 52 45 43 54 4F |CTIONARY DIRECTO|
00002F70: 52 59 20 53 55 4D 4D 41 52 59 20 2A 2A 2A 2A 2A |RY SUMMARY *****|
00002F80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 B8 37 3A 11 |***********..7:.|
00002F90: 56 35 24 B2 C4 28 56 35 29 3A 56 36 24 B2 C4 28 |V5$..(V5):V6$..(|
00002FA0: 56 36 29 3A 56 37 24 B2 C4 28 56 37 29 3A 56 38 |V6):V7$..(V7):V8|
00002FB0: 24 B2 C4 28 56 38 29 20 00 E3 37 44 11 99 20 22 |$..(V8) ..7D.. "|
00002FC0: 11 22 3B A3 39 29 3B 22 D4 4F 54 41 4C 53 20 3D |.";.9);".OTALS =|
00002FD0: 3D 3E 22 3B 3A 8B 20 43 4F B2 34 30 20 A7 20 34 |=>";:. CO.40 . 4|
00002FE0: 34 36 30 00 12 38 4E 11 99 20 C8 28 53 50 24 2C |460..8N.. .(SP$,|
00002FF0: 36 AB C3 28 56 35 24 29 29 3B 56 35 24 3B C8 28 |6..(V5$));V5$;.(|
00003000: 53 50 24 2C 38 AB C3 28 56 36 24 29 29 3B 56 36 |SP$,8..(V6$));V6|
00003010: 24 3B 00 48 38 58 11 99 20 C8 28 53 50 24 2C 33 |$;.H8X.. .(SP$,3|
00003020: 31 29 3B C8 28 53 50 24 2C 36 AB C3 28 56 37 24 |1);.(SP$,6..(V7$|
00003030: 29 29 3B 56 37 24 3B C8 28 53 50 24 2C C3 28 56 |));V7$;.(SP$,.(V|
00003040: 38 24 29 29 3B 56 38 24 00 53 38 62 11 89 20 34 |8$));V8$.S8b.. 4|
00003050: 34 38 30 00 81 38 6C 11 99 20 C8 28 53 50 24 2C |480..8l.. .(SP$,|
00003060: 36 AB C3 28 56 35 24 29 29 3B 56 35 24 3B C8 28 |6..(V5$));V5$;.(|
00003070: 53 50 24 2C 38 AB C3 28 56 36 24 29 29 3B 56 36 |SP$,8..(V6$));V6|
00003080: 24 00 AC 38 76 11 8B 20 55 32 B2 31 33 20 A7 20 |$..8v.. U2.13 . |
00003090: 56 37 B2 56 35 3A 56 38 B2 56 36 3A 56 35 B2 30 |V7.V5:V8.V6:V5.0|
000030A0: 3A 56 36 B2 30 3A 89 20 34 35 31 30 00 DA 38 80 |:V6.0:. 4510..8.|
000030B0: 11 56 35 B2 56 35 AA 56 37 3A 56 36 B2 56 36 AA |.V5.V5.V7:V6.V6.|
000030C0: 56 38 3A 56 37 B2 B5 28 31 30 30 30 30 AC 28 56 |V8:V7..(10000.(V|
000030D0: 35 AD 4D 58 29 29 AD 31 30 30 00 1C 39 8A 11 99 |5.MX)).100..9...|
000030E0: 20 22 D4 4F 54 41 4C 20 55 53 45 44 A0 3D 3D 3E | ".OTAL USED.==>|
000030F0: 22 3B 56 35 3B 22 A0 2B 20 C4 49 52 45 43 54 4F |";V5;".+ .IRECTO|
00003100: 52 59 A0 28 31 29 22 3A 99 22 D4 4F 54 41 4C 20 |RY.(1)":.".OTAL |
00003110: 46 52 45 45 20 3D 3D 3E 22 3B 56 36 00 4B 39 94 |FREE ==>";V6.K9.|
00003120: 11 99 20 22 D0 45 52 2D 43 45 4E 54 20 4F 46 20 |.. ".ER-CENT OF |
00003130: 44 49 43 54 49 4F 4E 41 52 59 20 55 53 45 44 20 |DICTIONARY USED |
00003140: 3D 3D 3E 22 3B 56 37 3B 22 25 22 00 51 39 9E 11 |==>";V7;"%".Q9..|
00003150: 8E 00 99 39 A8 11 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |...9... ********|
00003160: 2A 2A 2A 2A 2A 2A 2A 2A 20 43 4F 4E 54 52 4F 4C |******** CONTROL|
00003170: 20 44 49 43 54 49 4F 4E 41 52 59 20 44 49 52 45 | DICTIONARY DIRE|
00003180: 43 54 4F 52 59 20 44 49 53 50 4C 41 59 20 2A 2A |CTORY DISPLAY **|
00003190: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 CA 39 B2 11 55 31 |*********..9..U1|
000031A0: B2 31 3A 55 32 B2 31 33 3A 56 35 B2 30 3A 56 36 |.1:U2.13:V5.0:V6|
000031B0: B2 30 3A 56 37 B2 30 3A 56 38 B2 30 3A 8D 20 34 |.0:V7.0:V8.0:. 4|
000031C0: 32 35 30 3A 8D 20 34 34 31 30 00 DD 39 BC 11 8B |250:. 4410..9...|
000031D0: 20 43 4F B2 38 30 20 A7 20 34 35 39 30 00 EC 39 | CO.80 . 4590..9|
000031E0: C6 11 51 B2 38 3A 8D 20 33 33 38 30 00 03 3A D0 |..Q.8:. 3380..:.|
000031F0: 11 A1 20 41 24 3A 8B 20 41 24 B2 22 22 20 A7 34 |.. A$:. A$."" .4|
00003200: 35 36 30 00 1A 3A DA 11 8B 20 41 24 B3 B1 22 59 |560..:... A$.."Y|
00003210: 22 20 A7 20 89 20 34 35 36 30 00 39 3A E4 11 55 |" . . 4560.9:..U|
00003220: 31 B2 31 34 3A 55 32 B2 32 36 3A 8D 20 34 32 35 |1.14:U2.26:. 425|
00003230: 30 3A 20 8D 20 34 34 31 30 00 49 3A EE 11 51 B2 |0: . 4410.I:..Q.|
00003240: 32 36 3A 8D 20 33 33 38 30 00 60 3A F8 11 A1 20 |26:. 3380.`:... |
00003250: 41 24 3A 8B 20 41 24 B2 22 22 20 A7 34 36 30 30 |A$:. A$."" .4600|
00003260: 00 74 3A 02 12 8B 20 41 24 B2 22 4E 22 20 A7 20 |.t:... A$."N" . |
00003270: 35 36 34 30 00 8B 3A 0C 12 8B 20 41 24 B3 B1 22 |5640..:... A$.."|
00003280: 59 22 20 A7 20 89 20 34 36 30 30 00 9B 3A 16 12 |Y" . . 4600..:..|
00003290: 51 B2 32 37 3A 8D 20 33 33 38 30 00 B2 3A 20 12 |Q.27:. 3380..: .|
000032A0: A1 20 41 24 3A 8B 20 41 24 B2 22 22 20 A7 34 36 |. A$:. A$."" .46|
000032B0: 34 30 00 C6 3A 2A 12 8B 20 41 24 B2 22 4E 22 20 |40..:*.. A$."N" |
000032C0: A7 20 35 32 33 30 00 DD 3A 34 12 8B 20 41 24 B3 |. 5230..:4.. A$.|
000032D0: B1 22 59 22 20 A7 20 89 20 34 36 33 30 00 F0 3A |."Y" . . 4630..:|
000032E0: 3E 12 8B 20 43 4F B2 38 30 20 A7 20 34 36 39 30 |>.. CO.80 . 4690|
000032F0: 00 06 3B 48 12 55 31 B2 31 3A 55 32 B2 31 33 3A |..;H.U1.1:U2.13:|
00003300: 8D 20 34 32 35 30 00 27 3B 52 12 99 20 22 13 11 |. 4250.';R.. "..|
00003310: 11 11 22 3B 20 A3 39 29 3B 22 12 20 4E 45 57 20 |.."; .9);". NEW |
00003320: 92 22 3B 51 31 24 3B 00 46 3B 5C 12 8B 20 43 4F |.";Q1$;.F;\.. CO|
00003330: B2 38 30 20 A7 20 99 20 A3 35 34 29 3B 22 12 20 |.80 . . .54);". |
00003340: 4E 45 57 20 92 22 00 5F 3B 66 12 99 20 A3 39 29 |NEW ."._;f.. .9)|
00003350: 3B 22 12 53 54 41 52 54 92 22 3B 51 31 24 3B 00 |;".START.";Q1$;.|
00003360: 7E 3B 70 12 8B 20 43 4F B2 38 30 20 A7 20 99 20 |~;p.. CO.80 . . |
00003370: A3 35 34 29 3B 22 12 53 54 41 52 54 92 22 00 97 |.54);".START."..|
00003380: 3B 7A 12 8B 20 49 49 B3 35 30 20 A7 20 4A B2 30 |;z.. II.50 . J.0|
00003390: 3A 89 20 34 38 31 30 00 B7 3B 84 12 81 20 49 4A |:. 4810..;... IJ|
000033A0: B2 55 31 20 A4 20 55 32 3A 56 31 24 B2 C4 28 4E |.U1 . U2:V1$..(N|
000033B0: 53 25 28 49 4A 29 29 00 CA 3B 8E 12 8B 20 55 32 |S%(IJ))..;... U2|
000033C0: B2 32 36 20 A7 20 34 37 38 30 00 FD 3B 98 12 99 |.26 . 4780..;...|
000033D0: 20 22 13 22 3B C8 28 44 4E 24 2C 34 AA 49 4A 29 | ".";.(DN$,4.IJ)|
000033E0: 3B A3 31 30 29 3B C8 28 53 50 24 2C 34 AB C3 28 |;.10);.(SP$,4..(|
000033F0: 56 31 24 29 29 3B 22 12 22 3B 56 31 24 00 08 3C |V1$));".";V1$..<|
00003400: A2 12 89 20 34 37 39 30 00 3B 3C AC 12 99 20 22 |... 4790.;<... "|
00003410: 13 22 3B C8 28 44 4E 24 2C 49 4A AB 39 29 3B A3 |.";.(DN$,IJ.9);.|
00003420: 31 30 29 3B C8 28 53 50 24 2C 34 AB C3 28 56 31 |10);.(SP$,4..(V1|
00003430: 24 29 29 3B 22 12 22 3B 56 31 24 00 44 3C B6 12 |$));".";V1$.D<..|
00003440: 82 20 49 4A 00 4F 3C C0 12 89 20 34 38 32 30 00 |. IJ.O<... 4820.|
00003450: 61 3C CA 12 81 49 49 B2 31 A4 32 36 3A 4A B2 49 |a<...II.1.26:J.I|
00003460: 49 00 74 3C D4 12 8B 20 43 4F B2 34 30 20 A7 20 |I.t<... CO.40 . |
00003470: 34 38 35 30 00 B4 3C DE 12 54 46 24 B2 22 C5 4E |4850..<..TF$.".N|
00003480: 54 45 52 20 4E 45 57 20 53 54 41 52 54 20 4E 55 |TER NEW START NU|
00003490: 4D 42 45 52 20 46 4F 52 A0 22 AA C7 28 36 34 AA |MBER FOR."..(64.|
000034A0: 4A 29 AA 22 20 41 4E 44 2F 4F 52 20 52 45 54 55 |J)." AND/OR RETU|
000034B0: 52 4E 2E 22 00 C6 3C E8 12 8D 20 33 33 39 30 3A |RN."..<... 3390:|
000034C0: 89 20 34 38 37 30 00 00 3D F2 12 54 46 24 B2 22 |. 4870..=..TF$."|
000034D0: CE 45 57 20 53 54 41 52 54 20 4E 55 4D 42 45 52 |.EW START NUMBER|
000034E0: 20 46 4F 52 A0 22 AA C7 28 4A AA 36 34 29 AA 22 | FOR."..(J.64)."|
000034F0: 20 41 4E 44 2F 4F 52 20 52 45 54 55 52 4E 2E 22 | AND/OR RETURN."|
00003500: 00 0B 3D FC 12 8D 20 33 33 39 30 00 21 3D 06 13 |..=... 3390.!=..|
00003510: 8B 20 4E 53 25 28 4A 29 B2 30 20 A7 20 34 38 39 |. NS%(J).0 . 489|
00003520: 30 00 41 3D 10 13 56 31 24 B2 C4 28 4E 53 25 28 |0.A=..V1$..(NS%(|
00003530: 4A 29 29 3A 4E 55 24 B2 22 22 3A 89 20 34 39 30 |J)):NU$."":. 490|
00003540: 30 00 66 3D 1A 13 56 31 24 B2 C4 28 53 25 28 4A |0.f=..V1$..(S%(J|
00003550: 29 29 3A 4E 55 24 B2 22 22 3A 4E 53 25 28 4A 29 |)):NU$."":NS%(J)|
00003560: B2 53 25 28 4A 29 00 78 3D 24 13 8B 20 4A B1 31 |.S%(J).x=$.. J.1|
00003570: 33 20 A7 20 34 39 33 30 00 AA 3D 2E 13 99 20 22 |3 . 4930..=... "|
00003580: 13 22 3B C8 28 44 4E 24 2C 34 AA 4A 29 3B A3 31 |.";.(DN$,4.J);.1|
00003590: 30 29 3B C8 28 53 50 24 2C 34 AB C3 28 56 31 24 |0);.(SP$,4..(V1$|
000035A0: 29 29 3B 22 12 22 3B 56 31 24 00 B5 3D 38 13 89 |));".";V1$..=8..|
000035B0: 20 35 30 32 30 00 C8 3D 42 13 8B 20 43 4F B2 38 | 5020..=B.. CO.8|
000035C0: 30 20 A7 20 35 30 31 30 00 DB 3D 4C 13 8B 20 55 |0 . 5010..=L.. U|
000035D0: 32 B2 32 36 20 A7 20 34 39 39 30 00 02 3E 56 13 |2.26 . 4990..>V.|
000035E0: 55 31 B2 31 34 3A 55 32 B2 32 36 3A 56 35 24 B2 |U1.14:U2.26:V5$.|
000035F0: 56 31 24 3A 8D 20 34 32 35 30 3A 56 31 24 B2 56 |V1$:. 4250:V1$.V|
00003600: 35 24 00 1D 3E 60 13 99 20 22 13 11 11 11 22 3B |5$..>`.. "....";|
00003610: A3 39 29 3B 22 12 20 4E 45 57 20 92 22 00 31 3E |.9);". NEW .".1>|
00003620: 6A 13 99 20 A3 39 29 3B 22 12 53 54 41 52 54 92 |j.. .9);".START.|
00003630: 22 00 3B 3E 74 13 89 34 38 35 30 00 6D 3E 7E 13 |".;>t..4850.m>~.|
00003640: 99 20 22 13 22 3B C8 28 44 4E 24 2C 4A AB 39 29 |. ".";.(DN$,J.9)|
00003650: 3B A3 31 30 29 3B C8 28 53 50 24 2C 34 AB C3 28 |;.10);.(SP$,4..(|
00003660: 56 31 24 29 29 3B 22 12 22 3B 56 31 24 00 78 3E |V1$));".";V1$.x>|
00003670: 88 13 89 20 35 30 32 30 00 AA 3E 92 13 99 20 22 |... 5020..>... "|
00003680: 13 22 3B C8 28 44 4E 24 2C 4A AB 39 29 3B A3 35 |.";.(DN$,J.9);.5|
00003690: 35 29 3B C8 28 53 50 24 2C 34 AB C3 28 56 31 24 |5);.(SP$,4..(V1$|
000036A0: 29 29 3B 22 12 22 3B 56 31 24 00 BB 3E 9C 13 8B |));".";V1$..>...|
000036B0: 20 4A B2 31 20 A7 20 35 31 37 30 00 D2 3E A6 13 | J.1 . 5170..>..|
000036C0: A1 20 41 24 3A 8B 20 41 24 B2 22 22 20 A7 35 30 |. A$:. A$."" .50|
000036D0: 33 30 00 E8 3E B0 13 8B 20 41 24 B2 C7 28 31 33 |30..>... A$..(13|
000036E0: 29 20 A7 20 35 31 30 30 00 FC 3E BA 13 8B 20 41 |) . 5100..>... A|
000036F0: 24 B2 22 51 22 20 A7 20 35 32 33 30 00 18 3F C4 |$."Q" . 5230..?.|
00003700: 13 8B 20 41 24 B3 22 30 22 B0 20 41 24 B1 22 39 |.. A$."0". A$."9|
00003710: 22 20 A7 20 35 30 33 30 00 27 3F CE 13 4E 55 24 |" . 5030.'?..NU$|
00003720: B2 4E 55 24 AA 41 24 00 51 3F D8 13 4E 55 B2 C5 |.NU$.A$.Q?..NU..|
00003730: 28 4E 55 24 29 3A 8B 20 4E 55 20 B1 20 4D 58 AB |(NU$):. NU . MX.|
00003740: 32 AB 28 32 36 AB 4A 29 AC 32 20 A7 20 35 31 36 |2.(26.J).2 . 516|
00003750: 30 00 68 3F E2 13 56 31 24 B2 22 20 22 AA 4E 55 |0.h?..V1$." ".NU|
00003760: 24 3A 20 89 34 39 30 30 00 7D 3F EC 13 8B 20 4E |$: .4900.}?... N|
00003770: 55 24 B3 B1 22 22 20 A7 20 35 31 33 30 00 94 3F |U$.."" . 5130..?|
00003780: F6 13 8B 20 4E 53 25 28 4A 29 B3 B1 30 20 A7 20 |... NS%(J)..0 . |
00003790: 35 31 37 30 00 A8 3F 00 14 4E 55 B2 53 25 28 4A |5170..?..NU.S%(J|
000037A0: 29 3A 89 20 35 31 34 30 00 B6 3F 0A 14 4E 55 B2 |):. 5140..?..NU.|
000037B0: C5 28 4E 55 24 29 00 D1 3F 14 14 8B 20 4E 55 B3 |.(NU$)..?... NU.|
000037C0: 4E 53 25 28 4A AB 31 29 AA 32 20 A7 20 35 31 36 |NS%(J.1).2 . 516|
000037D0: 30 00 E5 3F 1E 14 4E 53 25 28 4A 29 B2 4E 55 3A |0..?..NS%(J).NU:|
000037E0: 89 35 31 37 30 00 0B 40 28 14 51 B2 32 39 3A 8D |.5170..@(.Q.29:.|
000037F0: 20 33 33 38 30 3A 81 20 5A 5A B2 31 A4 35 30 30 | 3380:. ZZ.1.500|
00003800: 3A 82 5A 5A 3A 89 20 34 38 32 30 00 1E 40 32 14 |:.ZZ:. 4820..@2.|
00003810: 8B 20 49 49 B1 35 30 20 A7 20 35 31 39 30 00 27 |. II.50 . 5190.'|
00003820: 40 3C 14 82 20 49 49 00 37 40 46 14 51 B2 33 30 |@<.. II.7@F.Q.30|
00003830: 3A 8D 20 33 33 38 30 00 4E 40 50 14 A1 20 41 24 |:. 3380.N@P.. A$|
00003840: 3A 8B 20 41 24 B2 22 22 20 A7 35 32 30 30 00 62 |:. A$."" .5200.b|
00003850: 40 5A 14 8B 20 41 24 B2 22 59 22 20 A7 20 35 32 |@Z.. A$."Y" . 52|
00003860: 34 30 00 79 40 64 14 8B 20 41 24 B3 B1 22 4E 22 |40.y@d.. A$.."N"|
00003870: 20 A7 20 89 20 35 32 30 30 00 84 40 6E 14 89 20 | . . 5200..@n.. |
00003880: 35 33 34 30 00 94 40 78 14 51 B2 33 31 3A 8D 20 |5340..@x.Q.31:. |
00003890: 33 33 38 30 00 AC 40 82 14 A1 20 41 24 3A 8B 20 |3380..@... A$:. |
000038A0: 41 24 B2 22 22 20 A7 20 35 32 35 30 00 C9 40 8C |A$."" . 5250..@.|
000038B0: 14 8B 20 41 24 B3 22 41 22 20 B0 20 41 24 B1 22 |.. A$."A" . A$."|
000038C0: 5A 22 20 A7 20 35 32 35 30 00 D1 40 96 14 4A B2 |Z" . 5250..@..J.|
000038D0: 30 00 F2 40 A0 14 4A B2 4A AA 31 3A 8B 20 41 24 |0..@..J.J.1:. A$|
000038E0: B2 CA 28 41 42 24 2C 4A 2C 31 29 20 A7 20 35 33 |..(AB$,J,1) . 53|
000038F0: 30 30 00 FC 40 AA 14 89 35 32 38 30 00 1D 41 B4 |00..@...5280..A.|
00003900: 14 49 49 B2 31 30 30 AA 4A 3A 81 20 4A B2 30 A4 |.II.100.J:. J.0.|
00003910: 30 3A 82 4A 3A 4A B2 49 49 AB 31 30 30 00 30 41 |0:.J:J.II.100.0A|
00003920: BE 14 8B 20 43 4F B2 38 30 20 A7 20 34 38 32 30 |... CO.80 . 4820|
00003930: 00 55 41 C8 14 8B 20 4A B1 31 33 20 A7 20 55 31 |.UA... J.13 . U1|
00003940: B2 31 34 3A 55 32 B2 32 36 3A 8D 34 32 35 30 3A |.14:U2.26:.4250:|
00003950: 89 34 36 39 30 00 72 41 D2 14 55 31 B2 31 3A 55 |.4690.rA..U1.1:U|
00003960: 32 B2 31 33 3A 8D 20 34 32 35 30 3A 89 20 34 36 |2.13:. 4250:. 46|
00003970: 39 30 00 7D 41 DC 14 8D 20 32 34 39 30 00 A1 41 |90.}A... 2490..A|
00003980: E6 14 9F 32 2C 38 2C 32 2C 22 30 3A 44 49 43 54 |...2,8,2,"0:DICT|
00003990: 49 4F 4E 41 52 59 2C 4C 2C 22 AA C7 28 32 35 34 |IONARY,L,"..(254|
000039A0: 29 00 C5 41 F0 14 9F 33 2C 38 2C 33 2C 22 31 3A |)..A...3,8,3,"1:|
000039B0: 44 49 43 54 49 4F 4E 41 52 59 2C 4C 2C 22 AA C7 |DICTIONARY,L,"..|
000039C0: 28 32 35 34 29 00 E2 41 FA 14 81 20 49 B2 31 20 |(254)..A... I.1 |
000039D0: A4 20 32 36 3A 41 24 B2 CA 28 41 42 24 2C 49 2C |. 26:A$..(AB$,I,|
000039E0: 31 29 00 13 42 04 15 54 46 24 B2 22 C3 4F 50 59 |1)..B..TF$.".OPY|
000039F0: 20 50 52 4F 43 45 45 44 49 4E 47 3A 20 57 4F 52 | PROCEEDING: WOR|
00003A00: 4B 49 4E 47 20 4F 4E 20 22 AA 41 24 3A 8D 20 33 |KING ON ".A$:. 3|
00003A10: 33 39 30 00 33 42 0E 15 52 53 B2 53 25 28 49 29 |390.3B..RS.S%(I)|
00003A20: 3A 52 45 B2 45 25 28 49 29 3A 52 4F B2 4E 53 25 |:RE.E%(I):RO.NS%|
00003A30: 28 49 29 00 43 42 18 15 81 20 4A B2 52 53 20 A4 |(I).CB... J.RS .|
00003A40: 20 52 45 00 57 42 22 15 52 46 B2 32 3A 52 52 B2 | RE.WB".RF.2:RR.|
00003A50: 4A 3A 8D 36 37 34 30 00 6C 42 2C 15 52 46 B2 33 |J:.6740.lB,.RF.3|
00003A60: 3A 52 52 B2 52 4F 3A 8D 36 37 34 30 00 78 42 36 |:RR.RO:.6740.xB6|
00003A70: 15 A1 23 32 2C 50 52 24 00 88 42 40 15 81 20 4B |..#2,PR$..B@.. K|
00003A80: B2 32 20 A4 20 32 35 34 00 A2 42 4A 15 8B 20 53 |.2 . 254..BJ.. S|
00003A90: 54 B2 30 20 A7 20 A1 23 32 2C 41 24 3A 89 35 34 |T.0 . .#2,A$:.54|
00003AA0: 37 30 00 AE 42 54 15 41 24 B2 C7 28 30 29 00 BD |70..BT.A$..(0)..|
00003AB0: 42 5E 15 50 52 24 B2 50 52 24 AA 41 24 00 C5 42 |B^.PR$.PR$.A$..B|
00003AC0: 68 15 82 20 4B 00 D1 42 72 15 98 33 2C 50 52 24 |h.. K..Br..3,PR$|
00003AD0: 3B 00 DD 42 7C 15 52 4F B2 52 4F AA 31 00 E5 42 |;..B|.RO.RO.1..B|
00003AE0: 86 15 82 20 4A 00 09 43 90 15 45 48 B2 B5 28 28 |... J..C..EH..((|
00003AF0: 52 4F AB 31 29 AD 32 35 36 29 3A 45 4C B2 52 4F |RO.1).256):EL.RO|
00003B00: AB 31 AB 45 48 AC 32 35 36 00 29 43 9A 15 52 4D |.1.EH.256.)C..RM|
00003B10: 25 28 49 AC 32 AA 31 30 33 29 B2 28 31 32 38 AA |%(I.2.103).(128.|
00003B20: 28 45 4C AF 31 32 37 29 29 00 4B 43 A4 15 52 4D |(EL.127)).KC..RM|
00003B30: 25 28 49 AC 32 AA 31 30 34 29 B2 28 31 32 38 AA |%(I.2.104).(128.|
00003B40: 28 45 4C AF 31 32 38 29 AD 32 29 00 6B 43 AE 15 |(EL.128).2).kC..|
00003B50: 52 4D 25 28 49 AC 32 AA 31 35 35 29 B2 28 31 32 |RM%(I.2.155).(12|
00003B60: 38 AA 28 45 48 AF 31 32 37 29 29 00 8D 43 B8 15 |8.(EH.127))..C..|
00003B70: 52 4D 25 28 49 AC 32 AA 31 35 36 29 B2 28 31 32 |RM%(I.2.156).(12|
00003B80: 38 AA 28 45 48 AF 31 32 38 29 AD 32 29 00 95 43 |8.(EH.128).2)..C|
00003B90: C2 15 82 20 49 00 A9 43 CC 15 52 46 B2 33 3A 52 |... I..C..RF.3:R|
00003BA0: 52 B2 31 3A 8D 36 37 34 30 00 BB 43 D6 15 50 52 |R.1:.6740..C..PR|
00003BB0: 24 B2 C7 28 52 4D 25 28 31 29 29 00 CB 43 E0 15 |$..(RM%(1))..C..|
00003BC0: 81 20 50 B2 32 20 A4 20 32 35 34 00 E1 43 EA 15 |. P.2 . 254..C..|
00003BD0: 50 52 24 B2 50 52 24 AA C7 28 52 4D 25 28 50 29 |PR$.PR$..(RM%(P)|
00003BE0: 29 00 E9 43 F4 15 82 20 50 00 F5 43 FE 15 98 33 |)..C... P..C...3|
00003BF0: 2C 50 52 24 3B 00 FF 43 08 16 89 20 33 38 30 00 |,PR$;..C... 380.|
00003C00: 47 44 12 16 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |GD... **********|
00003C10: 2A 2A 20 42 55 49 4C 44 20 49 4E 50 55 54 20 4C |** BUILD INPUT L|
00003C20: 49 53 54 20 4F 46 20 57 4F 52 44 53 20 46 4F 52 |IST OF WORDS FOR|
00003C30: 20 44 45 4C 45 54 49 4F 4E 20 2A 2A 2A 2A 2A 2A | DELETION ******|
00003C40: 2A 2A 2A 2A 2A 2A 2A 00 5A 44 1C 16 8D 20 36 30 |*******.ZD... 60|
00003C50: 3A 49 B2 30 3A 4A 31 B2 51 43 00 6A 44 26 16 51 |:I.0:J1.QC.jD&.Q|
00003C60: B2 33 33 3A 8D 20 33 33 38 30 00 7F 44 30 16 49 |.33:. 3380..D0.I|
00003C70: B2 49 AA 31 3A 8B 49 B1 38 30 A7 36 30 30 30 00 |.I.1:.I.80.6000.|
00003C80: B6 44 3A 16 99 20 22 13 22 3B C8 28 44 4E 24 2C |.D:.. ".";.(DN$,|
00003C90: 32 31 29 3B 53 50 24 3B 42 58 24 3B C8 28 41 58 |21);SP$;BX$;.(AX|
00003CA0: 24 2C 35 29 3B 22 57 4F 52 44 20 23 22 3B 49 3B |$,5);"WORD #";I;|
00003CB0: 22 20 3D 20 22 3B 00 C9 44 44 16 41 41 24 B2 22 |" = ";..DD.AA$."|
00003CC0: 22 3A 97 20 20 50 45 2C 30 00 E0 44 4E 16 A1 41 |":. PE,0..DN..A|
00003CD0: 24 3A 8B 20 41 24 B2 22 22 20 A7 20 35 37 31 30 |$:. A$."" . 5710|
00003CE0: 00 05 45 58 16 8B 20 41 24 B2 C7 28 31 33 29 20 |..EX.. A$..(13) |
00003CF0: A7 20 99 22 20 22 3B 3A 97 20 50 45 2C 31 3A 89 |. ." ";:. PE,1:.|
00003D00: 20 35 38 34 30 00 1B 45 62 16 8B 20 41 24 B2 C7 | 5840..Eb.. A$..|
00003D10: 28 32 30 29 20 A7 20 35 38 31 30 00 23 45 6C 16 |(20) . 5810.#El.|
00003D20: 4A B2 30 00 44 45 76 16 4A B2 4A AA 31 3A 8B 20 |J.0.DEv.J.J.1:. |
00003D30: 41 24 B2 CA 28 41 42 24 2C 4A 2C 31 29 20 A7 20 |A$..(AB$,J,1) . |
00003D40: 35 37 38 30 00 56 45 80 16 8B 20 4A B1 32 36 20 |5780.VE... J.26 |
00003D50: A7 20 35 37 31 30 00 61 45 8A 16 89 20 35 37 35 |. 5710.aE... 575|
00003D60: 30 00 70 45 94 16 41 41 24 B2 41 41 24 AA 41 24 |0.pE..AA$.AA$.A$|
00003D70: 00 79 45 9E 16 99 41 24 3B 00 84 45 A8 16 89 20 |.yE...A$;..E... |
00003D80: 35 37 31 30 00 AF 45 B2 16 8B C3 28 41 41 24 29 |5710..E....(AA$)|
00003D90: B1 31 20 A7 20 41 41 24 B2 C8 28 41 41 24 2C C3 |.1 . AA$..(AA$,.|
00003DA0: 28 41 41 24 29 AB 31 29 3A 89 20 35 37 39 30 00 |(AA$).1):. 5790.|
00003DB0: CD 45 BC 16 8B C3 28 41 41 24 29 B2 31 20 A7 20 |.E....(AA$).1 . |
00003DC0: 41 41 24 B2 22 22 3A 89 20 35 37 39 30 00 D8 45 |AA$."":. 5790..E|
00003DD0: C6 16 89 20 35 37 30 30 00 E8 45 D0 16 51 B2 33 |... 5700..E..Q.3|
00003DE0: 34 3A 8D 20 33 33 38 30 00 FF 45 DA 16 A1 41 24 |4:. 3380..E...A$|
00003DF0: 3A 8B 20 41 24 B2 22 22 20 A7 20 35 38 35 30 00 |:. A$."" . 5850.|
00003E00: 13 46 E4 16 8B 20 41 24 B2 22 59 22 20 A7 20 35 |.F... A$."Y" . 5|
00003E10: 38 39 30 00 29 46 EE 16 8B 20 41 24 B3 B1 20 22 |890.)F... A$.. "|
00003E20: 4E 22 20 A7 20 35 38 35 30 00 3A 46 F8 16 49 B2 |N" . 5850.:F..I.|
00003E30: 49 AB 31 3A 89 20 35 36 37 30 00 5B 46 02 17 8B |I.1:. 5670.[F...|
00003E40: 20 C3 28 41 41 24 29 B1 31 39 20 A7 20 4A 31 B2 | .(AA$).19 . J1.|
00003E50: B5 28 4A 31 AD 32 29 AC 32 AA 31 00 67 46 0C 17 |.(J1.2).2.1.gF..|
00003E60: 4A 31 B2 4A 31 AA 31 00 90 46 16 17 43 4C B2 32 |J1.J1.1..F..CL.2|
00003E70: 30 AC 28 4A 31 AB B5 28 4A 31 AD 51 42 29 AC 51 |0.(J1..(J1.QB).Q|
00003E80: 42 29 3A 52 57 B2 B5 28 4A 31 AD 51 42 29 AA 31 |B):RW..(J1.QB).1|
00003E90: 00 B2 46 20 17 99 20 22 13 22 3B C8 28 44 4E 24 |..F .. ".";.(DN$|
00003EA0: 2C 52 57 29 3B C8 28 41 58 24 2C 43 4C 29 3B 41 |,RW);.(AX$,CL);A|
00003EB0: 41 24 00 CC 46 2A 17 8B 20 C3 28 41 41 24 29 B1 |A$..F*.. .(AA$).|
00003EC0: 31 39 20 A7 20 4A 31 B2 4A 31 AA 31 00 DB 46 34 |19 . J1.J1.1..F4|
00003ED0: 17 57 4C 24 28 49 29 B2 41 41 24 00 EB 46 3E 17 |.WL$(I).AA$..F>.|
00003EE0: 51 B2 33 35 3A 8D 20 33 33 38 30 00 02 47 48 17 |Q.35:. 3380..GH.|
00003EF0: A1 41 24 3A 8B 20 41 24 B2 22 22 20 A7 20 35 39 |.A$:. A$."" . 59|
00003F00: 36 30 00 16 47 52 17 8B 20 41 24 B2 22 59 22 20 |60..GR.. A$."Y" |
00003F10: A7 20 35 36 37 30 00 2B 47 5C 17 8B 20 41 24 B3 |. 5670.+G\.. A$.|
00003F20: B1 22 4E 22 20 A7 20 35 39 36 30 00 3C 47 66 17 |."N" . 5960.<Gf.|
00003F30: 8B 20 49 B2 31 20 A7 20 36 30 36 30 00 4C 47 70 |. I.1 . 6060.LGp|
00003F40: 17 81 20 4B B2 31 20 A4 20 49 AB 31 00 5B 47 7A |.. K.1 . I.1.[Gz|
00003F50: 17 81 20 4C B2 4B AA 31 A4 20 49 00 76 47 84 17 |.. L.K.1. I.vG..|
00003F60: 8B 20 57 4C 24 28 4B 29 B3 57 4C 24 28 4C 29 20 |. WL$(K).WL$(L) |
00003F70: A7 20 36 30 34 30 00 9E 47 8E 17 41 41 24 B2 57 |. 6040..G..AA$.W|
00003F80: 4C 24 28 4B 29 3A 57 4C 24 28 4B 29 B2 57 4C 24 |L$(K):WL$(K).WL$|
00003F90: 28 4C 29 3A 57 4C 24 28 4C 29 B2 41 41 24 00 A6 |(L):WL$(L).AA$..|
00003FA0: 47 98 17 82 20 4C 00 AE 47 A2 17 82 20 4B 00 BF |G... L..G... K..|
00003FB0: 47 AC 17 57 4C 24 28 49 AA 31 29 B2 22 20 22 00 |G..WL$(I.1)." ".|
00003FC0: D2 47 B6 17 57 45 B2 31 3A 57 53 B2 31 3A 4E 57 |.G..WE.1:WS.1:NW|
00003FD0: B2 49 00 EC 47 C0 17 81 20 4B 41 B2 31 20 A4 20 |.I..G... KA.1 . |
00003FE0: 32 36 3A 4D B2 30 3A 4A 31 B2 51 43 00 FF 47 CA |26:M.0:J1.QC..G.|
00003FF0: 17 8B 20 57 45 B1 4E 57 20 A7 20 36 35 35 30 00 |.. WE.NW . 6550.|
00004000: 12 48 D4 17 4C 24 B2 CA 28 41 42 24 2C 4B 41 2C |.H..L$..(AB$,KA,|
00004010: 31 29 00 30 48 DE 17 8B 20 4C 24 B3 B1 C8 28 57 |1).0H... L$...(W|
00004020: 4C 24 28 57 45 29 2C 31 29 20 A7 20 36 31 33 30 |L$(WE),1) . 6130|
00004030: 00 43 48 E8 17 57 45 B2 57 45 AA 31 3A 89 20 36 |.CH..WE.WE.1:. 6|
00004040: 31 31 30 00 7E 48 F2 17 8B 20 57 45 B2 57 53 20 |110.~H... WE.WS |
00004050: 20 20 A7 20 36 35 35 30 3A 20 8F 20 4E 4F 20 57 | . 6550: . NO W|
00004060: 4F 52 44 53 20 54 4F 20 44 45 4C 45 54 45 20 47 |ORDS TO DELETE G|
00004070: 45 54 20 4E 45 58 54 20 4C 45 54 54 45 52 00 94 |ET NEXT LETTER..|
00004080: 48 FC 17 52 53 B2 53 25 28 4B 41 29 3A 57 45 B2 |H..RS.S%(KA):WE.|
00004090: 57 45 AB 31 00 9D 48 06 18 8D 20 36 30 00 AD 48 |WE.1..H... 60..H|
000040A0: 10 18 51 B2 33 36 3A 8D 20 33 33 38 30 00 C2 48 |..Q.36:. 3380..H|
000040B0: 1A 18 8B 20 57 45 B2 57 53 AB 31 20 A7 20 36 35 |... WE.WS.1 . 65|
000040C0: 30 30 00 DE 48 24 18 8D 20 33 33 31 30 3A 53 57 |00..H$.. 3310:SW|
000040D0: B2 32 3A 57 43 B2 30 3A 57 44 24 B2 4C 24 00 E6 |.2:WC.0:WD$.L$..|
000040E0: 48 2E 18 49 B2 31 00 F0 48 38 18 49 B2 49 AA 31 |H..I.1..H8.I.I.1|
000040F0: 00 FE 48 42 18 5A 58 B2 52 4C 25 28 49 29 00 24 |..HB.ZX.RL%(I).$|
00004100: 49 4C 18 8B 20 5A 58 B2 31 32 36 20 B0 20 5A 58 |IL.. ZX.126 . ZX|
00004110: B2 31 32 37 20 B0 20 5A 58 B2 32 35 34 20 A7 20 |.127 . ZX.254 . |
00004120: 36 34 39 30 00 38 49 56 18 8B 20 5A 58 B2 32 35 |6490.8IV.. ZX.25|
00004130: 35 20 A7 20 36 35 31 30 00 4A 49 60 18 8B 20 5A |5 . 6510.JI`.. Z|
00004140: 58 B2 30 20 A7 20 36 35 30 30 00 58 49 6A 18 45 |X.0 . 6500.XIj.E|
00004150: 57 B2 5A 58 AF 31 32 38 00 66 49 74 18 43 48 B2 |W.ZX.128.fIt.CH.|
00004160: 5A 58 AF 31 32 37 00 7A 49 7E 18 57 44 24 B2 57 |ZX.127.zI~.WD$.W|
00004170: 44 24 AA 54 4B 24 28 43 48 29 00 8C 49 88 18 8B |D$.TK$(CH)..I...|
00004180: 20 45 57 B2 30 20 A7 20 36 34 39 30 00 A9 49 92 | EW.0 . 6490..I.|
00004190: 18 57 43 B2 57 43 AA 31 3A 4C 57 B2 49 AA 31 AB |.WC.WC.1:LW.I.1.|
000041A0: 53 57 3A 53 57 B2 49 AA 31 00 B2 49 9C 18 4C B2 |SW:SW.I.1..I..L.|
000041B0: 57 53 00 CA 49 A6 18 8B 20 57 44 24 B2 57 4C 24 |WS..I... WD$.WL$|
000041C0: 28 4C 29 20 A7 20 36 33 34 30 00 E3 49 B0 18 4C |(L) . 6340..I..L|
000041D0: B2 4C AA 31 3A 8B 20 4C B3 B2 57 45 20 A7 20 36 |.L.1:. L..WE . 6|
000041E0: 33 31 30 00 ED 49 BA 18 89 36 34 38 30 00 F7 49 |310..I...6480..I|
000041F0: C4 18 4D B2 4D AA 31 00 07 4A CE 18 44 57 25 28 |..M.M.1..J..DW%(|
00004200: 4D 2C 31 29 B2 52 53 00 17 4A D8 18 44 57 25 28 |M,1).RS..J..DW%(|
00004210: 4D 2C 32 29 B2 57 43 00 2A 4A E2 18 44 57 25 28 |M,2).WC.*J..DW%(|
00004220: 4D 2C 33 29 B2 53 57 AB 4C 57 00 3A 4A EC 18 44 |M,3).SW.LW.:J..D|
00004230: 57 25 28 4D 2C 34 29 B2 4C 57 00 4E 4A F6 18 81 |W%(M,4).LW.NJ...|
00004240: 20 4C 31 B2 4C AA 31 20 A4 20 4E 57 AA 31 00 65 | L1.L.1 . NW.1.e|
00004250: 4A 00 19 57 4C 24 28 4C 31 AB 31 29 B2 57 4C 24 |J..WL$(L1.1).WL$|
00004260: 28 4C 31 29 20 00 7E 4A 0A 19 82 20 4C 31 3A 4E |(L1) .~J... L1:N|
00004270: 57 B2 4E 57 AB 31 3A 57 45 B2 57 45 AB 31 00 8A |W.NW.1:WE.WE.1..|
00004280: 4A 1E 19 4A 31 B2 4A 31 AA 31 00 B3 4A 28 19 43 |J..J1.J1.1..J(.C|
00004290: 4C B2 32 30 AC 28 4A 31 AB B5 28 4A 31 AD 51 42 |L.20.(J1..(J1.QB|
000042A0: 29 AC 51 42 29 3A 52 57 B2 B5 28 4A 31 AD 51 42 |).QB):RW..(J1.QB|
000042B0: 29 AA 31 00 D5 4A 32 19 99 20 22 13 22 3B C8 28 |).1..J2.. ".";.(|
000042C0: 44 4E 24 2C 52 57 29 3B C8 28 41 58 24 2C 43 4C |DN$,RW);.(AX$,CL|
000042D0: 29 3B 57 44 24 00 EF 4A 3C 19 8B 20 C3 28 57 44 |);WD$..J<.. .(WD|
000042E0: 24 29 B1 31 39 20 A7 20 4A 31 B2 4A 31 AA 31 00 |$).19 . J1.J1.1.|
000042F0: 04 4B 46 19 8B 20 57 45 B2 57 53 AB 31 20 A7 20 |.KF.. WE.WS.1 . |
00004300: 36 35 30 30 00 0F 4B 50 19 57 44 24 B2 4C 24 00 |6500..KP.WD$.L$.|
00004310: 22 4B 5A 19 8B 20 49 B3 32 35 34 20 A7 20 36 32 |"KZ.. I.254 . 62|
00004320: 30 30 00 44 4B 64 19 8B 20 52 53 B3 B2 45 25 28 |00.DKd.. RS..E%(|
00004330: 4B 41 29 20 A7 20 52 53 B2 52 53 AA 31 3A 89 20 |KA) . RS.RS.1:. |
00004340: 36 31 37 30 00 55 4B 6E 19 8B 20 4D B2 30 20 A7 |6170.UKn.. M.0 .|
00004350: 20 36 35 35 30 00 64 4B 78 19 4B B2 4D AA 31 3A | 6550.dKx.K.M.1:|
00004360: 4C B2 4B 41 00 6F 4B 82 19 8D 20 31 37 35 30 00 |L.KA.oK... 1750.|
00004370: 81 4B 8C 19 57 53 B2 57 45 AA 31 3A 57 45 B2 57 |.K..WS.WE.1:WE.W|
00004380: 53 00 8A 4B 96 19 82 20 4B 41 00 9D 4B A0 19 8B |S..K... KA..K...|
00004390: 20 20 4E 57 B2 30 20 A7 20 36 37 30 30 00 A6 4B | NW.0 . 6700..K|
000043A0: AA 19 8D 20 36 30 00 AF 4B B4 19 51 B2 33 37 00 |... 60..K..Q.37.|
000043B0: C0 4B BE 19 8D 20 33 33 38 30 3A 4A 31 B2 51 43 |.K... 3380:J1.QC|
000043C0: 00 CF 4B C8 19 81 20 49 B2 31 20 A4 20 4E 57 00 |..K... I.1 . NW.|
000043D0: DE 4B D2 19 57 44 24 B2 57 4C 24 28 49 29 00 FF |.K..WD$.WL$(I)..|
000043E0: 4B DC 19 8B 20 C3 28 57 44 24 29 B1 31 39 20 A7 |K... .(WD$).19 .|
000043F0: 20 4A 31 B2 B5 28 4A 31 AD 32 29 AC 32 AA 31 00 | J1..(J1.2).2.1.|
00004400: 0B 4C E6 19 4A 31 B2 4A 31 AA 31 00 34 4C F0 19 |.L..J1.J1.1.4L..|
00004410: 43 4C B2 32 30 AC 28 4A 31 AB B5 28 4A 31 AD 51 |CL.20.(J1..(J1.Q|
00004420: 42 29 AC 51 42 29 3A 52 57 B2 B5 28 4A 31 AD 51 |B).QB):RW..(J1.Q|
00004430: 42 29 AA 31 00 56 4C FA 19 99 20 22 13 22 3B C8 |B).1.VL... ".";.|
00004440: 28 44 4E 24 2C 52 57 29 3B C8 28 41 58 24 2C 43 |(DN$,RW);.(AX$,C|
00004450: 4C 29 3B 57 44 24 00 70 4C 04 1A 8B 20 C3 28 57 |L);WD$.pL... .(W|
00004460: 44 24 29 B1 31 39 20 A7 20 4A 31 B2 4A 31 AA 31 |D$).19 . J1.J1.1|
00004470: 00 78 4C 0E 1A 82 20 49 00 8F 4C 18 1A A1 41 24 |.xL... I..L...A$|
00004480: 3A 8B 20 41 24 B2 22 22 20 A7 20 36 36 38 30 00 |:. A$."" . 6680.|
00004490: A4 4C 22 1A 8B 20 41 24 B3 B1 22 59 22 20 A7 20 |.L".. A$.."Y" . |
000044A0: 36 36 38 30 00 AE 4C 2C 1A 89 20 33 38 30 00 F6 |6680..L,.. 380..|
000044B0: 4C 36 1A 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |L6.. ***********|
000044C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 49 2F 4F 20 53 |********** I/O S|
000044D0: 55 50 50 4F 52 54 20 46 4F 52 20 42 41 53 49 43 |UPPORT FOR BASIC|
000044E0: 20 32 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | 2 *************|
000044F0: 2A 2A 2A 2A 2A 2A 00 37 4D 40 1A 84 31 2C 44 36 |******.7M@..1,D6|
00004500: 24 2C 44 37 24 2C 44 38 24 2C 44 39 24 3A 44 39 |$,D7$,D8$,D9$:D9|
00004510: B2 C5 28 44 36 24 29 3A 44 39 24 B2 44 36 24 AA |..(D6$):D9$.D6$.|
00004520: 22 2C 22 AA 44 37 24 AA 22 2C 22 AA 44 38 24 AA |",".D7$.",".D8$.|
00004530: 22 2C 22 AA 44 39 24 00 3D 4D 4A 1A 8E 00 5B 4D |",".D9$.=MJ...[M|
00004540: 54 1A 52 39 B2 B5 28 52 52 AD 32 35 36 29 3A 52 |T.R9..(RR.256):R|
00004550: 38 B2 52 52 AB 52 39 AC 32 35 36 00 7D 4D 5E 1A |8.RR.R9.256.}M^.|
00004560: 98 31 2C 22 50 22 C7 28 39 36 AA 52 46 29 C7 28 |.1,"P".(96.RF).(|
00004570: 52 38 29 C7 28 52 39 29 C7 28 31 29 3B 00 A1 4D |R8).(R9).(1);..M|
00004580: 63 1A 98 31 2C 22 50 22 C7 28 39 36 AA 52 46 29 |c..1,"P".(96.RF)|
00004590: C7 28 52 38 29 C7 28 52 39 29 C7 28 31 29 3B 3A |.(R8).(R9).(1);:|
000045A0: 8E 00 E9 4D 68 1A 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |...Mh.. ********|
000045B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 49 4E |************* IN|
000045C0: 49 54 49 41 4C 49 5A 41 54 49 4F 4E 20 52 4F 55 |ITIALIZATION ROU|
000045D0: 54 49 4E 45 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |TINE ***********|
000045E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 23 4E 72 1A 43 4F |*********.#Nr.CO|
000045F0: B2 38 30 3A 51 31 24 B2 C7 28 33 32 29 3A 51 32 |.80:Q1$..(32):Q2|
00004600: 24 B2 22 22 3A 51 33 24 B2 C7 28 31 33 29 3A 51 |$."":Q3$..(13):Q|
00004610: 34 24 B2 C7 28 31 34 32 29 3A 51 35 24 B2 C7 28 |4$..(142):Q5$..(|
00004620: 31 34 29 00 69 4E 7C 1A 51 36 24 B2 22 13 11 20 |14).iN|.Q6$.".. |
00004630: 20 20 20 22 3A 51 37 24 B2 22 20 20 20 20 20 20 | ":Q7$." |
00004640: 20 20 20 20 22 3A 51 41 B2 38 30 3A 51 42 B2 34 | ":QA.80:QB.4|
00004650: 3A 51 43 B2 33 3A 51 38 24 B2 22 34 22 3A 51 39 |:QC.3:Q8$."4":Q9|
00004660: 24 B2 22 A0 A0 A0 A0 A0 22 00 97 4E 86 1A 50 41 |$."....."..N..PA|
00004670: B2 31 34 34 3A 50 42 B2 38 38 3A 50 43 B2 38 35 |.144:PB.88:PC.85|
00004680: 3A 50 44 B2 31 35 30 3A 50 45 B2 31 36 37 3A 50 |:PD.150:PE.167:P|
00004690: 46 B2 33 32 38 33 32 00 B9 4E 90 1A 8F 20 49 4E |F.32832..N... IN|
000046A0: 50 55 54 20 22 48 4F 57 20 4D 41 4E 59 20 43 4F |PUT "HOW MANY CO|
000046B0: 4C 55 4D 4E 53 22 2C 43 4F 00 E7 4E 9A 1A 8B 20 |LUMNS",CO..N... |
000046C0: C2 28 34 34 29 B2 38 20 A7 20 43 4F B2 34 30 3A |.(44).8 . CO.40:|
000046D0: 97 35 33 32 38 30 2C 31 34 3A 97 35 33 32 38 31 |.53280,14:.53281|
000046E0: 2C 36 3A 99 22 05 22 00 2F 4F AE 1A 42 41 24 B2 |,6:."."./O..BA$.|
000046F0: 22 12 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |". |
00004700: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00004710: 20 20 20 20 20 20 20 20 20 92 22 3A 8B 43 4F B2 | .":.CO.|
00004720: 38 30 A7 20 42 41 24 B2 42 41 24 AA 42 41 24 00 |80. BA$.BA$.BA$.|
00004730: 7A 4F B8 1A 41 58 24 B2 22 1D 1D 1D 1D 1D 1D 1D |zO..AX$.".......|
00004740: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00004750: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00004760: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00004770: 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 00 C3 4F C2 1A 42 |........."..O..B|
00004780: 58 24 B2 22 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |X$."............|
00004790: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |................|
000047A0: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 3A 8B 20 |............":. |
000047B0: 43 4F B2 38 30 20 A7 20 42 58 24 B2 42 58 24 AA |CO.80 . BX$.BX$.|
000047C0: 42 58 24 00 F5 4F CC 1A 44 4E 24 B2 22 11 11 11 |BX$..O..DN$."...|
000047D0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
000047E0: 11 11 11 11 11 11 22 3A 44 4F B2 32 33 3A 97 20 |......":DO.23:. |
000047F0: 50 41 2C 50 42 00 12 50 D6 1A 8D 20 33 30 36 30 |PA,PB..P... 3060|
00004800: 3A 20 8F 20 43 41 4C 4C 20 43 4F 4D 45 52 43 49 |: . CALL COMERCI|
00004810: 41 4C 00 5C 50 E0 1A 4D 58 B2 36 35 30 20 3A 8F |AL.\P..MX.650 :.|
00004820: 20 4D 41 58 49 4D 55 4D 20 52 45 43 4F 52 44 53 | MAXIMUM RECORDS|
00004830: 20 4F 4E 20 44 49 53 4B 20 28 43 41 4E 20 42 45 | ON DISK (CAN BE|
00004840: 20 43 48 41 4E 47 45 44 20 46 4F 52 20 38 30 35 | CHANGED FOR 805|
00004850: 30 2C 38 32 35 30 2C 39 30 39 30 29 00 A7 50 EA |0,8250,9090)..P.|
00004860: 1A 86 53 25 28 32 37 29 2C 45 25 28 32 36 29 2C |..S%(27),E%(26),|
00004870: 54 4B 24 28 31 32 37 29 2C 52 31 25 28 32 35 34 |TK$(127),R1%(254|
00004880: 29 2C 52 4C 25 28 32 35 34 29 2C 52 4F 25 28 32 |),RL%(254),RO%(2|
00004890: 35 34 29 2C 57 45 25 28 31 36 30 29 2C 44 57 25 |54),WE%(160),DW%|
000048A0: 28 31 30 30 2C 34 29 00 DF 50 F4 1A 86 20 57 50 |(100,4)..P... WP|
000048B0: 25 28 31 36 30 29 2C 4E 53 25 28 32 36 29 2C 52 |%(160),NS%(26),R|
000048C0: 4D 25 28 32 35 34 29 2C 57 4C 24 28 38 30 29 2C |M%(254),WL$(80),|
000048D0: 54 46 24 28 35 30 29 2C 57 43 25 28 32 36 29 00 |TF$(50),WC%(26).|
000048E0: 04 51 FE 1A 41 42 24 B2 22 41 42 43 44 45 46 47 |.Q..AB$."ABCDEFG|
000048F0: 48 49 4A 4B 4C 4D 4E 4F 50 51 52 53 54 55 56 57 |HIJKLMNOPQRSTUVW|
00004900: 58 59 5A 22 00 22 51 08 1B 81 20 49 B2 30 20 A4 |XYZ"."Q... I.0 .|
00004910: 20 31 32 37 3A 20 87 20 54 4B 24 28 49 29 3A 82 | 127: . TK$(I):.|
00004920: 20 49 00 65 51 12 1B 4E 53 25 28 31 29 B2 32 3A | I.eQ..NS%(1).2:|
00004930: 81 20 49 B2 32 20 A4 20 32 36 3A 87 20 52 44 3A |. I.2 . 26:. RD:|
00004940: 4E 53 25 28 49 29 B2 4E 53 25 28 49 AB 31 29 AA |NS%(I).NS%(I.1).|
00004950: B5 28 52 44 AD 31 35 36 35 AC 4D 58 AA 30 2E 34 |.(RD.1565.MX.0.4|
00004960: 29 3A 82 20 49 00 AE 51 1C 1B 53 50 24 B2 22 20 |):. I..Q..SP$." |
00004970: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00004980: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00004990: 20 20 20 20 20 20 20 22 3A 8B 20 43 4F B2 38 30 | ":. CO.80|
000049A0: 20 A7 20 53 50 24 B2 53 50 24 AA 53 50 24 00 D8 | . SP$.SP$.SP$..|
000049B0: 51 26 1B 57 45 25 28 30 29 B2 31 3A 53 25 28 32 |Q&.WE%(0).1:S%(2|
000049C0: 37 29 B2 4D 58 3A 4E 53 25 28 30 29 B2 30 3A 4D |7).MX:NS%(0).0:M|
000049D0: 4F B2 30 3A 54 58 B2 30 00 F7 51 30 1B 9F 31 2C |O.0:TX.0..Q0..1,|
000049E0: 38 2C 31 35 20 3A 8F 20 43 4F 4D 4D 41 4E 44 20 |8,15 :. COMMAND |
000049F0: 43 48 41 4E 4E 45 4C 00 20 52 3A 1B 54 45 24 B2 |CHANNEL. R:.TE$.|
00004A00: 22 C4 49 43 54 49 4F 4E 41 52 59 20 CD 41 49 4E |".ICTIONARY .AIN|
00004A10: 54 45 4E 41 4E 43 45 20 D0 52 4F 47 52 41 4D 22 |TENANCE .ROGRAM"|
00004A20: 00 2F 52 44 1B 54 46 24 28 31 29 B2 22 A0 22 00 |./RD.TF$(1).".".|
00004A30: 49 52 4E 1B 54 46 24 28 32 29 B2 22 C9 4E 49 54 |IRN.TF$(2).".NIT|
00004A40: 49 41 4C 49 5A 49 4E 47 22 00 7B 52 58 1B 54 46 |IALIZING".{RX.TF|
00004A50: 24 28 33 29 B2 22 D3 45 4C 45 43 54 20 46 55 4E |$(3).".ELECT FUN|
00004A60: 43 54 49 4F 4E 20 27 41 27 20 4F 52 20 46 55 4E |CTION 'A' OR FUN|
00004A70: 43 54 49 4F 4E 20 27 42 27 2E 22 00 9A 52 62 1B |CTION 'B'."..Rb.|
00004A80: 54 46 24 28 34 29 B2 22 CC 4F 41 44 49 4E 47 20 |TF$(4).".OADING |
00004A90: 44 49 52 45 43 54 4F 52 59 22 00 C1 52 6C 1B 54 |DIRECTORY"..Rl.T|
00004AA0: 46 24 28 35 29 B2 22 D3 45 4C 45 43 54 20 4F 50 |F$(5).".ELECT OP|
00004AB0: 54 49 4F 4E 20 28 31 2D 37 29 20 3D 3D 3D 3E 20 |TION (1-7) ===> |
00004AC0: 22 00 D6 52 76 1B 54 46 24 28 36 29 B2 22 D7 4F |"..Rv.TF$(6).".O|
00004AD0: 52 4B 49 4E 47 22 00 06 53 80 1B 54 46 24 28 37 |RKING"..S..TF$(7|
00004AE0: 29 B2 22 C4 4F 20 59 4F 55 20 57 41 4E 54 20 54 |).".O YOU WANT T|
00004AF0: 48 45 20 4E 45 58 54 20 53 43 52 45 45 4E 20 28 |HE NEXT SCREEN (|
00004B00: 59 2F 4E 29 2E 22 00 2B 53 8A 1B 54 46 24 28 38 |Y/N).".+S..TF$(8|
00004B10: 29 B2 22 D2 45 41 44 59 20 54 4F 20 43 4F 4E 54 |).".EADY TO CONT|
00004B20: 49 4E 55 45 3F 20 28 59 29 2E 22 00 6A 53 94 1B |INUE? (Y).".jS..|
00004B30: 54 46 24 28 39 29 B2 22 CE 4F 20 57 4F 52 44 53 |TF$(9).".O WORDS|
00004B40: 20 46 4F 52 20 54 48 49 53 20 4C 45 54 54 45 52 | FOR THIS LETTER|
00004B50: 20 2D 20 D2 45 41 44 59 20 54 4F 20 43 4F 4E 54 | - .EADY TO CONT|
00004B60: 49 4E 55 45 3F 20 28 59 29 22 00 9F 53 9E 1B 54 |INUE? (Y)"..S..T|
00004B70: 46 24 28 31 30 29 B2 22 C4 45 4C 45 54 45 20 57 |F$(10).".ELETE W|
00004B80: 4F 52 44 20 4F 52 20 C3 4F 4E 54 49 4E 55 45 20 |ORD OR .ONTINUE |
00004B90: 50 52 4F 43 45 53 53 20 28 44 2F 43 29 2E 22 00 |PROCESS (D/C).".|
00004BA0: D6 53 A8 1B 54 46 24 28 31 31 29 B2 22 C5 4E 54 |.S..TF$(11).".NT|
00004BB0: 45 52 20 52 4F 57 20 26 20 43 4F 4C 55 4D 4E 20 |ER ROW & COLUMN |
00004BC0: 4F 46 20 57 4F 52 44 20 54 4F 20 42 45 20 44 45 |OF WORD TO BE DE|
00004BD0: 4C 45 54 45 44 22 00 08 54 B2 1B 54 46 24 28 31 |LETED"..T..TF$(1|
00004BE0: 32 29 B2 22 C5 4E 54 45 52 20 43 4F 4C 55 4D 4E |2).".NTER COLUMN|
00004BF0: 20 4F 46 20 57 4F 52 44 20 54 4F 20 42 45 20 44 | OF WORD TO BE D|
00004C00: 45 4C 45 54 45 44 2E 22 00 37 54 BC 1B 54 46 24 |ELETED.".7T..TF$|
00004C10: 28 31 33 29 B2 22 C5 4E 54 45 52 20 52 4F 57 20 |(13).".NTER ROW |
00004C20: 4F 46 20 57 4F 52 44 20 54 4F 20 42 45 20 44 45 |OF WORD TO BE DE|
00004C30: 4C 45 54 45 44 2E 22 00 77 54 C6 1B 54 46 24 28 |LETED.".wT..TF$(|
00004C40: 31 34 29 B2 22 C5 4E 54 45 52 20 46 49 52 53 54 |14).".NTER FIRST|
00004C50: 20 4C 45 54 54 45 52 20 4F 46 20 57 4F 52 44 53 | LETTER OF WORDS|
00004C60: 20 54 4F 20 42 45 20 44 49 53 50 4C 41 59 45 44 | TO BE DISPLAYED|
00004C70: 20 3D 3D 3D 3E 20 22 00 A1 54 D0 1B 54 46 24 28 | ===> "..T..TF$(|
00004C80: 31 35 29 B2 22 D5 50 44 41 54 49 4E 47 20 55 4E |15).".PDATING UN|
00004C90: 44 45 52 57 41 59 20 2D 20 D7 4F 52 4B 49 4E 47 |DERWAY - .ORKING|
00004CA0: 22 00 D4 54 DA 1B 54 46 24 28 31 36 29 B2 22 D4 |"..T..TF$(16).".|
00004CB0: 48 49 53 20 54 41 4B 45 53 20 54 49 4D 45 20 2D |HIS TAKES TIME -|
00004CC0: 20 D0 4C 45 41 53 45 20 42 45 20 50 41 54 49 45 | .LEASE BE PATIE|
00004CD0: 4E 54 2E 22 00 07 55 E4 1B 54 46 24 28 31 37 29 |NT."..U..TF$(17)|
00004CE0: B2 22 C9 20 41 4D 20 53 54 49 4C 4C 20 57 4F 52 |.". AM STILL WOR|
00004CF0: 4B 49 4E 47 20 41 53 20 48 41 52 44 20 41 53 20 |KING AS HARD AS |
00004D00: C9 20 43 41 4E 2E 22 00 2E 55 EE 1B 54 46 24 28 |. CAN."..U..TF$(|
00004D10: 31 38 29 B2 22 D7 52 49 54 49 4E 47 20 44 49 52 |18).".RITING DIR|
00004D20: 45 43 54 4F 52 59 20 52 45 43 4F 52 44 22 00 66 |ECTORY RECORD".f|
00004D30: 55 F8 1B 54 46 24 28 31 39 29 B2 22 C4 4F 20 59 |U..TF$(19).".O Y|
00004D40: 4F 55 20 57 49 53 48 20 54 4F 20 49 4E 49 54 49 |OU WISH TO INITI|
00004D50: 41 4C 49 5A 45 20 54 48 45 20 44 49 53 4B 20 28 |ALIZE THE DISK (|
00004D60: 59 2F 4E 29 2E 22 00 9A 55 02 1C 54 46 24 28 32 |Y/N)."..U..TF$(2|
00004D70: 30 29 B2 22 C9 4E 49 54 49 41 4C 49 5A 49 4E 47 |0).".NITIALIZING|
00004D80: 20 20 2D 20 4E 41 4D 45 20 27 52 54 43 20 44 49 | - NAME 'RTC DI|
00004D90: 43 54 49 4F 4E 41 52 59 27 22 00 CB 55 0C 1C 54 |CTIONARY'"..U..T|
00004DA0: 46 24 28 32 31 29 B2 22 C9 4E 49 54 49 41 4C 49 |F$(21).".NITIALI|
00004DB0: 5A 49 4E 47 20 44 49 43 54 49 4F 4E 41 52 59 20 |ZING DICTIONARY |
00004DC0: 44 49 52 45 43 54 4F 52 59 20 22 00 FA 55 16 1C |DIRECTORY "..U..|
00004DD0: 54 46 24 28 32 32 29 B2 22 C1 52 45 20 59 4F 55 |TF$(22).".RE YOU|
00004DE0: 20 52 45 41 44 59 20 54 4F 20 43 4F 4E 54 49 4E | READY TO CONTIN|
00004DF0: 55 45 20 28 59 2F 4E 29 2E 22 00 3B 56 20 1C 54 |UE (Y/N).".;V .T|
00004E00: 46 24 28 32 33 29 B2 22 C4 4F 20 59 4F 55 20 57 |F$(23).".O YOU W|
00004E10: 41 4E 54 20 4C 49 4E 45 20 46 45 45 44 53 20 53 |ANT LINE FEEDS S|
00004E20: 45 4E 54 20 54 4F 20 59 4F 55 52 20 50 52 49 4E |ENT TO YOUR PRIN|
00004E30: 54 45 52 20 28 59 2F 4E 29 2E 22 00 7D 56 2A 1C |TER (Y/N).".}V*.|
00004E40: 54 46 24 28 32 34 29 B2 22 C4 4F 20 59 4F 55 20 |TF$(24).".O YOU |
00004E50: 57 41 4E 54 20 54 4F 20 50 52 49 4E 54 20 54 48 |WANT TO PRINT TH|
00004E60: 45 20 43 4F 4D 50 4C 45 54 45 20 44 49 43 54 49 |E COMPLETE DICTI|
00004E70: 4F 4E 41 52 59 20 28 59 2F 4E 29 2E 22 00 C4 56 |ONARY (Y/N)."..V|
00004E80: 34 1C 54 46 24 28 32 35 29 B2 22 D7 4F 52 4B 49 |4.TF$(25).".ORKI|
00004E90: 4E 47 20 2D 20 D0 52 45 53 53 20 51 20 54 4F 20 |NG - .RESS Q TO |
00004EA0: 51 55 49 54 20 50 52 49 4E 54 49 4E 47 20 41 54 |QUIT PRINTING AT|
00004EB0: 20 45 4E 44 20 4F 46 20 54 48 49 53 20 42 4C 4F | END OF THIS BLO|
00004EC0: 43 4B 2E 22 00 FB 56 3E 1C 54 46 24 28 32 36 29 |CK."..V>.TF$(26)|
00004ED0: B2 22 C4 4F 20 59 4F 55 20 57 41 4E 54 20 54 4F |.".O YOU WANT TO|
00004EE0: 20 43 4F 50 59 20 54 48 45 20 44 49 43 54 49 4F | COPY THE DICTIO|
00004EF0: 4E 41 52 59 28 59 2F 4E 29 2E 22 00 3C 57 48 1C |NARY(Y/N).".<WH.|
00004F00: 54 46 24 28 32 37 29 B2 22 C4 4F 20 59 4F 55 20 |TF$(27).".O YOU |
00004F10: 57 41 4E 54 20 54 4F 20 43 48 41 4E 47 45 20 54 |WANT TO CHANGE T|
00004F20: 48 45 20 53 50 41 43 45 20 41 4C 4C 4F 43 41 54 |HE SPACE ALLOCAT|
00004F30: 49 4F 4E 53 20 28 59 2F 4E 29 2E 22 00 53 57 52 |IONS (Y/N).".SWR|
00004F40: 1C 54 46 24 28 32 38 29 B2 22 C3 4F 55 4E 54 49 |.TF$(28).".OUNTI|
00004F50: 4E 47 22 00 82 57 5C 1C 54 46 24 28 32 39 29 B2 |NG"..W\.TF$(29).|
00004F60: 22 2A 2A 2A 20 C5 52 52 4F 52 20 2D 20 D0 4C 45 |"*** .RROR - .LE|
00004F70: 41 53 45 20 52 45 2D 45 4E 54 45 52 20 2A 2A 2A |ASE RE-ENTER ***|
00004F80: 2A 22 00 B8 57 66 1C 54 46 24 28 33 30 29 B2 22 |*"..Wf.TF$(30)."|
00004F90: C4 4F 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 43 |.O YOU WANT TO C|
00004FA0: 48 41 4E 47 45 20 41 4E 59 20 56 41 4C 55 45 53 |HANGE ANY VALUES|
00004FB0: 20 28 59 2F 4E 29 2E 22 00 F9 57 70 1C 54 46 24 | (Y/N)."..Wp.TF$|
00004FC0: 28 33 31 29 B2 22 C5 4E 54 45 52 20 54 48 45 20 |(31).".NTER THE |
00004FD0: 4C 45 54 54 45 52 20 46 4F 52 20 54 48 45 20 56 |LETTER FOR THE V|
00004FE0: 41 4C 55 45 20 59 4F 55 20 57 41 4E 54 20 54 4F |ALUE YOU WANT TO|
00004FF0: 20 43 48 41 4E 47 45 2E 22 00 3E 58 7A 1C 54 46 | CHANGE.".>Xz.TF|
00005000: 24 28 33 33 29 B2 22 C5 4E 54 45 52 20 57 4F 52 |$(33).".NTER WOR|
00005010: 44 20 54 4F 20 42 45 20 44 45 4C 45 54 45 44 20 |D TO BE DELETED |
00005020: 46 4F 4C 4C 4F 57 45 44 20 42 59 20 41 20 43 41 |FOLLOWED BY A CA|
00005030: 52 52 49 41 47 45 20 52 45 54 55 52 4E 22 00 7A |RRIAGE RETURN".z|
00005040: 58 84 1C 54 46 24 28 33 34 29 B2 22 D0 4C 45 41 |X..TF$(34).".LEA|
00005050: 53 45 20 43 4F 4E 46 49 52 4D 20 41 43 43 45 50 |SE CONFIRM ACCEP|
00005060: 54 41 4E 43 45 20 4F 46 20 54 48 49 53 20 57 4F |TANCE OF THIS WO|
00005070: 52 44 20 28 59 2F 4E 29 2E 22 00 B3 58 8E 1C 54 |RD (Y/N)."..X..T|
00005080: 46 24 28 33 35 29 B2 22 C9 53 20 54 48 45 52 45 |F$(35).".S THERE|
00005090: 20 41 4E 4F 54 48 45 52 20 57 4F 52 44 20 54 4F | ANOTHER WORD TO|
000050A0: 20 42 45 20 45 4E 54 45 52 45 44 20 28 59 2F 4E | BE ENTERED (Y/N|
000050B0: 29 2E 22 00 DC 58 98 1C 54 46 24 28 33 36 29 B2 |)."..X..TF$(36).|
000050C0: 22 D7 4F 52 44 53 20 46 4F 55 4E 44 3B 20 42 45 |".ORDS FOUND; BE|
000050D0: 49 4E 47 20 44 45 4C 45 54 45 44 22 00 24 59 A2 |ING DELETED".$Y.|
000050E0: 1C 54 46 24 28 33 37 29 B2 22 D7 4F 52 44 53 20 |.TF$(37).".ORDS |
000050F0: 4E 4F 54 20 46 4F 55 4E 44 20 2D 20 48 45 4E 43 |NOT FOUND - HENC|
00005100: 45 20 4E 4F 54 20 44 45 4C 45 54 45 44 3A 20 D0 |E NOT DELETED: .|
00005110: 52 45 53 53 20 59 20 54 4F 20 43 4F 4E 54 49 4E |RESS Y TO CONTIN|
00005120: 55 45 2E 22 00 4D 59 AC 1C 54 46 24 28 33 38 29 |UE.".MY..TF$(38)|
00005130: B2 22 D0 52 45 53 53 20 41 4E 59 20 4B 45 59 20 |.".RESS ANY KEY |
00005140: 54 4F 20 43 4F 4E 54 49 4E 55 45 2E 22 00 7C 59 |TO CONTINUE.".|Y|
00005150: B6 1C 54 46 24 28 33 39 29 B2 22 12 31 92 20 20 |..TF$(39).".1. |
00005160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00005170: 12 32 92 20 20 20 20 20 20 20 20 22 00 A3 59 C0 |.2. "..Y.|
00005180: 1C 54 46 24 28 34 30 29 B2 22 12 33 92 20 20 20 |.TF$(40).".3. |
00005190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 12 | .|
000051A0: 34 92 22 00 D2 59 CA 1C 54 46 24 28 34 31 29 B2 |4."..Y..TF$(41).|
000051B0: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" |
000051C0: C4 49 52 45 43 54 4F 52 59 20 20 20 20 20 20 20 |.IRECTORY |
000051D0: 20 22 00 02 5A D4 1C 54 46 24 28 34 32 29 B2 22 | "..Z..TF$(42)."|
000051E0: 20 20 20 53 54 41 52 54 20 20 20 20 20 20 20 20 | START |
000051F0: 45 4E 44 20 20 55 53 45 44 20 20 55 4E 55 53 45 |END USED UNUSE|
00005200: 44 22 00 15 5A DE 1C 8B 20 43 4F B2 38 30 20 A7 |D"..Z... CO.80 .|
00005210: 20 37 35 39 30 00 4E 5A E8 1C 51 31 24 B2 C7 28 | 7590.NZ..Q1$..(|
00005220: 31 33 29 3A 51 32 24 B2 22 20 20 20 22 3A 51 33 |13):Q2$." ":Q3|
00005230: 24 B2 22 22 3A 51 36 24 B2 22 13 11 20 20 22 3A |$."":Q6$.".. ":|
00005240: 51 38 24 B2 22 32 22 3A 51 37 24 B2 22 22 00 73 |Q8$."2":Q7$."".s|
00005250: 5A F2 1C 51 41 B2 34 30 3A 51 42 B2 32 3A 51 43 |Z..QA.40:QB.2:QC|
00005260: B2 31 3A 51 39 24 B2 22 20 22 3A 50 46 B2 33 32 |.1:Q9$." ":PF.32|
00005270: 37 39 30 00 B9 5A FC 1C 50 41 B2 31 34 34 3A 50 |790..Z..PA.144:P|
00005280: 42 B2 35 32 3A 50 43 B2 34 39 3A 50 44 B2 31 34 |B.52:PC.49:PD.14|
00005290: 34 3A 50 45 B2 32 30 34 3A 50 46 B2 31 30 34 36 |4:PE.204:PF.1046|
000052A0: 3A 8F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F 3F |:.??????????????|
000052B0: 3F 3F 20 46 4F 52 20 36 34 00 E0 5A 06 1D 54 46 |?? FOR 64..Z..TF|
000052C0: 24 28 39 29 B2 22 C5 4D 50 54 59 20 2D 20 52 45 |$(9).".MPTY - RE|
000052D0: 41 44 59 20 59 4F 20 43 4F 4E 54 49 4E 55 45 22 |ADY YO CONTINUE"|
000052E0: 00 13 5B 10 1D 54 46 24 28 31 31 29 B2 22 D2 4F |..[..TF$(11).".O|
000052F0: 57 20 26 20 43 4F 4C 55 4D 4E 20 4F 46 20 57 4F |W & COLUMN OF WO|
00005300: 52 44 20 54 4F 20 42 45 20 44 45 4C 45 54 45 44 |RD TO BE DELETED|
00005310: 20 3F 22 00 42 5B 1A 1D 54 46 24 28 31 34 29 B2 | ?".B[..TF$(14).|
00005320: 22 C4 49 53 50 4C 41 59 20 57 4F 52 44 53 20 46 |".ISPLAY WORDS F|
00005330: 4F 52 20 57 48 49 43 48 20 4C 45 54 54 45 52 20 |OR WHICH LETTER |
00005340: 3F 22 00 6C 5B 24 1D 54 46 24 28 31 39 29 B2 22 |?".l[$.TF$(19)."|
00005350: C9 4E 49 54 49 41 4C 49 5A 45 20 54 48 45 20 44 |.NITIALIZE THE D|
00005360: 49 53 4B 20 3F 20 28 59 2F 4E 29 22 00 9D 5B 2E |ISK ? (Y/N)"..[.|
00005370: 1D 54 46 24 28 32 33 29 B2 22 D3 45 4E 44 20 4C |.TF$(23).".END L|
00005380: 49 4E 45 20 46 45 45 44 53 20 54 4F 20 50 52 49 |INE FEEDS TO PRI|
00005390: 4E 54 45 52 20 3F 20 28 59 2F 4E 29 22 00 CD 5B |NTER ? (Y/N)"..[|
000053A0: 38 1D 54 46 24 28 32 34 29 B2 22 D0 52 49 4E 54 |8.TF$(24).".RINT|
000053B0: 20 43 4F 4D 50 4C 45 54 45 20 44 49 43 54 49 4F | COMPLETE DICTIO|
000053C0: 4E 41 52 59 20 3F 20 28 59 2F 4E 29 22 00 FB 5B |NARY ? (Y/N)"..[|
000053D0: 42 1D 54 46 24 28 32 35 29 B2 22 D0 52 45 53 53 |B.TF$(25).".RESS|
000053E0: 20 51 20 54 4F 20 53 54 4F 50 20 41 54 20 45 4E | Q TO STOP AT EN|
000053F0: 44 20 4F 46 20 42 4C 4F 43 4B 22 00 25 5C 4C 1D |D OF BLOCK".%\L.|
00005400: 54 46 24 28 32 36 29 B2 22 C3 4F 50 59 20 54 48 |TF$(26).".OPY TH|
00005410: 45 20 44 49 43 54 49 4F 4E 41 52 59 20 3F 20 28 |E DICTIONARY ? (|
00005420: 59 2F 4E 29 22 00 59 5C 56 1D 54 46 24 28 32 37 |Y/N)".Y\V.TF$(27|
00005430: 29 B2 22 C3 48 41 4E 47 45 20 54 48 45 20 53 50 |).".HANGE THE SP|
00005440: 41 43 45 20 41 4C 4C 4F 43 41 54 49 4F 4E 53 20 |ACE ALLOCATIONS |
00005450: 3F 20 28 59 2F 4E 29 2E 22 00 82 5C 60 1D 54 46 |? (Y/N)."..\`.TF|
00005460: 24 28 33 30 29 B2 22 C3 48 41 4E 47 45 20 41 4E |$(30).".HANGE AN|
00005470: 59 20 56 41 4C 55 45 53 20 3F 20 28 59 2F 4E 29 |Y VALUES ? (Y/N)|
00005480: 2E 22 00 A1 5C 6A 1D 54 46 24 28 33 31 29 B2 22 |."..\j.TF$(31)."|
00005490: D7 48 49 43 48 20 4C 45 54 54 45 52 20 3F 20 20 |.HICH LETTER ? |
000054A0: 22 00 D5 5C 74 1D 54 46 24 28 33 33 29 B2 22 C5 |"..\t.TF$(33).".|
000054B0: 4E 54 45 52 20 57 4F 52 44 20 54 4F 20 42 45 20 |NTER WORD TO BE |
000054C0: 44 45 4C 45 54 45 44 2C 20 54 48 45 4E 20 D2 C5 |DELETED, THEN ..|
000054D0: D4 D5 D2 CE 22 00 0A 5D 7E 1D 54 46 24 28 33 34 |...."..]~.TF$(34|
000054E0: 29 B2 22 C3 4F 4E 46 49 52 4D 20 41 43 43 45 50 |).".ONFIRM ACCEP|
000054F0: 54 41 4E 43 45 20 4F 46 20 54 48 49 53 20 57 4F |TANCE OF THIS WO|
00005500: 52 44 20 28 59 2F 4E 29 2E 22 00 3C 5D 88 1D 54 |RD (Y/N).".<]..T|
00005510: 46 24 28 33 35 29 B2 22 C1 4E 4F 54 48 45 52 20 |F$(35).".NOTHER |
00005520: 57 4F 52 44 20 54 4F 20 42 45 20 45 4E 54 45 52 |WORD TO BE ENTER|
00005530: 45 44 20 3F 20 28 59 2F 4E 29 2E 22 00 70 5D 92 |ED ? (Y/N).".p].|
00005540: 1D 54 46 24 28 33 37 29 B2 22 D7 4F 52 44 53 20 |.TF$(37).".ORDS |
00005550: 4E 4F 54 20 46 4F 55 4E 44 3A 20 D0 52 45 53 53 |NOT FOUND: .RESS|
00005560: 20 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 2E 22 | Y TO CONTINUE."|
00005570: 00 7B 5D 9C 1D 89 20 37 36 32 30 00 9B 5D A6 1D |.{]... 7620..]..|
00005580: 54 46 24 28 33 39 29 B2 54 46 24 28 33 39 29 AA |TF$(39).TF$(39).|
00005590: 51 37 24 AA 54 46 24 28 34 30 29 00 BB 5D B0 1D |Q7$.TF$(40)..]..|
000055A0: 54 46 24 28 34 31 29 B2 54 46 24 28 34 31 29 AA |TF$(41).TF$(41).|
000055B0: 51 37 24 AA 54 46 24 28 34 31 29 00 E0 5D BA 1D |Q7$.TF$(41)..]..|
000055C0: 54 46 24 28 34 32 29 B2 54 46 24 28 34 32 29 AA |TF$(42).TF$(42).|
000055D0: 51 37 24 AA 22 20 20 22 AA 54 46 24 28 34 32 29 |Q7$." ".TF$(42)|
000055E0: 00 EE 5D C4 1D 99 20 22 93 22 2C 51 35 24 00 F4 |..]... ".",Q5$..|
000055F0: 5D D8 1D 8E 00 3C 5E E2 1D 8F 20 2A 2A 2A 2A 2A |]....<^... *****|
00005600: 2A 2A 2A 2A 2A 2A 20 44 41 54 41 20 54 4F 20 54 |****** DATA TO T|
00005610: 52 41 4E 53 4C 41 54 45 20 54 4F 4B 45 4E 49 5A |RANSLATE TOKENIZ|
00005620: 45 44 20 44 49 43 54 49 4F 4E 41 52 59 20 2A 2A |ED DICTIONARY **|
00005630: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 78 5E EC |************.x^.|
00005640: 1D 83 20 21 2C 41 2C 42 2C 43 2C 44 2C 45 2C 46 |.. !,A,B,C,D,E,F|
00005650: 2C 47 2C 48 2C 49 2C 4A 2C 4B 2C 4C 2C 4D 2C 4E |,G,H,I,J,K,L,M,N|
00005660: 2C 4F 2C 50 2C 51 2C 52 2C 53 2C 54 2C 55 2C 56 |,O,P,Q,R,S,T,U,V|
00005670: 2C 57 2C 58 2C 59 2C 5A 00 B9 5E F6 1D 83 20 49 |,W,X,Y,Z..^... I|
00005680: 4E 47 2C 45 44 2C 54 49 4F 4E 2C 53 49 4F 4E 2C |NG,ED,TION,SION,|
00005690: 49 45 53 2C 4C 59 2C 45 53 53 2C 41 52 45 2C 4E |IES,LY,ESS,ARE,N|
000056A0: 43 45 2C 47 48 54 2C 49 56 45 2C 4F 52 2C 45 53 |CE,GHT,IVE,OR,ES|
000056B0: 54 2C 45 4E 54 2C 41 54 45 00 FC 5E 00 1E 83 20 |T,ENT,ATE..^... |
000056C0: 42 4C 45 2C 4F 55 53 2C 49 53 54 2C 54 49 43 2C |BLE,OUS,IST,TIC,|
000056D0: 41 52 59 2C 50 4C 45 2C 41 4E 45 2C 54 43 48 2C |ARY,PLE,ANE,TCH,|
000056E0: 54 4C 45 2C 41 47 45 2C 45 41 52 2C 4F 55 52 2C |TLE,AGE,EAR,OUR,|
000056F0: 45 45 44 2C 45 53 2C 45 41 2C 4F 4F 00 3E 5F 0A |EED,ES,EA,OO.>_.|
00005700: 1E 83 20 45 45 2C 49 41 2C 41 49 2C 4F 55 2C 41 |.. EE,IA,AI,OU,A|
00005710: 55 2C 51 55 2C 45 43 54 2C 43 54 2C 49 45 2C 45 |U,QU,ECT,CT,IE,E|
00005720: 49 2C 43 4B 2C 52 45 2C 54 48 2C 41 4B 45 2C 53 |I,CK,RE,TH,AKE,S|
00005730: 54 45 52 2C 53 54 2C 50 45 52 2C 45 52 54 00 82 |TER,ST,PER,ERT..|
00005740: 5F 14 1E 83 20 4C 41 52 2C 4E 43 54 2C 50 4C 2C |_... LAR,NCT,PL,|
00005750: 41 52 2C 45 52 2C 4F 53 2C 54 45 4E 2C 45 50 54 |AR,ER,OS,TEN,EPT|
00005760: 2C 54 52 2C 45 4E 2C 54 54 2C 54 45 52 2C 4F 4E |,TR,EN,TT,TER,ON|
00005770: 2C 53 50 2C 53 43 2C 45 4C 2C 52 54 2C 43 48 2C |,SP,SC,EL,RT,CH,|
00005780: 41 4C 00 C6 5F 1E 1E 83 20 4C 4C 2C 4E 4E 2C 44 |AL.._... LL,NN,D|
00005790: 44 2C 50 50 2C 52 52 2C 43 41 4C 2C 55 49 2C 49 |D,PP,RR,CAL,UI,I|
000057A0: 4E 2C 4E 54 45 52 2C 4E 54 2C 52 59 2C 55 41 2C |N,NTER,NT,RY,UA,|
000057B0: 41 4E 44 2C 41 4E 54 2C 41 4E 2C 4E 44 2C 50 45 |AND,ANT,AN,ND,PE|
000057C0: 52 2C 4E 53 54 52 00 01 60 28 1E 83 20 45 4E 54 |R,NSTR..`(.. ENT|
000057D0: 2C 44 47 45 2C 4C 41 54 2C 4F 4C 44 2C 45 4E 44 |,DGE,LAT,OLD,END|
000057E0: 2C 54 41 4C 2C 53 53 2C 50 48 2C 54 48 45 52 2C |,TAL,SS,PH,THER,|
000057F0: 41 43 54 2C 45 43 54 2C 4C 41 2C 4C 45 2C 5C 2C |ACT,ECT,LA,LE,\,|
00005800: 5E 00 3F 60 32 1E 83 20 31 30 33 2C 38 34 2C 31 |^.?`2.. 103,84,1|
00005810: 34 38 2C 37 39 2C 36 30 2C 37 30 2C 35 36 2C 36 |48,79,60,70,56,6|
00005820: 32 2C 35 39 2C 31 35 2C 31 37 2C 35 36 2C 38 38 |2,59,15,17,56,88|
00005830: 2C 33 33 2C 33 36 2C 31 33 33 2C 39 2C 37 31 00 |,33,36,133,9,71.|
00005840: 5B 60 3C 1E 83 20 31 38 32 2C 38 39 2C 32 37 2C |[`<.. 182,89,27,|
00005850: 32 38 2C 34 37 2C 35 2C 36 2C 35 00 00 00 |28,47,5,6,5... |
..<.... TIME OF LAST UPDATE MARCH 19/8
3 AT 13.00 V3.1.M.... V3.1 FIXES R
ELATIVE FILE BUG IN 1541/2031...... V3.
0 SUPPORTS THE COMMODORE 64....... V3.0
INCLUDES 1) A WORD COUNT FUNCTION 2)
DIRECTORY USE STATISTICS...(.. COPYRIGH
T BY RICHVALE TELECOMMUNICATIONS. MARCH
1983..2.2.. 6770:. 60:. 80.A.<.. ".";BA$
;BX$;".";H(AX$,(CO.C(TE$)).2);TE$.R.F.Q.
1:. 3380:....P.Q.2:. 3380...Z.."....A. I
NITIALIZE THE DICTIONARY DIRECTORY."...D
.."...B. PERFORM DICTIONARY MAINTENANCE.
"...N.Q.3:. 3380...X.. A$:. A$."" .
120.(.... A$."A" .DR$."0":.2495.=.... A
$.. "B" . 120.H.... 3450.W. .Q.4:. 3380.
H.... TX.3 . 210......1,"I0":.2,8,2,"0:D
ICTIONARY"......6720:MO.D9:MO$.D9$:. MO.
20 . 220.Y.H.. MO.21 . MO.62 . 2: 3:TX.
TX.1:.150...R.. 60:. ".....DISK ERROR:"M
O$: 2: 3: 1:. PA,PC:..!...RF.2:RR.1:.674
0.1.... I.1 . 254.<....#2,A$.X.... A$.""
. R1%(I).0:.270.I...R1%(I).F(A$).Q....
I..... I.1. 26...".Z1.R1%(I.2.1). 127..
.,.Z2.2.(R1%(I.2). 64).L.6.Z3.256.(R1%(I
.2.51). 127)...@.S%(I).Z1.Z2.Z3...J.Z1.R
1%(I.2.103). 127...T.Z2.2.(R1%(I.2.104).
64).3.^.Z3.256.(R1%(I.2.155). 127).F.H.
E%(I).Z1.Z2.Z3.N.R.. I.W.|.. 60...... ".
.. - DICTIONARY MAINTENANCE OPTIONS -".
..... ".1. BROWSE DICTIONARY CONTENTS FO
R ";Q1$;.X.... Q2$;"GIVEN FIRST LETTER."
...... ".2. EDIT DICTIONARY CONTENTS FOR
GIVEN";Q1$;.&.... Q2$;"FIRST LETTER.".W
.... ".3. DELETE A LIST OF WORDS FROM TH
E";Q1$;.O.B.. Q2$;"DICTIONARY."...L.. ".
4. PRINT FULL DICTIONARY OR WORDS FOR";Q
1$;.D.V.. Q2$;"THE SELECTED LETTER."....
.. ".5. DISPLAY OR CHANGE DICTIONARY";Q1
$;...... Q2$;"DIRECTORY.".0.... ".6. COU
NT WORDS IN DICTIONARY.".A.... ".7. EXIT
..P...Q.5:. 3380.G.... M$:. M$."" . 530.
..... M$."1" . M$."7" . 530...&.TF$.TF$.
" ".M$:. 3390.R.0.MO.E(M$):. MO . 570,57
0,5660,3610,4530,3610,3420...:.. 60:K.1.
..D.Q.6:. 3380...N.. 1450...X.RS.S%(L):R
E.E%(L)...B.. 3310.3.L.WD$.L$:J.1:IS.2:K
1.0.K.V.. 60:J1.QC:J2.K1.J1.\.... I.IS .
254.J...ZX.RL%(I)...... ZX.126 . ZX.127
. ZX.254 . 800...... ZX.255 . 940......
ZX.0 . 810.A...EW.ZX.128.O...CH.ZX.127.
..F.WD$.WD$.TK$(CH)...P.. EW.0 . 800...Z
.. C(WD$).18 . J1..(J1.2).2.1:J2.K1.J1.O
...WE%(J).I:J1.J1.1:J2.K1.J1:WP%(J2.QC).
J:J.J.1.{...CL.19.(J1..(J1.QB).QB).QB:RW
..(J1.QB).1...... ".";H(DN$,RW);H(AX$,CL
);WD$...... C(WD$).18 . J1.J1.1:J2.K1.J1
.K...WD$.L$...... J1.CO.QC . IS.I.1:. 84
0... .. I...*.ZX.RL%(1).2.A.4..ZX..I . .
"....BLOCK LENGTH ERROR DETECTED";ZX;I:
. PA,PC:..J.>.IS.2.^.H.. MO.2 . . 1030.M
.R.Q.7:. 3380...\.. A$:. A$."" .860...F.
. A$."N" . 1000...P.. A$.."Y" . 860.E.Z.
Q.6:.3380:NN.5:. 3380...... IS..2 . K1.K
1.J1.QC:. 630...... RS.RE . RS.RS.1:.610
.D.... ".........INDEXING ERROR IN DIREC
TORY - LIST USING OPTION 5.".S...MO.0:.
970.]...A$."".W.... MO.2 . . 1030:.1000.
..... A$."Y" . 1000...J.Q.8:. 3380...T..
A$:. A$."" .980.D.... A$.."Y" . 980.X..
.. MO.2 . . 1750......380.).... ********
*** EDIT CURRENTLY DISPLAYED DICTIONARY
WORDS ***********.<....J1..QC . 1080.K..
.Q.9:. 3380.B....A$:. A$."" . 1050.V.$..
A$."Y" . 1430...... 1050...8.. Q6$;TF$(
39)...B.. I.1 . RW.1:. ".";G(64.I);".":.
I.J.L.Q.10:. 3380...V.. A$:. A$."" . 11
10...`.. A$."C" . 1430...J.. A$.."D" . 1
110...T.CL.0:RO.0.).~.Q.11:. 3380.A....
A$:. A$."" . 1160.].... A$."1". A$.Q8$ .
1190.P...CL.E(A$):.1280.X...I.0...... A
$."A". A$.J(AB$,RW.1,1). 1160.....I.I.1:
. A$.J(AB$,I,1) . 1240.P.D.. I.RW . 1280
.Z.N..1210...X.RO.I...... CL..0 . 1280..
...Q.12: . 3380...... 1160.%.... RO..0 .
1310.5...Q.13:. 3380.@.... 1160.\...SC.
(PF.RO.QA.CL.19):I.0.S.(.. B(SC)..32 . 1
420.}.2.I.I.1...<.P.B(SC.I)...F.. P.127
. 1420...P.. P.32 . I.3 . 1420.H.Z.. P.3
2 . 1400.Z.D..(SC.I),P.128...N.. 1330...
X.DW%(K,1).RS.....WN.(RO.QB.CL).QB.K1:.1
540:K.K.1.,.... K.100 . 1100.2.....Z. ..
**************** ROUTINE TO PARSE SELEC
TED LETTER ***************.....Q.14:. 33
80...... L$:. L$."" . 1460...... L$."A"
. L$."Z" . 1460...H.TF$."WORKING ON ".L$
:. 3390...R.L.0.....L.L.1:. L$.J(AB$,L,1
) . 1520...... 1500.......A.... ********
**********SEQUENCE DELETE REQUESTS *****
*****************.P...W1.WP%(WN).....SW.
WE%(W1.1).1:WL.WE%(W1).WE%(W1.1)...... K
..1 . 1610...".DW%(K,2).W1.J.,.DW%(K,3).
SW.Z.6.DW%(K,4).WL...@.. 1730...J.. I.K
. 1 . .1...T.. DW%(I,1)..DW%(I.1,1) . 16
80.5.^.. DW%(I.1,2).W1 . 1680.M.H.DW%(I,
2).DW%(I.1,2).E.R.DW%(I,3).DW%(I.1,3).}.
|.DW%(I,4).DW%(I.1,4)......1720.....DW%(
I,2).W1.....DW%(I,3).SW.....DW%(I,4).WL.
B.... 1730.J.... I.P.B.....L.. *********
******** UPDATE DICTIONARY ROUTINE *****
****************.).V.. K.2 . 2110.2....
60.B...Q.15:. 3380.L...RS.DW%(1,1):RE.E%
(L):LW..1:NU.0:RU.RS.W.... 3310.....K.K.
1:H.2:M.1...... I. 2 . 254...... NU.0 .
2020...&.. LW.255 . 2020.R.0.. LW.0 . 19
70...:.. M.K . 1910...D.. DW%(M,1).RS .
1910...N.. DW%(M,3).H . 1910.+.X.H.H.DW%
(M,4):M.M.1.=.B.. LW.0 . 1970.G.L..1850.
_.V.. H.RL%(1).1 . 1960.T.... LW.0 . LW.
LW.1.....RO%(I).RL%(H):H.H.1...... RO%(I
).255 . LW.255...... 2040.I...RS.RS.1:NS
.2:. 3310.T.... 2130...... LW.0 . 1960..
.F.. LW.255 . 1930...P.. LW.I.254 . 2020
...Z.. 1850.(...RO%(I).0.4...NU.NU.1.<..
.. I.N...RO%(1).253.NU.Y.... 2250.I...Q.
16:. 3380.Z. .NU.0:RU.RU.1...*.. LW..255
. LW..1:. 1810...4.. 2340...>.....H.. *
****************** FIND WORD LENGTH ****
************************...R.H.NS...\..
N.NS . 254...F.ZX.RL%(N).>.P.. ZX.126 .
ZX.127 . ZX.254 . 2210.Z.Z.. ZX.255 . LW
.255:.2230.R.... ZX.0 . LW.0:.2230.....E
W.ZX.128...... EW..0 . 2220...... N.....
LW.N.1.NS:NS.N.1............ ***********
****** WRITE DICTIONARY RECORD *********
**************...J.Q.17:. 3380.#.T.RF.2:
RR.RU:.6740.5...PR$.G(RO%(1)).E.... P.2
. 254.[...PR$.PR$.G(RO%(P)).C.... P.O...
.2,PR$;.U.......... ***************** WR
ITE DIRECTORY RECORD *******************
*****.M.$.Q.18:. 3380...... RU.E%(L) . 2
470...8.EH..((RU).256):EL.RU.EH.256.#.B.
R1%(L.2.103).(128.(EL.127)).E.L.R1%(L.2.
104).(128.(EL.128).2).E.V.R1%(L.2.155).(
128.(EH.127))...`.R1%(L.2.156).(128.(EH.
128).2)...J.RF.2:RR.1:.6740...T.PR$.G(R1
%(1))...~.. P.2 . 254.S...PR$.PR$.G(R1%(
P))...... P......2,PR$;.......5.... ****
********** INITIALIZE DISK AND DIRECTORY
********************.A...DR$."1".L....
2840.\.D.Q.19:. 3380.T.N.. A$:. A$."" .
2510...X.. A$."N" ..1,"I".DR$:.2610.....
. A$.."Y" . 2510.....Q.20:. 3380......1,
"N".DR$.":RTC DICTIONARY,DR".. ...TX.3.
1: 2:."..DISK ERROR - DRIVE "DR$,MA$:. P
A,PC:..9 ...6720:MA.D9:MA$.D9$:TX.TX.1:
2.K ... MA.19 .2610.^ ... MA.21 . 2490.N
(.TX.3 :.2560.. 2..3,8,3,DR$.":DICTIONA
RY,L,".G(254).K <..6720:MA.D9:MA$.D9$:TX
.TX.1:. MA.19 . 2: 3:.2590.. F.Q.21:. 3
380.. P.RF.3:RR.MX:.6740:.6720..!Z..3,G(
255);:R.2.-!D.. J.1 . 26 :R.NS%(J) : I.
J.2.1.G!N.SH..(R.256):SL.R.SH.256:EH..((
R.1).256):EL.R.1.EH.256..!X.RM%(I).128.(
SL . 127):RM%(I.1).128.(SL . 128).2.S!..
RM%(I.52).128.(SH . 127):RM%(I.53).128.(
SH . 128).2.."..RM%(I.104).128.(EL . 127
):RM%(I.105).128.(EL . 128).2.G"..RM%(I.
156).128.(EH . 127):RM%(I.157).128.(EH .
128).2.J" .RF.3:RR.R:.6740:.3,G(1)G(255
);.."...RR=RR+2:GOSUB6740: REM RELATIVE
BUG FIX FOR 1541/2031.."... J.A"..RF.3:R
R.1:.6740.S"..PR$.G(RM%(1)).."H.. P.2 .
254.."R.PR$.PR$.G(RM%(P))..#... P..#...3
,PR$;.(#... MO..5 . 3: 1:. 3430.2#.. 2:
3.8#.....#... ******************** INIT
IALIZATION WARNING *********************
..#... 60..#".."..";Q3$;"THIS ROUTINE WI
LL CREATE THE";Q1$;.X#,.."DICTIONARY DIR
ECTORY."..$6.. Q3$;".YOU WILL FIRST BE A
SKED IF YOU WISH TO";Q1$;..$@.. "INITIAL
IZE THE DISK.".B$J.. Q3$;"IF THIS IS A N
EW DISK IT .MUST. BE";Q1$;..$T.."INITIAL
IZED. IF IT IS AN OLD DISK ANY".D$^.. Q3
$;"DATA ON IT WILL BE DESTROYED DURING";
Q1$;..$H.."THE INITIALIZATION PROCESS. T
HE"."%R.. Q3$;"DICTIONARY REQUIRES USE O
F 650 BLOCKS";Q1$;.M%|.."OR ALMOST ALL O
F A 4040/1541 DISK. "..%... Q3$;"IF YOU
HAVE A 4040/1541 DISK UNIT IT IS";Q1$;..
%..."RECOMMENDED THAT YOU INITIALIZE THE
".C%... Q3$;"DISK."..&... MA.21 . ."...P
LEASE INSERT YOUR DISK IN DRIVE "DR$:.30
00.0&..."..PLEASE INSERT YOUR DISK IN DR
IVE "DR$.@&..Q.22:. 3380.W&B.. A$:.A$.""
. 3010.K&L.. A$."N" . 3420..&V.. A$.."Y
" . 3010..&....N&... *******************
** COMMERCIAL *************************
******..&... ".";Q4$..&..TF$." ":DO.1:.
3390..'... CO.40 . 3120.O'..TF$."JANUARY
-83 VERSION 3
.1":DO.2:. 3390.Z'&.. 3130..'0.TF$."JANU
ARY-83 VERSION 3.1":DO.2
:. 3390..':.TF$." ":. DO.3 . 9:. 3390:.
DO..'D.TF$."DICTIONARY MAINTENANCE PROG
RAM":DO.9:. 3390..(N.TF$." ":DO.10:. 339
0.$(X.TF$."FOR":DO.11:. 3390.=(B.TF$." "
:DO.12:. 3390.P(L.TF$."RICHVALE TELECOMM
UNICATIONS":DO.13:. 3390..(V.TF$." ":DO.
14:. 3390..({.. CO.40 . 3205.X(..TF$."RT
C-4 WORD PROCESSING SYSTEMS":DO.15:. 339
0:. 3210..)..TF$."SCRIPT 64 WORD PROCESS
ING SYSTEMS":DO.15:. 3390.6)..TF$." ":.
DO.16 . 21:. 3390:. DO.I)... CO.40 . 325
0..)..TF$."
BY BILL DUTFIELD":DO.22..)... 3260.
N)..TF$." BY BILL D
UTFIELD":DO.22.Y)... 3390..)F.TF$." ":DO
.23:. 3390..*P.. I.1.3000 :.I:DO.23..*Z.
..Y*... **************** SUBROUTINE TO R
EAD A RECORD*********************.U*..RF
.2:RR.RS:.6740:. PD,0..*... I1.1 . 254..
*... ST.0 . .#2,RI$:RL%(I1).F(RI$):.3350
..*..RL%(I1).0.G*... I1.M* ....+*.. ****
************ PRINT BOTTOM CONTROL LINE *
*********************.$+4.TF$.TF$(Q).]+>
.. ".";H(DN$,DO);BA$;BX$;".";H(AX$,(CO.C
(TF$)).2);TF$.C+H....+R.. **************
********* TERMINATION ******************
***********..+\. 2: 3: 1..+F..".".(O);".
...................GOOD BYE":. PA,PC:..6
,P.. ***************** A CAUTION NOTE ON
USE *************************.X,Z..60:T
F$."CAUTION":DO.3:. 3390.|,..TF$."======
=":DO.4:. 3390:DO.23..,... ".AS THIS PRO
GRAM MODIFIES BOTH THE";Q1$;.Z,... "RECO
RDS AND THE MAIN DIRECTORY OF THE"..-...
Q3$;"DICTIONARY, IT IS STRONGLY RECOMME
NDED";Q1$;.@-... "THAT A BACK-UP COPY OF
THE DICTIONARY".X-... Q3$;"DISK BE TAKE
N .BEFORE. ANY MAINTENANCE";Q1$;..-... "
ACTIVITY BE UNDER-TAKEN.".Z-J.. MO.21 .
."....INSERT THE DICTIONARY DISK IN DRIV
E 0":.3560...T.. "...INSERT THE DICTIONA
RY DISK IN DRIVE 0".C.... MO.62 . ."..FI
LE NOT FOUND - INSERT CORRECT DISK".R...
Q.38:.3380.I....A$:. A$."" . 3570.R...MO
.0.X.......... *************** PRINT DIC
TIONARY ROUTINE ************************
...... MO.6 . Q.28:. 3380:.3750...$..60:
Q.23...... 3380../8.. 4,4: J1.3:CR$.G(13
).)/B.. B$:. B$."" . 3650.H/L.. B$."Y" .
CR$.G(10):.3680.]/V.. B$.."N" . 3650.L/
`.Q.24:.3380../J.. A$:. A$."" . 3690../T
.. A$."Y" . 3750../~.. A$.."N" . 3690../
... 1450.A/..Q.25.Y/... 3380:. 3930:.390
0..0... G.1 . 26:L.G:L$.TK$(G):J1.3:JC.0
..0... MO.6 . 3780."0..Q.25:. 3380.-0D..
3930.I0N.WC%(G).JC:. MO.6 . 3820.Y0X..4
,SP$;CR$;.M0... A$."Q" . 3900.U0... G..0
... 60:. "...LETTER WORDS LETTERS
WORDS":V3.0..0... G.1 . 13:V1$.D(WC%(G)
):V2$.D(WC%(G.13)):V3.V3.WC%(G).WC%(G.13
)..1... " ";G(64.G);H(SP$,10.C(V1$));V1
$;.21);.B1... G(77.G);H(SP$,11.C(V2$));V
2$.J1... G.U1(.. "..TOTAL WORDS IN DICTI
ONARY ==>";V3.12.. 970..1<..4,SP$;CR$;:
4..1F..380..1P.. ************* ROUTINE
TO PRINT WORDS FOR ONE LETTER *********
****..1Z.RS.S%(L):RE.E%(L)..2D.. 3310..2
N.WD$.L$. 2X.. I.2 . 254..2..ZX.RL%(I).T
2... ZX.126 . ZX.127 . ZX.254 . 4160.H2.
.. ZX.255 . 4220.Z2 .. ZX.0 . 4170..2..E
W.ZX.128..2..CH.ZX.127..2..WD$.WD$.TK$(C
H)..2H.. EW.0 . 4160.V2R.JC.JC.1:. MO.6
. 4150..2... C(WD$).19 . J1..(J1.2).2.1:
. 4100..3..J1.J1.1:J2.J1..(J1.4).4.L3...
J2..3 . .4,WD$;H(SP$,20.C(WD$));:J3.1:.
4150.X3...4,WD$;H(SP$,20.C(WD$));CR$;:J3
.0:.4150..3..J1.J1.1:J2.J1..(J1.4).4..3.
.. J2.0 . J3.1 . .4,CR$;..3... J2..2 . .
4,WD$;H(SP$,40.C(WD$));:J3.1:.4140..4"..
4,WD$;H(SP$,40.C(WD$));CR$;:J3.0..4,.J1.
J1.1..46.WD$.L$.'4@.. I.74J.ZX.RL%(1).2.
T4T.. ZX..I . . "BLOCK LENGTH ERROR DETE
CTED";ZX;I:. PA,PC:...4^..A$:.A$."" . 42
10..4H.. A$."Q" . 4230..4R.. RS.RE . RS.
RS.1:.3940.B4|..A$.H4.....5... *********
******* PRINT DICTIONARY DIRECTORY *****
****************..5... 60:."..".;5... TF
$(41):. ".";TF$(42).K5... I.U1 . U2..5..
V1$.D(S%(I)):V2.E%(I).1:V2$.D(V2):V3.E%(
I).S%(I):V3$.D(V3)..5B.V4.S%(I.1).E%(I):
V4$.D(V4):V5.V5.V3:V6.V6.V4..5L.. G(I.64
);H(SP$,7.C(V1$));V1$;H(SP$,11.C(V2$));V
2$;."6V.. H(SP$,6.C(V3$));V3$;H(SP$,8.C(
V4$));V4$;.>6... CO.40 . . Q1$;:. 4380.O
6... H(SP$,12);..6..V1$.D(S%(I.13)):V2.E
%(I.13).1:V2$.D(V2):V3.E%(I.13).S%(I.13)
.O6..V3$.D(V3):V4.S%(I.14).E%(I.13):V4$.
D(V4):V7.V7.V3:V8.V8.V4..7... G(I.77);H(
SP$,7.C(V1$));V1$;H(SP$,11.C(V2$));V2$;.
57... H(SP$,6.C(V3$));V3$;H(SP$,8.C(V4$)
);V4$.=7... I.C7&....70.. *************
PRINT DICTIONARY DIRECTORY SUMMARY *****
***********..7:.V5$.D(V5):V6$.D(V6):V7$.
D(V7):V8$.D(V8) ..7D.. ".";.9);"TOTALS =
=>";:. CO.40 . 4460..8N.. H(SP$,6.C(V5$)
);V5$;H(SP$,8.C(V6$));V6$;.H8X.. H(SP$,3
1);H(SP$,6.C(V7$));V7$;H(SP$,C(V8$));V8$
.S8B.. 4480..8L.. H(SP$,6.C(V5$));V5$;H(
SP$,8.C(V6$));V6$..8V.. U2.13 . V7.V5:V8
.V6:V5.0:V6.0:. 4510.Z8..V5.V5.V7:V6.V6.
V8:V7..(10000.(V5.MX)).100..9... "TOTAL
USED ==>";V5;" + DIRECTORY (1)":."TOTAL
FREE ==>";V6.K9... "PER-CENT OF DICTIONA
RY USED ==>";V7;"%".Q9.....9... ********
******** CONTROL DICTIONARY DIRECTORY DI
SPLAY ***********.J9..U1.1:U2.13:V5.0:V6
.0:V7.0:V8.0:. 4250:. 4410..9... CO.80 .
4590..9F.Q.8:. 3380..:P.. A$:. A$."" .4
560..:Z.. A$.."Y" . . 4560.9:..U1.14:U2.
26:. 4250: . 4410.I:..Q.26:. 3380.`:...
A$:. A$."" .4600.T:... A$."N" . 5640..:.
.. A$.."Y" . . 4600..:..Q.27:. 3380..: .
. A$:. A$."" .4640.F:*.. A$."N" . 5230..
:4.. A$.."Y" . . 4630..:>.. CO.80 . 4690
..;H.U1.1:U2.13:. 4250.';R.. "...."; .9)
;". NEW .";Q1$;.F;\.. CO.80 . . .54);".
NEW ."._;F.. .9);".START.";Q1$;.~;P.. CO
.80 . . .54);".START."..;Z.. II.50 . J.0
:. 4810..;... IJ.U1 . U2:V1$.D(NS%(IJ)).
J;... U2.26 . 4780..;... ".";H(DN$,4.IJ)
;.10);H(SP$,4.C(V1$));".";V1$..<... 4790
.;<... ".";H(DN$,IJ.9);.10);H(SP$,4.C(V1
$));".";V1$.D<... IJ.O<... 4820.A<J..II.
1.26:J.II.T<T.. CO.40 . 4850..<..TF$."EN
TER NEW START NUMBER FOR ".G(64.J)." AND
/OR RETURN.".F<... 3390:. 4870..=..TF$."
NEW START NUMBER FOR ".G(J.64)." AND/OR
RETURN."..=... 3390.!=... NS%(J).0 . 489
0.A=..V1$.D(NS%(J)):NU$."":. 4900.F=..V1
$.D(S%(J)):NU$."":NS%(J).S%(J).X=$.. J.1
3 . 4930..=... ".";H(DN$,4.J);.10);H(SP$
,4.C(V1$));".";V1$..=8.. 5020.H=B.. CO.8
0 . 5010..=L.. U2.26 . 4990..>V.U1.14:U2
.26:V5$.V1$:. 4250:V1$.V5$..>`.. "....";
.9);". NEW .".1>J.. .9);".START.".;>T..4
850.M>~.. ".";H(DN$,J.9);.10);H(SP$,4.C(
V1$));".";V1$.X>... 5020..>... ".";H(DN$
,J.9);.55);H(SP$,4.C(V1$));".";V1$..>...
J.1 . 5170.R>... A$:. A$."" .5030..>...
A$.G(13) . 5100..>... A$."Q" . 5230..?D
.. A$."0". A$."9" . 5030.'?N.NU$.NU$.A$.
Q?X.NU.E(NU$):. NU . MX.2.(26.J).2 . 516
0.H?..V1$." ".NU$: .4900.}?... NU$.."" .
5130..?... NS%(J)..0 . 5170..?..NU.S%(J
):. 5140..?..NU.E(NU$).Q?... NU.NS%(J.1)
.2 . 5160..?..NS%(J).NU:.5170..@(.Q.29:.
3380:. ZZ.1.500:.ZZ:. 4820..@2.. II.50
. 5190.'@<.. II.7@F.Q.30:. 3380.N@P.. A$
:. A$."" .5200.B@Z.. A$."Y" . 5240.Y@D..
A$.."N" . . 5200..@N.. 5340..@X.Q.31:.
3380..@... A$:. A$."" . 5250.I@... A$."A
" . A$."Z" . 5250.Q@..J.0..@ .J.J.1:. A$
.J(AB$,J,1) . 5300..@...5280..A..II.100.
J:. J.0.0:.J:J.II.100.0A... CO.80 . 4820
.UAH.. J.13 . U1.14:U2.26:.4250:.4690.RA
R.U1.1:U2.13:. 4250:. 4690.}A... 2490..A
...2,8,2,"0:DICTIONARY,L,".G(254).EA...3
,8,3,"1:DICTIONARY,L,".G(254)..A... I.1
. 26:A$.J(AB$,I,1)..B..TF$."COPY PROCEED
ING: WORKING ON ".A$:. 3390.3B..RS.S%(I)
:RE.E%(I):RO.NS%(I).CB... J.RS . RE.WB".
RF.2:RR.J:.6740.LB,.RF.3:RR.RO:.6740.XB6
..#2,PR$..B@.. K.2 . 254..BJ.. ST.0 . .#
2,A$:.5470..BT.A$.G(0)..B^.PR$.PR$.A$.EB
H.. K.QBR..3,PR$;..B|.RO.RO.1..B... J..C
..EH..((RO.1).256):EL.RO.1.EH.256.)C..RM
%(I.2.103).(128.(EL.127)).KC..RM%(I.2.10
4).(128.(EL.128).2).KC..RM%(I.2.155).(12
8.(EH.127))..C..RM%(I.2.156).(128.(EH.12
8).2)..CB.. I..CL.RF.3:RR.1:.6740..CV.PR
$.G(RM%(1)).KC... P.2 . 254..C..PR$.PR$.
G(RM%(P))..C... P..C...3,PR$;..C... 380.
GD... ************ BUILD INPUT LIST OF W
ORDS FOR DELETION *************.ZD... 60
:I.0:J1.QC.JD&.Q.33:. 3380.D0.I.I.1:.I.
80.6000..D:.. ".";H(DN$,21);SP$;BX$;H(AX
$,5);"WORD #";I;" = ";.IDD.AA$."":. PE,
0..DN..A$:. A$."" . 5710..EX.. A$.G(13)
. ." ";:. PE,1:. 5840..EB.. A$.G(20) . 5
810.#EL.J.0.DEV.J.J.1:. A$.J(AB$,J,1) .
5780.VE... J.26 . 5710.AE... 5750.PE..AA
$.AA$.A$.YE...A$;..E... 5710..E...C(AA$)
.1 . AA$.H(AA$,C(AA$).1):. 5790.ME...C(A
A$).1 . AA$."":. 5790.XEF.. 5700..EP.Q.3
4:. 3380..EZ..A$:. A$."" . 5850..F... A$
."Y" . 5890.)F... A$.. "N" . 5850.:F..I.
I.1:. 5670.[F... C(AA$).19 . J1..(J1.2).
2.1.GF..J1.J1.1..F..CL.20.(J1..(J1.QB).Q
B):RW..(J1.QB).1..F .. ".";H(DN$,RW);H(A
X$,CL);AA$.LF*.. C(AA$).19 . J1.J1.1..F4
.WL$(I).AA$..F>.Q.35:. 3380..GH..A$:. A$
."" . 5960..GR.. A$."Y" . 5670.+G\.. A$.
."N" . 5960.<GF.. I.1 . 6060.LGP.. K.1 .
I.1.[GZ.. L.K.1. I.VG... WL$(K).WL$(L)
. 6040..G..AA$.WL$(K):WL$(K).WL$(L):WL$(
L).AA$..G... L..G... K..G..WL$(I.1)." ".
RG..WE.1:WS.1:NW.I..G... KA.1 . 26:M.0:J
1.QC..GJ.. WE.NW . 6550..HT.L$.J(AB$,KA,
1).0H... L$..H(WL$(WE),1) . 6130.CH..WE.
WE.1:. 6110.~H... WE.WS . 6550: . NO W
ORDS TO DELETE GET NEXT LETTER..H..RS.S%
(KA):WE.WE.1..H... 60..H..Q.36:. 3380.BH
... WE.WS.1 . 6500..H$.. 3310:SW.2:WC.0:
WD$.L$..H..I.1..H8.I.I.1..HB.ZX.RL%(I).$
IL.. ZX.126 . ZX.127 . ZX.254 . 6490.8IV
.. ZX.255 . 6510.JI`.. ZX.0 . 6500.XIJ.E
W.ZX.128.FIT.CH.ZX.127.ZI~.WD$.WD$.TK$(C
H)..I... EW.0 . 6490..I..WC.WC.1:LW.I.1.
SW:SW.I.1..I..L.WS.JI... WD$.WL$(L) . 63
40..I..L.L.1:. L..WE . 6310..I...6480..I
D.M.M.1..JN.DW%(M,1).RS..JX.DW%(M,2).WC.
*J..DW%(M,3).SW.LW.:J..DW%(M,4).LW.NJ...
L1.L.1 . NW.1.EJ..WL$(L1.1).WL$(L1) .~J
... L1:NW.NW.1:WE.WE.1..J..J1.J1.1..J(.C
L.20.(J1..(J1.QB).QB):RW..(J1.QB).1.UJ2.
. ".";H(DN$,RW);H(AX$,CL);WD$..J<.. C(WD
$).19 . J1.J1.1..KF.. WE.WS.1 . 6500..KP
.WD$.L$."KZ.. I.254 . 6200.DKD.. RS..E%(
KA) . RS.RS.1:. 6170.UKN.. M.0 . 6550.DK
X.K.M.1:L.KA.OK... 1750..K..WS.WE.1:WE.W
S..K... KA..K .. NW.0 . 6700..K... 60..
K..Q.37..K... 3380:J1.QC.OKH.. I.1 . NW.
.KR.WD$.WL$(I)..K... C(WD$).19 . J1..(J1
.2).2.1..L..J1.J1.1.4L..CL.20.(J1..(J1.Q
B).QB):RW..(J1.QB).1.VL... ".";H(DN$,RW)
;H(AX$,CL);WD$.PL... C(WD$).19 . J1.J1.1
.XL... I..L...A$:. A$."" . 6680..L".. A$
.."Y" . 6680..L,.. 380..L6.. ***********
********** I/O SUPPORT FOR BASIC 2 *****
**************.7M@..1,D6$,D7$,D8$,D9$:D9
.E(D6$):D9$.D6$.",".D7$.",".D8$.",".D9$.
=MJ...[MT.R9..(RR.256):R8.RR.R9.256.}M^.
.1,"P"G(96.RF)G(R8)G(R9)G(1);..MC..1,"P"
G(96.RF)G(R8)G(R9)G(1);:...MH.. ********
************* INITIALIZATION ROUTINE ***
*****************.#NR.CO.80:Q1$.G(32):Q2
$."":Q3$.G(13):Q4$.G(142):Q5$.G(14).IN|.
Q6$.".. ":Q7$." ":QA.80:QB.4
:QC.3:Q8$."4":Q9$." "..N..PA.144:PB.
88:PC.85:PD.150:PE.167:PF.32832..N... IN
PUT "HOW MANY COLUMNS",CO..N... B(44).8
. CO.40:.53280,14:.53281,6:."."./O..BA$.
".
.":.CO.80. BA$.BA$.BA$.ZO..AX$.".......
........................................
.................".COB.BX$."............
............................":. CO.80 .
BX$.BX$.BX$..OL.DN$."...................
......":DO.23:. PA,PB..PV.. 3060: . CALL
COMERCIAL.\P..MX.650 :. MAXIMUM RECORDS
ON DISK (CAN BE CHANGED FOR 8050,8250,9
090)..P...S%(27),E%(26),TK$(127),R1%(254
),RL%(254),RO%(254),WE%(160),DW%(100,4).
.P... WP%(160),NS%(26),RM%(254),WL$(80),
TF$(50),WC%(26)..Q..AB$."ABCDEFGHIJKLMNO
PQRSTUVWXYZ"."Q... I.0 . 127: . TK$(I):.
I.EQ..NS%(1).2:. I.2 . 26:. RD:NS%(I).N
S%(I.1)..(RD.1565.MX.0.4):. I..Q..SP$."
"
:. CO.80 . SP$.SP$.SP$.XQ&.WE%(0).1:S%(2
7).MX:NS%(0).0:MO.0:TX.0..Q0..1,8,15 :.
COMMAND CHANNEL. R:.TE$."DICTIONARY MAIN
TENANCE PROGRAM"./RD.TF$(1)." ".IRN.TF$(
2)."INITIALIZING".{RX.TF$(3)."SELECT FUN
CTION 'A' OR FUNCTION 'B'."..RB.TF$(4)."
LOADING DIRECTORY".ARL.TF$(5)."SELECT OP
TION (1-7) ===> ".VRV.TF$(6)."WORKING"..
S..TF$(7)."DO YOU WANT THE NEXT SCREEN (
Y/N).".+S..TF$(8)."READY TO CONTINUE? (Y
).".JS..TF$(9)."NO WORDS FOR THIS LETTER
- READY TO CONTINUE? (Y)"..S..TF$(10)."
DELETE WORD OR CONTINUE PROCESS (D/C).".
VS..TF$(11)."ENTER ROW & COLUMN OF WORD
TO BE DELETED"..T..TF$(12)."ENTER COLUMN
OF WORD TO BE DELETED.".7T..TF$(13)."EN
TER ROW OF WORD TO BE DELETED.".WTF.TF$(
14)."ENTER FIRST LETTER OF WORDS TO BE D
ISPLAYED ===> "..TP.TF$(15)."UPDATING UN
DERWAY - WORKING".TTZ.TF$(16)."THIS TAKE
S TIME - PLEASE BE PATIENT."..U..TF$(17)
."I AM STILL WORKING AS HARD AS I CAN.".
.U..TF$(18)."WRITING DIRECTORY RECORD".F
U..TF$(19)."DO YOU WISH TO INITIALIZE TH
E DISK (Y/N)."..U..TF$(20)."INITIALIZING
- NAME 'RTC DICTIONARY'".KU..TF$(21)."
INITIALIZING DICTIONARY DIRECTORY "..U..
TF$(22)."ARE YOU READY TO CONTINUE (Y/N)
.".;V .TF$(23)."DO YOU WANT LINE FEEDS S
ENT TO YOUR PRINTER (Y/N).".}V*.TF$(24).
"DO YOU WANT TO PRINT THE COMPLETE DICTI
ONARY (Y/N).".DV4.TF$(25)."WORKING - PRE
SS Q TO QUIT PRINTING AT END OF THIS BLO
CK."..V>.TF$(26)."DO YOU WANT TO COPY TH
E DICTIONARY(Y/N).".<WH.TF$(27)."DO YOU
WANT TO CHANGE THE SPACE ALLOCATIONS (Y/
N).".SWR.TF$(28)."COUNTING"..W\.TF$(29).
"*** ERROR - PLEASE RE-ENTER ****"..WF.T
F$(30)."DO YOU WANT TO CHANGE ANY VALUES
(Y/N)."..WP.TF$(31)."ENTER THE LETTER F
OR THE VALUE YOU WANT TO CHANGE.".>XZ.TF
$(33)."ENTER WORD TO BE DELETED FOLLOWED
BY A CARRIAGE RETURN".ZX..TF$(34)."PLEA
SE CONFIRM ACCEPTANCE OF THIS WORD (Y/N)
."..X..TF$(35)."IS THERE ANOTHER WORD TO
BE ENTERED (Y/N)."..X..TF$(36)."WORDS F
OUND; BEING DELETED".$Y..TF$(37)."WORDS
NOT FOUND - HENCE NOT DELETED: PRESS Y T
O CONTINUE.".MY..TF$(38)."PRESS ANY KEY
TO CONTINUE.".|Y..TF$(39).".1.
.2. "..Y..TF$(40).".3.
.4.".RYJ.TF$(41)."
DIRECTORY "..ZT.TF$(42)."
START END USED UNUSED"..Z...
CO.80 . 7590.NZ..Q1$.G(13):Q2$." ":Q3
$."":Q6$.".. ":Q8$."2":Q7$."".SZ..QA.40
:QB.2:QC.1:Q9$." ":PF.32790..Z..PA.144:P
B.52:PC.49:PD.144:PE.204:PF.1046:.??????
?????????? FOR 64..Z..TF$(9)."EMPTY - RE
ADY YO CONTINUE"..[..TF$(11)."ROW & COLU
MN OF WORD TO BE DELETED ?".B[..TF$(14).
"DISPLAY WORDS FOR WHICH LETTER ?".L[$.T
F$(19)."INITIALIZE THE DISK ? (Y/N)"..[.
.TF$(23)."SEND LINE FEEDS TO PRINTER ? (
Y/N)".M[8.TF$(24)."PRINT COMPLETE DICTIO
NARY ? (Y/N)"..[B.TF$(25)."PRESS Q TO ST
OP AT END OF BLOCK".%\L.TF$(26)."COPY TH
E DICTIONARY ? (Y/N)".Y\V.TF$(27)."CHANG
E THE SPACE ALLOCATIONS ? (Y/N)."..\`.TF
$(30)."CHANGE ANY VALUES ? (Y/N)."..\J.T
F$(31)."WHICH LETTER ? ".U\T.TF$(33)."E
NTER WORD TO BE DELETED, THEN RETURN"..]
~.TF$(34)."CONFIRM ACCEPTANCE OF THIS WO
RD (Y/N).".<]..TF$(35)."ANOTHER WORD TO
BE ENTERED ? (Y/N).".P]..TF$(37)."WORDS
NOT FOUND: PRESS Y TO CONTINUE.".{]... 7
620..]..TF$(39).TF$(39).Q7$.TF$(40)..]..
TF$(41).TF$(41).Q7$.TF$(41)..]..TF$(42).
TF$(42).Q7$." ".TF$(42)..]D.. ".",Q5$..
]X...<^... *********** DATA TO TRANSLATE
TOKENIZED DICTIONARY **************.X^.
.. !,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,AT
E..^... BLE,OUS,IST,TIC,ARY,PLE,ANE,TCH,
TLE,AGE,EAR,OUR,EED,ES,EA,OO.>_... EE,IA
,AI,OU,AU,QU,ECT,CT,IE,EI,CK,RE,TH,AKE,S
TER,ST,PER,ERT.._... LAR,NCT,PL,AR,ER,OS
,TEN,EPT,TR,EN,TT,TER,ON,SP,SC,EL,RT,CH,
AL.F_... LL,NN,DD,PP,RR,CAL,UI,IN,NTER,N
T,RY,UA,AND,ANT,AN,ND,PER,NSTR..`(.. ENT
,DGE,LAT,OLD,END,TAL,SS,PH,THER,ACT,ECT,
LA,LE,\,^.?`2.. 103,84,148,79,60,70,56,6
2,59,15,17,56,88,33,36,133,9,71.[`<.. 18
2,89,27,28,47,5,6,5...
> CLICK IMAGE PREVIEW FOR FULL MODAL