ADRESSENBOEKJE
FILE INFORMATION
FILENAME(S): ADRESSENBOEKJE
FILE TYPE(S): PRG
FILE SIZE: 10.1K
FIRST SEEN: 2025-11-30 21:20:06
APPEARS ON: 1 disk(s)
FILE HASH
a6f15703135967e183521f82f2fea172e1fc8475b2643dd0d76c5f7ad87d3ab1
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| RP L ADMIN PRGS | ADRESSENBOEKJE | PRG | DuncanTwain | 14 | 12 | 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 97 0A D4 00 A1 23 31 2C 41 24 3A 8B 41 |20......#1,A$:.A|
00000280: 24 B2 C7 28 31 33 29 A7 53 24 28 4A 2C 49 29 B2 |$..(13).S$(J,I).|
00000290: 42 24 3A 89 32 32 30 00 A9 0A D6 00 42 24 B2 42 |B$:.220.....B$.B|
000002A0: 24 AA 41 24 3A 89 32 31 32 00 B1 0A DC 00 82 20 |$.A$:.212...... |
000002B0: 4A 00 C6 0A E6 00 49 B2 49 AA 31 3A 8B 49 B3 B2 |J.....I.I.1:.I..|
000002C0: 31 30 A7 31 38 30 00 D8 0A EB 00 A0 31 3A A0 31 |10.180......1:.1|
000002D0: 35 3A 8D 32 30 30 30 30 00 16 0B F0 00 99 22 93 |5:.20000......".|
000002E0: 22 3B 3A 8D 33 35 35 30 30 3A 99 22 12 81 20 20 |";:.35500:.".. |
000002F0: 20 20 20 20 C1 A0 C4 A0 D2 A0 C5 A0 D3 A0 D3 A0 | ............|
00000300: C5 A0 CE A0 C2 A0 CF A0 C5 A0 CB A0 CA A0 C5 A0 |................|
00000310: 20 20 20 92 9A 22 00 21 0B F5 00 8D 33 35 35 30 | ..".!....3550|
00000320: 30 00 52 0B FA 00 99 22 11 11 1D 1D 1D 12 81 20 |0.R...."....... |
00000330: C4 52 55 4B 20 92 9A 20 4F 50 20 43 4F 52 52 45 |.RUK .. OP CORRE|
00000340: 53 50 4F 4E 44 45 52 45 4E 44 20 4E 55 4D 4D 45 |SPONDEREND NUMME|
00000350: 52 22 00 9C 0B 0E 01 99 22 1D 1D 1D 41 43 43 45 |R"......"...ACCE|
00000360: 53 53 20 54 48 45 20 46 4F 4C 4C 4F 57 49 4E 47 |SS THE FOLLOWING|
00000370: 20 46 41 43 49 4C 49 54 49 45 53 22 3A 99 A3 35 | FACILITIES":..5|
00000380: 29 22 11 11 81 12 20 31 20 92 9A 20 20 C1 44 44 |)".... 1 .. .DD|
00000390: 20 41 4E 20 41 44 44 52 45 53 53 22 00 E8 0B 2C | AN ADDRESS"...,|
000003A0: 01 99 A3 35 29 22 11 81 12 20 32 20 92 9A 20 20 |...5)"... 2 .. |
000003B0: C3 48 41 4E 47 45 20 41 4E 20 41 44 44 52 45 53 |.HANGE AN ADDRES|
000003C0: 53 22 3A 99 A3 35 29 22 11 81 12 20 33 20 92 9A |S":..5)"... 3 ..|
000003D0: 20 20 D3 45 41 52 43 48 20 46 4F 52 20 41 4E 20 | .EARCH FOR AN |
000003E0: 41 44 44 52 45 53 53 22 00 37 0C 40 01 99 A3 35 |ADDRESS".7.@...5|
000003F0: 29 22 11 81 12 20 34 20 92 9A 20 20 CE 41 4D 45 |)"... 4 .. .AME|
00000400: 20 44 49 53 50 4C 41 59 20 42 59 20 4C 45 54 54 | DISPLAY BY LETT|
00000410: 45 52 22 3A 99 A3 35 29 22 11 81 12 20 35 20 92 |ER":..5)"... 5 .|
00000420: 9A 20 20 CC 4F 41 44 20 44 41 54 41 20 46 52 4F |. .OAD DATA FRO|
00000430: 4D 20 44 49 53 4B 22 00 7D 0C 59 01 99 A3 35 29 |M DISK".}.Y...5)|
00000440: 22 11 81 12 20 36 20 92 9A 20 20 D0 52 49 4E 54 |"... 6 .. .RINT|
00000450: 20 41 44 44 52 45 53 53 45 53 22 3A 99 A3 35 29 | ADDRESSES":..5)|
00000460: 22 11 12 81 20 37 20 92 9A 20 20 C3 48 45 43 4B |"... 7 .. .HECK|
00000470: 20 46 52 45 45 20 4D 45 4D 4F 52 59 22 00 A8 0C | FREE MEMORY"...|
00000480: 5B 01 99 22 11 1D 1D 1D 1D 1D 81 12 20 38 20 92 |[.."........ 8 .|
00000490: 9A 20 20 D3 41 56 45 20 44 41 54 41 20 2F 20 D3 |. .AVE DATA / .|
000004A0: 49 47 4E 2D 4F 46 46 22 00 CA 0C 5C 01 49 45 B2 |IGN-OFF"...\.IE.|
000004B0: 30 3A 4E 53 B2 30 3A 46 37 B2 30 3A 46 36 B2 30 |0:NS.0:F7.0:F6.0|
000004C0: 3A 46 35 B2 30 3A 46 34 B2 30 00 07 0D 5E 01 8D |:F5.0:F4.0...^..|
000004D0: 31 30 30 30 30 3A 91 C5 28 41 24 29 89 35 31 35 |10000:..(A$).515|
000004E0: 2C 31 32 30 30 2C 32 30 30 30 2C 32 31 30 30 2C |,1200,2000,2100,|
000004F0: 31 35 30 2C 32 35 30 30 2C 34 35 30 30 2C 31 30 |150,2500,4500,10|
00000500: 30 30 3A 89 33 35 30 00 1B 0D 03 02 8D 39 30 30 |00:.350......900|
00000510: 30 3A 8B 50 36 B2 32 A7 32 34 30 00 3A 0D 04 02 |0:.P6.2.240.:...|
00000520: 99 22 93 22 3B 3A 8B B8 28 30 29 B3 35 30 30 A7 |.".";:..(0).500.|
00000530: 8D 35 30 30 30 3A 89 32 34 30 00 56 0D 05 02 81 |.5000:.240.V....|
00000540: 4E B2 30 A4 31 30 3A 41 24 28 4E 29 B2 22 22 3A |N.0.10:A$(N)."":|
00000550: 82 3A 49 45 B2 30 00 86 0D 08 02 99 22 93 D0 4C |.:IE.0......"..L|
00000560: 45 41 53 45 20 45 4E 54 45 52 20 54 48 45 20 46 |EASE ENTER THE F|
00000570: 4F 4C 4C 4F 57 49 4E 47 20 49 4E 46 4F 52 4D 41 |OLLOWING INFORMA|
00000580: 54 49 4F 4E 3A 22 00 B9 0D 09 02 8B 49 45 B2 31 |TION:"......IE.1|
00000590: A7 99 22 C8 49 54 20 12 20 43 55 52 53 4F 52 20 |..".IT . CURSOR |
000005A0: 44 4F 57 4E 20 92 20 54 4F 20 53 4B 49 50 20 4C |DOWN . TO SKIP L|
000005B0: 49 4E 45 22 3A 89 35 32 33 00 BF 0D 0A 02 99 00 |INE":.523.......|
000005C0: F1 0D 0B 02 99 22 C8 49 54 20 12 20 4E 20 92 20 |.....".IT . N . |
000005D0: 49 46 20 49 4E 46 4F 52 4D 41 54 49 4F 4E 20 49 |IF INFORMATION I|
000005E0: 53 20 12 4E 4F 54 20 41 56 41 49 4C 41 42 4C 45 |S .NOT AVAILABLE|
000005F0: 22 00 33 0E 0D 02 99 22 C8 49 54 20 12 20 5F 20 |".3....".IT . _ |
00000600: 92 20 4F 4E 43 45 20 46 49 4E 49 53 48 45 44 20 |. ONCE FINISHED |
00000610: 45 4E 54 45 52 49 4E 47 20 41 20 20 50 41 52 41 |ENTERING A PARA|
00000620: 2D 22 3A 99 22 20 20 20 20 20 20 20 20 47 52 41 |-":." GRA|
00000630: 50 48 22 00 62 0E 0F 02 99 22 11 D3 D5 D2 CE C1 |PH".b...."......|
00000640: CD C5 20 20 3A 20 20 22 3B 3A 4E B2 30 3A 4E 55 |.. : ";:N.0:NU|
00000650: B2 31 39 3A 99 41 24 28 30 29 3B 3A 8D 33 35 30 |.19:.A$(0);:.350|
00000660: 30 30 00 8A 0E 12 02 99 22 CE C1 CD C5 20 20 20 |00......".... |
00000670: 20 20 3A 20 20 22 3B 3A 4E B2 31 3A 99 41 24 28 | : ";:N.1:.A$(|
00000680: 31 29 3B 3A 8D 33 35 30 30 30 00 CA 0E 16 02 99 |1);:.35000......|
00000690: 22 11 11 C1 C4 C4 D2 C5 D3 D3 20 20 3A 20 20 22 |"......... : "|
000006A0: 3B 3A 8B 41 24 28 32 29 B2 22 4E 22 A7 99 22 CE |;:.A$(2)."N"..".|
000006B0: 4F 54 20 C1 56 41 49 4C 41 42 4C 45 22 3B 3A 8D |OT .VAILABLE";:.|
000006C0: 33 34 30 30 30 3A 89 35 33 37 00 E7 0E 17 02 4E |34000:.537.....N|
000006D0: B2 32 3A 4E 55 B2 32 37 3A 99 41 24 28 32 29 3B |.2:NU.27:.A$(2);|
000006E0: 3A 8D 33 35 30 30 30 00 0D 0F 19 02 4E 55 B2 32 |:.35000.....NU.2|
000006F0: 37 3A 81 4E B2 33 A4 38 3A 99 A3 31 32 29 41 24 |7:.N.3.8:..12)A$|
00000700: 28 4E 29 3B 3A 8D 33 35 30 30 30 3A 82 00 4D 0F |(N);:.35000:..M.|
00000710: 1C 02 99 22 11 11 D4 C5 CC C5 D0 C8 CF CE C5 3A |..."...........:|
00000720: 20 20 22 3B 3A 8B 41 24 28 39 29 B2 22 4E 22 A7 | ";:.A$(9)."N".|
00000730: 99 22 CE 4F 54 20 C1 56 41 49 4C 41 42 4C 45 22 |.".OT .VAILABLE"|
00000740: 3B 3A 8D 33 34 30 30 30 3A 89 35 34 33 00 64 0F |;:.34000:.543.d.|
00000750: 1D 02 4E B2 39 3A 99 41 24 28 39 29 3B 3A 8D 33 |..N.9:.A$(9);:.3|
00000760: 35 30 30 30 00 81 0F 1F 02 4E B2 31 30 3A 99 A3 |5000.....N.10:..|
00000770: 31 32 29 41 24 28 31 30 29 3B 3A 8D 33 35 30 30 |12)A$(10);:.3500|
00000780: 30 00 96 0F 23 02 8B 49 45 B2 31 A7 43 4F B2 31 |0...#..IE.1.CO.1|
00000790: 32 3A 89 35 35 37 00 CE 0F 26 02 43 4F B2 31 32 |2:.557...&.CO.12|
000007A0: 3A 4C 4E B2 37 3A 8D 32 39 38 30 30 3A 50 33 B2 |:LN.7:.29800:P3.|
000007B0: 31 39 3A 50 34 B2 33 3A 8D 33 30 30 30 30 3A 8D |19:P4.3:.30000:.|
000007C0: 33 30 33 33 30 3A 41 24 28 30 29 B2 50 24 00 FB |30330:A$(0).P$..|
000007D0: 0F 27 02 41 B2 C6 28 41 24 28 30 29 AA C7 28 30 |.'.A..(A$(0)..(0|
000007E0: 29 29 3A 8B 41 B3 31 39 33 B0 41 B1 32 31 38 A7 |)):.A.193.A.218.|
000007F0: 99 22 91 91 91 22 3A 89 35 35 30 00 32 10 28 02 |."...":.550.2.(.|
00000800: 99 A3 31 31 29 3B 3A 50 34 B2 31 3A 8D 33 30 30 |..11);:P4.1:.300|
00000810: 30 30 3A 8D 33 30 33 33 30 3A 41 24 28 31 29 B2 |00:.30330:A$(1).|
00000820: 50 24 3A 41 B2 C6 28 41 24 28 31 29 AA C7 28 30 |P$:A..(A$(1)..(0|
00000830: 29 29 00 4E 10 2B 02 8B 41 B3 31 39 33 B0 41 B1 |)).N.+..A.193.A.|
00000840: 32 31 38 A7 99 22 91 91 22 3A 89 35 35 32 00 6A |218.."..":.552.j|
00000850: 10 2C 02 41 24 28 31 29 B2 41 24 28 30 29 AA C7 |.,.A$(1).A$(0)..|
00000860: 28 33 32 29 AA 41 24 28 31 29 00 9A 10 2D 02 4C |(32).A$(1)...-.L|
00000870: 4E B2 31 31 3A 8D 32 39 38 30 30 3A 50 33 B2 32 |N.11:.29800:P3.2|
00000880: 37 3A 50 34 B2 31 3A 8D 32 39 39 30 30 3A 8B 50 |7:P4.1:.29900:.P|
00000890: 24 B3 B1 22 4E 22 A7 35 36 30 00 E3 10 2F 02 41 |$.."N".560.../.A|
000008A0: 24 28 32 29 B2 22 4E 22 3A 99 A3 31 32 29 22 91 |$(2)."N":..12)".|
000008B0: CE 4F 54 20 C1 56 41 49 4C 41 42 4C 45 22 3A 81 |.OT .VAILABLE":.|
000008C0: 4E B2 33 A4 38 3A 41 24 28 4E 29 B2 22 22 3A 99 |N.3.8:A$(N)."":.|
000008D0: A3 31 32 29 3B 3A 8D 33 35 30 30 30 3A 82 3A 89 |.12);:.35000:.:.|
000008E0: 35 36 37 00 F6 10 30 02 8B 50 24 B2 22 11 22 A7 |567...0..P$.".".|
000008F0: 99 3A 89 35 36 33 00 0D 11 31 02 41 24 28 32 29 |.:.563...1.A$(2)|
00000900: B2 50 24 3A 8B 50 36 B2 31 A7 35 36 37 00 40 11 |.P$:.P6.1.567.@.|
00000910: 33 02 50 34 B2 30 3A 81 4E B2 33 A4 38 3A 99 A3 |3.P4.0:.N.3.8:..|
00000920: 31 31 29 3B 3A 8D 32 39 39 30 30 3A 8B 50 24 B2 |11);:.29900:.P$.|
00000930: 22 11 22 AF 41 24 28 4E 29 B2 22 22 A7 35 36 37 |".".A$(N)."".567|
00000940: 00 5D 11 34 02 8B 50 24 B2 22 11 22 AF 41 24 28 |.].4..P$.".".A$(|
00000950: 4E 29 B3 B1 22 22 A7 99 3A 89 35 36 36 00 74 11 |N)..""..:.566.t.|
00000960: 35 02 41 24 28 4E 29 B2 50 24 3A 8B 50 36 B2 31 |5.A$(N).P$:.P6.1|
00000970: A7 35 36 37 00 7B 11 36 02 82 4E 00 9B 11 37 02 |.567.{.6..N...7.|
00000980: 4E B2 32 3A 4D B2 38 3A 8D 32 38 30 30 30 3A 8D |N.2:M.8:.28000:.|
00000990: 33 30 33 34 30 3A 53 24 B2 50 24 00 C5 11 3A 02 |30340:S$.P$...:.|
000009A0: 4C 4E B2 32 30 3A 8D 32 39 38 30 30 3A 50 34 B2 |LN.20:.29800:P4.|
000009B0: 31 3A 8D 32 39 39 30 30 3A 8B 50 24 B3 B1 22 4E |1:.29900:.P$.."N|
000009C0: 22 A7 35 37 34 00 06 12 3C 02 41 24 28 39 29 B2 |".574...<.A$(9).|
000009D0: 22 4E 22 3A 99 A3 31 32 29 22 91 CE 4F 54 20 C1 |"N":..12)"..OT .|
000009E0: 56 41 49 4C 41 42 4C 45 22 3A 41 24 28 31 30 29 |VAILABLE":A$(10)|
000009F0: B2 22 22 3A 99 A3 31 32 29 3B 3A 8D 33 35 30 30 |."":..12);:.3500|
00000A00: 30 3A 89 35 39 30 00 19 12 3E 02 8B 50 24 B2 22 |0:.590...>..P$."|
00000A10: 11 22 A7 99 3A 89 35 37 38 00 30 12 40 02 41 24 |."..:.578.0.@.A$|
00000A20: 28 39 29 B2 50 24 3A 8B 50 36 B2 31 A7 35 39 30 |(9).P$:.P6.1.590|
00000A30: 00 5C 12 42 02 50 34 B2 30 3A 99 A3 31 31 29 3A |.\.B.P4.0:..11):|
00000A40: 8D 32 39 39 30 30 3A 8B 50 24 B2 22 11 22 AF 41 |.29900:.P$.".".A|
00000A50: 24 28 31 30 29 B2 22 22 A7 35 39 30 00 7A 12 44 |$(10)."".590.z.D|
00000A60: 02 8B 50 24 B2 22 11 22 AF 41 24 28 31 30 29 B3 |..P$.".".A$(10).|
00000A70: B1 22 22 A7 99 3A 89 35 39 30 00 88 12 46 02 41 |.""..:.590...F.A|
00000A80: 24 28 31 30 29 B2 50 24 00 A3 12 4E 02 4E B2 39 |$(10).P$...N.N.9|
00000A90: 3A 4D B2 31 30 3A 8D 32 38 30 30 30 3A 8D 33 30 |:M.10:.28000:.30|
00000AA0: 33 34 30 00 BF 12 53 02 53 24 B2 53 24 AA 22 5F |340...S.S$.S$."_|
00000AB0: 22 AA 50 24 3A 8B 49 45 B2 31 A7 31 36 33 30 00 |".P$:.IE.1.1630.|
00000AC0: E1 12 5D 02 99 3A 99 22 41 43 43 45 50 54 22 3B |..]..:."ACCEPT";|
00000AD0: 3A 8D 31 31 30 30 30 3A 8B 50 36 B2 32 A7 35 31 |:.11000:.P6.2.51|
00000AE0: 37 00 1F 13 62 02 99 22 93 C8 41 4E 47 2D 4F 4E |7...b.."..ANG-ON|
00000AF0: 20 57 48 49 4C 45 20 50 4F 53 54 49 4E 47 22 3A | WHILE POSTING":|
00000B00: 49 B2 B5 28 28 C6 28 41 24 28 31 29 29 AB 31 39 |I..((.(A$(1)).19|
00000B10: 33 29 AD 32 29 3A 8B 49 B1 39 A7 49 B2 31 30 00 |3).2):.I.9.I.10.|
00000B20: 35 13 6C 02 4A B2 43 28 49 29 3A 8B 4A B1 B2 35 |5.l.J.C(I):.J..5|
00000B30: 30 A7 36 35 30 00 58 13 76 02 4E 24 28 4A 2C 49 |0.650.X.v.N$(J,I|
00000B40: 29 B2 41 24 28 31 29 3A 43 28 49 29 B2 43 28 49 |).A$(1):C(I).C(I|
00000B50: 29 AA 31 3A 89 36 38 30 00 89 13 8A 02 8D 32 30 |).1:.680......20|
00000B60: 30 30 30 3A 99 22 93 D3 4F 52 52 59 20 2D 20 D4 |000:."..ORRY - .|
00000B70: 48 49 53 20 50 41 47 45 20 49 53 20 46 55 4C 4C |HIS PAGE IS FULL|
00000B80: 2D 55 50 22 3A 89 37 30 35 00 A6 13 A8 02 53 24 |-UP":.705.....S$|
00000B90: 28 4A 2C 49 29 B2 53 24 3A 46 31 B2 31 3A 8B 4A |(J,I).S$:F1.1:.J|
00000BA0: B2 30 A7 37 30 30 00 C2 13 B8 02 8B 20 4E 24 28 |.0.700...... N$(|
00000BB0: 4A 2C 49 29 B3 4E 24 28 4A AB 31 2C 49 29 A7 37 |J,I).N$(J.1,I).7|
00000BC0: 35 30 00 01 14 BC 02 8D 32 30 30 30 30 3A 99 22 |50......20000:."|
00000BD0: 11 11 CF CB 22 3A 99 22 11 11 12 22 35 31 AB 43 |....":."..."51.C|
00000BE0: 28 49 29 22 9D 20 C5 4E 54 52 49 45 53 20 4C 45 |(I)". .NTRIES LE|
00000BF0: 46 54 20 49 4E 20 54 48 49 53 20 50 41 47 45 92 |FT IN THIS PAGE.|
00000C00: 22 00 2C 14 C1 02 99 22 11 11 C1 4E 59 20 4F 54 |".,...."...NY OT|
00000C10: 48 45 52 20 45 4E 54 52 59 22 3B 3A 8D 31 31 30 |HER ENTRY";:.110|
00000C20: 30 30 3A 8B 50 36 B2 31 A7 35 31 35 00 35 14 C6 |00:.P6.1.515.5..|
00000C30: 02 89 32 34 30 00 5F 14 EE 02 53 B2 4A 3A 81 4A |..240._...S.J:.J|
00000C40: B2 53 A4 31 A9 AB 31 3A 8B 4E 24 28 4A 2C 49 29 |.S.1..1:.N$(J,I)|
00000C50: B1 B2 4E 24 28 4A AB 31 2C 49 29 A7 37 30 30 00 |..N$(J.1,I).700.|
00000C60: 71 14 07 03 8D 20 39 30 30 3A 82 4A 3A 89 37 30 |q.... 900:.J:.70|
00000C70: 30 00 9F 14 84 03 42 24 B2 4E 24 28 4A AB 31 2C |0.....B$.N$(J.1,|
00000C80: 49 29 3A 4E 24 28 4A AB 31 2C 49 29 B2 4E 24 28 |I):N$(J.1,I).N$(|
00000C90: 4A 2C 49 29 3A 4E 24 28 4A 2C 49 29 B2 42 24 00 |J,I):N$(J,I).B$.|
00000CA0: CF 14 8E 03 42 24 B2 53 24 28 4A AB 31 2C 49 29 |....B$.S$(J.1,I)|
00000CB0: 3A 53 24 28 4A AB 31 2C 49 29 B2 53 24 28 4A 2C |:S$(J.1,I).S$(J,|
00000CC0: 49 29 3A 53 24 28 4A 2C 49 29 B2 42 24 3A 8E 00 |I):S$(J,I).B$:..|
00000CD0: DE 14 E8 03 8B 46 31 B2 31 A7 31 30 31 35 00 ED |.....F1.1.1015..|
00000CE0: 14 ED 03 99 22 93 22 3A 89 31 31 37 30 00 2B 15 |....".":.1170.+.|
00000CF0: F2 03 99 C7 28 39 29 3A 97 35 33 32 37 32 2C 32 |....(9):.53272,2|
00000D00: 31 3A 97 35 33 32 38 30 2C 31 34 3A 99 22 93 11 |1:.53280,14:."..|
00000D10: 22 A3 38 29 22 4F 4B 2C 20 4E 4F 57 20 53 49 47 |".8)"OK, NOW SIG|
00000D20: 4E 49 4E 47 2D 4F 46 46 22 3A 80 00 77 15 F7 03 |NING-OFF":..w...|
00000D30: 99 22 93 D9 4F 55 20 48 41 56 45 20 4D 41 44 45 |."..OU HAVE MADE|
00000D40: 20 53 4F 4D 45 20 41 4C 54 45 52 41 54 49 4F 4E | SOME ALTERATION|
00000D50: 53 22 3A 99 22 11 C4 4F 20 59 4F 55 20 57 49 53 |S":."..O YOU WIS|
00000D60: 48 20 54 4F 20 53 41 56 45 20 54 48 45 4D 22 3B |H TO SAVE THEM";|
00000D70: 3A 8D 31 31 30 30 30 00 86 15 FA 03 8B 50 36 B2 |:.11000......P6.|
00000D80: 32 A7 31 31 37 30 00 CD 15 03 04 99 22 93 D0 4C |2.1170......"..L|
00000D90: 45 41 53 45 20 45 4E 54 45 52 20 4E 41 4D 45 20 |EASE ENTER NAME |
00000DA0: 4F 46 20 46 49 4C 45 20 54 4F 20 42 45 20 53 41 |OF FILE TO BE SA|
00000DB0: 56 45 44 22 3A 99 22 11 28 CD 41 58 20 12 31 36 |VED":.".(.AX .16|
00000DC0: 92 20 4C 45 54 54 45 52 53 29 20 22 3B 00 F4 15 |. LETTERS) ";...|
00000DD0: 04 04 50 34 B2 31 3A 50 33 B2 31 36 3A 8D 33 30 |..P4.1:P3.16:.30|
00000DE0: 30 30 30 3A 8D 35 35 30 30 3A 8B 50 36 B2 32 A7 |000:.5500:.P6.2.|
00000DF0: 31 30 32 37 00 28 16 06 04 42 24 B2 50 24 3A 99 |1027.(...B$.P$:.|
00000E00: 22 11 D0 4C 45 41 53 45 20 4C 4F 41 44 20 59 4F |"..LEASE LOAD YO|
00000E10: 55 52 20 44 41 54 41 20 44 49 53 4B 20 49 4E 20 |UR DATA DISK IN |
00000E20: 44 52 49 56 45 20 30 22 00 73 16 15 04 99 22 11 |DRIVE 0".s....".|
00000E30: 12 C8 49 54 20 41 4E 59 20 4B 45 59 20 54 4F 20 |..IT ANY KEY TO |
00000E40: 43 4F 4E 54 49 4E 55 45 92 11 22 3A 8D 31 30 30 |CONTINUE..":.100|
00000E50: 30 30 3A 99 22 D0 4C 45 41 53 45 20 48 4F 4C 44 |00:.".LEASE HOLD|
00000E60: 20 57 48 49 4C 45 20 53 41 56 49 4E 47 20 44 41 | WHILE SAVING DA|
00000E70: 54 41 22 00 A6 16 2E 04 49 B2 30 3A 9F 31 2C 38 |TA".....I.0:.1,8|
00000E80: 2C 32 2C 22 40 30 3A 22 AA 42 24 AA 22 2C 53 2C |,2,"@0:".B$.",S,|
00000E90: 57 22 3A 8D 39 35 30 30 3A 8B 50 36 B2 31 A7 A0 |W":.9500:.P6.1..|
00000EA0: 31 3A 89 32 34 30 00 B2 16 31 04 81 4A B2 30 A4 |1:.240...1..J.0.|
00000EB0: 35 30 00 CF 16 33 04 8B 4E 24 28 4A 2C 49 29 B2 |50...3..N$(J,I).|
00000EC0: 22 22 A7 98 31 2C 22 5E 22 3A 89 31 31 32 30 00 |""..1,"^":.1120.|
00000ED0: F5 16 38 04 98 31 2C 4E 24 28 4A 2C 49 29 3A 8B |..8..1,N$(J,I):.|
00000EE0: C3 28 53 24 28 4A 2C 49 29 29 B1 B2 37 39 A7 98 |.(S$(J,I))..79..|
00000EF0: 31 2C 22 2A 22 00 07 17 42 04 98 31 2C 53 24 28 |1,"*"...B..1,S$(|
00000F00: 4A 2C 49 29 3A 82 4A 00 1D 17 60 04 49 B2 49 AA |J,I):.J...`.I.I.|
00000F10: 31 3A 8B 49 B3 B2 31 30 A7 31 30 37 33 00 28 17 |1:.I..10.1073.(.|
00000F20: 6A 04 A0 31 3A A0 31 35 00 69 17 7E 04 8D 32 30 |j..1:.15.i.~..20|
00000F30: 30 30 30 3A 99 22 11 C4 4F 20 59 4F 55 20 57 49 |000:."..O YOU WI|
00000F40: 53 48 20 54 4F 20 53 41 56 45 20 54 48 45 4D 20 |SH TO SAVE THEM |
00000F50: 41 47 41 49 4E 22 3B 3A 8D 31 31 30 30 30 3A 8B |AGAIN";:.11000:.|
00000F60: 50 36 B2 31 A7 31 30 32 37 00 9D 17 92 04 99 22 |P6.1.1027......"|
00000F70: 11 C4 4F 20 59 4F 55 20 57 49 53 48 20 54 4F 20 |..O YOU WISH TO |
00000F80: 53 49 47 4E 2D 4F 46 46 20 22 3B 3A 8D 31 31 30 |SIGN-OFF ";:.110|
00000F90: 30 30 3A 8B 50 36 B2 31 A7 31 30 31 30 00 A6 17 |00:.P6.1.1010...|
00000FA0: A1 04 89 32 34 30 00 BA 17 B0 04 8D 39 30 30 30 |...240......9000|
00000FB0: 3A 8B 50 36 B2 32 A7 32 34 30 00 D9 17 B3 04 99 |:.P6.2.240......|
00000FC0: 22 93 22 3B 3A 8B B8 28 30 29 B3 35 30 30 A7 8D |".";:..(0).500..|
00000FD0: 35 30 30 30 3A 89 32 34 30 00 0C 18 B5 04 99 22 |5000:.240......"|
00000FE0: 93 C5 4E 54 45 52 20 12 D3 55 52 4E 41 4D 45 20 |..NTER ..URNAME |
00000FF0: 26 20 CE 41 4D 45 92 20 46 4F 52 20 41 4C 54 45 |& .AME. FOR ALTE|
00001000: 52 41 54 49 4F 4E 22 3A 4E 53 B2 30 00 4E 18 BA |RATION":NS.0.N..|
00001010: 04 46 33 B2 30 3A 50 33 B2 33 36 3A 50 34 B2 32 |.F3.0:P3.36:P4.2|
00001020: 3A 8D 33 30 30 30 30 3A 41 24 B2 50 24 3A 41 B2 |:.30000:A$.P$:A.|
00001030: C6 28 41 24 29 3A 8B 41 B3 31 39 33 B0 41 B1 32 |.(A$):.A.193.A.2|
00001040: 31 38 A7 99 22 91 22 3B 3A 89 31 32 31 30 00 6B |18..".";:.1210.k|
00001050: 18 C4 04 49 B2 B5 28 28 41 AB 31 39 33 29 AD 32 |...I..((A.193).2|
00001060: 29 3A 8B 49 B1 39 A7 49 B2 31 30 00 8A 18 CE 04 |):.I.9.I.10.....|
00001070: 81 4A B2 30 A4 43 28 49 29 3A 8B 4E 24 28 4A 2C |.J.0.C(I):.N$(J,|
00001080: 49 29 B2 41 24 A7 31 34 39 30 00 91 18 D5 04 82 |I).A$.1490......|
00001090: 4A 00 E0 18 D8 04 99 22 11 CE 4F 20 52 45 43 4F |J......"..O RECO|
000010A0: 52 44 20 4F 46 20 54 48 49 53 20 4E 41 4D 45 22 |RD OF THIS NAME"|
000010B0: 3A 8D 32 30 30 30 30 3A 99 22 CE 4F 57 20 53 45 |:.20000:.".OW SE|
000010C0: 41 52 43 48 49 4E 47 20 46 4F 52 20 50 4F 53 53 |ARCHING FOR POSS|
000010D0: 49 42 4C 45 20 41 4C 54 45 52 4E 41 54 49 56 45 |IBLE ALTERNATIVE|
000010E0: 00 F8 18 EC 04 5A 42 B2 30 3A 5A 54 B2 30 3A 81 |.....ZB.0:ZT.0:.|
000010F0: 4A B2 30 A4 43 28 49 29 00 26 19 00 05 8B C8 28 |J.0.C(I).&.....(|
00001100: 4E 24 28 4A 2C 49 29 2C C3 28 41 24 29 29 B2 41 |N$(J,I),.(A$)).A|
00001110: 24 A7 5A 42 B2 4A 3A 5A 54 B2 4A 3A 46 33 B2 31 |$.ZB.J:ZT.J:F3.1|
00001120: 3A 89 31 32 39 33 00 39 19 0A 05 82 4A 3A 8B 46 |:.1293.9....J:.F|
00001130: 33 B3 B1 31 A7 31 32 39 36 00 4F 19 0D 05 4A B2 |3..1.1296.O...J.|
00001140: 4A AA 31 3A 8B 4A B1 B2 35 31 A7 31 32 39 38 00 |J.1:.J..51.1298.|
00001150: 76 19 0E 05 8B C8 28 4E 24 28 4A 2C 49 29 2C C3 |v.....(N$(J,I),.|
00001160: 28 41 24 29 29 B2 41 24 A7 5A 54 B2 5A 54 AA 31 |(A$)).A$.ZT.ZT.1|
00001170: 3A 89 31 32 39 33 00 80 19 0F 05 89 31 32 39 38 |:.1293......1298|
00001180: 00 A8 19 10 05 99 22 D3 4F 52 52 59 20 4E 4F 54 |......".ORRY NOT|
00001190: 48 49 4E 47 20 43 4C 4F 53 45 22 3A 8B 46 34 B2 |HING CLOSE":.F4.|
000011A0: 31 A7 46 34 B2 32 3A 8E 00 B6 19 11 05 99 3A 99 |1.F4.2:.......:.|
000011B0: 3A 89 31 38 37 30 00 E5 19 12 05 99 22 C9 20 C8 |:.1870......". .|
000011C0: 41 56 45 20 46 4F 55 4E 44 20 54 48 45 20 46 4F |AVE FOUND THE FO|
000011D0: 4C 4C 4F 57 49 4E 47 3A 22 3A 8D 32 30 30 30 30 |LLOWING:":.20000|
000011E0: 3A 4E B2 5A 42 00 12 1A 1E 05 99 22 11 D2 C5 C3 |:N.ZB......"....|
000011F0: CF D2 C4 20 CE 4F 22 2C 22 CE C1 CD C5 22 3A 99 |... .O","....":.|
00001200: 22 A3 A3 A3 A3 A3 A3 A3 A3 A3 22 2C 22 A3 A3 A3 |".........","...|
00001210: A3 22 00 20 1A 46 05 81 4D B2 4E A4 4E AA 31 35 |.". .F..M.N.N.15|
00001220: 00 2F 1A 4B 05 8B 4D B1 5A 54 A7 31 33 38 32 00 |./.K..M.ZT.1382.|
00001230: 47 1A 5A 05 99 22 1D 1D 22 4D AA 31 2C 4E 24 28 |G.Z..".."M.1,N$(|
00001240: 4D 2C 49 29 3A 82 4D 00 7A 1A 66 05 99 22 11 D0 |M,I):.M.z.f.."..|
00001250: 52 45 53 53 20 12 20 43 20 92 20 54 4F 20 43 4F |RESS . C . TO CO|
00001260: 4E 54 49 4E 55 45 20 53 43 41 4E 20 12 20 53 20 |NTINUE SCAN . S |
00001270: 92 20 54 4F 20 53 54 4F 50 22 00 AC 1A 68 05 99 |. TO STOP"...h..|
00001280: 22 12 20 52 20 92 20 54 4F 20 52 45 53 54 41 52 |". R . TO RESTAR|
00001290: 54 20 53 43 41 4E 20 4F 52 20 12 20 43 4F 52 52 |T SCAN OR . CORR|
000012A0: 45 53 50 4F 4E 44 49 4E 47 20 92 22 00 DC 1A 6A |ESPONDING ."...j|
000012B0: 05 99 22 4E 55 4D 42 45 52 20 54 4F 20 41 43 43 |.."NUMBER TO ACC|
000012C0: 45 53 53 20 50 4F 54 45 4E 54 49 41 4C 20 52 45 |ESS POTENTIAL RE|
000012D0: 43 4F 52 44 22 3A 8D 32 30 30 30 30 00 1B 1B 6E |CORD":.20000...n|
000012E0: 05 99 22 11 45 4E 54 45 52 20 4E 4F 57 3A 20 22 |..".ENTER NOW: "|
000012F0: 3B 3A 50 33 B2 32 3A 50 34 B2 31 3A 8D 33 30 30 |;:P3.2:P4.1:.300|
00001300: 30 30 3A 8B 50 24 B2 22 52 22 A7 4E B2 5A 42 3A |00:.P$."R".N.ZB:|
00001310: 99 22 93 22 3B 3A 89 31 33 31 30 00 3D 1B 82 05 |.".";:.1310.=...|
00001320: 8B 50 24 B2 22 43 22 AF 4D B3 B2 5A 54 A7 4E B2 |.P$."C".M..ZT.N.|
00001330: 4D 3A 99 22 93 22 3B 3A 89 31 33 31 30 00 4D 1B |M:.".";:.1310.M.|
00001340: 87 05 8B 50 24 B2 22 53 22 A7 32 34 30 00 70 1B |...P$."S".240.p.|
00001350: 89 05 58 B2 C5 28 50 24 29 3A 8B 58 B3 B2 30 B0 |..X..(P$):.X..0.|
00001360: 58 B1 4D A7 99 22 91 91 91 22 3A 89 31 33 39 30 |X.M.."...":.1390|
00001370: 00 7A 1B 8C 05 4A B2 58 AB 31 00 82 1B D2 05 45 |.z...J.X.1.....E|
00001380: B2 30 00 BB 1B DC 05 99 22 93 22 A3 31 30 29 22 |.0......".".10)"|
00001390: D2 45 43 4F 52 44 20 CE 55 4D 42 45 52 3A 22 4A |.ECORD .UMBER:"J|
000013A0: AA 31 3A 99 A3 31 30 29 22 A3 A3 A3 A3 A3 A3 A3 |.1:..10)".......|
000013B0: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 22 00 D1 1B E8 05 |..........".....|
000013C0: 8D 32 37 30 30 30 3A 8B 46 35 B2 31 A7 31 35 31 |.27000:.F5.1.151|
000013D0: 34 00 01 1C E9 05 58 B2 B5 28 32 30 AB 4C 4C AD |4.....X..(20.LL.|
000013E0: 32 29 3A 99 A3 58 29 4E 54 24 3A 99 A3 58 29 3A |2):..X)NT$:..X):|
000013F0: 81 58 B2 31 A4 4C 4C 3A 99 22 2D 22 3B 3A 82 3A |.X.1.LL:."-";:.:|
00001400: 99 00 27 1C EA 05 8D 32 37 31 30 30 3A 41 24 B2 |..'....27100:A$.|
00001410: 22 CE 4F 54 20 C1 56 41 49 4C 41 42 4C 45 22 3A |".OT .VAILABLE":|
00001420: 8B 46 35 B2 31 A7 8E 00 5D 1C F0 05 99 22 11 12 |.F5.1...]...."..|
00001430: 81 C1 44 44 52 45 53 53 3A 92 9A 22 3A 99 22 2D |..DDRESS:..":."-|
00001440: 2D 2D 2D 2D 2D 2D 2D 22 3A 8B 41 24 28 32 29 B2 |-------":.A$(2).|
00001450: 22 4E 22 A7 99 41 24 3A 89 31 35 32 36 00 68 1C |"N"..A$:.1526.h.|
00001460: F3 05 99 41 24 28 32 29 00 A2 1C F6 05 99 22 11 |...A$(2)......".|
00001470: 12 81 D4 45 4C 45 50 48 4F 4E 45 3A 92 9A 22 3A |...ELEPHONE:..":|
00001480: 99 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 3A 8B 41 |."----------":.A|
00001490: 24 28 33 29 B2 22 4E 22 A7 99 41 24 3A 89 31 35 |$(3)."N"..A$:.15|
000014A0: 32 39 00 AD 1C F8 05 99 41 24 28 33 29 00 DF 1C |29......A$(3)...|
000014B0: F9 05 99 A3 38 29 22 11 2A 2A 2A 20 20 C5 4E 44 |....8)".*** .ND|
000014C0: 20 D2 45 43 4F 52 44 20 20 2A 2A 2A 22 3A 8D 32 | .ECORD ***":.2|
000014D0: 30 30 30 30 3A 8B 49 45 B2 31 A7 31 35 37 30 00 |0000:.IE.1.1570.|
000014E0: EF 1C FF 05 8B 4A B1 B2 35 30 A7 31 35 36 37 00 |.....J..50.1567.|
000014F0: 0C 1D 04 06 8B 4E 24 28 4A 2C 49 29 B3 B1 4E 24 |.....N$(J,I)..N$|
00001500: 28 4A AA 31 2C 49 29 A7 31 35 36 37 00 58 1D 0E |(J.1,I).1567.X..|
00001510: 06 99 22 11 1D 1D D4 48 45 52 45 20 49 53 20 41 |.."....HERE IS A|
00001520: 4E 4F 54 48 45 52 20 52 45 43 4F 52 44 20 49 4E |NOTHER RECORD IN|
00001530: 20 54 48 41 54 20 4E 41 4D 45 22 3A 99 A3 31 30 | THAT NAME":..10|
00001540: 29 22 12 48 49 54 20 41 4E 59 20 4B 45 59 20 54 |)".HIT ANY KEY T|
00001550: 4F 20 56 49 45 57 92 22 00 8C 1D 15 06 99 A3 31 |O VIEW.".......1|
00001560: 30 29 22 12 4F 52 20 48 49 54 20 20 53 20 20 54 |0)".OR HIT S T|
00001570: 4F 20 20 53 54 4F 50 22 3A 8D 31 30 30 30 30 3A |O STOP":.10000:|
00001580: 8B 41 24 B2 22 53 22 A7 31 35 36 37 00 9C 1D 1D |.A$."S".1567....|
00001590: 06 4A B2 4A AA 31 3A 89 31 35 30 30 00 AB 1D 1F |.J.J.1:.1500....|
000015A0: 06 8B 4E 53 B2 31 A7 32 30 32 30 00 B7 1D 20 06 |..NS.1.2020... .|
000015B0: 8B 46 34 B2 31 A7 8E 00 F2 1D 22 06 99 22 11 C9 |.F4.1.....".."..|
000015C0: 53 20 41 4C 54 45 52 41 54 49 4F 4E 2F 44 45 4C |S ALTERATION/DEL|
000015D0: 45 54 49 4F 4E 20 52 45 51 55 49 52 45 44 22 3B |ETION REQUIRED";|
000015E0: 3A 8D 31 31 30 30 30 3A 8B 50 36 B2 32 A7 31 38 |:.11000:.P6.2.18|
000015F0: 32 30 00 00 1E 41 06 8B 4A B2 30 A7 31 36 30 37 |20...A..J.0.1607|
00001600: 00 1D 1E 42 06 8B 4E 24 28 4A 2C 49 29 B3 B1 4E |...B..N$(J,I)..N|
00001610: 24 28 4A AB 31 2C 49 29 A7 31 36 30 37 00 56 1E |$(J.1,I).1607.V.|
00001620: 43 06 99 22 11 C5 4E 54 45 52 20 D2 45 43 4F 52 |C.."..NTER .ECOR|
00001630: 44 20 CE 4F 2E 20 54 4F 20 42 45 20 41 4C 54 45 |D .O. TO BE ALTE|
00001640: 52 45 44 22 3B 3A 50 33 B2 32 3A 50 34 B2 31 3A |RED";:P3.2:P4.1:|
00001650: 8D 33 30 30 30 30 00 7C 1E 44 06 8B C5 28 50 24 |.30000.|.D...(P$|
00001660: 29 B3 B2 30 B0 C5 28 50 24 29 B1 43 28 49 29 A7 |)..0..(P$).C(I).|
00001670: 99 22 91 91 91 22 3A 89 31 36 30 33 00 8A 1E 45 |."...":.1603...E|
00001680: 06 4A B2 C5 28 50 24 29 AB 31 00 BD 1E 47 06 99 |.J..(P$).1...G..|
00001690: 22 91 C8 49 54 20 12 20 44 20 92 20 54 4F 20 44 |"..IT . D . TO D|
000016A0: 45 4C 45 54 45 2C 20 CF 54 48 45 52 57 49 53 45 |ELETE, .THERWISE|
000016B0: 20 48 49 54 20 41 4E 59 20 4B 45 59 22 00 F1 1E | HIT ANY KEY"...|
000016C0: 4D 06 8D 31 30 30 30 30 3A 8B 41 24 B2 22 44 22 |M..10000:.A$."D"|
000016D0: A7 99 22 11 C8 41 4E 47 20 4F 4E 20 57 48 49 4C |.."..ANG ON WHIL|
000016E0: 45 20 44 45 4C 45 54 49 4E 47 22 3A 89 31 37 35 |E DELETING":.175|
000016F0: 30 00 2E 1F 4F 06 99 22 93 22 3B 3A 8D 32 37 30 |0...O..".";:.270|
00001700: 30 30 3A 8D 32 37 31 30 30 3A 53 24 B2 41 24 28 |00:.27100:S$.A$(|
00001710: 32 29 3A 54 24 B2 41 24 28 33 29 3A 81 4E B2 32 |2):T$.A$(3):.N.2|
00001720: A4 31 30 3A 41 24 28 4E 29 B2 22 22 3A 82 00 62 |.10:A$(N)."":..b|
00001730: 1F 54 06 51 B2 32 3A 50 24 B2 53 24 3A 8D 32 37 |.T.Q.2:P$.S$:.27|
00001740: 32 30 30 3A 51 B2 39 3A 50 24 B2 54 24 3A 8D 32 |200:Q.9:P$.T$:.2|
00001750: 37 32 30 30 3A 45 B2 31 3A 49 45 B2 31 3A 89 35 |7200:E.1:IE.1:.5|
00001760: 32 30 00 7C 1F 5E 06 53 24 28 4A 2C 49 29 B2 53 |20.|.^.S$(J,I).S|
00001770: 24 3A 46 31 B2 31 3A 89 31 35 30 30 00 A2 1F D6 |$:F1.1:.1500....|
00001780: 06 53 B2 4A 3A 46 31 B2 31 3A 81 4A B2 53 A4 35 |.S.J:F1.1:.J.S.5|
00001790: 30 3A 8B 4E 24 28 4A 2C 49 29 B2 22 22 A7 31 38 |0:.N$(J,I)."".18|
000017A0: 31 33 00 C8 1F EF 06 8B 4A B2 35 30 A7 4E 24 28 |13......J.50.N$(|
000017B0: 4A 2C 49 29 B2 22 22 3A 53 24 28 4A 2C 49 29 B2 |J,I)."":S$(J,I).|
000017C0: 22 22 3A 89 31 38 31 33 00 F3 1F F4 06 4E 24 28 |"":.1813.....N$(|
000017D0: 4A 2C 49 29 B2 4E 24 28 4A AA 31 2C 49 29 3A 53 |J,I).N$(J.1,I):S|
000017E0: 24 28 4A 2C 49 29 B2 53 24 28 4A AA 31 2C 49 29 |$(J,I).S$(J.1,I)|
000017F0: 3A 82 4A 00 21 20 15 07 43 28 49 29 B2 43 28 49 |:.J.! ..C(I).C(I|
00001800: 29 AB 31 3A 99 22 1D CF CB 2C 20 46 49 4C 45 20 |).1:."..., FILE |
00001810: 44 45 4C 45 54 45 44 22 3A 8D 32 30 30 30 30 3A |DELETED":.20000:|
00001820: 99 00 51 20 1C 07 99 22 11 C1 4E 59 20 4F 54 48 |..Q ..."..NY OTH|
00001830: 45 52 20 41 4C 54 45 52 41 54 49 4F 4E 22 3B 3A |ER ALTERATION";:|
00001840: 8D 31 31 30 30 30 3A 8B 50 36 B2 31 A7 31 32 30 |.11000:.P6.1.120|
00001850: 30 00 5A 20 26 07 89 32 34 30 00 69 20 4E 07 8B |0.Z &..240.i N..|
00001860: 4E 53 B2 31 A7 32 30 32 30 00 78 20 58 07 8B 4E |NS.1.2020.x X..N|
00001870: 53 B2 30 A7 31 38 32 30 00 8C 20 D0 07 8D 39 30 |S.0.1820.. ...90|
00001880: 30 30 3A 8B 50 36 B2 32 A7 32 34 30 00 C6 20 DA |00:.P6.2.240.. .|
00001890: 07 99 22 93 C5 4E 54 45 52 20 12 D3 55 52 4E 41 |.."..NTER ..URNA|
000018A0: 4D 45 20 26 20 CE 41 4D 45 92 20 54 4F 20 46 49 |ME & .AME. TO FI|
000018B0: 4E 44 20 41 44 44 52 45 53 53 22 3A 4E 53 B2 31 |ND ADDRESS":NS.1|
000018C0: 3A 89 31 32 31 30 00 01 21 E4 07 4E 53 B2 30 3A |:.1210..!..NS.0:|
000018D0: 99 22 11 C1 4E 59 20 4F 54 48 45 52 20 41 44 44 |."..NY OTHER ADD|
000018E0: 52 45 53 53 20 52 45 51 55 49 52 45 44 22 3B 3A |RESS REQUIRED";:|
000018F0: 8D 31 31 30 30 30 3A 8B 50 36 B2 31 A7 32 30 30 |.11000:.P6.1.200|
00001900: 30 00 0A 21 0C 08 89 32 34 30 00 3F 21 34 08 99 |0..!...240.?!4..|
00001910: 22 93 C5 4E 54 45 52 20 4C 45 54 54 45 52 20 46 |"..NTER LETTER F|
00001920: 4F 52 20 57 48 49 43 48 20 50 41 47 45 20 52 45 |OR WHICH PAGE RE|
00001930: 51 55 49 52 45 44 3A 22 3A 8D 31 30 30 30 30 00 |QUIRED:":.10000.|
00001940: 5B 21 43 08 41 B2 C6 28 41 24 29 3A 8B 41 B3 36 |[!C.A..(A$):.A.6|
00001950: 35 B0 41 B1 39 30 A7 32 31 30 30 00 77 21 48 08 |5.A.90.2100.w!H.|
00001960: 49 B2 B5 28 28 41 AB 36 35 29 AD 32 29 3A 8B 49 |I..((A.65).2):.I|
00001970: B1 39 A7 49 B2 31 30 00 9C 21 4D 08 41 24 B2 C7 |.9.I.10..!M.A$..|
00001980: 28 32 AC 49 AA 31 39 33 29 3A 8B 49 B2 31 30 A7 |(2.I.193):.I.10.|
00001990: 43 24 B2 22 DA 22 3A 89 32 31 33 30 00 AE 21 4F |C$.".":.2130..!O|
000019A0: 08 43 24 B2 C7 28 32 AC 49 AA 31 39 34 29 00 FA |.C$..(2.I.194)..|
000019B0: 21 52 08 99 22 93 D0 41 47 45 20 12 20 22 41 24 |!R.."..AGE . "A$|
000019C0: 22 20 2D 20 22 43 24 22 20 92 20 43 4F 4E 54 41 |" - "C$" . CONTA|
000019D0: 49 4E 53 20 12 22 43 28 49 29 22 9D 20 92 20 45 |INS ."C(I)". . E|
000019E0: 4E 54 52 49 45 53 3A 22 3A 81 4E B2 31 A4 33 34 |NTRIES:":.N.1.34|
000019F0: 3A 99 22 A3 22 3B 3A 82 3A 99 00 28 22 61 08 4D |:.".";:.:..("a.M|
00001A00: B2 30 3A 8B 4E 24 28 30 2C 49 29 B2 22 22 A7 99 |.0:.N$(0,I).""..|
00001A10: 22 12 11 11 1D 1D D0 41 47 45 20 45 4D 50 54 59 |"......AGE EMPTY|
00001A20: 11 22 3A 89 32 32 33 30 00 44 22 66 08 81 4A B2 |.":.2230.D"f..J.|
00001A30: 4D A4 32 30 AA 4D 3A 8B 4A B1 B2 43 28 49 29 A7 |M.20.M:.J..C(I).|
00001A40: 32 32 33 30 00 8C 22 75 08 99 4E 24 28 4A 2C 49 |2230.."u..N$(J,I|
00001A50: 29 3A 82 3A 99 22 D0 52 45 53 53 20 41 4E 59 20 |):.:.".RESS ANY |
00001A60: 4B 45 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 20 |KEY TO CONTINUE |
00001A70: 53 43 41 4E 22 3A 8D 31 30 30 30 30 3A 4D B2 4A |SCAN":.10000:M.J|
00001A80: 3A 99 22 93 22 3B 3A 89 32 31 35 30 00 B6 22 B6 |:.".";:.2150..".|
00001A90: 08 99 22 11 C1 4E 59 20 4F 54 48 45 52 20 53 43 |.."..NY OTHER SC|
00001AA0: 41 4E 22 3B 3A 8D 31 31 30 30 30 3A 8B 50 36 B2 |AN";:.11000:.P6.|
00001AB0: 31 A7 32 31 30 30 00 BF 22 DE 08 89 32 34 30 00 |1.2100.."...240.|
00001AC0: FE 22 C4 09 99 22 93 22 A3 31 33 29 22 D0 D2 C9 |."...".".13)"...|
00001AD0: CE D4 20 CD C5 CE D5 22 3A 99 A3 31 33 29 22 A3 |.. ....":..13)".|
00001AE0: A3 A3 A3 A3 A3 A3 A3 A3 A3 22 3A 46 37 B2 30 3A |.........":F7.0:|
00001AF0: 46 36 B2 30 3A 46 35 B2 30 3A 46 34 B2 30 00 42 |F6.0:F5.0:F4.0.B|
00001B00: 23 D8 09 99 A3 38 29 22 11 12 D0 52 45 53 53 20 |#....8)"...RESS |
00001B10: 4F 50 54 49 4F 4E 20 4E 55 4D 42 45 52 22 3A 99 |OPTION NUMBER":.|
00001B20: A3 38 29 22 11 11 11 12 20 31 20 92 20 D0 52 49 |.8)".... 1 . .RI|
00001B30: 4E 54 20 53 49 4E 47 4C 45 20 41 44 44 52 45 53 |NT SINGLE ADDRES|
00001B40: 53 22 00 83 23 E2 09 99 A3 38 29 22 11 11 12 20 |S"..#....8)"... |
00001B50: 32 20 92 20 D0 52 49 4E 54 20 41 4C 4C 20 41 44 |2 . .RINT ALL AD|
00001B60: 44 52 45 53 53 45 53 22 3A 99 A3 38 29 22 11 11 |DRESSES":..8)"..|
00001B70: 12 20 33 20 92 20 C2 41 43 4B 20 54 4F 20 4D 45 |. 3 . .ACK TO ME|
00001B80: 4E 55 22 00 A9 23 F6 09 8D 31 30 30 30 30 3A 91 |NU"..#...10000:.|
00001B90: C5 28 41 24 29 89 32 35 37 30 2C 32 36 37 30 2C |.(A$).2570,2670,|
00001BA0: 32 34 30 3A 89 32 35 35 30 00 ED 23 0A 0A 99 22 |240:.2550..#..."|
00001BB0: 93 C5 4E 54 45 52 20 12 D3 55 52 4E 41 4D 45 2F |..NTER ..URNAME/|
00001BC0: CE 41 4D 45 92 20 54 4F 20 46 49 4E 44 20 41 44 |.AME. TO FIND AD|
00001BD0: 44 52 45 53 53 3A 22 3A 46 34 B2 31 3A 8D 31 32 |DRESS:":F4.1:.12|
00001BE0: 31 30 3A 8B 46 34 B2 32 A7 32 36 33 30 00 1D 24 |10:.F4.2.2630..$|
00001BF0: 1E 0A 99 22 11 C4 4F 20 59 4F 55 20 57 49 53 48 |..."..O YOU WISH|
00001C00: 20 54 4F 20 50 52 49 4E 54 22 3B 3A 8D 31 31 30 | TO PRINT";:.110|
00001C10: 30 30 3A 8B 50 36 B2 32 A7 32 35 30 30 00 38 24 |00:.P6.2.2500.8$|
00001C20: 3C 0A 8D 32 38 30 30 3A 81 4D B2 31 A4 54 54 3A |<..2800:.M.1.TT:|
00001C30: 8D 32 39 30 30 3A 82 4D 00 71 24 46 0A 46 34 B2 |.2900:.M.q$F.F4.|
00001C40: 30 3A 99 22 11 CF CB 2C 20 41 4E 59 20 4F 54 48 |0:."..., ANY OTH|
00001C50: 45 52 22 3B 3A 8D 31 31 30 30 30 3A 8B 50 36 B2 |ER";:.11000:.P6.|
00001C60: 32 A7 46 34 B2 30 3A 46 36 B2 30 3A 89 32 35 30 |2.F4.0:F6.0:.250|
00001C70: 30 00 7B 24 64 0A 89 32 35 37 30 00 C1 24 6E 0A |0.{$d..2570..$n.|
00001C80: 99 22 93 11 11 11 11 11 11 22 A3 39 29 22 C4 4F |.".......".9)".O|
00001C90: 20 59 4F 55 20 57 49 53 48 20 54 4F 20 50 52 49 | YOU WISH TO PRI|
00001CA0: 4E 54 3A 22 3A 99 A3 39 29 22 11 12 20 31 20 92 |NT:":..9)".. 1 .|
00001CB0: 20 D0 45 52 20 4C 49 53 54 20 46 4F 52 4D 41 54 | .ER LIST FORMAT|
00001CC0: 22 00 02 25 78 0A 99 A3 39 29 22 11 12 20 32 20 |"..%x...9)".. 2 |
00001CD0: 92 20 D0 45 52 20 4C 41 42 45 4C 20 46 4F 52 4D |. .ER LABEL FORM|
00001CE0: 41 54 22 3A 99 3A 99 A3 39 29 22 11 12 D0 52 45 |AT":.:..9)"...RE|
00001CF0: 53 53 20 4F 50 54 49 4F 4E 20 4E 55 4D 42 45 52 |SS OPTION NUMBER|
00001D00: 92 22 00 20 25 82 0A A1 41 24 3A 8B 41 24 B3 B1 |.". %...A$:.A$..|
00001D10: 22 31 22 AF 41 24 B3 B1 22 32 22 A7 32 36 39 30 |"1".A$.."2".2690|
00001D20: 00 31 25 8C 0A 8B 41 24 B2 22 32 22 A7 32 37 32 |.1%...A$."2".272|
00001D30: 30 00 59 25 96 0A 8D 32 38 32 30 3A 46 37 B2 31 |0.Y%...2820:F7.1|
00001D40: 3A 54 54 B2 31 3A 4C 46 B2 31 3A 49 B2 30 3A 46 |:TT.1:LF.1:I.0:F|
00001D50: 35 B2 31 3A 89 32 37 32 35 00 6C 25 A0 0A 8D 32 |5.1:.2725.l%...2|
00001D60: 38 30 30 3A 49 B2 30 3A 46 35 B2 31 00 9F 25 A5 |800:I.0:F5.1..%.|
00001D70: 0A 99 22 11 D0 4C 45 41 53 45 20 41 4C 49 47 4E |.."..LEASE ALIGN|
00001D80: 20 50 41 50 45 52 20 54 48 45 4E 20 48 49 54 20 | PAPER THEN HIT |
00001D90: 41 4E 59 20 4B 45 59 22 3A 8D 31 30 30 30 30 00 |ANY KEY":.10000.|
00001DA0: BC 25 AA 0A 81 4A B2 30 A4 35 30 3A 8B 4E 24 28 |.%...J.0.50:.N$(|
00001DB0: 4A 2C 49 29 B2 22 22 A7 32 37 36 30 00 DA 25 B4 |J,I)."".2760..%.|
00001DC0: 0A 8D 31 35 30 30 3A 81 4D B2 31 A4 54 54 3A 8D |..1500:.M.1.TT:.|
00001DD0: 32 39 30 30 3A 82 4D 3A 82 4A 00 F0 25 C8 0A 49 |2900:.M:.J..%..I|
00001DE0: B2 49 AA 31 3A 8B 49 B3 B2 31 30 A7 32 37 33 30 |.I.1:.I..10.2730|
00001DF0: 00 09 26 D2 0A 46 37 B2 30 3A 46 36 B2 30 3A 46 |..&..F7.0:F6.0:F|
00001E00: 35 B2 30 3A 89 32 35 30 30 00 51 26 F0 0A 99 22 |5.0:.2500.Q&..."|
00001E10: 11 C8 4F 57 20 4D 41 4E 59 20 54 49 4D 45 53 20 |..OW MANY TIMES |
00001E20: 44 4F 20 59 4F 55 20 57 49 53 48 20 54 4F 20 50 |DO YOU WISH TO P|
00001E30: 52 49 4E 54 3F 22 3B 3A 50 33 B2 33 3A 50 34 B2 |RINT?";:P3.3:P4.|
00001E40: 31 3A 8D 33 30 30 30 30 3A 54 54 B2 C5 28 50 24 |1:.30000:TT..(P$|
00001E50: 29 00 6A 26 FA 0A 8B 54 54 B3 B2 30 A7 99 22 91 |).j&...TT..0..".|
00001E60: 91 91 91 22 3A 89 32 38 30 30 00 B2 26 FC 0A 99 |...":.2800..&...|
00001E70: 22 11 48 4F 57 20 4D 41 4E 59 20 4C 49 4E 45 2D |".HOW MANY LINE-|
00001E80: 46 45 45 44 53 20 42 45 54 57 45 45 4E 20 41 44 |FEEDS BETWEEN AD|
00001E90: 44 52 45 53 53 45 53 22 3A 50 33 B2 32 3A 50 34 |DRESSES":P3.2:P4|
00001EA0: B2 31 3A 8D 33 30 30 30 30 3A 4C 46 B2 C5 28 50 |.1:.30000:LF..(P|
00001EB0: 24 29 00 CB 26 FE 0A 8B 4C 46 B3 B2 30 A7 99 22 |$)..&...LF..0.."|
00001EC0: 91 91 91 91 22 3A 89 32 38 31 32 00 09 27 04 0B |....":.2812..'..|
00001ED0: 99 22 11 C4 4F 20 59 4F 55 20 57 49 53 48 20 54 |."..O YOU WISH T|
00001EE0: 45 4C 45 50 48 4F 4E 45 20 CE 4F 20 50 52 49 4E |ELEPHONE .O PRIN|
00001EF0: 54 45 44 22 3B 3A 8D 31 31 30 30 30 3A 8B 50 36 |TED";:.11000:.P6|
00001F00: B2 32 A7 46 36 B2 31 3A 8E 00 0F 27 22 0B 8E 00 |.2.F6.1:...'"...|
00001F10: 2D 27 54 0B 9F 31 2C 34 2C 37 3A 97 35 33 32 36 |-'T..1,4,7:.5326|
00001F20: 35 2C 31 31 3A 98 31 2C C7 28 31 35 29 00 58 27 |5,11:.1,.(15).X'|
00001F30: 5E 0B 8B 46 37 B2 31 A7 98 31 2C C7 28 31 37 29 |^..F7.1..1,.(17)|
00001F40: 4E 54 24 3B 3A 98 31 2C C7 28 31 36 29 22 34 30 |NT$;:.1,.(16)"40|
00001F50: 22 3B 3A 89 33 30 31 33 00 68 27 B8 0B 98 31 2C |";:.3013.h'...1,|
00001F60: C7 28 31 37 29 4E 54 24 00 8D 27 C5 0B 41 24 B2 |.(17)NT$..'..A$.|
00001F70: 41 24 28 32 29 3A 8B 46 36 B2 31 A7 4C 54 B2 4C |A$(2):.F6.1.LT.L|
00001F80: 46 3A 8D 33 35 30 30 3A 89 33 30 33 30 00 C5 27 |F:.3500:.3030..'|
00001F90: CF 0B 4C 54 B2 32 3A 8D 33 35 30 30 3A 41 24 B2 |..LT.2:.3500:A$.|
00001FA0: 41 24 28 33 29 3A 8B 46 37 B2 31 A7 98 31 2C C7 |A$(3):.F7.1..1,.|
00001FB0: 28 31 36 29 22 34 30 22 3B 3A 8D 33 35 30 30 3A |(16)"40";:.3500:|
00001FC0: 89 33 30 33 30 00 E4 27 D1 0B 98 31 2C C7 28 31 |.3030..'...1,.(1|
00001FD0: 37 29 22 D4 45 4C 45 50 48 4F 4E 45 3A 22 3A 8D |7)".ELEPHONE:":.|
00001FE0: 33 35 30 30 00 FA 27 D6 0B 98 31 3A A0 31 3A 97 |3500..'...1:.1:.|
00001FF0: 35 33 32 36 35 2C 32 37 3A 8E 00 0A 28 AC 0D 81 |53265,27:...(...|
00002000: 4E B2 31 A4 20 C3 28 41 24 29 00 3C 28 B1 0D 8B |N.1. .(A$).<(...|
00002010: CA 28 41 24 2C 4E 2C 31 29 B2 C7 28 31 34 31 29 |.(A$,N,1)..(141)|
00002020: AF 46 37 B2 31 A7 98 31 3A 98 31 2C C7 28 31 36 |.F7.1..1:.1,.(16|
00002030: 29 22 34 30 22 3B 3A 89 33 35 32 30 00 5B 28 B3 |)"40";:.3520.[(.|
00002040: 0D 8B CA 28 41 24 2C 4E 2C 31 29 B2 C7 28 31 34 |...(A$,N,1)..(14|
00002050: 31 29 A7 98 31 3A 89 33 35 32 30 00 72 28 B6 0D |1)..1:.3520.r(..|
00002060: 98 31 2C C7 28 31 37 29 CA 28 41 24 2C 4E 2C 31 |.1,.(17).(A$,N,1|
00002070: 29 3B 00 89 28 C0 0D 82 4E 3A 81 4E B2 31 A4 4C |);..(...N:.N.1.L|
00002080: 54 3A 98 31 3A 82 4E 3A 8E 00 9F 28 94 11 99 22 |T:.1:.N:...(..."|
00002090: 93 11 11 22 3A 8D 35 30 31 30 3A 89 32 34 30 00 |...":.5010:.240.|
000020A0: BB 28 88 13 99 22 93 20 20 20 20 20 20 12 C1 D4 |.(...". ...|
000020B0: D4 C5 CE D4 C9 CF CE 92 3A 20 22 00 E3 28 92 13 |........: "..(..|
000020C0: 99 22 11 11 20 20 20 20 20 20 D9 4F 55 20 48 41 |.".. .OU HA|
000020D0: 56 45 22 B8 28 30 29 22 42 59 54 45 53 20 46 52 |VE".(0)"BYTES FR|
000020E0: 45 45 22 00 17 29 9C 13 99 22 11 11 11 20 20 20 |EE"..)..."... |
000020F0: 20 20 20 12 C8 49 54 20 41 4E 59 20 20 4B 45 59 | ..IT ANY KEY|
00002100: 20 54 4F 20 20 43 4F 4E 54 49 4E 55 45 22 3A 8D | TO CONTINUE":.|
00002110: 31 30 30 30 30 3A 8E 00 5D 29 7C 15 50 36 B2 31 |10000:..])|.P6.1|
00002120: 3A 41 B2 C6 28 50 24 29 3A 8B 28 41 B3 36 35 B0 |:A..(P$):.(A.65.|
00002130: 41 B1 39 30 29 B0 50 24 B2 22 4E 22 B0 50 24 B2 |A.90).P$."N".P$.|
00002140: 22 56 22 B0 50 24 B2 22 43 22 B0 50 24 B2 22 53 |"V".P$."C".P$."S|
00002150: 22 B0 50 24 B2 22 49 22 A7 50 36 B2 32 00 63 29 |".P$."I".P6.2.c)|
00002160: 86 15 8E 00 82 29 28 23 99 22 93 C1 52 45 20 59 |.....)(#."..RE Y|
00002170: 4F 55 20 53 55 52 45 22 3B 3A 8D 31 31 30 30 30 |OU SURE";:.11000|
00002180: 3A 8E 00 A9 29 1C 25 50 36 B2 30 3A 9F 31 35 2C |:...).%P6.0:.15,|
00002190: 38 2C 31 35 3A 84 31 35 2C 45 52 2C 45 52 24 3A |8,15:.15,ER,ER$:|
000021A0: 8B 45 52 B3 32 30 A7 20 8E 00 E3 29 26 25 99 22 |.ER.20. ...)&%."|
000021B0: 11 12 C4 49 53 4B 20 45 52 52 4F 52 3A 92 20 22 |...ISK ERROR:. "|
000021C0: 45 52 22 20 22 45 52 24 3A 99 22 11 12 C8 49 54 |ER" "ER$:."...IT|
000021D0: 20 41 4E 59 20 4B 45 59 20 46 4F 52 20 4D 45 4E | ANY KEY FOR MEN|
000021E0: 55 92 22 00 F9 29 30 25 8D 31 30 30 30 30 3A A0 |U."..)0%.10000:.|
000021F0: 31 35 3A 50 36 B2 31 3A 8E 00 0E 2A 10 27 A1 41 |15:P6.1:...*.'.A|
00002200: 24 3A 8B 41 24 B2 22 22 A7 31 30 30 30 30 00 14 |$:.A$."".10000..|
00002210: 2A 1A 27 8E 00 2C 2A F8 2A 99 22 20 12 81 59 9A |*.'..,*.*." ..Y.|
00002220: 92 45 53 2F 12 81 4E 9A 92 4F 3F 22 00 4B 2A 02 |.ES/..N..O?".K*.|
00002230: 2B A1 41 24 3A 8B 41 24 B3 B1 22 59 22 AF 41 24 |+.A$:.A$.."Y".A$|
00002240: B3 B1 22 4E 22 A7 31 31 30 31 30 00 5E 2A 0C 2B |.."N".11010.^*.+|
00002250: 8B 41 24 B2 22 59 22 A7 50 36 B2 31 3A 8E 00 69 |.A$."Y".P6.1:..i|
00002260: 2A 16 2B 50 36 B2 32 3A 8E 00 A2 2A 20 4E 97 35 |*.+P6.2:...* N.5|
00002270: 34 32 37 33 2C 38 36 3A 97 35 34 32 37 32 2C 31 |4273,86:.54272,1|
00002280: 30 35 3A 97 35 34 32 37 36 2C 31 37 3A 81 54 B2 |05:.54276,17:.T.|
00002290: 30 A4 32 35 30 3A 82 3A 97 35 34 32 37 36 2C 30 |0.250:.:.54276,0|
000022A0: 3A 8E 00 D8 2A 78 69 4C 4C B2 C3 28 4E 24 28 4A |:...*xiLL..(N$(J|
000022B0: 2C 49 29 29 3A 81 4D B2 31 A4 4C 4C 3A 8B CA 28 |,I)):.M.1.LL:..(|
000022C0: 4E 24 28 4A 2C 49 29 2C 4D 2C 31 29 B2 C7 28 33 |N$(J,I),M,1)..(3|
000022D0: 32 29 A7 32 37 30 32 30 00 DF 2A 82 69 82 4D 00 |2).27020..*.i.M.|
000022E0: 24 2B 8C 69 41 24 28 31 29 B2 C9 28 4E 24 28 4A |$+.iA$(1)..(N$(J|
000022F0: 2C 49 29 2C 4C 4C AB 4D 29 3A 41 24 28 30 29 B2 |,I),LL.M):A$(0).|
00002300: C8 28 4E 24 28 4A 2C 49 29 2C 4D AB 31 29 3A 4E |.(N$(J,I),M.1):N|
00002310: 54 24 B2 41 24 28 31 29 AA 22 20 22 AA 41 24 28 |T$.A$(1)." ".A$(|
00002320: 30 29 3A 8E 00 5B 2B DC 69 4C 4C B2 C3 28 53 24 |0):..[+.iLL..(S$|
00002330: 28 4A 2C 49 29 29 3A 81 58 B2 4C 4C A4 31 A9 AB |(J,I)):.X.LL.1..|
00002340: 31 3A 8B CA 28 53 24 28 4A 2C 49 29 2C 58 2C 31 |1:..(S$(J,I),X,1|
00002350: 29 B2 22 5F 22 A7 32 37 31 32 30 00 62 2B E6 69 |)."_".27120.b+.i|
00002360: 82 58 00 93 2B F0 69 41 24 28 32 29 B2 C8 28 53 |.X..+.iA$(2)..(S|
00002370: 24 28 4A 2C 49 29 2C 58 AB 31 29 3A 41 24 28 33 |$(J,I),X.1):A$(3|
00002380: 29 B2 C9 28 53 24 28 4A 2C 49 29 2C 4C 4C AB 58 |)..(S$(J,I),LL.X|
00002390: 29 3A 8E 00 A0 2B 40 6A 8B 50 24 B2 22 22 A7 8E |):...+@j.P$.""..|
000023A0: 00 B8 2B 45 6A 8B C3 28 50 24 29 B2 31 A7 41 24 |..+Ej..(P$).1.A$|
000023B0: 28 51 29 B2 50 24 3A 8E 00 DF 2B 4A 6A 81 4E B2 |(Q).P$:...+Jj.N.|
000023C0: 31 A4 C3 28 50 24 29 3A 8B CA 28 50 24 2C 4E 2C |1..(P$):..(P$,N,|
000023D0: 31 29 B2 C7 28 31 34 31 29 A7 32 37 32 33 30 00 |1)..(141).27230.|
000023E0: E6 2B 54 6A 82 4E 00 FE 2B 59 6A 8B 4E B1 C3 28 |.+Tj.N..+Yj.N..(|
000023F0: 50 24 29 A7 41 24 28 51 29 B2 50 24 3A 8E 00 10 |P$).A$(Q).P$:...|
00002400: 2C 5E 6A 8D 32 37 32 35 30 3A 89 32 37 32 30 30 |,^j.27250:.27200|
00002410: 00 3D 2C 72 6A 41 24 28 51 29 B2 C8 28 50 24 2C |.=,rjA$(Q)..(P$,|
00002420: 4E AB 31 29 3A 50 24 B2 C9 28 50 24 2C C3 28 50 |N.1):P$..(P$,.(P|
00002430: 24 29 AB 4E 29 3A 51 B2 51 AA 31 3A 8E 00 63 2C |$).N):Q.Q.1:..c,|
00002440: 60 6D 50 24 B2 41 24 28 4E 29 3A 81 51 B2 4E AA |`mP$.A$(N):.Q.N.|
00002450: 31 A4 4D 3A 8B 41 24 28 51 29 B2 22 22 A7 32 38 |1.M:.A$(Q)."".28|
00002460: 30 33 30 00 7A 2C 6A 6D 50 24 B2 50 24 AA C7 28 |030.z,jmP$.P$..(|
00002470: 31 34 31 29 AA 41 24 28 51 29 00 81 2C 74 6D 82 |141).A$(Q)..,tm.|
00002480: 51 00 87 2C 7E 6D 8E 00 A5 2C 68 74 99 22 13 22 |Q..,~m...,ht."."|
00002490: 3B 3A 8B 43 4F B1 31 A7 99 C8 28 43 4F 24 2C 43 |;:.CO.1...(CO$,C|
000024A0: 4F AB 31 29 3B 00 BD 2C 72 74 8B 4C 4E B1 31 A7 |O.1);..,rt.LN.1.|
000024B0: 99 C8 28 4C 4E 24 2C 4C 4E AB 31 29 3B 00 C3 2C |..(LN$,LN.1);..,|
000024C0: 7C 74 8E 00 CD 2C CC 74 99 22 3E 22 3B 00 EB 2C ||t...,.t.">";..,|
000024D0: D6 74 A1 41 24 3A 8B 41 24 B2 22 22 B0 41 24 B2 |.t.A$:.A$."".A$.|
000024E0: C7 28 31 33 29 A7 32 39 39 31 30 00 0C 2D E0 74 |.(13).29910..-.t|
000024F0: 8B 41 24 B2 22 11 22 AF 49 45 B2 31 A7 50 24 B2 |.A$.".".IE.1.P$.|
00002500: 22 11 22 3A 99 22 9D 20 22 3B 3A 8E 00 1E 2D EA |".":.". ";:...-.|
00002510: 74 8B 41 24 B2 22 11 22 A7 32 39 39 31 30 00 52 |t.A$.".".29910.R|
00002520: 2D F4 74 81 51 B2 31 A4 50 33 3A 99 22 A4 22 3B |-.t.Q.1.P3:.".";|
00002530: 3A 82 3A 81 51 B2 31 A4 50 33 3A 99 22 9D 22 3B |:.:.Q.1.P3:.".";|
00002540: 3A 82 3A 50 24 B2 22 22 3A 50 58 B2 30 3A 50 36 |:.:P$."":PX.0:P6|
00002550: B2 30 00 63 2D FE 74 8B 41 24 B2 22 22 A7 33 30 |.0.c-.t.A$."".30|
00002560: 31 36 30 00 6E 2D 08 75 89 33 30 31 37 30 00 A8 |160.n-.u.30170..|
00002570: 2D 30 75 99 22 3E 22 3B 3A 50 24 B2 22 22 3A 50 |-0u.">";:P$."":P|
00002580: 58 B2 30 3A 50 36 B2 30 3A 81 51 B2 31 A4 50 33 |X.0:P6.0:.Q.1.P3|
00002590: 3A 99 22 A4 22 3B 3A 82 3A 81 51 B2 31 A4 50 33 |:.".";:.:.Q.1.P3|
000025A0: 3A 99 22 9D 22 3B 3A 82 00 BD 2D D0 75 A1 41 24 |:.".";:...-.u.A$|
000025B0: 3A 8B 41 24 B2 22 22 A7 33 30 31 36 30 00 DC 2D |:.A$."".30160..-|
000025C0: DA 75 41 B2 C6 28 41 24 29 3A 8B 41 B1 31 39 32 |.uA..(A$):.A.192|
000025D0: AF 41 B3 32 31 39 A7 33 30 32 30 30 00 1B 2E E4 |.A.219.30200....|
000025E0: 75 8B 28 41 B1 33 31 AF 41 B3 B1 34 34 AF 41 B3 |u.(A.31.A..44.A.|
000025F0: B1 33 34 AF 41 B3 B1 35 38 AF 41 B3 B1 35 39 AF |.34.A..58.A..59.|
00002600: 41 B3 39 37 29 B0 41 B2 31 33 B0 41 B2 32 30 B0 |A.97).A.13.A.20.|
00002610: 41 B2 31 35 37 A7 33 30 32 30 30 00 26 2E EE 75 |A.157.30200.&..u|
00002620: 89 33 30 31 36 30 00 3D 2E F8 75 8B 41 B2 31 33 |.30160.=..u.A.13|
00002630: AF 50 24 B3 B1 22 22 A7 33 30 33 32 30 00 4D 2E |.P$.."".30320.M.|
00002640: FB 75 8B 41 B2 31 33 A7 33 30 31 36 30 00 63 2E |.u.A.13.30160.c.|
00002650: FD 75 8B 41 B2 39 35 A7 50 36 B2 31 3A 89 33 30 |.u.A.95.P6.1:.30|
00002660: 33 32 30 00 73 2E 0C 76 8B 41 B2 32 30 A7 33 30 |320.s..v.A.20.30|
00002670: 32 35 30 00 85 2E 16 76 8B 41 B3 B1 31 35 37 A7 |250....v.A..157.|
00002680: 33 30 32 38 30 00 AC 2E 1B 76 50 58 B2 C3 28 50 |30280....vPX..(P|
00002690: 24 29 3A 81 51 B2 31 A4 50 58 AA 31 3A 99 22 9D |$):.Q.1.PX.1:.".|
000026A0: 22 3B 3A 82 51 3A 89 33 30 30 30 30 00 BD 2E 2A |";:.Q:.30000...*|
000026B0: 76 8B 50 24 B2 22 22 A7 33 30 31 36 30 00 EA 2E |v.P$."".30160...|
000026C0: 34 76 50 24 B2 C8 28 50 24 2C C3 28 50 24 29 AB |4vP$..(P$,.(P$).|
000026D0: 31 29 3A 41 24 B2 22 9D A4 9D 22 3A 50 58 B2 50 |1):A$."...":PX.P|
000026E0: 58 AB 31 3A 89 33 30 33 30 30 00 FE 2E 48 76 8B |X.1:.30300...Hv.|
000026F0: C3 28 50 24 29 B2 50 33 A7 33 30 31 36 30 00 14 |.(P$).P3.30160..|
00002700: 2F 52 76 50 24 B2 50 24 AA 41 24 3A 50 58 B2 C3 |/RvP$.P$.A$:PX..|
00002710: 28 50 24 29 00 24 2F 5C 76 99 41 24 3B 3A 89 33 |(P$).$/\v.A$;:.3|
00002720: 30 31 36 30 00 3E 2F 70 76 8B C3 28 50 24 29 B3 |0160.>/pv..(P$).|
00002730: 50 34 A7 50 36 B2 30 3A 89 33 30 31 36 30 00 61 |P4.P6.0:.30160.a|
00002740: 2F 75 76 81 51 B2 31 A4 C3 28 50 24 29 AA 31 3A |/uv.Q.1..(P$).1:|
00002750: 99 22 9D 22 3B 3A 82 3A 99 22 20 22 3B 3A 99 3A |.".";:.:." ";:.:|
00002760: 8E 00 8A 2F 7A 76 8B C8 28 50 24 2C 31 29 B2 22 |.../zv..(P$,1)."|
00002770: 20 22 A7 50 24 B2 C9 28 50 24 2C C3 28 50 24 29 | ".P$..(P$,.(P$)|
00002780: AB 31 29 3A 89 33 30 33 33 30 00 C2 2F 84 76 8B |.1):.30330../.v.|
00002790: C9 28 50 24 2C 31 29 B2 22 20 22 B0 C9 28 50 24 |.(P$,1)." "..(P$|
000027A0: 2C 31 29 B2 C7 28 31 34 31 29 A7 50 24 B2 C8 28 |,1)..(141).P$..(|
000027B0: 50 24 2C C3 28 50 24 29 AB 31 29 3A 89 33 30 33 |P$,.(P$).1):.303|
000027C0: 34 30 00 C8 2F 8E 76 8E 00 E1 2F D0 84 81 51 B2 |40../.v.../...Q.|
000027D0: 31 A4 31 34 3A 99 22 A4 22 3B 3A 82 51 3A 99 3A |1.14:.".";:.Q:.:|
000027E0: 8E 00 F6 2F B8 88 8B 4E 55 B2 C3 28 41 24 28 4E |.../...NU..(A$(N|
000027F0: 29 29 A7 99 3A 8E 00 18 30 C2 88 81 51 B2 31 A4 |))..:...0...Q.1.|
00002800: 4E 55 AB C3 28 41 24 28 4E 29 29 3A 99 22 A4 22 |NU..(A$(N)):."."|
00002810: 3B 3A 82 51 3A 99 3A 8E 00 30 30 AC 8A 81 51 B2 |;:.Q:.:..00...Q.|
00002820: 31 A4 33 37 3A 99 22 C0 22 3B 3A 82 3A 99 3A 8E |1.37:.".";:.:.:.|
00002830: 00 3F 30 03 D9 8F 20 20 56 32 2E 30 28 44 29 00 |.?0... V2.0(D).|
00002840: 00 00 4E 0F |..N. |
..@.... *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...T..#1,A$:.A
$.G(13).S$(J,I).B$:.220...V.B$.B$.A$:.21
2...... J.F...I.I.1:.I..10.180.X... 1: 1
5:.20000......".";:.35500:.".. A D
R E S S E N B O E K J E ..".!....3550
0.R...."....... DRUK .. OP CORRESPONDERE
ND NUMMER"......"...ACCESS THE FOLLOWING
FACILITIES":..5)".... 1 .. ADD AN ADDR
ESS"...,...5)"... 2 .. CHANGE AN ADDRES
S":..5)"... 3 .. SEARCH FOR AN ADDRESS"
.7.@...5)"... 4 .. NAME DISPLAY BY LETT
ER":..5)"... 5 .. LOAD DATA FROM DISK".
}.Y...5)"... 6 .. PRINT ADDRESSES":..5)
"... 7 .. CHECK FREE MEMORY"...[.."....
.... 8 .. SAVE DATA / SIGN-OFF".J.\.IE.
0:NS.0:F7.0:F6.0:F5.0:F4.0...^..10000:.E
(A$).515,1200,2000,2100,150,2500,4500,10
00:.350......9000:.P6.2.240.:....".";:..
(0).500..5000:.240.V....N.0.10:A$(N)."":
.:IE.0......".PLEASE ENTER THE FOLLOWING
INFORMATION:"......IE.1.."HIT . CURSOR
DOWN . TO SKIP LINE":.523............"HI
T . N . IF INFORMATION IS .NOT AVAILABLE
".3...."HIT . _ . ONCE FINISHED ENTERING
A PARA-":." GRAPH".B....".SURNA
ME : ";:N.0:NU.19:.A$(0);:.35000......
"NAME : ";:N.1:.A$(1);:.35000.J....
"..ADDRESS : ";:.A$(2)."N".."NOT AVAIL
ABLE";:.34000:.537.....N.2:NU.27:.A$(2);
:.35000.....NU.27:.N.3.8:..12)A$(N);:.35
000:..M...."..TELEPHONE: ";:.A$(9)."N".
."NOT AVAILABLE";:.34000:.543.D...N.9:.A
$(9);:.35000.....N.10:..12)A$(10);:.3500
0...#..IE.1.CO.12:.557.N.&.CO.12:LN.7:.2
9800:P3.19:P4.3:.30000:.30330:A$(0).P$..
.'.A.F(A$(0).G(0)):.A.193.A.218.."...":.
550.2.(...11);:P4.1:.30000:.30330:A$(1).
P$:A.F(A$(1).G(0)).N.+..A.193.A.218.."..
":.552.J.,.A$(1).A$(0).G(32).A$(1)...-.L
N.11:.29800:P3.27:P4.1:.29900:.P$.."N".5
60.../.A$(2)."N":..12)".NOT AVAILABLE":.
N.3.8:A$(N)."":..12);:.35000:.:.567...0.
.P$."."..:.563...1.A$(2).P$:.P6.1.567.@.
3.P4.0:.N.3.8:..11);:.29900:.P$.".".A$(N
)."".567.].4..P$.".".A$(N)..""..:.566.T.
5.A$(N).P$:.P6.1.567.{.6..N...7.N.2:M.8:
.28000:.30340:S$.P$.E.:.LN.20:.29800:P4.
1:.29900:.P$.."N".574...<.A$(9)."N":..12
)".NOT AVAILABLE":A$(10)."":..12);:.3500
0:.590...>..P$."."..:.578.0.@.A$(9).P$:.
P6.1.590.\.B.P4.0:..11):.29900:.P$.".".A
$(10)."".590.Z.D..P$.".".A$(10)..""..:.5
90...F.A$(10).P$...N.N.9:M.10:.28000:.30
340...S.S$.S$."_".P$:.IE.1.1630...]..:."
ACCEPT";:.11000:.P6.2.517...B..".HANG-ON
WHILE POSTING":I..((F(A$(1)).193).2):.I
.9.I.10.5.L.J.C(I):.J..50.650.X.V.N$(J,I
).A$(1):C(I).C(I).1:.680......20000:.".S
ORRY - THIS PAGE IS FULL-UP":.705.....S$
(J,I).S$:F1.1:.J.0.700.B.... N$(J,I).N$(
J.1,I).750......20000:."..OK":."..."51.C
(I)". ENTRIES LEFT IN THIS PAGE.".,.A.."
..ANY OTHER ENTRY";:.11000:.P6.1.515.5.F
..240._...S.J:.J.S.1..1:.N$(J,I)..N$(J.1
,I).700.Q.... 900:.J:.700.....B$.N$(J.1,
I):N$(J.1,I).N$(J,I):N$(J,I).B$.O...B$.S
$(J.1,I):S$(J.1,I).S$(J,I):S$(J,I).B$:..
.....F1.1.1015......".":.1170.+....G(9):
.53272,21:.53280,14:."..".8)"OK, NOW SIG
NING-OFF":..W....".YOU HAVE MADE SOME AL
TERATIONS":.".DO YOU WISH TO SAVE THEM";
:.11000......P6.2.1170.M....".PLEASE ENT
ER NAME OF FILE TO BE SAVED":.".(MAX .16
. LETTERS) ";.....P4.1:P3.16:.30000:.550
0:.P6.2.1027.(...B$.P$:.".PLEASE LOAD YO
UR DATA DISK IN DRIVE 0".S...."..HIT 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.O.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
.I.~..20000:.".DO YOU WISH TO SAVE THEM
AGAIN";:.11000:.P6.1.1027......".DO YOU
WISH TO SIGN-OFF ";:.11000:.P6.1.1010...
...240......9000:.P6.2.240.Y....".";:..(
0).500..5000:.240......".ENTER .SURNAME
& NAME. FOR ALTERATION":NS.0.N...F3.0:P3
.36:P4.2:.30000:A$.P$:A.F(A$):.A.193.A.2
18..".";:.1210.K.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":.20000:
."NOW SEARCHING FOR POSSIBLE ALTERNATIVE
.....ZB.0:ZT.0:.J.0.C(I).&....H(N$(J,I),
C(A$)).A$.ZB.J:ZT.J:F3.1:.1293.9....J:.F
3..1.1296.O...J.J.1:.J..51.1298.V....H(N
$(J,I),C(A$)).A$.ZT.ZT.1:.1293......1298
......"SORRY NOTHING CLOSE":.F4.1.F4.2:.
......:.:.1870......"I HAVE FOUND THE FO
LLOWING:":.20000:N.ZB......".RECORD NO",
"NAME":.".........","....". .F..M.N.N.15
./.K..M.ZT.1382.G.Z..".."M.1,N$(M,I):.M.
Z.F..".PRESS . C . TO CONTINUE SCAN . S
. TO STOP"...H..". R . TO RESTART SCAN O
R . CORRESPONDING ."...J.."NUMBER TO ACC
ESS POTENTIAL RECORD":.20000...N..".ENTE
R NOW: ";:P3.2:P4.1:.30000:.P$."R".N.ZB:
.".";:.1310.=....P$."C".M..ZT.N.M:.".";:
.1310.M....P$."S".240.P...X.E(P$):.X..0.
X.M.."...":.1390.Z...J.X.1...R.E.0......
".".10)"RECORD NUMBER:"J.1:..10)".......
..........".Q....27000:.F5.1.1514.....X.
.(20.LL.2):..X)NT$:..X):.X.1.LL:."-";:.:
..'....27100:A$."NOT AVAILABLE":.F5.1...
]...."...ADDRESS:..":."--------":.A$(2).
"N"..A$:.1526.H....A$(2)......"...TELEPH
ONE:..":."----------":.A$(3)."N"..A$:.15
29......A$(3).......8)".*** END RECORD
***":.20000:.IE.1.1570......J..50.1567.
.....N$(J,I)..N$(J.1,I).1567.X...."...TH
ERE IS ANOTHER RECORD IN THAT NAME":..10
)".HIT ANY KEY TO VIEW.".......10)".OR H
IT S TO STOP":.10000:.A$."S".1567....
.J.J.1:.1500......NS.1.2020... ..F4.1...
.."..".IS ALTERATION/DELETION REQUIRED";
:.11000:.P6.2.1820...A..J.0.1607...B..N$
(J,I)..N$(J.1,I).1607.V.C..".ENTER RECOR
D NO. TO BE ALTERED";:P3.2:P4.1:.30000.|
.D..E(P$)..0.E(P$).C(I).."...":.1603...E
.J.E(P$).1...G..".HIT . D . TO DELETE, O
THERWISE HIT ANY KEY"...M..10000:.A$."D"
..".HANG ON WHILE DELETING":.1750...O.."
.";:.27000:.27100:S$.A$(2):T$.A$(3):.N.2
.10:A$(N)."":..B.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.H....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:..Q ...".ANY OTHER ALTER
ATION";:.11000:.P6.1.1200.Z &..240.I N..
NS.1.2020.X X..NS.0.1820.. P..9000:.P6.2
.240.F Z..".ENTER .SURNAME & NAME. TO FI
ND ADDRESS":NS.1:.1210..!..NS.0:.".ANY O
THER ADDRESS REQUIRED";:.11000:.P6.1.200
0..!...240.?!4..".ENTER LETTER FOR WHICH
PAGE REQUIRED:":.10000.[!C.A.F(A$):.A.6
5.A.90.2100.W!H.I..((A.65).2):.I.9.I.10.
.!M.A$.G(2.I.193):.I.10.C$."Z":.2130..!O
.C$.G(2.I.194)..!R..".PAGE . "A$" - "C$"
. CONTAINS ."C(I)". . ENTRIES:":.N.1.34
:.".";:.:..("A.M.0:.N$(0,I).""..".....PA
GE EMPTY.":.2230.D"F..J.M.20.M:.J..C(I).
2230.."U..N$(J,I):.:."PRESS ANY KEY TO C
ONTINUE SCAN":.10000:M.J:.".";:.2150..".
..".ANY OTHER SCAN";:.11000:.P6.1.2100..
"...240.."D..".".13)"PRINT MENU":..13)".
.........":F7.0:F6.0:F5.0:F4.0.B#X...8)"
..PRESS OPTION NUMBER":..8)".... 1 . PRI
NT SINGLE ADDRESS"..#....8)"... 2 . PRIN
T ALL ADDRESSES":..8)"... 3 . BACK TO ME
NU"..#...10000:.E(A$).2570,2670,240:.255
0..#...".ENTER .SURNAME/NAME. TO FIND AD
DRESS:":F4.1:.1210:.F4.2.2630..$...".DO
YOU WISH TO PRINT";:.11000:.P6.2.2500.8$
<..2800:.M.1.TT:.2900:.M.Q$F.F4.0:.".OK,
ANY OTHER";:.11000:.P6.2.F4.0:F6.0:.250
0.{$D..2570.A$N..".......".9)"DO YOU WIS
H TO PRINT:":..9)".. 1 . PER LIST FORMAT
"..%X...9)".. 2 . PER LABEL FORMAT":.:..
9)"..PRESS OPTION NUMBER.". %...A$:.A$..
"1".A$.."2".2690.1%...A$."2".2720.Y%...2
820:F7.1:TT.1:LF.1:I.0:F5.1:.2725.L% ..2
800:I.0:F5.1..%...".PLEASE ALIGN PAPER T
HEN HIT ANY KEY":.10000..%...J.0.50:.N$(
J,I)."".2760.Z%...1500:.M.1.TT:.2900:.M:
.J..%H.I.I.1:.I..10.2730..&R.F7.0:F6.0:F
5.0:.2500.Q&...".HOW MANY TIMES DO YOU W
ISH TO PRINT?";:P3.3:P4.1:.30000:TT.E(P$
).J&...TT..0.."....":.2800..&...".HOW MA
NY LINE-FEEDS BETWEEN ADDRESSES":P3.2:P4
.1:.30000:LF.E(P$).K&...LF..0.."....":.2
812..'...".DO YOU WISH TELEPHONE NO PRIN
TED";:.11000:.P6.2.F6.1:...'"...-'T..1,4
,7:.53265,11:.1,G(15).X'^..F7.1..1,G(17)
NT$;:.1,G(16)"40";:.3013.H'...1,G(17)NT$
..'E.A$.A$(2):.F6.1.LT.LF:.3500:.3030.E'
O.LT.2:.3500:A$.A$(3):.F7.1..1,G(16)"40"
;:.3500:.3030..'Q..1,G(17)"TELEPHONE:":.
3500..'V..1: 1:.53265,27:...(...N.1. C(A
$).<(...J(A$,N,1).G(141).F7.1..1:.1,G(16
)"40";:.3520.[(...J(A$,N,1).G(141)..1:.3
520.R(...1,G(17)J(A$,N,1);..(...N:.N.1.L
T:.1:.N:...(..."...":.5010:.240..(...".
.ATTENTION.: "..(...".. YOU HA
VE".(0)"BYTES FREE"..)..."... .HIT
ANY KEY TO CONTINUE":.10000:..])|.P6.1
:A.F(P$):.(A.65.A.90).P$."N".P$."V".P$."
C".P$."S".P$."I".P6.2.C).....)(#.".ARE Y
OU SURE";:.11000:...).%P6.0:.15,8,15:.15
,ER,ER$:.ER.20. ...)&%."..DISK ERROR:. "
ER" "ER$:."..HIT ANY KEY FOR MENU."..)0%
.10000: 15:P6.1:...*.'.A$:.A$."".10000..
*.'..,*.*." ..Y..ES/..N..O?".K*.+.A$:.A$
.."Y".A$.."N".11010.^*.+.A$."Y".P6.1:..I
*.+P6.2:...* N.54273,86:.54272,105:.5427
6,17:.T.0.250:.:.54276,0:..X*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.B+.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.=,RJA$(
Q).H(P$,N.1):P$.I(P$,C(P$).N):Q.Q.1:..C,
`MP$.A$(N):.Q.N.1.M:.A$(Q)."".28030.Z,JM
P$.P$.G(141).A$(Q)..,TM.Q..,~M...,HT."."
;:.CO.1..H(CO$,CO.1);..,RT.LN.1..H(LN$,L
N.1);.C,|T..M,LT.">";..,VT.A$:.A$."".A$.
G(13).29910..-.T.A$.".".IE.1.P$.".":.".
";:...-.T.A$.".".29910.R-.T.Q.1.P3:.".";
:.:.Q.1.P3:.".";:.:P$."":PX.0:P6.0.C-.T.
A$."".30160.N-.U.30170..-0U.">";:P$."":P
X.0:P6.0:.Q.1.P3:.".";:.:.Q.1.P3:.".";:.
..-PU.A$:.A$."".30160..-ZUA.F(A$):.A.192
.A.219.30200....U.(A.31.A..44.A..34.A..5
8.A..59.A.97).A.13.A.20.A.157.30200.&..U
.30160.=..U.A.13.P$.."".30320.M..U.A.13.
30160.C..U.A.95.P6.1:.30320.S..V.A.20.30
250....V.A..157.30280....VPX.C(P$):.Q.1.
PX.1:.".";:.Q:.30000...*V.P$."".30160...
4VP$.H(P$,C(P$).1):A$."...":PX.PX.1:.303
00...HV.C(P$).P3.30160../RVP$.P$.A$:PX.C
(P$).$/\V.A$;:.30160.>/PV.C(P$).P4.P6.0:
.30160.A/UV.Q.1.C(P$).1:.".";:.:." ";:.:
.../ZV.H(P$,1)." ".P$.I(P$,C(P$).1):.303
30.B/.V.I(P$,1)." ".I(P$,1).G(141).P$.H(
P$,C(P$).1):.30340.H/.V.../P..Q.1.14:.".
";:.Q:.:.../...NU.C(A$(N))..:...0B..Q.1.
NU.C(A$(N)):.".";:.Q:.:..00...Q.1.37:.".
";:.:.:..?0.Y. V2.0(D)...N.
> CLICK IMAGE PREVIEW FOR FULL MODAL