ADDRESS MANAGER
FILE INFORMATION
FILENAME(S): ADDRESS MANAGER
FILE TYPE(S): PRG
FILE SIZE: 10.1K
FIRST SEEN: 2025-11-30 18:14:59
APPEARS ON: 1 disk(s)
FILE HASH
4acdd2c36469965e9f8b06c3b73791536b3e3f3fe43b57a41274e8d5d648490f
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TEST | ADDRESS MANAGER | PRG | Sailor, Lex | 11 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 40 08 0A 00 8F 20 2A 41 44 44 52 45 53 53 |..@.... *ADDRESS|
00000010: 20 4D 41 4E 41 47 45 52 2A 20 42 59 20 42 45 52 | MANAGER* BY BER|
00000020: 4E 41 52 44 20 48 41 42 45 54 20 28 43 29 20 31 |NARD HABET (C) 1|
00000030: 39 38 33 20 20 41 42 52 41 53 43 4F 20 4C 54 44 |983 ABRASCO LTD|
00000040: 00 93 08 50 00 43 4F 24 B2 22 1D 1D 1D 1D 1D 1D |...P.CO$."......|
00000050: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000060: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000070: 1D 1D 22 3A 4C 4E 24 B2 22 11 11 11 11 11 11 11 |..":LN$.".......|
00000080: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000090: 11 11 22 00 C8 08 55 00 99 22 93 22 3A 97 35 33 |.."...U..".":.53|
000000A0: 32 38 30 2C 36 3A 97 35 33 32 37 32 2C 32 33 3A |280,6:.53272,23:|
000000B0: 99 C7 28 38 29 3A 97 35 34 32 39 36 2C 31 35 3A |..(8):.54296,15:|
000000C0: 97 35 34 32 37 37 2C 30 00 FE 08 8C 00 97 35 34 |.54277,0......54|
000000D0: 32 37 38 2C 32 34 30 3A 86 4E 24 28 35 30 2C 31 |278,240:.N$(50,1|
000000E0: 30 29 2C 53 24 28 35 30 2C 31 30 29 2C 41 24 28 |0),S$(50,10),A$(|
000000F0: 31 30 29 2C 43 28 31 30 29 3A 89 32 34 30 00 12 |10),C(10):.240..|
00000100: 09 96 00 8D 39 30 30 30 3A 8B 50 36 B2 32 A7 32 |....9000:.P6.2.2|
00000110: 34 30 00 5F 09 9B 00 99 22 93 D0 4C 45 41 53 45 |40._...."..LEASE|
00000120: 20 45 4E 54 45 52 20 4E 41 4D 45 20 4F 46 20 46 | ENTER NAME OF F|
00000130: 49 4C 45 20 54 4F 20 42 45 20 4C 4F 41 44 45 44 |ILE TO BE LOADED|
00000140: 22 3A 99 22 11 28 CD 41 58 20 12 31 36 92 20 4C |":.".(.AX .16. L|
00000150: 45 54 54 45 52 53 29 20 22 3B 3A 50 34 B2 31 00 |ETTERS) ";:P4.1.|
00000160: 80 09 A0 00 50 33 B2 31 36 3A 8D 33 30 30 30 30 |....P3.16:.30000|
00000170: 3A 8D 35 35 30 30 3A 8B 50 36 B2 32 A7 31 35 35 |:.5500:.P6.2.155|
00000180: 00 CB 09 A5 00 99 22 11 11 D0 4C 45 41 53 45 20 |......"...LEASE |
00000190: 4C 4F 41 44 20 59 4F 55 52 20 44 41 54 41 20 44 |LOAD YOUR DATA D|
000001A0: 49 53 4B 20 49 4E 20 44 52 49 56 45 20 30 22 3A |ISK IN DRIVE 0":|
000001B0: 99 22 11 12 C8 49 54 20 41 4E 59 20 4B 45 59 22 |."...IT ANY KEY"|
000001C0: 3A 8D 31 30 30 30 30 3A 49 B2 30 00 11 0A AA 00 |:.10000:I.0.....|
000001D0: 99 22 11 11 D0 4C 45 41 53 45 20 48 4F 4C 44 20 |."...LEASE HOLD |
000001E0: 57 48 49 4C 45 20 4C 4F 41 44 49 4E 47 20 44 41 |WHILE LOADING DA|
000001F0: 54 41 22 3A 9F 31 2C 38 2C 32 2C 50 24 3A 8D 39 |TA":.1,8,2,P$:.9|
00000200: 35 30 30 3A 8B 50 36 B2 31 A7 A0 31 3A 89 32 34 |500:.P6.1..1:.24|
00000210: 30 00 1E 0A B4 00 81 20 4A B2 30 A4 35 30 00 51 |0...... J.0.50.Q|
00000220: 0A C8 00 84 31 2C 4E 24 28 4A 2C 49 29 3A 8B 4E |....1,N$(J,I):.N|
00000230: 24 28 4A 2C 49 29 B2 22 5E 22 A7 4E 24 28 4A 2C |$(J,I)."^".N$(J,|
00000240: 49 29 B2 22 22 3A 43 28 49 29 B2 4A 3A 89 32 33 |I)."":C(I).J:.23|
00000250: 30 00 72 0A D2 00 84 31 2C 53 24 28 4A 2C 49 29 |0.r....1,S$(J,I)|
00000260: 3A 8B 53 24 28 4A 2C 49 29 B3 B1 22 2A 22 A7 32 |:.S$(J,I).."*".2|
00000270: 32 30 00 7C 0A D3 00 42 24 B2 22 22 00 A1 0A D4 |20.|...B$.""....|
00000280: 00 A1 23 31 2C 41 24 3A 8B 41 24 B2 C7 28 31 33 |..#1,A$:.A$..(13|
00000290: 29 A7 53 24 28 4A 2C 49 29 B2 42 24 3A 89 32 32 |).S$(J,I).B$:.22|
000002A0: 30 00 B3 0A D6 00 42 24 B2 42 24 AA 41 24 3A 89 |0.....B$.B$.A$:.|
000002B0: 32 31 32 00 BB 0A DC 00 82 20 4A 00 D0 0A E6 00 |212...... J.....|
000002C0: 49 B2 49 AA 31 3A 8B 49 B3 B2 31 30 A7 31 38 30 |I.I.1:.I..10.180|
000002D0: 00 E2 0A EB 00 A0 31 3A A0 31 35 3A 8D 32 30 30 |......1:.15:.200|
000002E0: 30 30 00 27 0B F0 00 99 22 93 22 3B 3A 8D 33 35 |00.'....".";:.35|
000002F0: 35 30 30 3A 99 22 12 81 20 20 20 20 C1 A0 C4 A0 |500:.".. ....|
00000300: C4 A0 D2 A0 C5 A0 D3 A0 D3 A0 A0 A0 CD A0 C1 A0 |................|
00000310: CE A0 C1 A0 C7 A0 C5 A0 D2 20 20 20 20 92 9A 22 |......... .."|
00000320: 3A 8D 33 35 35 30 30 00 57 0B FA 00 99 22 11 11 |:.35500.W...."..|
00000330: 1D 1D 1D 12 81 20 D0 52 45 53 53 20 92 9A 20 43 |..... .RESS .. C|
00000340: 4F 52 52 45 53 50 4F 4E 44 49 4E 47 20 4E 55 4D |ORRESPONDING NUM|
00000350: 42 45 52 20 54 4F 22 00 A1 0B 0E 01 99 22 1D 1D |BER TO"......"..|
00000360: 1D 41 43 43 45 53 53 20 54 48 45 20 46 4F 4C 4C |.ACCESS THE FOLL|
00000370: 4F 57 49 4E 47 20 46 41 43 49 4C 49 54 49 45 53 |OWING FACILITIES|
00000380: 22 3A 99 A3 35 29 22 11 11 81 12 20 31 20 92 9A |":..5)".... 1 ..|
00000390: 20 20 C1 44 44 20 41 4E 20 41 44 44 52 45 53 53 | .DD AN ADDRESS|
000003A0: 22 00 ED 0B 2C 01 99 A3 35 29 22 11 81 12 20 32 |"...,...5)"... 2|
000003B0: 20 92 9A 20 20 C3 48 41 4E 47 45 20 41 4E 20 41 | .. .HANGE AN A|
000003C0: 44 44 52 45 53 53 22 3A 99 A3 35 29 22 11 81 12 |DDRESS":..5)"...|
000003D0: 20 33 20 92 9A 20 20 D3 45 41 52 43 48 20 46 4F | 3 .. .EARCH FO|
000003E0: 52 20 41 4E 20 41 44 44 52 45 53 53 22 00 3C 0C |R AN ADDRESS".<.|
000003F0: 40 01 99 A3 35 29 22 11 81 12 20 34 20 92 9A 20 |@...5)"... 4 .. |
00000400: 20 CE 41 4D 45 20 44 49 53 50 4C 41 59 20 42 59 | .AME DISPLAY BY|
00000410: 20 4C 45 54 54 45 52 22 3A 99 A3 35 29 22 11 81 | LETTER":..5)"..|
00000420: 12 20 35 20 92 9A 20 20 CC 4F 41 44 20 44 41 54 |. 5 .. .OAD DAT|
00000430: 41 20 46 52 4F 4D 20 44 49 53 4B 22 00 82 0C 59 |A FROM DISK"...Y|
00000440: 01 99 A3 35 29 22 11 81 12 20 36 20 92 9A 20 20 |...5)"... 6 .. |
00000450: D0 52 49 4E 54 20 41 44 44 52 45 53 53 45 53 22 |.RINT ADDRESSES"|
00000460: 3A 99 A3 35 29 22 11 12 81 20 37 20 92 9A 20 20 |:..5)"... 7 .. |
00000470: C3 48 45 43 4B 20 46 52 45 45 20 4D 45 4D 4F 52 |.HECK FREE MEMOR|
00000480: 59 22 00 AD 0C 5B 01 99 22 11 1D 1D 1D 1D 1D 81 |Y"...[..".......|
00000490: 12 20 38 20 92 9A 20 20 D3 41 56 45 20 44 41 54 |. 8 .. .AVE DAT|
000004A0: 41 20 2F 20 D3 49 47 4E 2D 4F 46 46 22 00 CF 0C |A / .IGN-OFF"...|
000004B0: 5C 01 49 45 B2 30 3A 4E 53 B2 30 3A 46 37 B2 30 |\.IE.0:NS.0:F7.0|
000004C0: 3A 46 36 B2 30 3A 46 35 B2 30 3A 46 34 B2 30 00 |:F6.0:F5.0:F4.0.|
000004D0: 0C 0D 5E 01 8D 31 30 30 30 30 3A 91 C5 28 41 24 |..^..10000:..(A$|
000004E0: 29 89 35 31 35 2C 31 32 30 30 2C 32 30 30 30 2C |).515,1200,2000,|
000004F0: 32 31 30 30 2C 31 35 30 2C 32 35 30 30 2C 34 35 |2100,150,2500,45|
00000500: 30 30 2C 31 30 30 30 3A 89 33 35 30 00 20 0D 03 |00,1000:.350. ..|
00000510: 02 8D 39 30 30 30 3A 8B 50 36 B2 32 A7 32 34 30 |..9000:.P6.2.240|
00000520: 00 3F 0D 04 02 99 22 93 22 3B 3A 8B B8 28 30 29 |.?....".";:..(0)|
00000530: B3 35 30 30 A7 8D 35 30 30 30 3A 89 32 34 30 00 |.500..5000:.240.|
00000540: 5B 0D 05 02 81 4E B2 30 A4 31 30 3A 41 24 28 4E |[....N.0.10:A$(N|
00000550: 29 B2 22 22 3A 82 3A 49 45 B2 30 00 8B 0D 08 02 |)."":.:IE.0.....|
00000560: 99 22 93 D0 4C 45 41 53 45 20 45 4E 54 45 52 20 |."..LEASE ENTER |
00000570: 54 48 45 20 46 4F 4C 4C 4F 57 49 4E 47 20 49 4E |THE FOLLOWING IN|
00000580: 46 4F 52 4D 41 54 49 4F 4E 3A 22 00 BE 0D 09 02 |FORMATION:".....|
00000590: 8B 49 45 B2 31 A7 99 22 C8 49 54 20 12 20 43 55 |.IE.1..".IT . CU|
000005A0: 52 53 4F 52 20 44 4F 57 4E 20 92 20 54 4F 20 53 |RSOR DOWN . TO S|
000005B0: 4B 49 50 20 4C 49 4E 45 22 3A 89 35 32 33 00 C4 |KIP LINE":.523..|
000005C0: 0D 0A 02 99 00 F6 0D 0B 02 99 22 C8 49 54 20 12 |..........".IT .|
000005D0: 20 4E 20 92 20 49 46 20 49 4E 46 4F 52 4D 41 54 | N . IF INFORMAT|
000005E0: 49 4F 4E 20 49 53 20 12 4E 4F 54 20 41 56 41 49 |ION IS .NOT AVAI|
000005F0: 4C 41 42 4C 45 22 00 38 0E 0D 02 99 22 C8 49 54 |LABLE".8....".IT|
00000600: 20 12 20 5F 20 92 20 4F 4E 43 45 20 46 49 4E 49 | . _ . ONCE FINI|
00000610: 53 48 45 44 20 45 4E 54 45 52 49 4E 47 20 41 20 |SHED ENTERING A |
00000620: 20 50 41 52 41 2D 22 3A 99 22 20 20 20 20 20 20 | PARA-":." |
00000630: 20 20 47 52 41 50 48 22 00 67 0E 0F 02 99 22 11 | GRAPH".g....".|
00000640: D3 D5 D2 CE C1 CD C5 20 20 3A 20 20 22 3B 3A 4E |....... : ";:N|
00000650: B2 30 3A 4E 55 B2 31 39 3A 99 41 24 28 30 29 3B |.0:NU.19:.A$(0);|
00000660: 3A 8D 33 35 30 30 30 00 8F 0E 12 02 99 22 CE C1 |:.35000......"..|
00000670: CD C5 20 20 20 20 20 3A 20 20 22 3B 3A 4E B2 31 |.. : ";:N.1|
00000680: 3A 99 41 24 28 31 29 3B 3A 8D 33 35 30 30 30 00 |:.A$(1);:.35000.|
00000690: CF 0E 16 02 99 22 11 11 C1 C4 C4 D2 C5 D3 D3 20 |....."......... |
000006A0: 20 3A 20 20 22 3B 3A 8B 41 24 28 32 29 B2 22 4E | : ";:.A$(2)."N|
000006B0: 22 A7 99 22 CE 4F 54 20 C1 56 41 49 4C 41 42 4C |"..".OT .VAILABL|
000006C0: 45 22 3B 3A 8D 33 34 30 30 30 3A 89 35 33 37 00 |E";:.34000:.537.|
000006D0: EC 0E 17 02 4E B2 32 3A 4E 55 B2 32 37 3A 99 41 |....N.2:NU.27:.A|
000006E0: 24 28 32 29 3B 3A 8D 33 35 30 30 30 00 12 0F 19 |$(2);:.35000....|
000006F0: 02 4E 55 B2 32 37 3A 81 4E B2 33 A4 38 3A 99 A3 |.NU.27:.N.3.8:..|
00000700: 31 32 29 41 24 28 4E 29 3B 3A 8D 33 35 30 30 30 |12)A$(N);:.35000|
00000710: 3A 82 00 52 0F 1C 02 99 22 11 11 D4 C5 CC C5 D0 |:..R....".......|
00000720: C8 CF CE C5 3A 20 20 22 3B 3A 8B 41 24 28 39 29 |....: ";:.A$(9)|
00000730: B2 22 4E 22 A7 99 22 CE 4F 54 20 C1 56 41 49 4C |."N"..".OT .VAIL|
00000740: 41 42 4C 45 22 3B 3A 8D 33 34 30 30 30 3A 89 35 |ABLE";:.34000:.5|
00000750: 34 33 00 69 0F 1D 02 4E B2 39 3A 99 41 24 28 39 |43.i...N.9:.A$(9|
00000760: 29 3B 3A 8D 33 35 30 30 30 00 86 0F 1F 02 4E B2 |);:.35000.....N.|
00000770: 31 30 3A 99 A3 31 32 29 41 24 28 31 30 29 3B 3A |10:..12)A$(10);:|
00000780: 8D 33 35 30 30 30 00 9B 0F 23 02 8B 49 45 B2 31 |.35000...#..IE.1|
00000790: A7 43 4F B2 31 32 3A 89 35 35 37 00 D3 0F 26 02 |.CO.12:.557...&.|
000007A0: 43 4F B2 31 32 3A 4C 4E B2 37 3A 8D 32 39 38 30 |CO.12:LN.7:.2980|
000007B0: 30 3A 50 33 B2 31 39 3A 50 34 B2 33 3A 8D 33 30 |0:P3.19:P4.3:.30|
000007C0: 30 30 30 3A 8D 33 30 33 33 30 3A 41 24 28 30 29 |000:.30330:A$(0)|
000007D0: B2 50 24 00 00 10 27 02 41 B2 C6 28 41 24 28 30 |.P$...'.A..(A$(0|
000007E0: 29 AA C7 28 30 29 29 3A 8B 41 B3 31 39 33 B0 41 |)..(0)):.A.193.A|
000007F0: B1 32 31 38 A7 99 22 91 91 91 22 3A 89 35 35 30 |.218.."...":.550|
00000800: 00 37 10 28 02 99 A3 31 31 29 3B 3A 50 34 B2 31 |.7.(...11);:P4.1|
00000810: 3A 8D 33 30 30 30 30 3A 8D 33 30 33 33 30 3A 41 |:.30000:.30330:A|
00000820: 24 28 31 29 B2 50 24 3A 41 B2 C6 28 41 24 28 31 |$(1).P$:A..(A$(1|
00000830: 29 AA C7 28 30 29 29 00 53 10 2B 02 8B 41 B3 31 |)..(0)).S.+..A.1|
00000840: 39 33 B0 41 B1 32 31 38 A7 99 22 91 91 22 3A 89 |93.A.218.."..":.|
00000850: 35 35 32 00 6F 10 2C 02 41 24 28 31 29 B2 41 24 |552.o.,.A$(1).A$|
00000860: 28 30 29 AA C7 28 33 32 29 AA 41 24 28 31 29 00 |(0)..(32).A$(1).|
00000870: 9F 10 2D 02 4C 4E B2 31 31 3A 8D 32 39 38 30 30 |..-.LN.11:.29800|
00000880: 3A 50 33 B2 32 37 3A 50 34 B2 31 3A 8D 32 39 39 |:P3.27:P4.1:.299|
00000890: 30 30 3A 8B 50 24 B3 B1 22 4E 22 A7 35 36 30 00 |00:.P$.."N".560.|
000008A0: E8 10 2F 02 41 24 28 32 29 B2 22 4E 22 3A 99 A3 |../.A$(2)."N":..|
000008B0: 31 32 29 22 91 CE 4F 54 20 C1 56 41 49 4C 41 42 |12)"..OT .VAILAB|
000008C0: 4C 45 22 3A 81 4E B2 33 A4 38 3A 41 24 28 4E 29 |LE":.N.3.8:A$(N)|
000008D0: B2 22 22 3A 99 A3 31 32 29 3B 3A 8D 33 35 30 30 |."":..12);:.3500|
000008E0: 30 3A 82 3A 89 35 36 37 00 FB 10 30 02 8B 50 24 |0:.:.567...0..P$|
000008F0: B2 22 11 22 A7 99 3A 89 35 36 33 00 12 11 31 02 |."."..:.563...1.|
00000900: 41 24 28 32 29 B2 50 24 3A 8B 50 36 B2 31 A7 35 |A$(2).P$:.P6.1.5|
00000910: 36 37 00 45 11 33 02 50 34 B2 30 3A 81 4E B2 33 |67.E.3.P4.0:.N.3|
00000920: A4 38 3A 99 A3 31 31 29 3B 3A 8D 32 39 39 30 30 |.8:..11);:.29900|
00000930: 3A 8B 50 24 B2 22 11 22 AF 41 24 28 4E 29 B2 22 |:.P$.".".A$(N)."|
00000940: 22 A7 35 36 37 00 62 11 34 02 8B 50 24 B2 22 11 |".567.b.4..P$.".|
00000950: 22 AF 41 24 28 4E 29 B3 B1 22 22 A7 99 3A 89 35 |".A$(N)..""..:.5|
00000960: 36 36 00 79 11 35 02 41 24 28 4E 29 B2 50 24 3A |66.y.5.A$(N).P$:|
00000970: 8B 50 36 B2 31 A7 35 36 37 00 80 11 36 02 82 4E |.P6.1.567...6..N|
00000980: 00 A0 11 37 02 4E B2 32 3A 4D B2 38 3A 8D 32 38 |...7.N.2:M.8:.28|
00000990: 30 30 30 3A 8D 33 30 33 34 30 3A 53 24 B2 50 24 |000:.30340:S$.P$|
000009A0: 00 CA 11 3A 02 4C 4E B2 32 30 3A 8D 32 39 38 30 |...:.LN.20:.2980|
000009B0: 30 3A 50 34 B2 31 3A 8D 32 39 39 30 30 3A 8B 50 |0:P4.1:.29900:.P|
000009C0: 24 B3 B1 22 4E 22 A7 35 37 34 00 0B 12 3C 02 41 |$.."N".574...<.A|
000009D0: 24 28 39 29 B2 22 4E 22 3A 99 A3 31 32 29 22 91 |$(9)."N":..12)".|
000009E0: CE 4F 54 20 C1 56 41 49 4C 41 42 4C 45 22 3A 41 |.OT .VAILABLE":A|
000009F0: 24 28 31 30 29 B2 22 22 3A 99 A3 31 32 29 3B 3A |$(10)."":..12);:|
00000A00: 8D 33 35 30 30 30 3A 89 35 39 30 00 1E 12 3E 02 |.35000:.590...>.|
00000A10: 8B 50 24 B2 22 11 22 A7 99 3A 89 35 37 38 00 35 |.P$."."..:.578.5|
00000A20: 12 40 02 41 24 28 39 29 B2 50 24 3A 8B 50 36 B2 |.@.A$(9).P$:.P6.|
00000A30: 31 A7 35 39 30 00 61 12 42 02 50 34 B2 30 3A 99 |1.590.a.B.P4.0:.|
00000A40: A3 31 31 29 3A 8D 32 39 39 30 30 3A 8B 50 24 B2 |.11):.29900:.P$.|
00000A50: 22 11 22 AF 41 24 28 31 30 29 B2 22 22 A7 35 39 |".".A$(10)."".59|
00000A60: 30 00 7F 12 44 02 8B 50 24 B2 22 11 22 AF 41 24 |0...D..P$.".".A$|
00000A70: 28 31 30 29 B3 B1 22 22 A7 99 3A 89 35 39 30 00 |(10)..""..:.590.|
00000A80: 8D 12 46 02 41 24 28 31 30 29 B2 50 24 00 A8 12 |..F.A$(10).P$...|
00000A90: 4E 02 4E B2 39 3A 4D B2 31 30 3A 8D 32 38 30 30 |N.N.9:M.10:.2800|
00000AA0: 30 3A 8D 33 30 33 34 30 00 C4 12 53 02 53 24 B2 |0:.30340...S.S$.|
00000AB0: 53 24 AA 22 5F 22 AA 50 24 3A 8B 49 45 B2 31 A7 |S$."_".P$:.IE.1.|
00000AC0: 31 36 33 30 00 E6 12 5D 02 99 3A 99 22 41 43 43 |1630...]..:."ACC|
00000AD0: 45 50 54 22 3B 3A 8D 31 31 30 30 30 3A 8B 50 36 |EPT";:.11000:.P6|
00000AE0: B2 32 A7 35 31 37 00 24 13 62 02 99 22 93 C8 41 |.2.517.$.b.."..A|
00000AF0: 4E 47 2D 4F 4E 20 57 48 49 4C 45 20 50 4F 53 54 |NG-ON WHILE POST|
00000B00: 49 4E 47 22 3A 49 B2 B5 28 28 C6 28 41 24 28 31 |ING":I..((.(A$(1|
00000B10: 29 29 AB 31 39 33 29 AD 32 29 3A 8B 49 B1 39 A7 |)).193).2):.I.9.|
00000B20: 49 B2 31 30 00 3A 13 6C 02 4A B2 43 28 49 29 3A |I.10.:.l.J.C(I):|
00000B30: 8B 4A B1 B2 35 30 A7 36 35 30 00 5D 13 76 02 4E |.J..50.650.].v.N|
00000B40: 24 28 4A 2C 49 29 B2 41 24 28 31 29 3A 43 28 49 |$(J,I).A$(1):C(I|
00000B50: 29 B2 43 28 49 29 AA 31 3A 89 36 38 30 00 8E 13 |).C(I).1:.680...|
00000B60: 8A 02 8D 32 30 30 30 30 3A 99 22 93 D3 4F 52 52 |...20000:."..ORR|
00000B70: 59 20 2D 20 D4 48 49 53 20 50 41 47 45 20 49 53 |Y - .HIS PAGE IS|
00000B80: 20 46 55 4C 4C 2D 55 50 22 3A 89 37 30 35 00 AB | FULL-UP":.705..|
00000B90: 13 A8 02 53 24 28 4A 2C 49 29 B2 53 24 3A 46 31 |...S$(J,I).S$:F1|
00000BA0: B2 31 3A 8B 4A B2 30 A7 37 30 30 00 C7 13 B8 02 |.1:.J.0.700.....|
00000BB0: 8B 20 4E 24 28 4A 2C 49 29 B3 4E 24 28 4A AB 31 |. N$(J,I).N$(J.1|
00000BC0: 2C 49 29 A7 37 35 30 00 06 14 BC 02 8D 32 30 30 |,I).750......200|
00000BD0: 30 30 3A 99 22 11 11 CF CB 22 3A 99 22 11 11 12 |00:."....":."...|
00000BE0: 22 35 31 AB 43 28 49 29 22 9D 20 C5 4E 54 52 49 |"51.C(I)". .NTRI|
00000BF0: 45 53 20 4C 45 46 54 20 49 4E 20 54 48 49 53 20 |ES LEFT IN THIS |
00000C00: 50 41 47 45 92 22 00 31 14 C1 02 99 22 11 11 C1 |PAGE.".1...."...|
00000C10: 4E 59 20 4F 54 48 45 52 20 45 4E 54 52 59 22 3B |NY OTHER ENTRY";|
00000C20: 3A 8D 31 31 30 30 30 3A 8B 50 36 B2 31 A7 35 31 |:.11000:.P6.1.51|
00000C30: 35 00 3A 14 C6 02 89 32 34 30 00 64 14 EE 02 53 |5.:....240.d...S|
00000C40: B2 4A 3A 81 4A B2 53 A4 31 A9 AB 31 3A 8B 4E 24 |.J:.J.S.1..1:.N$|
00000C50: 28 4A 2C 49 29 B1 B2 4E 24 28 4A AB 31 2C 49 29 |(J,I)..N$(J.1,I)|
00000C60: A7 37 30 30 00 76 14 07 03 8D 20 39 30 30 3A 82 |.700.v.... 900:.|
00000C70: 4A 3A 89 37 30 30 00 A4 14 84 03 42 24 B2 4E 24 |J:.700.....B$.N$|
00000C80: 28 4A AB 31 2C 49 29 3A 4E 24 28 4A AB 31 2C 49 |(J.1,I):N$(J.1,I|
00000C90: 29 B2 4E 24 28 4A 2C 49 29 3A 4E 24 28 4A 2C 49 |).N$(J,I):N$(J,I|
00000CA0: 29 B2 42 24 00 D4 14 8E 03 42 24 B2 53 24 28 4A |).B$.....B$.S$(J|
00000CB0: AB 31 2C 49 29 3A 53 24 28 4A AB 31 2C 49 29 B2 |.1,I):S$(J.1,I).|
00000CC0: 53 24 28 4A 2C 49 29 3A 53 24 28 4A 2C 49 29 B2 |S$(J,I):S$(J,I).|
00000CD0: 42 24 3A 8E 00 E3 14 E8 03 8B 46 31 B2 31 A7 31 |B$:.......F1.1.1|
00000CE0: 30 31 35 00 F2 14 ED 03 99 22 93 22 3A 89 31 31 |015......".":.11|
00000CF0: 37 30 00 30 15 F2 03 99 C7 28 39 29 3A 97 35 33 |70.0.....(9):.53|
00000D00: 32 37 32 2C 32 31 3A 97 35 33 32 38 30 2C 31 34 |272,21:.53280,14|
00000D10: 3A 99 22 93 11 22 A3 38 29 22 4F 4B 2C 20 4E 4F |:."..".8)"OK, NO|
00000D20: 57 20 53 49 47 4E 49 4E 47 2D 4F 46 46 22 3A 80 |W SIGNING-OFF":.|
00000D30: 00 7C 15 F7 03 99 22 93 D9 4F 55 20 48 41 56 45 |.|...."..OU HAVE|
00000D40: 20 4D 41 44 45 20 53 4F 4D 45 20 41 4C 54 45 52 | MADE SOME ALTER|
00000D50: 41 54 49 4F 4E 53 22 3A 99 22 11 C4 4F 20 59 4F |ATIONS":."..O YO|
00000D60: 55 20 57 49 53 48 20 54 4F 20 53 41 56 45 20 54 |U WISH TO SAVE T|
00000D70: 48 45 4D 22 3B 3A 8D 31 31 30 30 30 00 8B 15 FA |HEM";:.11000....|
00000D80: 03 8B 50 36 B2 32 A7 31 31 37 30 00 D2 15 03 04 |..P6.2.1170.....|
00000D90: 99 22 93 D0 4C 45 41 53 45 20 45 4E 54 45 52 20 |."..LEASE ENTER |
00000DA0: 4E 41 4D 45 20 4F 46 20 46 49 4C 45 20 54 4F 20 |NAME OF FILE TO |
00000DB0: 42 45 20 53 41 56 45 44 22 3A 99 22 11 28 CD 41 |BE SAVED":.".(.A|
00000DC0: 58 20 12 31 36 92 20 4C 45 54 54 45 52 53 29 20 |X .16. LETTERS) |
00000DD0: 22 3B 00 F9 15 04 04 50 34 B2 31 3A 50 33 B2 31 |";.....P4.1:P3.1|
00000DE0: 36 3A 8D 33 30 30 30 30 3A 8D 35 35 30 30 3A 8B |6:.30000:.5500:.|
00000DF0: 50 36 B2 32 A7 31 30 32 37 00 2D 16 06 04 42 24 |P6.2.1027.-...B$|
00000E00: B2 50 24 3A 99 22 11 D0 4C 45 41 53 45 20 4C 4F |.P$:."..LEASE LO|
00000E10: 41 44 20 59 4F 55 52 20 44 41 54 41 20 44 49 53 |AD YOUR DATA DIS|
00000E20: 4B 20 49 4E 20 44 52 49 56 45 20 30 22 00 78 16 |K IN DRIVE 0".x.|
00000E30: 15 04 99 22 11 12 C8 49 54 20 41 4E 59 20 4B 45 |..."...IT ANY KE|
00000E40: 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 92 11 22 |Y TO CONTINUE.."|
00000E50: 3A 8D 31 30 30 30 30 3A 99 22 D0 4C 45 41 53 45 |:.10000:.".LEASE|
00000E60: 20 48 4F 4C 44 20 57 48 49 4C 45 20 53 41 56 49 | HOLD WHILE SAVI|
00000E70: 4E 47 20 44 41 54 41 22 00 AB 16 2E 04 49 B2 30 |NG DATA".....I.0|
00000E80: 3A 9F 31 2C 38 2C 32 2C 22 40 30 3A 22 AA 42 24 |:.1,8,2,"@0:".B$|
00000E90: AA 22 2C 53 2C 57 22 3A 8D 39 35 30 30 3A 8B 50 |.",S,W":.9500:.P|
00000EA0: 36 B2 31 A7 A0 31 3A 89 32 34 30 00 B7 16 31 04 |6.1..1:.240...1.|
00000EB0: 81 4A B2 30 A4 35 30 00 D4 16 33 04 8B 4E 24 28 |.J.0.50...3..N$(|
00000EC0: 4A 2C 49 29 B2 22 22 A7 98 31 2C 22 5E 22 3A 89 |J,I).""..1,"^":.|
00000ED0: 31 31 32 30 00 FA 16 38 04 98 31 2C 4E 24 28 4A |1120...8..1,N$(J|
00000EE0: 2C 49 29 3A 8B C3 28 53 24 28 4A 2C 49 29 29 B1 |,I):..(S$(J,I)).|
00000EF0: B2 37 39 A7 98 31 2C 22 2A 22 00 0C 17 42 04 98 |.79..1,"*"...B..|
00000F00: 31 2C 53 24 28 4A 2C 49 29 3A 82 4A 00 22 17 60 |1,S$(J,I):.J.".`|
00000F10: 04 49 B2 49 AA 31 3A 8B 49 B3 B2 31 30 A7 31 30 |.I.I.1:.I..10.10|
00000F20: 37 33 00 2D 17 6A 04 A0 31 3A A0 31 35 00 6E 17 |73.-.j..1:.15.n.|
00000F30: 7E 04 8D 32 30 30 30 30 3A 99 22 11 C4 4F 20 59 |~..20000:."..O Y|
00000F40: 4F 55 20 57 49 53 48 20 54 4F 20 53 41 56 45 20 |OU WISH TO SAVE |
00000F50: 54 48 45 4D 20 41 47 41 49 4E 22 3B 3A 8D 31 31 |THEM AGAIN";:.11|
00000F60: 30 30 30 3A 8B 50 36 B2 31 A7 31 30 32 37 00 A2 |000:.P6.1.1027..|
00000F70: 17 92 04 99 22 11 C4 4F 20 59 4F 55 20 57 49 53 |...."..O YOU WIS|
00000F80: 48 20 54 4F 20 53 49 47 4E 2D 4F 46 46 20 22 3B |H TO SIGN-OFF ";|
00000F90: 3A 8D 31 31 30 30 30 3A 8B 50 36 B2 31 A7 31 30 |:.11000:.P6.1.10|
00000FA0: 31 30 00 AB 17 A1 04 89 32 34 30 00 BF 17 B0 04 |10......240.....|
00000FB0: 8D 39 30 30 30 3A 8B 50 36 B2 32 A7 32 34 30 00 |.9000:.P6.2.240.|
00000FC0: DE 17 B3 04 99 22 93 22 3B 3A 8B B8 28 30 29 B3 |.....".";:..(0).|
00000FD0: 35 30 30 A7 8D 35 30 30 30 3A 89 32 34 30 00 11 |500..5000:.240..|
00000FE0: 18 B5 04 99 22 93 C5 4E 54 45 52 20 12 D3 55 52 |...."..NTER ..UR|
00000FF0: 4E 41 4D 45 20 26 20 CE 41 4D 45 92 20 46 4F 52 |NAME & .AME. FOR|
00001000: 20 41 4C 54 45 52 41 54 49 4F 4E 22 3A 4E 53 B2 | ALTERATION":NS.|
00001010: 30 00 53 18 BA 04 46 33 B2 30 3A 50 33 B2 33 36 |0.S...F3.0:P3.36|
00001020: 3A 50 34 B2 32 3A 8D 33 30 30 30 30 3A 41 24 B2 |:P4.2:.30000:A$.|
00001030: 50 24 3A 41 B2 C6 28 41 24 29 3A 8B 41 B3 31 39 |P$:A..(A$):.A.19|
00001040: 33 B0 41 B1 32 31 38 A7 99 22 91 22 3B 3A 89 31 |3.A.218..".";:.1|
00001050: 32 31 30 00 70 18 C4 04 49 B2 B5 28 28 41 AB 31 |210.p...I..((A.1|
00001060: 39 33 29 AD 32 29 3A 8B 49 B1 39 A7 49 B2 31 30 |93).2):.I.9.I.10|
00001070: 00 8F 18 CE 04 81 4A B2 30 A4 43 28 49 29 3A 8B |......J.0.C(I):.|
00001080: 4E 24 28 4A 2C 49 29 B2 41 24 A7 31 34 39 30 00 |N$(J,I).A$.1490.|
00001090: 96 18 D5 04 82 4A 00 E5 18 D8 04 99 22 11 CE 4F |.....J......"..O|
000010A0: 20 52 45 43 4F 52 44 20 4F 46 20 54 48 49 53 20 | RECORD OF THIS |
000010B0: 4E 41 4D 45 22 3A 8D 32 30 30 30 30 3A 99 22 CE |NAME":.20000:.".|
000010C0: 4F 57 20 53 45 41 52 43 48 49 4E 47 20 46 4F 52 |OW SEARCHING FOR|
000010D0: 20 50 4F 53 53 49 42 4C 45 20 41 4C 54 45 52 4E | POSSIBLE ALTERN|
000010E0: 41 54 49 56 45 00 FD 18 EC 04 5A 42 B2 30 3A 5A |ATIVE.....ZB.0:Z|
000010F0: 54 B2 30 3A 81 4A B2 30 A4 43 28 49 29 00 2B 19 |T.0:.J.0.C(I).+.|
00001100: 00 05 8B C8 28 4E 24 28 4A 2C 49 29 2C C3 28 41 |....(N$(J,I),.(A|
00001110: 24 29 29 B2 41 24 A7 5A 42 B2 4A 3A 5A 54 B2 4A |$)).A$.ZB.J:ZT.J|
00001120: 3A 46 33 B2 31 3A 89 31 32 39 33 00 3E 19 0A 05 |:F3.1:.1293.>...|
00001130: 82 4A 3A 8B 46 33 B3 B1 31 A7 31 32 39 36 00 54 |.J:.F3..1.1296.T|
00001140: 19 0D 05 4A B2 4A AA 31 3A 8B 4A B1 B2 35 31 A7 |...J.J.1:.J..51.|
00001150: 31 32 39 38 00 7B 19 0E 05 8B C8 28 4E 24 28 4A |1298.{.....(N$(J|
00001160: 2C 49 29 2C C3 28 41 24 29 29 B2 41 24 A7 5A 54 |,I),.(A$)).A$.ZT|
00001170: B2 5A 54 AA 31 3A 89 31 32 39 33 00 85 19 0F 05 |.ZT.1:.1293.....|
00001180: 89 31 32 39 38 00 AD 19 10 05 99 22 D3 4F 52 52 |.1298......".ORR|
00001190: 59 20 4E 4F 54 48 49 4E 47 20 43 4C 4F 53 45 22 |Y NOTHING CLOSE"|
000011A0: 3A 8B 46 34 B2 31 A7 46 34 B2 32 3A 8E 00 BB 19 |:.F4.1.F4.2:....|
000011B0: 11 05 99 3A 99 3A 89 31 38 37 30 00 EA 19 12 05 |...:.:.1870.....|
000011C0: 99 22 C9 20 C8 41 56 45 20 46 4F 55 4E 44 20 54 |.". .AVE FOUND T|
000011D0: 48 45 20 46 4F 4C 4C 4F 57 49 4E 47 3A 22 3A 8D |HE FOLLOWING:":.|
000011E0: 32 30 30 30 30 3A 4E B2 5A 42 00 17 1A 1E 05 99 |20000:N.ZB......|
000011F0: 22 11 D2 C5 C3 CF D2 C4 20 CE 4F 22 2C 22 CE C1 |"....... .O","..|
00001200: CD C5 22 3A 99 22 A3 A3 A3 A3 A3 A3 A3 A3 A3 22 |..":."........."|
00001210: 2C 22 A3 A3 A3 A3 22 00 25 1A 46 05 81 4D B2 4E |,"....".%.F..M.N|
00001220: A4 4E AA 31 35 00 34 1A 4B 05 8B 4D B1 5A 54 A7 |.N.15.4.K..M.ZT.|
00001230: 31 33 38 32 00 4C 1A 5A 05 99 22 1D 1D 22 4D AA |1382.L.Z..".."M.|
00001240: 31 2C 4E 24 28 4D 2C 49 29 3A 82 4D 00 7F 1A 66 |1,N$(M,I):.M...f|
00001250: 05 99 22 11 D0 52 45 53 53 20 12 20 43 20 92 20 |.."..RESS . C . |
00001260: 54 4F 20 43 4F 4E 54 49 4E 55 45 20 53 43 41 4E |TO CONTINUE SCAN|
00001270: 20 12 20 53 20 92 20 54 4F 20 53 54 4F 50 22 00 | . S . TO STOP".|
00001280: B1 1A 68 05 99 22 12 20 52 20 92 20 54 4F 20 52 |..h..". R . TO R|
00001290: 45 53 54 41 52 54 20 53 43 41 4E 20 4F 52 20 12 |ESTART SCAN OR .|
000012A0: 20 43 4F 52 52 45 53 50 4F 4E 44 49 4E 47 20 92 | CORRESPONDING .|
000012B0: 22 00 E1 1A 6A 05 99 22 4E 55 4D 42 45 52 20 54 |"...j.."NUMBER T|
000012C0: 4F 20 41 43 43 45 53 53 20 50 4F 54 45 4E 54 49 |O ACCESS POTENTI|
000012D0: 41 4C 20 52 45 43 4F 52 44 22 3A 8D 32 30 30 30 |AL RECORD":.2000|
000012E0: 30 00 20 1B 6E 05 99 22 11 45 4E 54 45 52 20 4E |0. .n..".ENTER N|
000012F0: 4F 57 3A 20 22 3B 3A 50 33 B2 32 3A 50 34 B2 31 |OW: ";:P3.2:P4.1|
00001300: 3A 8D 33 30 30 30 30 3A 8B 50 24 B2 22 52 22 A7 |:.30000:.P$."R".|
00001310: 4E B2 5A 42 3A 99 22 93 22 3B 3A 89 31 33 31 30 |N.ZB:.".";:.1310|
00001320: 00 42 1B 82 05 8B 50 24 B2 22 43 22 AF 4D B3 B2 |.B....P$."C".M..|
00001330: 5A 54 A7 4E B2 4D 3A 99 22 93 22 3B 3A 89 31 33 |ZT.N.M:.".";:.13|
00001340: 31 30 00 52 1B 87 05 8B 50 24 B2 22 53 22 A7 32 |10.R....P$."S".2|
00001350: 34 30 00 75 1B 89 05 58 B2 C5 28 50 24 29 3A 8B |40.u...X..(P$):.|
00001360: 58 B3 B2 30 B0 58 B1 4D A7 99 22 91 91 91 22 3A |X..0.X.M.."...":|
00001370: 89 31 33 39 30 00 7F 1B 8C 05 4A B2 58 AB 31 00 |.1390.....J.X.1.|
00001380: 87 1B D2 05 45 B2 30 00 C0 1B DC 05 99 22 93 22 |....E.0......"."|
00001390: A3 31 30 29 22 D2 45 43 4F 52 44 20 CE 55 4D 42 |.10)".ECORD .UMB|
000013A0: 45 52 3A 22 4A AA 31 3A 99 A3 31 30 29 22 A3 A3 |ER:"J.1:..10)"..|
000013B0: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 22 |..............."|
000013C0: 00 D6 1B E8 05 8D 32 37 30 30 30 3A 8B 46 35 B2 |......27000:.F5.|
000013D0: 31 A7 31 35 31 34 00 06 1C E9 05 58 B2 B5 28 32 |1.1514.....X..(2|
000013E0: 30 AB 4C 4C AD 32 29 3A 99 A3 58 29 4E 54 24 3A |0.LL.2):..X)NT$:|
000013F0: 99 A3 58 29 3A 81 58 B2 31 A4 4C 4C 3A 99 22 2D |..X):.X.1.LL:."-|
00001400: 22 3B 3A 82 3A 99 00 2C 1C EA 05 8D 32 37 31 30 |";:.:..,....2710|
00001410: 30 3A 41 24 B2 22 CE 4F 54 20 C1 56 41 49 4C 41 |0:A$.".OT .VAILA|
00001420: 42 4C 45 22 3A 8B 46 35 B2 31 A7 8E 00 62 1C F0 |BLE":.F5.1...b..|
00001430: 05 99 22 11 12 81 C1 44 44 52 45 53 53 3A 92 9A |.."....DDRESS:..|
00001440: 22 3A 99 22 2D 2D 2D 2D 2D 2D 2D 2D 22 3A 8B 41 |":."--------":.A|
00001450: 24 28 32 29 B2 22 4E 22 A7 99 41 24 3A 89 31 35 |$(2)."N"..A$:.15|
00001460: 32 36 00 6D 1C F3 05 99 41 24 28 32 29 00 A7 1C |26.m....A$(2)...|
00001470: F6 05 99 22 11 12 81 D4 45 4C 45 50 48 4F 4E 45 |..."....ELEPHONE|
00001480: 3A 92 9A 22 3A 99 22 2D 2D 2D 2D 2D 2D 2D 2D 2D |:..":."---------|
00001490: 2D 22 3A 8B 41 24 28 33 29 B2 22 4E 22 A7 99 41 |-":.A$(3)."N"..A|
000014A0: 24 3A 89 31 35 32 39 00 B2 1C F8 05 99 41 24 28 |$:.1529......A$(|
000014B0: 33 29 00 E4 1C F9 05 99 A3 38 29 22 11 2A 2A 2A |3).......8)".***|
000014C0: 20 20 C5 4E 44 20 D2 45 43 4F 52 44 20 20 2A 2A | .ND .ECORD **|
000014D0: 2A 22 3A 8D 32 30 30 30 30 3A 8B 49 45 B2 31 A7 |*":.20000:.IE.1.|
000014E0: 31 35 37 30 00 F4 1C FF 05 8B 4A B1 B2 35 30 A7 |1570......J..50.|
000014F0: 31 35 36 37 00 11 1D 04 06 8B 4E 24 28 4A 2C 49 |1567......N$(J,I|
00001500: 29 B3 B1 4E 24 28 4A AA 31 2C 49 29 A7 31 35 36 |)..N$(J.1,I).156|
00001510: 37 00 5D 1D 0E 06 99 22 11 1D 1D D4 48 45 52 45 |7.]...."....HERE|
00001520: 20 49 53 20 41 4E 4F 54 48 45 52 20 52 45 43 4F | IS ANOTHER RECO|
00001530: 52 44 20 49 4E 20 54 48 41 54 20 4E 41 4D 45 22 |RD IN THAT NAME"|
00001540: 3A 99 A3 31 30 29 22 12 48 49 54 20 41 4E 59 20 |:..10)".HIT ANY |
00001550: 4B 45 59 20 54 4F 20 56 49 45 57 92 22 00 91 1D |KEY TO VIEW."...|
00001560: 15 06 99 A3 31 30 29 22 12 4F 52 20 48 49 54 20 |....10)".OR HIT |
00001570: 20 53 20 20 54 4F 20 20 53 54 4F 50 22 3A 8D 31 | S TO STOP":.1|
00001580: 30 30 30 30 3A 8B 41 24 B2 22 53 22 A7 31 35 36 |0000:.A$."S".156|
00001590: 37 00 A1 1D 1D 06 4A B2 4A AA 31 3A 89 31 35 30 |7.....J.J.1:.150|
000015A0: 30 00 B0 1D 1F 06 8B 4E 53 B2 31 A7 32 30 32 30 |0......NS.1.2020|
000015B0: 00 BC 1D 20 06 8B 46 34 B2 31 A7 8E 00 F7 1D 22 |... ..F4.1....."|
000015C0: 06 99 22 11 C9 53 20 41 4C 54 45 52 41 54 49 4F |.."..S ALTERATIO|
000015D0: 4E 2F 44 45 4C 45 54 49 4F 4E 20 52 45 51 55 49 |N/DELETION REQUI|
000015E0: 52 45 44 22 3B 3A 8D 31 31 30 30 30 3A 8B 50 36 |RED";:.11000:.P6|
000015F0: B2 32 A7 31 38 32 30 00 05 1E 41 06 8B 4A B2 30 |.2.1820...A..J.0|
00001600: A7 31 36 30 37 00 22 1E 42 06 8B 4E 24 28 4A 2C |.1607.".B..N$(J,|
00001610: 49 29 B3 B1 4E 24 28 4A AB 31 2C 49 29 A7 31 36 |I)..N$(J.1,I).16|
00001620: 30 37 00 5B 1E 43 06 99 22 11 C5 4E 54 45 52 20 |07.[.C.."..NTER |
00001630: D2 45 43 4F 52 44 20 CE 4F 2E 20 54 4F 20 42 45 |.ECORD .O. TO BE|
00001640: 20 41 4C 54 45 52 45 44 22 3B 3A 50 33 B2 32 3A | ALTERED";:P3.2:|
00001650: 50 34 B2 31 3A 8D 33 30 30 30 30 00 81 1E 44 06 |P4.1:.30000...D.|
00001660: 8B C5 28 50 24 29 B3 B2 30 B0 C5 28 50 24 29 B1 |..(P$)..0..(P$).|
00001670: 43 28 49 29 A7 99 22 91 91 91 22 3A 89 31 36 30 |C(I).."...":.160|
00001680: 33 00 8F 1E 45 06 4A B2 C5 28 50 24 29 AB 31 00 |3...E.J..(P$).1.|
00001690: C2 1E 47 06 99 22 91 C8 49 54 20 12 20 44 20 92 |..G.."..IT . D .|
000016A0: 20 54 4F 20 44 45 4C 45 54 45 2C 20 CF 54 48 45 | TO DELETE, .THE|
000016B0: 52 57 49 53 45 20 48 49 54 20 41 4E 59 20 4B 45 |RWISE HIT ANY KE|
000016C0: 59 22 00 F6 1E 4D 06 8D 31 30 30 30 30 3A 8B 41 |Y"...M..10000:.A|
000016D0: 24 B2 22 44 22 A7 99 22 11 C8 41 4E 47 20 4F 4E |$."D".."..ANG ON|
000016E0: 20 57 48 49 4C 45 20 44 45 4C 45 54 49 4E 47 22 | WHILE DELETING"|
000016F0: 3A 89 31 37 35 30 00 33 1F 4F 06 99 22 93 22 3B |:.1750.3.O..".";|
00001700: 3A 8D 32 37 30 30 30 3A 8D 32 37 31 30 30 3A 53 |:.27000:.27100:S|
00001710: 24 B2 41 24 28 32 29 3A 54 24 B2 41 24 28 33 29 |$.A$(2):T$.A$(3)|
00001720: 3A 81 4E B2 32 A4 31 30 3A 41 24 28 4E 29 B2 22 |:.N.2.10:A$(N)."|
00001730: 22 3A 82 00 67 1F 54 06 51 B2 32 3A 50 24 B2 53 |":..g.T.Q.2:P$.S|
00001740: 24 3A 8D 32 37 32 30 30 3A 51 B2 39 3A 50 24 B2 |$:.27200:Q.9:P$.|
00001750: 54 24 3A 8D 32 37 32 30 30 3A 45 B2 31 3A 49 45 |T$:.27200:E.1:IE|
00001760: B2 31 3A 89 35 32 30 00 81 1F 5E 06 53 24 28 4A |.1:.520...^.S$(J|
00001770: 2C 49 29 B2 53 24 3A 46 31 B2 31 3A 89 31 35 30 |,I).S$:F1.1:.150|
00001780: 30 00 A7 1F D6 06 53 B2 4A 3A 46 31 B2 31 3A 81 |0.....S.J:F1.1:.|
00001790: 4A B2 53 A4 35 30 3A 8B 4E 24 28 4A 2C 49 29 B2 |J.S.50:.N$(J,I).|
000017A0: 22 22 A7 31 38 31 33 00 CD 1F EF 06 8B 4A B2 35 |"".1813......J.5|
000017B0: 30 A7 4E 24 28 4A 2C 49 29 B2 22 22 3A 53 24 28 |0.N$(J,I)."":S$(|
000017C0: 4A 2C 49 29 B2 22 22 3A 89 31 38 31 33 00 F8 1F |J,I)."":.1813...|
000017D0: F4 06 4E 24 28 4A 2C 49 29 B2 4E 24 28 4A AA 31 |..N$(J,I).N$(J.1|
000017E0: 2C 49 29 3A 53 24 28 4A 2C 49 29 B2 53 24 28 4A |,I):S$(J,I).S$(J|
000017F0: AA 31 2C 49 29 3A 82 4A 00 26 20 15 07 43 28 49 |.1,I):.J.& ..C(I|
00001800: 29 B2 43 28 49 29 AB 31 3A 99 22 1D CF CB 2C 20 |).C(I).1:."..., |
00001810: 46 49 4C 45 20 44 45 4C 45 54 45 44 22 3A 8D 32 |FILE DELETED":.2|
00001820: 30 30 30 30 3A 99 00 56 20 1C 07 99 22 11 C1 4E |0000:..V ..."..N|
00001830: 59 20 4F 54 48 45 52 20 41 4C 54 45 52 41 54 49 |Y OTHER ALTERATI|
00001840: 4F 4E 22 3B 3A 8D 31 31 30 30 30 3A 8B 50 36 B2 |ON";:.11000:.P6.|
00001850: 31 A7 31 32 30 30 00 5F 20 26 07 89 32 34 30 00 |1.1200._ &..240.|
00001860: 6E 20 4E 07 8B 4E 53 B2 31 A7 32 30 32 30 00 7D |n N..NS.1.2020.}|
00001870: 20 58 07 8B 4E 53 B2 30 A7 31 38 32 30 00 91 20 | X..NS.0.1820.. |
00001880: D0 07 8D 39 30 30 30 3A 8B 50 36 B2 32 A7 32 34 |...9000:.P6.2.24|
00001890: 30 00 CB 20 DA 07 99 22 93 C5 4E 54 45 52 20 12 |0.. ..."..NTER .|
000018A0: D3 55 52 4E 41 4D 45 20 26 20 CE 41 4D 45 92 20 |.URNAME & .AME. |
000018B0: 54 4F 20 46 49 4E 44 20 41 44 44 52 45 53 53 22 |TO FIND ADDRESS"|
000018C0: 3A 4E 53 B2 31 3A 89 31 32 31 30 00 06 21 E4 07 |:NS.1:.1210..!..|
000018D0: 4E 53 B2 30 3A 99 22 11 C1 4E 59 20 4F 54 48 45 |NS.0:."..NY OTHE|
000018E0: 52 20 41 44 44 52 45 53 53 20 52 45 51 55 49 52 |R ADDRESS REQUIR|
000018F0: 45 44 22 3B 3A 8D 31 31 30 30 30 3A 8B 50 36 B2 |ED";:.11000:.P6.|
00001900: 31 A7 32 30 30 30 00 0F 21 0C 08 89 32 34 30 00 |1.2000..!...240.|
00001910: 44 21 34 08 99 22 93 C5 4E 54 45 52 20 4C 45 54 |D!4.."..NTER LET|
00001920: 54 45 52 20 46 4F 52 20 57 48 49 43 48 20 50 41 |TER FOR WHICH PA|
00001930: 47 45 20 52 45 51 55 49 52 45 44 3A 22 3A 8D 31 |GE REQUIRED:":.1|
00001940: 30 30 30 30 00 60 21 43 08 41 B2 C6 28 41 24 29 |0000.`!C.A..(A$)|
00001950: 3A 8B 41 B3 36 35 B0 41 B1 39 30 A7 32 31 30 30 |:.A.65.A.90.2100|
00001960: 00 7C 21 48 08 49 B2 B5 28 28 41 AB 36 35 29 AD |.|!H.I..((A.65).|
00001970: 32 29 3A 8B 49 B1 39 A7 49 B2 31 30 00 A1 21 4D |2):.I.9.I.10..!M|
00001980: 08 41 24 B2 C7 28 32 AC 49 AA 31 39 33 29 3A 8B |.A$..(2.I.193):.|
00001990: 49 B2 31 30 A7 43 24 B2 22 DA 22 3A 89 32 31 33 |I.10.C$.".":.213|
000019A0: 30 00 B3 21 4F 08 43 24 B2 C7 28 32 AC 49 AA 31 |0..!O.C$..(2.I.1|
000019B0: 39 34 29 00 FF 21 52 08 99 22 93 D0 41 47 45 20 |94)..!R.."..AGE |
000019C0: 12 20 22 41 24 22 20 2D 20 22 43 24 22 20 92 20 |. "A$" - "C$" . |
000019D0: 43 4F 4E 54 41 49 4E 53 20 12 22 43 28 49 29 22 |CONTAINS ."C(I)"|
000019E0: 9D 20 92 20 45 4E 54 52 49 45 53 3A 22 3A 81 4E |. . ENTRIES:":.N|
000019F0: B2 31 A4 33 34 3A 99 22 A3 22 3B 3A 82 3A 99 00 |.1.34:.".";:.:..|
00001A00: 2D 22 61 08 4D B2 30 3A 8B 4E 24 28 30 2C 49 29 |-"a.M.0:.N$(0,I)|
00001A10: B2 22 22 A7 99 22 12 11 11 1D 1D D0 41 47 45 20 |."".."......AGE |
00001A20: 45 4D 50 54 59 11 22 3A 89 32 32 33 30 00 49 22 |EMPTY.":.2230.I"|
00001A30: 66 08 81 4A B2 4D A4 32 30 AA 4D 3A 8B 4A B1 B2 |f..J.M.20.M:.J..|
00001A40: 43 28 49 29 A7 32 32 33 30 00 91 22 75 08 99 4E |C(I).2230.."u..N|
00001A50: 24 28 4A 2C 49 29 3A 82 3A 99 22 D0 52 45 53 53 |$(J,I):.:.".RESS|
00001A60: 20 41 4E 59 20 4B 45 59 20 54 4F 20 43 4F 4E 54 | ANY KEY TO CONT|
00001A70: 49 4E 55 45 20 53 43 41 4E 22 3A 8D 31 30 30 30 |INUE SCAN":.1000|
00001A80: 30 3A 4D B2 4A 3A 99 22 93 22 3B 3A 89 32 31 35 |0:M.J:.".";:.215|
00001A90: 30 00 BB 22 B6 08 99 22 11 C1 4E 59 20 4F 54 48 |0.."..."..NY OTH|
00001AA0: 45 52 20 53 43 41 4E 22 3B 3A 8D 31 31 30 30 30 |ER SCAN";:.11000|
00001AB0: 3A 8B 50 36 B2 31 A7 32 31 30 30 00 C4 22 DE 08 |:.P6.1.2100.."..|
00001AC0: 89 32 34 30 00 03 23 C4 09 99 22 93 22 A3 31 33 |.240..#...".".13|
00001AD0: 29 22 D0 D2 C9 CE D4 20 CD C5 CE D5 22 3A 99 A3 |)"..... ....":..|
00001AE0: 31 33 29 22 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 22 3A |13)"..........":|
00001AF0: 46 37 B2 30 3A 46 36 B2 30 3A 46 35 B2 30 3A 46 |F7.0:F6.0:F5.0:F|
00001B00: 34 B2 30 00 47 23 D8 09 99 A3 38 29 22 11 12 D0 |4.0.G#....8)"...|
00001B10: 52 45 53 53 20 4F 50 54 49 4F 4E 20 4E 55 4D 42 |RESS OPTION NUMB|
00001B20: 45 52 22 3A 99 A3 38 29 22 11 11 11 12 20 31 20 |ER":..8)".... 1 |
00001B30: 92 20 D0 52 49 4E 54 20 53 49 4E 47 4C 45 20 41 |. .RINT SINGLE A|
00001B40: 44 44 52 45 53 53 22 00 88 23 E2 09 99 A3 38 29 |DDRESS"..#....8)|
00001B50: 22 11 11 12 20 32 20 92 20 D0 52 49 4E 54 20 41 |"... 2 . .RINT A|
00001B60: 4C 4C 20 41 44 44 52 45 53 53 45 53 22 3A 99 A3 |LL ADDRESSES":..|
00001B70: 38 29 22 11 11 12 20 33 20 92 20 C2 41 43 4B 20 |8)"... 3 . .ACK |
00001B80: 54 4F 20 4D 45 4E 55 22 00 AE 23 F6 09 8D 31 30 |TO MENU"..#...10|
00001B90: 30 30 30 3A 91 C5 28 41 24 29 89 32 35 37 30 2C |000:..(A$).2570,|
00001BA0: 32 36 37 30 2C 32 34 30 3A 89 32 35 35 30 00 F2 |2670,240:.2550..|
00001BB0: 23 0A 0A 99 22 93 C5 4E 54 45 52 20 12 D3 55 52 |#..."..NTER ..UR|
00001BC0: 4E 41 4D 45 2F CE 41 4D 45 92 20 54 4F 20 46 49 |NAME/.AME. TO FI|
00001BD0: 4E 44 20 41 44 44 52 45 53 53 3A 22 3A 46 34 B2 |ND ADDRESS:":F4.|
00001BE0: 31 3A 8D 31 32 31 30 3A 8B 46 34 B2 32 A7 32 36 |1:.1210:.F4.2.26|
00001BF0: 33 30 00 22 24 1E 0A 99 22 11 C4 4F 20 59 4F 55 |30."$..."..O YOU|
00001C00: 20 57 49 53 48 20 54 4F 20 50 52 49 4E 54 22 3B | WISH TO PRINT";|
00001C10: 3A 8D 31 31 30 30 30 3A 8B 50 36 B2 32 A7 32 35 |:.11000:.P6.2.25|
00001C20: 30 30 00 3D 24 3C 0A 8D 32 38 30 30 3A 81 4D B2 |00.=$<..2800:.M.|
00001C30: 31 A4 54 54 3A 8D 32 39 30 30 3A 82 4D 00 76 24 |1.TT:.2900:.M.v$|
00001C40: 46 0A 46 34 B2 30 3A 99 22 11 CF CB 2C 20 41 4E |F.F4.0:."..., AN|
00001C50: 59 20 4F 54 48 45 52 22 3B 3A 8D 31 31 30 30 30 |Y OTHER";:.11000|
00001C60: 3A 8B 50 36 B2 32 A7 46 34 B2 30 3A 46 36 B2 30 |:.P6.2.F4.0:F6.0|
00001C70: 3A 89 32 35 30 30 00 80 24 64 0A 89 32 35 37 30 |:.2500..$d..2570|
00001C80: 00 C6 24 6E 0A 99 22 93 11 11 11 11 11 11 22 A3 |..$n..".......".|
00001C90: 39 29 22 C4 4F 20 59 4F 55 20 57 49 53 48 20 54 |9)".O YOU WISH T|
00001CA0: 4F 20 50 52 49 4E 54 3A 22 3A 99 A3 39 29 22 11 |O PRINT:":..9)".|
00001CB0: 12 20 31 20 92 20 D0 45 52 20 4C 49 53 54 20 46 |. 1 . .ER LIST F|
00001CC0: 4F 52 4D 41 54 22 00 07 25 78 0A 99 A3 39 29 22 |ORMAT"..%x...9)"|
00001CD0: 11 12 20 32 20 92 20 D0 45 52 20 4C 41 42 45 4C |.. 2 . .ER LABEL|
00001CE0: 20 46 4F 52 4D 41 54 22 3A 99 3A 99 A3 39 29 22 | FORMAT":.:..9)"|
00001CF0: 11 12 D0 52 45 53 53 20 4F 50 54 49 4F 4E 20 4E |...RESS OPTION N|
00001D00: 55 4D 42 45 52 92 22 00 25 25 82 0A A1 41 24 3A |UMBER.".%%...A$:|
00001D10: 8B 41 24 B3 B1 22 31 22 AF 41 24 B3 B1 22 32 22 |.A$.."1".A$.."2"|
00001D20: A7 32 36 39 30 00 36 25 8C 0A 8B 41 24 B2 22 32 |.2690.6%...A$."2|
00001D30: 22 A7 32 37 32 30 00 5E 25 96 0A 8D 32 38 32 30 |".2720.^%...2820|
00001D40: 3A 46 37 B2 31 3A 54 54 B2 31 3A 4C 46 B2 31 3A |:F7.1:TT.1:LF.1:|
00001D50: 49 B2 30 3A 46 35 B2 31 3A 89 32 37 32 35 00 71 |I.0:F5.1:.2725.q|
00001D60: 25 A0 0A 8D 32 38 30 30 3A 49 B2 30 3A 46 35 B2 |%...2800:I.0:F5.|
00001D70: 31 00 A4 25 A5 0A 99 22 11 D0 4C 45 41 53 45 20 |1..%..."..LEASE |
00001D80: 41 4C 49 47 4E 20 50 41 50 45 52 20 54 48 45 4E |ALIGN PAPER THEN|
00001D90: 20 48 49 54 20 41 4E 59 20 4B 45 59 22 3A 8D 31 | HIT ANY KEY":.1|
00001DA0: 30 30 30 30 00 C1 25 AA 0A 81 4A B2 30 A4 35 30 |0000..%...J.0.50|
00001DB0: 3A 8B 4E 24 28 4A 2C 49 29 B2 22 22 A7 32 37 36 |:.N$(J,I)."".276|
00001DC0: 30 00 DF 25 B4 0A 8D 31 35 30 30 3A 81 4D B2 31 |0..%...1500:.M.1|
00001DD0: A4 54 54 3A 8D 32 39 30 30 3A 82 4D 3A 82 4A 00 |.TT:.2900:.M:.J.|
00001DE0: F5 25 C8 0A 49 B2 49 AA 31 3A 8B 49 B3 B2 31 30 |.%..I.I.1:.I..10|
00001DF0: A7 32 37 33 30 00 0E 26 D2 0A 46 37 B2 30 3A 46 |.2730..&..F7.0:F|
00001E00: 36 B2 30 3A 46 35 B2 30 3A 89 32 35 30 30 00 56 |6.0:F5.0:.2500.V|
00001E10: 26 F0 0A 99 22 11 C8 4F 57 20 4D 41 4E 59 20 54 |&..."..OW MANY T|
00001E20: 49 4D 45 53 20 44 4F 20 59 4F 55 20 57 49 53 48 |IMES DO YOU WISH|
00001E30: 20 54 4F 20 50 52 49 4E 54 3F 22 3B 3A 50 33 B2 | TO PRINT?";:P3.|
00001E40: 33 3A 50 34 B2 31 3A 8D 33 30 30 30 30 3A 54 54 |3:P4.1:.30000:TT|
00001E50: B2 C5 28 50 24 29 00 6F 26 FA 0A 8B 54 54 B3 B2 |..(P$).o&...TT..|
00001E60: 30 A7 99 22 91 91 91 91 22 3A 89 32 38 30 30 00 |0.."....":.2800.|
00001E70: B7 26 FC 0A 99 22 11 48 4F 57 20 4D 41 4E 59 20 |.&...".HOW MANY |
00001E80: 4C 49 4E 45 2D 46 45 45 44 53 20 42 45 54 57 45 |LINE-FEEDS BETWE|
00001E90: 45 4E 20 41 44 44 52 45 53 53 45 53 22 3A 50 33 |EN ADDRESSES":P3|
00001EA0: B2 32 3A 50 34 B2 31 3A 8D 33 30 30 30 30 3A 4C |.2:P4.1:.30000:L|
00001EB0: 46 B2 C5 28 50 24 29 00 D0 26 FE 0A 8B 4C 46 B3 |F..(P$)..&...LF.|
00001EC0: B2 30 A7 99 22 91 91 91 91 22 3A 89 32 38 31 32 |.0.."....":.2812|
00001ED0: 00 0E 27 04 0B 99 22 11 C4 4F 20 59 4F 55 20 57 |..'..."..O YOU W|
00001EE0: 49 53 48 20 54 45 4C 45 50 48 4F 4E 45 20 CE 4F |ISH TELEPHONE .O|
00001EF0: 20 50 52 49 4E 54 45 44 22 3B 3A 8D 31 31 30 30 | PRINTED";:.1100|
00001F00: 30 3A 8B 50 36 B2 32 A7 46 36 B2 31 3A 8E 00 14 |0:.P6.2.F6.1:...|
00001F10: 27 22 0B 8E 00 32 27 54 0B 9F 31 2C 34 2C 37 3A |'"...2'T..1,4,7:|
00001F20: 97 35 33 32 36 35 2C 31 31 3A 98 31 2C C7 28 31 |.53265,11:.1,.(1|
00001F30: 35 29 00 5D 27 5E 0B 8B 46 37 B2 31 A7 98 31 2C |5).]'^..F7.1..1,|
00001F40: C7 28 31 37 29 4E 54 24 3B 3A 98 31 2C C7 28 31 |.(17)NT$;:.1,.(1|
00001F50: 36 29 22 34 30 22 3B 3A 89 33 30 31 33 00 6D 27 |6)"40";:.3013.m'|
00001F60: B8 0B 98 31 2C C7 28 31 37 29 4E 54 24 00 92 27 |...1,.(17)NT$..'|
00001F70: C5 0B 41 24 B2 41 24 28 32 29 3A 8B 46 36 B2 31 |..A$.A$(2):.F6.1|
00001F80: A7 4C 54 B2 4C 46 3A 8D 33 35 30 30 3A 89 33 30 |.LT.LF:.3500:.30|
00001F90: 33 30 00 CA 27 CF 0B 4C 54 B2 32 3A 8D 33 35 30 |30..'..LT.2:.350|
00001FA0: 30 3A 41 24 B2 41 24 28 33 29 3A 8B 46 37 B2 31 |0:A$.A$(3):.F7.1|
00001FB0: A7 98 31 2C C7 28 31 36 29 22 34 30 22 3B 3A 8D |..1,.(16)"40";:.|
00001FC0: 33 35 30 30 3A 89 33 30 33 30 00 E9 27 D1 0B 98 |3500:.3030..'...|
00001FD0: 31 2C C7 28 31 37 29 22 D4 45 4C 45 50 48 4F 4E |1,.(17)".ELEPHON|
00001FE0: 45 3A 22 3A 8D 33 35 30 30 00 FF 27 D6 0B 98 31 |E:":.3500..'...1|
00001FF0: 3A A0 31 3A 97 35 33 32 36 35 2C 32 37 3A 8E 00 |:.1:.53265,27:..|
00002000: 0F 28 AC 0D 81 4E B2 31 A4 20 C3 28 41 24 29 00 |.(...N.1. .(A$).|
00002010: 41 28 B1 0D 8B CA 28 41 24 2C 4E 2C 31 29 B2 C7 |A(....(A$,N,1)..|
00002020: 28 31 34 31 29 AF 46 37 B2 31 A7 98 31 3A 98 31 |(141).F7.1..1:.1|
00002030: 2C C7 28 31 36 29 22 34 30 22 3B 3A 89 33 35 32 |,.(16)"40";:.352|
00002040: 30 00 60 28 B3 0D 8B CA 28 41 24 2C 4E 2C 31 29 |0.`(....(A$,N,1)|
00002050: B2 C7 28 31 34 31 29 A7 98 31 3A 89 33 35 32 30 |..(141)..1:.3520|
00002060: 00 77 28 B6 0D 98 31 2C C7 28 31 37 29 CA 28 41 |.w(...1,.(17).(A|
00002070: 24 2C 4E 2C 31 29 3B 00 8E 28 C0 0D 82 4E 3A 81 |$,N,1);..(...N:.|
00002080: 4E B2 31 A4 4C 54 3A 98 31 3A 82 4E 3A 8E 00 A4 |N.1.LT:.1:.N:...|
00002090: 28 94 11 99 22 93 11 11 22 3A 8D 35 30 31 30 3A |(..."...":.5010:|
000020A0: 89 32 34 30 00 C0 28 88 13 99 22 93 20 20 20 20 |.240..(...". |
000020B0: 20 20 12 C1 D4 D4 C5 CE D4 C9 CF CE 92 3A 20 22 | ...........: "|
000020C0: 00 E8 28 92 13 99 22 11 11 20 20 20 20 20 20 D9 |..(...".. .|
000020D0: 4F 55 20 48 41 56 45 22 B8 28 30 29 22 42 59 54 |OU HAVE".(0)"BYT|
000020E0: 45 53 20 46 52 45 45 22 00 1C 29 9C 13 99 22 11 |ES FREE"..)...".|
000020F0: 11 11 20 20 20 20 20 20 12 C8 49 54 20 41 4E 59 |.. ..IT ANY|
00002100: 20 20 4B 45 59 20 54 4F 20 20 43 4F 4E 54 49 4E | KEY TO CONTIN|
00002110: 55 45 22 3A 8D 31 30 30 30 30 3A 8E 00 62 29 7C |UE":.10000:..b)||
00002120: 15 50 36 B2 31 3A 41 B2 C6 28 50 24 29 3A 8B 28 |.P6.1:A..(P$):.(|
00002130: 41 B3 36 35 B0 41 B1 39 30 29 B0 50 24 B2 22 4E |A.65.A.90).P$."N|
00002140: 22 B0 50 24 B2 22 56 22 B0 50 24 B2 22 43 22 B0 |".P$."V".P$."C".|
00002150: 50 24 B2 22 53 22 B0 50 24 B2 22 49 22 A7 50 36 |P$."S".P$."I".P6|
00002160: B2 32 00 68 29 86 15 8E 00 87 29 28 23 99 22 93 |.2.h).....)(#.".|
00002170: C1 52 45 20 59 4F 55 20 53 55 52 45 22 3B 3A 8D |.RE YOU SURE";:.|
00002180: 31 31 30 30 30 3A 8E 00 AE 29 1C 25 50 36 B2 30 |11000:...).%P6.0|
00002190: 3A 9F 31 35 2C 38 2C 31 35 3A 84 31 35 2C 45 52 |:.15,8,15:.15,ER|
000021A0: 2C 45 52 24 3A 8B 45 52 B3 32 30 A7 20 8E 00 E8 |,ER$:.ER.20. ...|
000021B0: 29 26 25 99 22 11 12 C4 49 53 4B 20 45 52 52 4F |)&%."...ISK ERRO|
000021C0: 52 3A 92 20 22 45 52 22 20 22 45 52 24 3A 99 22 |R:. "ER" "ER$:."|
000021D0: 11 12 C8 49 54 20 41 4E 59 20 4B 45 59 20 46 4F |...IT ANY KEY FO|
000021E0: 52 20 4D 45 4E 55 92 22 00 FE 29 30 25 8D 31 30 |R MENU."..)0%.10|
000021F0: 30 30 30 3A A0 31 35 3A 50 36 B2 31 3A 8E 00 13 |000:.15:P6.1:...|
00002200: 2A 10 27 A1 41 24 3A 8B 41 24 B2 22 22 A7 31 30 |*.'.A$:.A$."".10|
00002210: 30 30 30 00 19 2A 1A 27 8E 00 31 2A F8 2A 99 22 |000..*.'..1*.*."|
00002220: 20 12 81 59 9A 92 45 53 2F 12 81 4E 9A 92 4F 3F | ..Y..ES/..N..O?|
00002230: 22 00 50 2A 02 2B A1 41 24 3A 8B 41 24 B3 B1 22 |".P*.+.A$:.A$.."|
00002240: 59 22 AF 41 24 B3 B1 22 4E 22 A7 31 31 30 31 30 |Y".A$.."N".11010|
00002250: 00 63 2A 0C 2B 8B 41 24 B2 22 59 22 A7 50 36 B2 |.c*.+.A$."Y".P6.|
00002260: 31 3A 8E 00 6E 2A 16 2B 50 36 B2 32 3A 8E 00 A7 |1:..n*.+P6.2:...|
00002270: 2A 20 4E 97 35 34 32 37 33 2C 38 36 3A 97 35 34 |* N.54273,86:.54|
00002280: 32 37 32 2C 31 30 35 3A 97 35 34 32 37 36 2C 31 |272,105:.54276,1|
00002290: 37 3A 81 54 B2 30 A4 32 35 30 3A 82 3A 97 35 34 |7:.T.0.250:.:.54|
000022A0: 32 37 36 2C 30 3A 8E 00 DD 2A 78 69 4C 4C B2 C3 |276,0:...*xiLL..|
000022B0: 28 4E 24 28 4A 2C 49 29 29 3A 81 4D B2 31 A4 4C |(N$(J,I)):.M.1.L|
000022C0: 4C 3A 8B CA 28 4E 24 28 4A 2C 49 29 2C 4D 2C 31 |L:..(N$(J,I),M,1|
000022D0: 29 B2 C7 28 33 32 29 A7 32 37 30 32 30 00 E4 2A |)..(32).27020..*|
000022E0: 82 69 82 4D 00 29 2B 8C 69 41 24 28 31 29 B2 C9 |.i.M.)+.iA$(1)..|
000022F0: 28 4E 24 28 4A 2C 49 29 2C 4C 4C AB 4D 29 3A 41 |(N$(J,I),LL.M):A|
00002300: 24 28 30 29 B2 C8 28 4E 24 28 4A 2C 49 29 2C 4D |$(0)..(N$(J,I),M|
00002310: AB 31 29 3A 4E 54 24 B2 41 24 28 31 29 AA 22 20 |.1):NT$.A$(1)." |
00002320: 22 AA 41 24 28 30 29 3A 8E 00 60 2B DC 69 4C 4C |".A$(0):..`+.iLL|
00002330: B2 C3 28 53 24 28 4A 2C 49 29 29 3A 81 58 B2 4C |..(S$(J,I)):.X.L|
00002340: 4C A4 31 A9 AB 31 3A 8B CA 28 53 24 28 4A 2C 49 |L.1..1:..(S$(J,I|
00002350: 29 2C 58 2C 31 29 B2 22 5F 22 A7 32 37 31 32 30 |),X,1)."_".27120|
00002360: 00 67 2B E6 69 82 58 00 98 2B F0 69 41 24 28 32 |.g+.i.X..+.iA$(2|
00002370: 29 B2 C8 28 53 24 28 4A 2C 49 29 2C 58 AB 31 29 |)..(S$(J,I),X.1)|
00002380: 3A 41 24 28 33 29 B2 C9 28 53 24 28 4A 2C 49 29 |:A$(3)..(S$(J,I)|
00002390: 2C 4C 4C AB 58 29 3A 8E 00 A5 2B 40 6A 8B 50 24 |,LL.X):...+@j.P$|
000023A0: B2 22 22 A7 8E 00 BD 2B 45 6A 8B C3 28 50 24 29 |.""....+Ej..(P$)|
000023B0: B2 31 A7 41 24 28 51 29 B2 50 24 3A 8E 00 E4 2B |.1.A$(Q).P$:...+|
000023C0: 4A 6A 81 4E B2 31 A4 C3 28 50 24 29 3A 8B CA 28 |Jj.N.1..(P$):..(|
000023D0: 50 24 2C 4E 2C 31 29 B2 C7 28 31 34 31 29 A7 32 |P$,N,1)..(141).2|
000023E0: 37 32 33 30 00 EB 2B 54 6A 82 4E 00 03 2C 59 6A |7230..+Tj.N..,Yj|
000023F0: 8B 4E B1 C3 28 50 24 29 A7 41 24 28 51 29 B2 50 |.N..(P$).A$(Q).P|
00002400: 24 3A 8E 00 15 2C 5E 6A 8D 32 37 32 35 30 3A 89 |$:...,^j.27250:.|
00002410: 32 37 32 30 30 00 42 2C 72 6A 41 24 28 51 29 B2 |27200.B,rjA$(Q).|
00002420: C8 28 50 24 2C 4E AB 31 29 3A 50 24 B2 C9 28 50 |.(P$,N.1):P$..(P|
00002430: 24 2C C3 28 50 24 29 AB 4E 29 3A 51 B2 51 AA 31 |$,.(P$).N):Q.Q.1|
00002440: 3A 8E 00 68 2C 60 6D 50 24 B2 41 24 28 4E 29 3A |:..h,`mP$.A$(N):|
00002450: 81 51 B2 4E AA 31 A4 4D 3A 8B 41 24 28 51 29 B2 |.Q.N.1.M:.A$(Q).|
00002460: 22 22 A7 32 38 30 33 30 00 7F 2C 6A 6D 50 24 B2 |"".28030..,jmP$.|
00002470: 50 24 AA C7 28 31 34 31 29 AA 41 24 28 51 29 00 |P$..(141).A$(Q).|
00002480: 86 2C 74 6D 82 51 00 8C 2C 7E 6D 8E 00 AA 2C 68 |.,tm.Q..,~m...,h|
00002490: 74 99 22 13 22 3B 3A 8B 43 4F B1 31 A7 99 C8 28 |t.".";:.CO.1...(|
000024A0: 43 4F 24 2C 43 4F AB 31 29 3B 00 C2 2C 72 74 8B |CO$,CO.1);..,rt.|
000024B0: 4C 4E B1 31 A7 99 C8 28 4C 4E 24 2C 4C 4E AB 31 |LN.1...(LN$,LN.1|
000024C0: 29 3B 00 C8 2C 7C 74 8E 00 D2 2C CC 74 99 22 3E |);..,|t...,.t.">|
000024D0: 22 3B 00 F0 2C D6 74 A1 41 24 3A 8B 41 24 B2 22 |";..,.t.A$:.A$."|
000024E0: 22 B0 41 24 B2 C7 28 31 33 29 A7 32 39 39 31 30 |".A$..(13).29910|
000024F0: 00 11 2D E0 74 8B 41 24 B2 22 11 22 AF 49 45 B2 |..-.t.A$.".".IE.|
00002500: 31 A7 50 24 B2 22 11 22 3A 99 22 9D 20 22 3B 3A |1.P$.".":.". ";:|
00002510: 8E 00 23 2D EA 74 8B 41 24 B2 22 11 22 A7 32 39 |..#-.t.A$.".".29|
00002520: 39 31 30 00 57 2D F4 74 81 51 B2 31 A4 50 33 3A |910.W-.t.Q.1.P3:|
00002530: 99 22 A4 22 3B 3A 82 3A 81 51 B2 31 A4 50 33 3A |.".";:.:.Q.1.P3:|
00002540: 99 22 9D 22 3B 3A 82 3A 50 24 B2 22 22 3A 50 58 |.".";:.:P$."":PX|
00002550: B2 30 3A 50 36 B2 30 00 68 2D FE 74 8B 41 24 B2 |.0:P6.0.h-.t.A$.|
00002560: 22 22 A7 33 30 31 36 30 00 73 2D 08 75 89 33 30 |"".30160.s-.u.30|
00002570: 31 37 30 00 AD 2D 30 75 99 22 3E 22 3B 3A 50 24 |170..-0u.">";:P$|
00002580: B2 22 22 3A 50 58 B2 30 3A 50 36 B2 30 3A 81 51 |."":PX.0:P6.0:.Q|
00002590: B2 31 A4 50 33 3A 99 22 A4 22 3B 3A 82 3A 81 51 |.1.P3:.".";:.:.Q|
000025A0: B2 31 A4 50 33 3A 99 22 9D 22 3B 3A 82 00 C2 2D |.1.P3:.".";:...-|
000025B0: D0 75 A1 41 24 3A 8B 41 24 B2 22 22 A7 33 30 31 |.u.A$:.A$."".301|
000025C0: 36 30 00 E1 2D DA 75 41 B2 C6 28 41 24 29 3A 8B |60..-.uA..(A$):.|
000025D0: 41 B1 31 39 32 AF 41 B3 32 31 39 A7 33 30 32 30 |A.192.A.219.3020|
000025E0: 30 00 20 2E E4 75 8B 28 41 B1 33 31 AF 41 B3 B1 |0. ..u.(A.31.A..|
000025F0: 34 34 AF 41 B3 B1 33 34 AF 41 B3 B1 35 38 AF 41 |44.A..34.A..58.A|
00002600: B3 B1 35 39 AF 41 B3 39 37 29 B0 41 B2 31 33 B0 |..59.A.97).A.13.|
00002610: 41 B2 32 30 B0 41 B2 31 35 37 A7 33 30 32 30 30 |A.20.A.157.30200|
00002620: 00 2B 2E EE 75 89 33 30 31 36 30 00 42 2E F8 75 |.+..u.30160.B..u|
00002630: 8B 41 B2 31 33 AF 50 24 B3 B1 22 22 A7 33 30 33 |.A.13.P$.."".303|
00002640: 32 30 00 52 2E FB 75 8B 41 B2 31 33 A7 33 30 31 |20.R..u.A.13.301|
00002650: 36 30 00 68 2E FD 75 8B 41 B2 39 35 A7 50 36 B2 |60.h..u.A.95.P6.|
00002660: 31 3A 89 33 30 33 32 30 00 78 2E 0C 76 8B 41 B2 |1:.30320.x..v.A.|
00002670: 32 30 A7 33 30 32 35 30 00 8A 2E 16 76 8B 41 B3 |20.30250....v.A.|
00002680: B1 31 35 37 A7 33 30 32 38 30 00 B1 2E 1B 76 50 |.157.30280....vP|
00002690: 58 B2 C3 28 50 24 29 3A 81 51 B2 31 A4 50 58 AA |X..(P$):.Q.1.PX.|
000026A0: 31 3A 99 22 9D 22 3B 3A 82 51 3A 89 33 30 30 30 |1:.".";:.Q:.3000|
000026B0: 30 00 C2 2E 2A 76 8B 50 24 B2 22 22 A7 33 30 31 |0...*v.P$."".301|
000026C0: 36 30 00 EF 2E 34 76 50 24 B2 C8 28 50 24 2C C3 |60...4vP$..(P$,.|
000026D0: 28 50 24 29 AB 31 29 3A 41 24 B2 22 9D A4 9D 22 |(P$).1):A$."..."|
000026E0: 3A 50 58 B2 50 58 AB 31 3A 89 33 30 33 30 30 00 |:PX.PX.1:.30300.|
000026F0: 03 2F 48 76 8B C3 28 50 24 29 B2 50 33 A7 33 30 |./Hv..(P$).P3.30|
00002700: 31 36 30 00 19 2F 52 76 50 24 B2 50 24 AA 41 24 |160../RvP$.P$.A$|
00002710: 3A 50 58 B2 C3 28 50 24 29 00 29 2F 5C 76 99 41 |:PX..(P$).)/\v.A|
00002720: 24 3B 3A 89 33 30 31 36 30 00 43 2F 70 76 8B C3 |$;:.30160.C/pv..|
00002730: 28 50 24 29 B3 50 34 A7 50 36 B2 30 3A 89 33 30 |(P$).P4.P6.0:.30|
00002740: 31 36 30 00 66 2F 75 76 81 51 B2 31 A4 C3 28 50 |160.f/uv.Q.1..(P|
00002750: 24 29 AA 31 3A 99 22 9D 22 3B 3A 82 3A 99 22 20 |$).1:.".";:.:." |
00002760: 22 3B 3A 99 3A 8E 00 8F 2F 7A 76 8B C8 28 50 24 |";:.:.../zv..(P$|
00002770: 2C 31 29 B2 22 20 22 A7 50 24 B2 C9 28 50 24 2C |,1)." ".P$..(P$,|
00002780: C3 28 50 24 29 AB 31 29 3A 89 33 30 33 33 30 00 |.(P$).1):.30330.|
00002790: C7 2F 84 76 8B C9 28 50 24 2C 31 29 B2 22 20 22 |./.v..(P$,1)." "|
000027A0: B0 C9 28 50 24 2C 31 29 B2 C7 28 31 34 31 29 A7 |..(P$,1)..(141).|
000027B0: 50 24 B2 C8 28 50 24 2C C3 28 50 24 29 AB 31 29 |P$..(P$,.(P$).1)|
000027C0: 3A 89 33 30 33 34 30 00 CD 2F 8E 76 8E 00 E6 2F |:.30340../.v.../|
000027D0: D0 84 81 51 B2 31 A4 31 34 3A 99 22 A4 22 3B 3A |...Q.1.14:.".";:|
000027E0: 82 51 3A 99 3A 8E 00 FB 2F B8 88 8B 4E 55 B2 C3 |.Q:.:.../...NU..|
000027F0: 28 41 24 28 4E 29 29 A7 99 3A 8E 00 1D 30 C2 88 |(A$(N))..:...0..|
00002800: 81 51 B2 31 A4 4E 55 AB C3 28 41 24 28 4E 29 29 |.Q.1.NU..(A$(N))|
00002810: 3A 99 22 A4 22 3B 3A 82 51 3A 99 3A 8E 00 35 30 |:.".";:.Q:.:..50|
00002820: AC 8A 81 51 B2 31 A4 33 37 3A 99 22 C0 22 3B 3A |...Q.1.37:.".";:|
00002830: 82 3A 99 3A 8E 00 44 30 03 D9 8F 20 20 56 32 2E |.:.:..D0... V2.|
00002840: 31 28 44 29 00 00 00 |1(D)... |
..@.... *ADDRESS MANAGER* BY BERNARD HAB
ET (C) 1983 ABRASCO LTD...P.CO$."......
..................................":LN$.
".........................".H.U..".":.53
280,6:.53272,23:.G(8):.54296,15:.54277,0
......54278,240:.N$(50,10),S$(50,10),A$(
10),C(10):.240......9000:.P6.2.240._....
".PLEASE ENTER NAME OF FILE TO BE LOADED
":.".(MAX .16. LETTERS) ";:P4.1... .P3.1
6:.30000:.5500:.P6.2.155.K...."..PLEASE
LOAD YOUR DATA DISK IN DRIVE 0":."..HIT
ANY KEY":.10000:I.0......"..PLEASE HOLD
WHILE LOADING DATA":.1,8,2,P$:.9500:.P6.
1. 1:.240...... J.0.50.Q.H..1,N$(J,I):.N
$(J,I)."^".N$(J,I)."":C(I).J:.230.R.R..1
,S$(J,I):.S$(J,I).."*".220.|.S.B$.""...T
..#1,A$:.A$.G(13).S$(J,I).B$:.220...V.B$
.B$.A$:.212...... J.P...I.I.1:.I..10.180
..... 1: 15:.20000.'....".";:.35500:."..
A D D R E S S M A N A G E R .."
:.35500.W...."....... PRESS .. CORRESPON
DING NUMBER TO"......"...ACCESS THE FOLL
OWING FACILITIES":..5)".... 1 .. ADD AN
ADDRESS"...,...5)"... 2 .. CHANGE AN A
DDRESS":..5)"... 3 .. SEARCH FOR AN ADD
RESS".<.@...5)"... 4 .. NAME DISPLAY BY
LETTER":..5)"... 5 .. LOAD DATA FROM D
ISK"...Y...5)"... 6 .. PRINT ADDRESSES"
:..5)"... 7 .. CHECK FREE MEMORY"...[..
"........ 8 .. SAVE DATA / SIGN-OFF".O.
\.IE.0:NS.0:F7.0:F6.0:F5.0:F4.0...^..100
00:.E(A$).515,1200,2000,2100,150,2500,45
00,1000:.350. ....9000:.P6.2.240.?....".
";:..(0).500..5000:.240.[....N.0.10:A$(N
)."":.:IE.0......".PLEASE ENTER THE FOLL
OWING INFORMATION:"......IE.1.."HIT . CU
RSOR DOWN . TO SKIP LINE":.523.D........
.."HIT . N . IF INFORMATION IS .NOT AVAI
LABLE".8...."HIT . _ . ONCE FINISHED ENT
ERING A PARA-":." GRAPH".G....".
SURNAME : ";:N.0:NU.19:.A$(0);:.35000.
....."NAME : ";:N.1:.A$(1);:.35000.
O...."..ADDRESS : ";:.A$(2)."N".."NOT
AVAILABLE";:.34000:.537.....N.2:NU.27:.A
$(2);:.35000.....NU.27:.N.3.8:..12)A$(N)
;:.35000:..R...."..TELEPHONE: ";:.A$(9)
."N".."NOT AVAILABLE";:.34000:.543.I...N
.9:.A$(9);:.35000.....N.10:..12)A$(10);:
.35000...#..IE.1.CO.12:.557.S.&.CO.12:LN
.7:.29800:P3.19:P4.3:.30000:.30330:A$(0)
.P$...'.A.F(A$(0).G(0)):.A.193.A.218..".
..":.550.7.(...11);:P4.1:.30000:.30330:A
$(1).P$:A.F(A$(1).G(0)).S.+..A.193.A.218
.."..":.552.O.,.A$(1).A$(0).G(32).A$(1).
..-.LN.11:.29800:P3.27:P4.1:.29900:.P$..
"N".560.../.A$(2)."N":..12)".NOT AVAILAB
LE":.N.3.8:A$(N)."":..12);:.35000:.:.567
...0..P$."."..:.563...1.A$(2).P$:.P6.1.5
67.E.3.P4.0:.N.3.8:..11);:.29900:.P$."."
.A$(N)."".567.B.4..P$.".".A$(N)..""..:.5
66.Y.5.A$(N).P$:.P6.1.567...6..N. .7.N.2
:M.8:.28000:.30340:S$.P$.J.:.LN.20:.2980
0:P4.1:.29900:.P$.."N".574...<.A$(9)."N"
:..12)".NOT AVAILABLE":A$(10)."":..12);:
.35000:.590...>..P$."."..:.578.5.@.A$(9)
.P$:.P6.1.590.A.B.P4.0:..11):.29900:.P$.
".".A$(10)."".590..D..P$.".".A$(10)..""
..:.590...F.A$(10).P$...N.N.9:M.10:.2800
0:.30340.D.S.S$.S$."_".P$:.IE.1.1630...]
..:."ACCEPT";:.11000:.P6.2.517.$.B..".HA
NG-ON WHILE POSTING":I..((F(A$(1)).193).
2):.I.9.I.10.:.L.J.C(I):.J..50.650.].V.N
$(J,I).A$(1):C(I).C(I).1:.680......20000
:.".SORRY - THIS PAGE IS FULL-UP":.705..
...S$(J,I).S$:F1.1:.J.0.700.G.... N$(J,I
).N$(J.1,I).750......20000:."..OK":."...
"51.C(I)". ENTRIES LEFT IN THIS PAGE.".1
.A.."..ANY OTHER ENTRY";:.11000:.P6.1.51
5.:.F..240.D...S.J:.J.S.1..1:.N$(J,I)..N
$(J.1,I).700.V.... 900:.J:.700.....B$.N$
(J.1,I):N$(J.1,I).N$(J,I):N$(J,I).B$.T..
.B$.S$(J.1,I):S$(J.1,I).S$(J,I):S$(J,I).
B$:.......F1.1.1015......".":.1170.0....
G(9):.53272,21:.53280,14:."..".8)"OK, NO
W SIGNING-OFF":..|....".YOU HAVE MADE SO
ME ALTERATIONS":.".DO YOU WISH TO SAVE T
HEM";:.11000......P6.2.1170.R....".PLEAS
E ENTER NAME OF FILE TO BE SAVED":.".(MA
X .16. LETTERS) ";.....P4.1:P3.16:.30000
:.5500:.P6.2.1027.-...B$.P$:.".PLEASE LO
AD YOUR DATA DISK IN DRIVE 0".X...."..HI
T ANY KEY TO CONTINUE..":.10000:."PLEASE
HOLD WHILE SAVING DATA".....I.0:.1,8,2,
"@0:".B$.",S,W":.9500:.P6.1. 1:.240...1.
.J.0.50.T.3..N$(J,I).""..1,"^":.1120...8
..1,N$(J,I):.C(S$(J,I))..79..1,"*"...B..
1,S$(J,I):.J.".`.I.I.1:.I..10.1073.-.J.
1: 15.N.~..20000:.".DO YOU WISH TO SAVE
THEM AGAIN";:.11000:.P6.1.1027......".DO
YOU WISH TO SIGN-OFF ";:.11000:.P6.1.10
10......240......9000:.P6.2.240......"."
;:..(0).500..5000:.240......".ENTER .SUR
NAME & NAME. FOR ALTERATION":NS.0.S...F3
.0:P3.36:P4.2:.30000:A$.P$:A.F(A$):.A.19
3.A.218..".";:.1210.P.D.I..((A.193).2):.
I.9.I.10...N..J.0.C(I):.N$(J,I).A$.1490.
..U..J...X..".NO RECORD OF THIS NAME":.2
0000:."NOW SEARCHING FOR POSSIBLE ALTERN
ATIVE.....ZB.0:ZT.0:.J.0.C(I).+....H(N$(
J,I),C(A$)).A$.ZB.J:ZT.J:F3.1:.1293.>...
.J:.F3..1.1296.T...J.J.1:.J..51.1298.{..
..H(N$(J,I),C(A$)).A$.ZT.ZT.1:.1293.....
.1298......"SORRY NOTHING CLOSE":.F4.1.F
4.2:.......:.:.1870......"I HAVE FOUND T
HE FOLLOWING:":.20000:N.ZB......".RECORD
NO","NAME":.".........","....".%.F..M.N
.N.15.4.K..M.ZT.1382.L.Z..".."M.1,N$(M,I
):.M..F..".PRESS . C . TO CONTINUE SCAN
. S . TO STOP"...H..". R . TO RESTART S
CAN OR . CORRESPONDING ."...J.."NUMBER T
O ACCESS POTENTIAL RECORD":.20000. .N.."
.ENTER NOW: ";:P3.2:P4.1:.30000:.P$."R".
N.ZB:.".";:.1310.B....P$."C".M..ZT.N.M:.
".";:.1310.R....P$."S".240.U...X.E(P$):.
X..0.X.M.."...":.1390....J.X.1...R.E.0.
.....".".10)"RECORD NUMBER:"J.1:..10)"..
...............".V....27000:.F5.1.1514..
...X..(20.LL.2):..X)NT$:..X):.X.1.LL:."-
";:.:..,....27100:A$."NOT AVAILABLE":.F5
.1...B...."...ADDRESS:..":."--------":.A
$(2)."N"..A$:.1526.M....A$(2)......"...T
ELEPHONE:..":."----------":.A$(3)."N"..A
$:.1529......A$(3).......8)".*** END RE
CORD ***":.20000:.IE.1.1570......J..50.
1567......N$(J,I)..N$(J.1,I).1567.]...."
...THERE IS ANOTHER RECORD IN THAT NAME"
:..10)".HIT ANY KEY TO VIEW.".......10)"
.OR HIT S TO STOP":.10000:.A$."S".156
7.....J.J.1:.1500......NS.1.2020... ..F4
.1....."..".IS ALTERATION/DELETION REQUI
RED";:.11000:.P6.2.1820...A..J.0.1607.".
B..N$(J,I)..N$(J.1,I).1607.[.C..".ENTER
RECORD NO. TO BE ALTERED";:P3.2:P4.1:.30
000...D..E(P$)..0.E(P$).C(I).."...":.160
3...E.J.E(P$).1.B.G..".HIT . D . TO DELE
TE, OTHERWISE HIT ANY KEY"...M..10000:.A
$."D"..".HANG ON WHILE DELETING":.1750.3
.O..".";:.27000:.27100:S$.A$(2):T$.A$(3)
:.N.2.10:A$(N)."":..G.T.Q.2:P$.S$:.27200
:Q.9:P$.T$:.27200:E.1:IE.1:.520...^.S$(J
,I).S$:F1.1:.1500...V.S.J:F1.1:.J.S.50:.
N$(J,I)."".1813.M....J.50.N$(J,I)."":S$(
J,I)."":.1813.....N$(J,I).N$(J.1,I):S$(J
,I).S$(J.1,I):.J.& ..C(I).C(I).1:.".OK,
FILE DELETED":.20000:..V ...".ANY OTHER
ALTERATION";:.11000:.P6.1.1200._ &..240.
N N..NS.1.2020.} X..NS.0.1820.. P..9000:
.P6.2.240.K Z..".ENTER .SURNAME & NAME.
TO FIND ADDRESS":NS.1:.1210..!..NS.0:.".
ANY OTHER ADDRESS REQUIRED";:.11000:.P6.
1.2000..!...240.D!4..".ENTER LETTER FOR
WHICH PAGE REQUIRED:":.10000.`!C.A.F(A$)
:.A.65.A.90.2100.|!H.I..((A.65).2):.I.9.
I.10..!M.A$.G(2.I.193):.I.10.C$."Z":.213
0..!O.C$.G(2.I.194)..!R..".PAGE . "A$" -
"C$" . CONTAINS ."C(I)". . ENTRIES:":.N
.1.34:.".";:.:..-"A.M.0:.N$(0,I)."".."..
...PAGE EMPTY.":.2230.I"F..J.M.20.M:.J..
C(I).2230.."U..N$(J,I):.:."PRESS ANY KEY
TO CONTINUE SCAN":.10000:M.J:.".";:.215
0.."...".ANY OTHER SCAN";:.11000:.P6.1.2
100.D"...240..#D..".".13)"PRINT MENU":..
13)"..........":F7.0:F6.0:F5.0:F4.0.G#X.
..8)"..PRESS OPTION NUMBER":..8)".... 1
. PRINT SINGLE ADDRESS"..#....8)"... 2 .
PRINT ALL ADDRESSES":..8)"... 3 . BACK
TO MENU"..#...10000:.E(A$).2570,2670,240
:.2550..#...".ENTER .SURNAME/NAME. TO FI
ND ADDRESS:":F4.1:.1210:.F4.2.2630."$...
".DO YOU WISH TO PRINT";:.11000:.P6.2.25
00.=$<..2800:.M.1.TT:.2900:.M.V$F.F4.0:.
".OK, ANY OTHER";:.11000:.P6.2.F4.0:F6.0
:.2500..$D..2570.F$N..".......".9)"DO YO
U WISH TO PRINT:":..9)".. 1 . PER LIST F
ORMAT"..%X...9)".. 2 . PER LABEL FORMAT"
:.:..9)"..PRESS OPTION NUMBER.".%%...A$:
.A$.."1".A$.."2".2690.6%...A$."2".2720.^
%...2820:F7.1:TT.1:LF.1:I.0:F5.1:.2725.Q
% ..2800:I.0:F5.1..%...".PLEASE ALIGN PA
PER THEN HIT ANY KEY":.10000.A%...J.0.50
:.N$(J,I)."".2760..%...1500:.M.1.TT:.290
0:.M:.J..%H.I.I.1:.I..10.2730..&R.F7.0:F
6.0:F5.0:.2500.V&...".HOW MANY TIMES DO
YOU WISH TO PRINT?";:P3.3:P4.1:.30000:TT
.E(P$).O&...TT..0.."....":.2800..&...".H
OW MANY LINE-FEEDS BETWEEN ADDRESSES":P3
.2:P4.1:.30000:LF.E(P$).P&...LF..0.."...
.":.2812..'...".DO YOU WISH TELEPHONE NO
PRINTED";:.11000:.P6.2.F6.1:...'"...2'T
..1,4,7:.53265,11:.1,G(15).]'^..F7.1..1,
G(17)NT$;:.1,G(16)"40";:.3013.M'...1,G(1
7)NT$..'E.A$.A$(2):.F6.1.LT.LF:.3500:.30
30.J'O.LT.2:.3500:A$.A$(3):.F7.1..1,G(16
)"40";:.3500:.3030..'Q..1,G(17)"TELEPHON
E:":.3500..'V..1: 1:.53265,27:...(...N.1
. C(A$).A(...J(A$,N,1).G(141).F7.1..1:.1
,G(16)"40";:.3520.`(...J(A$,N,1).G(141).
.1:.3520.W(...1,G(17)J(A$,N,1);..(...N:.
N.1.LT:.1:.N:...(..."...":.5010:.240..(.
..". .ATTENTION.: "..(...".. Y
OU HAVE".(0)"BYTES FREE"..)..."...
.HIT ANY KEY TO CONTINUE":.10000:..B)|
.P6.1:A.F(P$):.(A.65.A.90).P$."N".P$."V"
.P$."C".P$."S".P$."I".P6.2.H).....)(#.".
ARE YOU SURE";:.11000:...).%P6.0:.15,8,1
5:.15,ER,ER$:.ER.20. ...)&%."..DISK ERRO
R:. "ER" "ER$:."..HIT ANY KEY FOR MENU."
..)0%.10000: 15:P6.1:...*.'.A$:.A$."".10
000..*.'..1*.*." ..Y..ES/..N..O?".P*.+.A
$:.A$.."Y".A$.."N".11010.C*.+.A$."Y".P6.
1:..N*.+P6.2:...* N.54273,86:.54272,105:
.54276,17:.T.0.250:.:.54276,0:...*XILL.C
(N$(J,I)):.M.1.LL:.J(N$(J,I),M,1).G(32).
27020..*.I.M.)+.IA$(1).I(N$(J,I),LL.M):A
$(0).H(N$(J,I),M.1):NT$.A$(1)." ".A$(0):
..`+.ILL.C(S$(J,I)):.X.LL.1..1:.J(S$(J,I
),X,1)."_".27120.G+.I.X..+.IA$(2).H(S$(J
,I),X.1):A$(3).I(S$(J,I),LL.X):...+@J.P$
.""....+EJ.C(P$).1.A$(Q).P$:...+JJ.N.1.C
(P$):.J(P$,N,1).G(141).27230..+TJ.N..,YJ
.N.C(P$).A$(Q).P$:...,^J.27250:.27200.B,
RJA$(Q).H(P$,N.1):P$.I(P$,C(P$).N):Q.Q.1
:..H,`MP$.A$(N):.Q.N.1.M:.A$(Q)."".28030
.,JMP$.P$.G(141).A$(Q)..,TM.Q..,~M...,H
T.".";:.CO.1..H(CO$,CO.1);.B,RT.LN.1..H(
LN$,LN.1);.H,|T..R,LT.">";..,VT.A$:.A$."
".A$.G(13).29910..-.T.A$.".".IE.1.P$."."
:.". ";:..#-.T.A$.".".29910.W-.T.Q.1.P3:
.".";:.:.Q.1.P3:.".";:.:P$."":PX.0:P6.0.
H-.T.A$."".30160.S-.U.30170..-0U.">";:P$
."":PX.0:P6.0:.Q.1.P3:.".";:.:.Q.1.P3:."
.";:..B-PU.A$:.A$."".30160..-ZUA.F(A$):.
A.192.A.219.30200. ..U.(A.31.A..44.A..34
.A..58.A..59.A.97).A.13.A.20.A.157.30200
.+..U.30160.B..U.A.13.P$.."".30320.R..U.
A.13.30160.H..U.A.95.P6.1:.30320.X..V.A.
20.30250....V.A..157.30280....VPX.C(P$):
.Q.1.PX.1:.".";:.Q:.30000.B.*V.P$."".301
60...4VP$.H(P$,C(P$).1):A$."...":PX.PX.1
:.30300../HV.C(P$).P3.30160../RVP$.P$.A$
:PX.C(P$).)/\V.A$;:.30160.C/PV.C(P$).P4.
P6.0:.30160.F/UV.Q.1.C(P$).1:.".";:.:."
";:.:.../ZV.H(P$,1)." ".P$.I(P$,C(P$).1)
:.30330.G/.V.I(P$,1)." ".I(P$,1).G(141).
P$.H(P$,C(P$).1):.30340.M/.V.../P..Q.1.1
4:.".";:.Q:.:.../...NU.C(A$(N))..:...0B.
.Q.1.NU.C(A$(N)):.".";:.Q:.:..50...Q.1.3
7:.".";:.:.:..D0.Y. V2.1(D)...
> CLICK IMAGE PREVIEW FOR FULL MODAL