ADDRESS DISC
FILE INFORMATION
FILENAME(S): ADDRESS DISC
FILE TYPE(S): PRG
FILE SIZE: 9.7K
FIRST SEEN: 2025-12-02 00:02:01
APPEARS ON: 1 disk(s)
FILE HASH
77cde1cfe4742f774c7bbb2d6b18f07f12487ea6ac8f6437cf728085a8e6e38e
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DE GROOT | ADDRESS DISC | PRG | earthshaker | 22 | 16 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 3F 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 41 42 52 41 53 43 4F 20 4C 54 44 00 |983 ABRASCO LTD.|
00000040: 92 08 50 00 43 4F 24 B2 22 1D 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 22 3A 4C 4E 24 B2 22 11 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 22 00 C7 08 55 00 99 22 93 22 3A 97 35 33 32 |."...U..".":.532|
000000A0: 38 30 2C 36 3A 97 35 33 32 37 32 2C 32 33 3A 99 |80,6:.53272,23:.|
000000B0: C7 28 38 29 3A 97 35 34 32 39 36 2C 31 35 3A 97 |.(8):.54296,15:.|
000000C0: 35 34 32 37 37 2C 30 00 FD 08 8C 00 97 35 34 32 |54277,0......542|
000000D0: 37 38 2C 32 34 30 3A 86 4E 24 28 35 30 2C 31 30 |78,240:.N$(50,10|
000000E0: 29 2C 53 24 28 35 30 2C 31 30 29 2C 41 24 28 31 |),S$(50,10),A$(1|
000000F0: 30 29 2C 43 28 31 30 29 3A 89 32 34 30 00 11 09 |0),C(10):.240...|
00000100: 96 00 8D 39 30 30 30 3A 8B 50 36 B2 32 A7 32 34 |...9000:.P6.2.24|
00000110: 30 00 5E 09 9B 00 99 22 93 D0 4C 45 41 53 45 20 |0.^...."..LEASE |
00000120: 45 4E 54 45 52 20 4E 41 4D 45 20 4F 46 20 46 49 |ENTER NAME OF FI|
00000130: 4C 45 20 54 4F 20 42 45 20 4C 4F 41 44 45 44 22 |LE TO BE LOADED"|
00000140: 3A 99 22 11 28 CD 41 58 20 12 31 36 92 20 4C 45 |:.".(.AX .16. LE|
00000150: 54 54 45 52 53 29 20 22 3B 3A 50 34 B2 31 00 A2 |TTERS) ";:P4.1..|
00000160: 09 A0 00 50 33 B2 31 36 3A 8D 33 30 30 30 30 3A |...P3.16:.30000:|
00000170: 99 22 11 D0 4C 45 41 53 45 20 4C 4F 41 44 20 59 |."..LEASE LOAD Y|
00000180: 4F 55 52 20 44 49 53 43 2C 20 54 48 45 4E 20 48 |OUR DISC, THEN H|
00000190: 49 54 20 41 4E 59 20 4B 45 59 22 3A 8D 31 30 30 |IT ANY KEY":.100|
000001A0: 30 30 00 B4 09 AA 00 9F 31 2C 38 2C 30 2C 50 24 |00......1,8,0,P$|
000001B0: 3A 49 B2 30 00 C1 09 B4 00 81 20 4A B2 30 A4 35 |:I.0...... J.0.5|
000001C0: 30 00 F4 09 C8 00 84 31 2C 4E 24 28 4A 2C 49 29 |0......1,N$(J,I)|
000001D0: 3A 8B 4E 24 28 4A 2C 49 29 B2 22 5E 22 A7 4E 24 |:.N$(J,I)."^".N$|
000001E0: 28 4A 2C 49 29 B2 22 22 3A 43 28 49 29 B2 4A 3A |(J,I)."":C(I).J:|
000001F0: 89 32 33 30 00 15 0A D2 00 84 31 2C 53 24 28 4A |.230......1,S$(J|
00000200: 2C 49 29 3A 8B 53 24 28 4A 2C 49 29 B3 B1 22 2A |,I):.S$(J,I).."*|
00000210: 22 A7 32 32 30 00 3A 0A D4 00 A1 23 31 2C 41 24 |".220.:....#1,A$|
00000220: 3A 8B 41 24 B2 C7 28 31 33 29 A7 53 24 28 4A 2C |:.A$..(13).S$(J,|
00000230: 49 29 B2 42 24 3A 89 32 32 30 00 4C 0A D6 00 42 |I).B$:.220.L...B|
00000240: 24 B2 42 24 AA 41 24 3A 89 32 31 32 00 54 0A DC |$.B$.A$:.212.T..|
00000250: 00 82 20 4A 00 69 0A E6 00 49 B2 49 AA 31 3A 8B |.. J.i...I.I.1:.|
00000260: 49 B3 B2 31 30 A7 31 38 30 00 77 0A EB 00 A0 31 |I..10.180.w....1|
00000270: 3A 8D 32 30 30 30 30 00 BC 0A F0 00 99 22 93 22 |:.20000......"."|
00000280: 3B 3A 8D 33 35 35 30 30 3A 99 22 12 81 20 20 20 |;:.35500:.".. |
00000290: 20 C1 A0 C4 A0 C4 A0 D2 A0 C5 A0 D3 A0 D3 A0 A0 | ...............|
000002A0: A0 CD A0 C1 A0 CE A0 C1 A0 C7 A0 C5 A0 D2 A0 A0 |................|
000002B0: A0 A0 92 9A 22 3A 8D 33 35 35 30 30 00 EB 0A FA |....":.35500....|
000002C0: 00 99 22 11 1D 1D 1D 12 81 20 D0 52 45 53 53 20 |.."...... .RESS |
000002D0: 92 9A 20 43 4F 52 52 45 53 50 4F 4E 44 49 4E 47 |.. CORRESPONDING|
000002E0: 20 4E 55 4D 42 45 52 20 54 4F 22 00 35 0B 0E 01 | NUMBER TO".5...|
000002F0: 99 22 1D 1D 1D 41 43 43 45 53 53 20 54 48 45 20 |."...ACCESS THE |
00000300: 46 4F 4C 4C 4F 57 49 4E 47 20 46 41 43 49 4C 49 |FOLLOWING FACILI|
00000310: 54 49 45 53 22 3A 99 A3 35 29 22 11 11 81 12 20 |TIES":..5)".... |
00000320: 31 20 92 9A 20 20 C1 44 44 20 41 4E 20 41 44 44 |1 .. .DD AN ADD|
00000330: 52 45 53 53 22 00 81 0B 2C 01 99 A3 35 29 22 11 |RESS"...,...5)".|
00000340: 81 12 20 32 20 92 9A 20 20 C3 48 41 4E 47 45 20 |.. 2 .. .HANGE |
00000350: 41 4E 20 41 44 44 52 45 53 53 22 3A 99 A3 35 29 |AN ADDRESS":..5)|
00000360: 22 11 81 12 20 33 20 92 9A 20 20 D3 45 41 52 43 |"... 3 .. .EARC|
00000370: 48 20 46 4F 52 20 41 4E 20 41 44 44 52 45 53 53 |H FOR AN ADDRESS|
00000380: 22 00 AC 0B 40 01 99 A3 35 29 22 11 81 12 20 34 |"...@...5)"... 4|
00000390: 20 92 9A 20 20 CE 41 4D 45 20 44 49 53 50 4C 41 | .. .AME DISPLA|
000003A0: 59 20 42 59 20 4C 45 54 54 45 52 22 00 D4 0B 45 |Y BY LETTER"...E|
000003B0: 01 99 A3 35 29 22 11 81 12 20 35 20 92 9A 20 20 |...5)"... 5 .. |
000003C0: CC 4F 41 44 20 44 41 54 41 20 46 52 4F 4D 20 44 |.OAD DATA FROM D|
000003D0: 49 53 43 22 00 1A 0C 59 01 99 A3 35 29 22 11 81 |ISC"...Y...5)"..|
000003E0: 12 20 36 20 92 9A 20 20 D0 52 49 4E 54 20 41 44 |. 6 .. .RINT AD|
000003F0: 44 52 45 53 53 45 53 22 3A 99 A3 35 29 22 11 12 |DRESSES":..5)"..|
00000400: 81 20 37 20 92 9A 20 20 C3 48 45 43 4B 20 46 52 |. 7 .. .HECK FR|
00000410: 45 45 20 4D 45 4D 4F 52 59 22 00 45 0C 5B 01 99 |EE MEMORY".E.[..|
00000420: 22 11 1D 1D 1D 1D 1D 81 12 20 38 20 92 9A 20 20 |"........ 8 .. |
00000430: D3 41 56 45 20 44 41 54 41 20 2F 20 D3 49 47 4E |.AVE DATA / .IGN|
00000440: 2D 4F 46 46 22 00 67 0C 5C 01 49 45 B2 30 3A 4E |-OFF".g.\.IE.0:N|
00000450: 53 B2 30 3A 46 37 B2 30 3A 46 36 B2 30 3A 46 35 |S.0:F7.0:F6.0:F5|
00000460: B2 30 3A 46 34 B2 30 00 A4 0C 5E 01 8D 31 30 30 |.0:F4.0...^..100|
00000470: 30 30 3A 91 C5 28 41 24 29 89 35 31 35 2C 31 32 |00:..(A$).515,12|
00000480: 30 30 2C 32 30 30 30 2C 32 31 30 30 2C 31 35 30 |00,2000,2100,150|
00000490: 2C 32 35 30 30 2C 34 35 30 30 2C 31 30 30 30 3A |,2500,4500,1000:|
000004A0: 89 33 35 30 00 B8 0C 03 02 8D 39 30 30 30 3A 8B |.350......9000:.|
000004B0: 50 36 B2 32 A7 32 34 30 00 D7 0C 04 02 99 22 93 |P6.2.240......".|
000004C0: 22 3B 3A 8B B8 28 30 29 B3 35 30 30 A7 8D 35 30 |";:..(0).500..50|
000004D0: 30 30 3A 89 32 34 30 00 F3 0C 05 02 81 4E B2 30 |00:.240......N.0|
000004E0: A4 31 30 3A 41 24 28 4E 29 B2 22 22 3A 82 3A 49 |.10:A$(N)."":.:I|
000004F0: 45 B2 30 00 23 0D 08 02 99 22 93 D0 4C 45 41 53 |E.0.#...."..LEAS|
00000500: 45 20 45 4E 54 45 52 20 54 48 45 20 46 4F 4C 4C |E ENTER THE FOLL|
00000510: 4F 57 49 4E 47 20 49 4E 46 4F 52 4D 41 54 49 4F |OWING INFORMATIO|
00000520: 4E 3A 22 00 56 0D 09 02 8B 49 45 B2 31 A7 99 22 |N:".V....IE.1.."|
00000530: C8 49 54 20 12 20 43 55 52 53 4F 52 20 44 4F 57 |.IT . CURSOR DOW|
00000540: 4E 20 92 20 54 4F 20 53 4B 49 50 20 4C 49 4E 45 |N . TO SKIP LINE|
00000550: 22 3A 89 35 32 33 00 5C 0D 0A 02 99 00 8E 0D 0B |":.523.\........|
00000560: 02 99 22 C8 49 54 20 12 20 4E 20 92 20 49 46 20 |..".IT . N . IF |
00000570: 49 4E 46 4F 52 4D 41 54 49 4F 4E 20 49 53 20 12 |INFORMATION IS .|
00000580: 4E 4F 54 20 41 56 41 49 4C 41 42 4C 45 22 00 D0 |NOT AVAILABLE"..|
00000590: 0D 0D 02 99 22 C8 49 54 20 12 20 5F 20 92 20 4F |....".IT . _ . O|
000005A0: 4E 43 45 20 46 49 4E 49 53 48 45 44 20 45 4E 54 |NCE FINISHED ENT|
000005B0: 45 52 49 4E 47 20 41 20 20 50 41 52 41 2D 22 3A |ERING A PARA-":|
000005C0: 99 22 20 20 20 20 20 20 20 20 47 52 41 50 48 22 |." GRAPH"|
000005D0: 00 FF 0D 0F 02 99 22 11 D3 D5 D2 CE C1 CD C5 20 |......"........ |
000005E0: 20 3A 20 20 22 3B 3A 4E B2 30 3A 4E 55 B2 31 39 | : ";:N.0:NU.19|
000005F0: 3A 99 41 24 28 30 29 3B 3A 8D 33 35 30 30 30 00 |:.A$(0);:.35000.|
00000600: 27 0E 12 02 99 22 CE C1 CD C5 20 20 20 20 20 3A |'....".... :|
00000610: 20 20 22 3B 3A 4E B2 31 3A 99 41 24 28 31 29 3B | ";:N.1:.A$(1);|
00000620: 3A 8D 33 35 30 30 30 00 67 0E 16 02 99 22 11 11 |:.35000.g...."..|
00000630: C1 C4 C4 D2 C5 D3 D3 20 20 3A 20 20 22 3B 3A 8B |....... : ";:.|
00000640: 41 24 28 32 29 B2 22 4E 22 A7 99 22 CE 4F 54 20 |A$(2)."N"..".OT |
00000650: C1 56 41 49 4C 41 42 4C 45 22 3B 3A 8D 33 34 30 |.VAILABLE";:.340|
00000660: 30 30 3A 89 35 33 37 00 84 0E 17 02 4E B2 32 3A |00:.537.....N.2:|
00000670: 4E 55 B2 32 37 3A 99 41 24 28 32 29 3B 3A 8D 33 |NU.27:.A$(2);:.3|
00000680: 35 30 30 30 00 AA 0E 19 02 4E 55 B2 32 37 3A 81 |5000.....NU.27:.|
00000690: 4E B2 33 A4 38 3A 99 A3 31 32 29 41 24 28 4E 29 |N.3.8:..12)A$(N)|
000006A0: 3B 3A 8D 33 35 30 30 30 3A 82 00 EA 0E 1C 02 99 |;:.35000:.......|
000006B0: 22 11 11 D4 C5 CC C5 D0 C8 CF CE C5 3A 20 20 22 |"...........: "|
000006C0: 3B 3A 8B 41 24 28 39 29 B2 22 4E 22 A7 99 22 CE |;:.A$(9)."N"..".|
000006D0: 4F 54 20 C1 56 41 49 4C 41 42 4C 45 22 3B 3A 8D |OT .VAILABLE";:.|
000006E0: 33 34 30 30 30 3A 89 35 34 33 00 01 0F 1D 02 4E |34000:.543.....N|
000006F0: B2 39 3A 99 41 24 28 39 29 3B 3A 8D 33 35 30 30 |.9:.A$(9);:.3500|
00000700: 30 00 1E 0F 1F 02 4E B2 31 30 3A 99 A3 31 32 29 |0.....N.10:..12)|
00000710: 41 24 28 31 30 29 3B 3A 8D 33 35 30 30 30 00 33 |A$(10);:.35000.3|
00000720: 0F 23 02 8B 49 45 B2 31 A7 43 4F B2 31 32 3A 89 |.#..IE.1.CO.12:.|
00000730: 35 35 37 00 6B 0F 26 02 43 4F B2 31 32 3A 4C 4E |557.k.&.CO.12:LN|
00000740: B2 37 3A 8D 32 39 38 30 30 3A 50 33 B2 31 39 3A |.7:.29800:P3.19:|
00000750: 50 34 B2 33 3A 8D 33 30 30 30 30 3A 8D 33 30 33 |P4.3:.30000:.303|
00000760: 33 30 3A 41 24 28 30 29 B2 50 24 00 98 0F 27 02 |30:A$(0).P$...'.|
00000770: 41 B2 C6 28 41 24 28 30 29 AA C7 28 30 29 29 3A |A..(A$(0)..(0)):|
00000780: 8B 41 B3 31 39 33 B0 41 B1 32 31 38 A7 99 22 91 |.A.193.A.218..".|
00000790: 91 91 22 3A 89 35 35 30 00 CF 0F 28 02 99 A3 31 |..":.550...(...1|
000007A0: 31 29 3B 3A 50 34 B2 31 3A 8D 33 30 30 30 30 3A |1);:P4.1:.30000:|
000007B0: 8D 33 30 33 33 30 3A 41 24 28 31 29 B2 50 24 3A |.30330:A$(1).P$:|
000007C0: 41 B2 C6 28 41 24 28 31 29 AA C7 28 30 29 29 00 |A..(A$(1)..(0)).|
000007D0: EB 0F 2B 02 8B 41 B3 31 39 33 B0 41 B1 32 31 38 |..+..A.193.A.218|
000007E0: A7 99 22 91 91 22 3A 89 35 35 32 00 07 10 2C 02 |.."..":.552...,.|
000007F0: 41 24 28 31 29 B2 41 24 28 30 29 AA C7 28 33 32 |A$(1).A$(0)..(32|
00000800: 29 AA 41 24 28 31 29 00 37 10 2D 02 4C 4E B2 31 |).A$(1).7.-.LN.1|
00000810: 31 3A 8D 32 39 38 30 30 3A 50 33 B2 32 37 3A 50 |1:.29800:P3.27:P|
00000820: 34 B2 31 3A 8D 32 39 39 30 30 3A 8B 50 24 B3 B1 |4.1:.29900:.P$..|
00000830: 22 4E 22 A7 35 36 30 00 80 10 2F 02 41 24 28 32 |"N".560.../.A$(2|
00000840: 29 B2 22 4E 22 3A 99 A3 31 32 29 22 91 CE 4F 54 |)."N":..12)"..OT|
00000850: 20 C1 56 41 49 4C 41 42 4C 45 22 3A 81 4E B2 33 | .VAILABLE":.N.3|
00000860: A4 38 3A 41 24 28 4E 29 B2 22 22 3A 99 A3 31 32 |.8:A$(N)."":..12|
00000870: 29 3B 3A 8D 33 35 30 30 30 3A 82 3A 89 35 36 37 |);:.35000:.:.567|
00000880: 00 93 10 30 02 8B 50 24 B2 22 11 22 A7 99 3A 89 |...0..P$."."..:.|
00000890: 35 36 33 00 AA 10 31 02 41 24 28 32 29 B2 50 24 |563...1.A$(2).P$|
000008A0: 3A 8B 50 36 B2 31 A7 35 36 37 00 DD 10 33 02 50 |:.P6.1.567...3.P|
000008B0: 34 B2 30 3A 81 4E B2 33 A4 38 3A 99 A3 31 31 29 |4.0:.N.3.8:..11)|
000008C0: 3B 3A 8D 32 39 39 30 30 3A 8B 50 24 B2 22 11 22 |;:.29900:.P$."."|
000008D0: AF 41 24 28 4E 29 B2 22 22 A7 35 36 37 00 FA 10 |.A$(N)."".567...|
000008E0: 34 02 8B 50 24 B2 22 11 22 AF 41 24 28 4E 29 B3 |4..P$.".".A$(N).|
000008F0: B1 22 22 A7 99 3A 89 35 36 36 00 11 11 35 02 41 |.""..:.566...5.A|
00000900: 24 28 4E 29 B2 50 24 3A 8B 50 36 B2 31 A7 35 36 |$(N).P$:.P6.1.56|
00000910: 37 00 18 11 36 02 82 4E 00 38 11 37 02 4E B2 32 |7...6..N.8.7.N.2|
00000920: 3A 4D B2 38 3A 8D 32 38 30 30 30 3A 8D 33 30 33 |:M.8:.28000:.303|
00000930: 34 30 3A 53 24 B2 50 24 00 62 11 3A 02 4C 4E B2 |40:S$.P$.b.:.LN.|
00000940: 32 30 3A 8D 32 39 38 30 30 3A 50 34 B2 31 3A 8D |20:.29800:P4.1:.|
00000950: 32 39 39 30 30 3A 8B 50 24 B3 B1 22 4E 22 A7 35 |29900:.P$.."N".5|
00000960: 37 34 00 A3 11 3C 02 41 24 28 39 29 B2 22 4E 22 |74...<.A$(9)."N"|
00000970: 3A 99 A3 31 32 29 22 91 CE 4F 54 20 C1 56 41 49 |:..12)"..OT .VAI|
00000980: 4C 41 42 4C 45 22 3A 41 24 28 31 30 29 B2 22 22 |LABLE":A$(10).""|
00000990: 3A 99 A3 31 32 29 3B 3A 8D 33 35 30 30 30 3A 89 |:..12);:.35000:.|
000009A0: 35 39 30 00 B6 11 3E 02 8B 50 24 B2 22 11 22 A7 |590...>..P$.".".|
000009B0: 99 3A 89 35 37 38 00 CD 11 40 02 41 24 28 39 29 |.:.578...@.A$(9)|
000009C0: B2 50 24 3A 8B 50 36 B2 31 A7 35 39 30 00 F9 11 |.P$:.P6.1.590...|
000009D0: 42 02 50 34 B2 30 3A 99 A3 31 31 29 3A 8D 32 39 |B.P4.0:..11):.29|
000009E0: 39 30 30 3A 8B 50 24 B2 22 11 22 AF 41 24 28 31 |900:.P$.".".A$(1|
000009F0: 30 29 B2 22 22 A7 35 39 30 00 17 12 44 02 8B 50 |0)."".590...D..P|
00000A00: 24 B2 22 11 22 AF 41 24 28 31 30 29 B3 B1 22 22 |$.".".A$(10)..""|
00000A10: A7 99 3A 89 35 39 30 00 25 12 46 02 41 24 28 31 |..:.590.%.F.A$(1|
00000A20: 30 29 B2 50 24 00 40 12 4E 02 4E B2 39 3A 4D B2 |0).P$.@.N.N.9:M.|
00000A30: 31 30 3A 8D 32 38 30 30 30 3A 8D 33 30 33 34 30 |10:.28000:.30340|
00000A40: 00 5C 12 53 02 53 24 B2 53 24 AA 22 5F 22 AA 50 |.\.S.S$.S$."_".P|
00000A50: 24 3A 8B 49 45 B2 31 A7 31 36 33 30 00 7E 12 5D |$:.IE.1.1630.~.]|
00000A60: 02 99 3A 99 22 41 43 43 45 50 54 22 3B 3A 8D 31 |..:."ACCEPT";:.1|
00000A70: 31 30 30 30 3A 8B 50 36 B2 32 A7 35 31 37 00 BC |1000:.P6.2.517..|
00000A80: 12 62 02 99 22 93 C8 41 4E 47 2D 4F 4E 20 57 48 |.b.."..ANG-ON WH|
00000A90: 49 4C 45 20 50 4F 53 54 49 4E 47 22 3A 49 B2 B5 |ILE POSTING":I..|
00000AA0: 28 28 C6 28 41 24 28 31 29 29 AB 31 39 33 29 AD |((.(A$(1)).193).|
00000AB0: 32 29 3A 8B 49 B1 39 A7 49 B2 31 30 00 D2 12 6C |2):.I.9.I.10...l|
00000AC0: 02 4A B2 43 28 49 29 3A 8B 4A B1 B2 35 30 A7 36 |.J.C(I):.J..50.6|
00000AD0: 35 30 00 F5 12 76 02 4E 24 28 4A 2C 49 29 B2 41 |50...v.N$(J,I).A|
00000AE0: 24 28 31 29 3A 43 28 49 29 B2 43 28 49 29 AA 31 |$(1):C(I).C(I).1|
00000AF0: 3A 89 36 38 30 00 26 13 8A 02 8D 32 30 30 30 30 |:.680.&....20000|
00000B00: 3A 99 22 93 D3 4F 52 52 59 20 2D 20 D4 48 49 53 |:."..ORRY - .HIS|
00000B10: 20 50 41 47 45 20 49 53 20 46 55 4C 4C 2D 55 50 | PAGE IS FULL-UP|
00000B20: 22 3A 89 37 30 35 00 43 13 A8 02 53 24 28 4A 2C |":.705.C...S$(J,|
00000B30: 49 29 B2 53 24 3A 46 31 B2 31 3A 8B 4A B2 30 A7 |I).S$:F1.1:.J.0.|
00000B40: 37 30 30 00 5F 13 B8 02 8B 20 4E 24 28 4A 2C 49 |700._.... N$(J,I|
00000B50: 29 B3 4E 24 28 4A AB 31 2C 49 29 A7 37 35 30 00 |).N$(J.1,I).750.|
00000B60: 9E 13 BC 02 8D 32 30 30 30 30 3A 99 22 11 11 CF |.....20000:."...|
00000B70: CB 22 3A 99 22 11 11 12 22 35 31 AB 43 28 49 29 |.":."..."51.C(I)|
00000B80: 22 9D 20 C5 4E 54 52 49 45 53 20 4C 45 46 54 20 |". .NTRIES LEFT |
00000B90: 49 4E 20 54 48 49 53 20 50 41 47 45 92 22 00 C9 |IN THIS PAGE."..|
00000BA0: 13 C1 02 99 22 11 11 C1 4E 59 20 4F 54 48 45 52 |...."...NY OTHER|
00000BB0: 20 45 4E 54 52 59 22 3B 3A 8D 31 31 30 30 30 3A | ENTRY";:.11000:|
00000BC0: 8B 50 36 B2 31 A7 35 31 35 00 D2 13 C6 02 89 32 |.P6.1.515......2|
00000BD0: 34 30 00 FC 13 EE 02 53 B2 4A 3A 81 4A B2 53 A4 |40.....S.J:.J.S.|
00000BE0: 31 A9 AB 31 3A 8B 4E 24 28 4A 2C 49 29 B1 B2 4E |1..1:.N$(J,I)..N|
00000BF0: 24 28 4A AB 31 2C 49 29 A7 37 30 30 00 0E 14 07 |$(J.1,I).700....|
00000C00: 03 8D 20 39 30 30 3A 82 4A 3A 89 37 30 30 00 3C |.. 900:.J:.700.<|
00000C10: 14 84 03 42 24 B2 4E 24 28 4A AB 31 2C 49 29 3A |...B$.N$(J.1,I):|
00000C20: 4E 24 28 4A AB 31 2C 49 29 B2 4E 24 28 4A 2C 49 |N$(J.1,I).N$(J,I|
00000C30: 29 3A 4E 24 28 4A 2C 49 29 B2 42 24 00 6C 14 8E |):N$(J,I).B$.l..|
00000C40: 03 42 24 B2 53 24 28 4A AB 31 2C 49 29 3A 53 24 |.B$.S$(J.1,I):S$|
00000C50: 28 4A AB 31 2C 49 29 B2 53 24 28 4A 2C 49 29 3A |(J.1,I).S$(J,I):|
00000C60: 53 24 28 4A 2C 49 29 B2 42 24 3A 8E 00 7B 14 E8 |S$(J,I).B$:..{..|
00000C70: 03 8B 46 31 B2 31 A7 31 30 31 35 00 8A 14 ED 03 |..F1.1.1015.....|
00000C80: 99 22 93 22 3A 89 31 31 37 30 00 C8 14 F2 03 99 |.".":.1170......|
00000C90: C7 28 39 29 3A 97 35 33 32 37 32 2C 32 31 3A 97 |.(9):.53272,21:.|
00000CA0: 35 33 32 38 30 2C 31 34 3A 99 22 93 11 22 A3 38 |53280,14:."..".8|
00000CB0: 29 22 4F 4B 2C 20 4E 4F 57 20 53 49 47 4E 49 4E |)"OK, NOW SIGNIN|
00000CC0: 47 2D 4F 46 46 22 3A 80 00 14 15 F7 03 99 22 93 |G-OFF":.......".|
00000CD0: D9 4F 55 20 48 41 56 45 20 4D 41 44 45 20 53 4F |.OU HAVE MADE SO|
00000CE0: 4D 45 20 41 4C 54 45 52 41 54 49 4F 4E 53 22 3A |ME ALTERATIONS":|
00000CF0: 99 22 11 C4 4F 20 59 4F 55 20 57 49 53 48 20 54 |."..O YOU WISH T|
00000D00: 4F 20 53 41 56 45 20 54 48 45 4D 22 3B 3A 8D 31 |O SAVE THEM";:.1|
00000D10: 31 30 30 30 00 23 15 FA 03 8B 50 36 B2 32 A7 31 |1000.#....P6.2.1|
00000D20: 31 37 30 00 6A 15 03 04 99 22 93 D0 4C 45 41 53 |170.j...."..LEAS|
00000D30: 45 20 45 4E 54 45 52 20 4E 41 4D 45 20 4F 46 20 |E ENTER NAME OF |
00000D40: 46 49 4C 45 20 54 4F 20 42 45 20 53 41 56 45 44 |FILE TO BE SAVED|
00000D50: 22 3A 99 22 11 28 CD 41 58 20 12 31 36 92 20 4C |":.".(.AX .16. L|
00000D60: 45 54 54 45 52 53 29 20 22 3B 00 A6 15 04 04 50 |ETTERS) ";.....P|
00000D70: 34 B2 31 3A 50 33 B2 31 36 3A 8D 33 30 30 30 30 |4.1:P3.16:.30000|
00000D80: 3A 42 24 B2 50 24 3A 99 22 11 D0 4C 45 41 53 45 |:B$.P$:."..LEASE|
00000D90: 20 4C 4F 41 44 20 59 4F 55 52 20 44 49 53 43 2C | LOAD YOUR DISC,|
00000DA0: 20 54 48 45 4E 22 00 DE 15 15 04 99 22 11 12 48 | THEN"......"..H|
00000DB0: 49 54 20 41 4E 59 20 4B 45 59 20 54 4F 20 43 4F |IT ANY KEY TO CO|
00000DC0: 4E 54 49 4E 55 45 92 11 22 3A 8D 31 30 30 30 30 |NTINUE..":.10000|
00000DD0: 3A 9F 31 2C 38 2C 31 2C 42 24 3A 49 B2 30 00 EA |:.1,8,1,B$:I.0..|
00000DE0: 15 2E 04 81 4A B2 30 A4 35 30 00 07 16 33 04 8B |....J.0.50...3..|
00000DF0: 4E 24 28 4A 2C 49 29 B2 22 22 A7 98 31 2C 22 5E |N$(J,I).""..1,"^|
00000E00: 22 3A 89 31 31 32 30 00 2D 16 38 04 98 31 2C 4E |":.1120.-.8..1,N|
00000E10: 24 28 4A 2C 49 29 3A 8B C3 28 53 24 28 4A 2C 49 |$(J,I):..(S$(J,I|
00000E20: 29 29 B1 B2 37 39 A7 98 31 2C 22 2A 22 00 3F 16 |))..79..1,"*".?.|
00000E30: 42 04 98 31 2C 53 24 28 4A 2C 49 29 3A 82 4A 00 |B..1,S$(J,I):.J.|
00000E40: 55 16 60 04 49 B2 49 AA 31 3A 8B 49 B3 B2 31 30 |U.`.I.I.1:.I..10|
00000E50: A7 31 30 37 30 00 99 16 7E 04 A0 31 3A 8D 32 30 |.1070...~..1:.20|
00000E60: 30 30 30 3A 99 22 11 C4 4F 20 59 4F 55 20 57 49 |000:."..O YOU WI|
00000E70: 53 48 20 54 4F 20 53 41 56 45 20 54 48 45 4D 20 |SH TO SAVE THEM |
00000E80: 41 47 41 49 4E 22 3B 3A 8D 31 31 30 30 30 3A 8B |AGAIN";:.11000:.|
00000E90: 50 36 B2 31 A7 31 30 32 37 00 CD 16 92 04 99 22 |P6.1.1027......"|
00000EA0: 11 C4 4F 20 59 4F 55 20 57 49 53 48 20 54 4F 20 |..O YOU WISH TO |
00000EB0: 53 49 47 4E 2D 4F 46 46 20 22 3B 3A 8D 31 31 30 |SIGN-OFF ";:.110|
00000EC0: 30 30 3A 8B 50 36 B2 31 A7 31 30 31 30 00 D6 16 |00:.P6.1.1010...|
00000ED0: A1 04 89 32 34 30 00 EA 16 B0 04 8D 39 30 30 30 |...240......9000|
00000EE0: 3A 8B 50 36 B2 32 A7 32 34 30 00 09 17 B3 04 99 |:.P6.2.240......|
00000EF0: 22 93 22 3B 3A 8B B8 28 30 29 B3 35 30 30 A7 8D |".";:..(0).500..|
00000F00: 35 30 30 30 3A 89 32 34 30 00 3C 17 B5 04 99 22 |5000:.240.<...."|
00000F10: 93 C5 4E 54 45 52 20 12 D3 55 52 4E 41 4D 45 20 |..NTER ..URNAME |
00000F20: 26 20 CE 41 4D 45 92 20 46 4F 52 20 41 4C 54 45 |& .AME. FOR ALTE|
00000F30: 52 41 54 49 4F 4E 22 3A 4E 53 B2 30 00 7E 17 BA |RATION":NS.0.~..|
00000F40: 04 46 33 B2 30 3A 50 33 B2 33 36 3A 50 34 B2 32 |.F3.0:P3.36:P4.2|
00000F50: 3A 8D 33 30 30 30 30 3A 41 24 B2 50 24 3A 41 B2 |:.30000:A$.P$:A.|
00000F60: C6 28 41 24 29 3A 8B 41 B3 31 39 33 B0 41 B1 32 |.(A$):.A.193.A.2|
00000F70: 31 38 A7 99 22 91 22 3B 3A 89 31 32 31 30 00 9B |18..".";:.1210..|
00000F80: 17 C4 04 49 B2 B5 28 28 41 AB 31 39 33 29 AD 32 |...I..((A.193).2|
00000F90: 29 3A 8B 49 B1 39 A7 49 B2 31 30 00 BA 17 CE 04 |):.I.9.I.10.....|
00000FA0: 81 4A B2 30 A4 43 28 49 29 3A 8B 4E 24 28 4A 2C |.J.0.C(I):.N$(J,|
00000FB0: 49 29 B2 41 24 A7 31 34 39 30 00 C1 17 D5 04 82 |I).A$.1490......|
00000FC0: 4A 00 10 18 D8 04 99 22 11 CE 4F 20 52 45 43 4F |J......"..O RECO|
00000FD0: 52 44 20 4F 46 20 54 48 49 53 20 4E 41 4D 45 22 |RD OF THIS NAME"|
00000FE0: 3A 8D 32 30 30 30 30 3A 99 22 CE 4F 57 20 53 45 |:.20000:.".OW SE|
00000FF0: 41 52 43 48 49 4E 47 20 46 4F 52 20 50 4F 53 53 |ARCHING FOR POSS|
00001000: 49 42 4C 45 20 41 4C 54 45 52 4E 41 54 49 56 45 |IBLE ALTERNATIVE|
00001010: 00 28 18 EC 04 5A 42 B2 30 3A 5A 54 B2 30 3A 81 |.(...ZB.0:ZT.0:.|
00001020: 4A B2 30 A4 43 28 49 29 00 56 18 00 05 8B C8 28 |J.0.C(I).V.....(|
00001030: 4E 24 28 4A 2C 49 29 2C C3 28 41 24 29 29 B2 41 |N$(J,I),.(A$)).A|
00001040: 24 A7 5A 42 B2 4A 3A 5A 54 B2 4A 3A 46 33 B2 31 |$.ZB.J:ZT.J:F3.1|
00001050: 3A 89 31 32 39 33 00 69 18 0A 05 82 4A 3A 8B 46 |:.1293.i....J:.F|
00001060: 33 B3 B1 31 A7 31 32 39 36 00 7F 18 0D 05 4A B2 |3..1.1296.....J.|
00001070: 4A AA 31 3A 8B 4A B1 B2 35 31 A7 31 32 39 38 00 |J.1:.J..51.1298.|
00001080: A6 18 0E 05 8B C8 28 4E 24 28 4A 2C 49 29 2C C3 |......(N$(J,I),.|
00001090: 28 41 24 29 29 B2 41 24 A7 5A 54 B2 5A 54 AA 31 |(A$)).A$.ZT.ZT.1|
000010A0: 3A 89 31 32 39 33 00 B0 18 0F 05 89 31 32 39 38 |:.1293......1298|
000010B0: 00 D8 18 10 05 99 22 D3 4F 52 52 59 20 4E 4F 54 |......".ORRY NOT|
000010C0: 48 49 4E 47 20 43 4C 4F 53 45 22 3A 8B 46 34 B2 |HING CLOSE":.F4.|
000010D0: 31 A7 46 34 B2 32 3A 8E 00 E6 18 11 05 99 3A 99 |1.F4.2:.......:.|
000010E0: 3A 89 31 38 37 30 00 15 19 12 05 99 22 C9 20 C8 |:.1870......". .|
000010F0: 41 56 45 20 46 4F 55 4E 44 20 54 48 45 20 46 4F |AVE FOUND THE FO|
00001100: 4C 4C 4F 57 49 4E 47 3A 22 3A 8D 32 30 30 30 30 |LLOWING:":.20000|
00001110: 3A 4E B2 5A 42 00 42 19 1E 05 99 22 11 D2 C5 C3 |:N.ZB.B...."....|
00001120: CF D2 C4 20 CE 4F 22 2C 22 CE C1 CD C5 22 3A 99 |... .O","....":.|
00001130: 22 A3 A3 A3 A3 A3 A3 A3 A3 A3 22 2C 22 A3 A3 A3 |".........","...|
00001140: A3 22 00 50 19 46 05 81 4D B2 4E A4 4E AA 31 35 |.".P.F..M.N.N.15|
00001150: 00 5F 19 4B 05 8B 4D B1 5A 54 A7 31 33 38 32 00 |._.K..M.ZT.1382.|
00001160: 77 19 5A 05 99 22 1D 1D 22 4D AA 31 2C 4E 24 28 |w.Z..".."M.1,N$(|
00001170: 4D 2C 49 29 3A 82 4D 00 AA 19 66 05 99 22 11 D0 |M,I):.M...f.."..|
00001180: 52 45 53 53 20 12 20 43 20 92 20 54 4F 20 43 4F |RESS . C . TO CO|
00001190: 4E 54 49 4E 55 45 20 53 43 41 4E 20 12 20 53 20 |NTINUE SCAN . S |
000011A0: 92 20 54 4F 20 53 54 4F 50 22 00 DC 19 68 05 99 |. TO STOP"...h..|
000011B0: 22 12 20 52 20 92 20 54 4F 20 52 45 53 54 41 52 |". R . TO RESTAR|
000011C0: 54 20 53 43 41 4E 20 4F 52 20 12 20 43 4F 52 52 |T SCAN OR . CORR|
000011D0: 45 53 50 4F 4E 44 49 4E 47 20 92 22 00 0C 1A 6A |ESPONDING ."...j|
000011E0: 05 99 22 4E 55 4D 42 45 52 20 54 4F 20 41 43 43 |.."NUMBER TO ACC|
000011F0: 45 53 53 20 50 4F 54 45 4E 54 49 41 4C 20 52 45 |ESS POTENTIAL RE|
00001200: 43 4F 52 44 22 3A 8D 32 30 30 30 30 00 4B 1A 6E |CORD":.20000.K.n|
00001210: 05 99 22 11 45 4E 54 45 52 20 4E 4F 57 3A 20 22 |..".ENTER NOW: "|
00001220: 3B 3A 50 33 B2 32 3A 50 34 B2 31 3A 8D 33 30 30 |;:P3.2:P4.1:.300|
00001230: 30 30 3A 8B 50 24 B2 22 52 22 A7 4E B2 5A 42 3A |00:.P$."R".N.ZB:|
00001240: 99 22 93 22 3B 3A 89 31 33 31 30 00 6D 1A 82 05 |.".";:.1310.m...|
00001250: 8B 50 24 B2 22 43 22 AF 4D B3 B2 5A 54 A7 4E B2 |.P$."C".M..ZT.N.|
00001260: 4D 3A 99 22 93 22 3B 3A 89 31 33 31 30 00 7D 1A |M:.".";:.1310.}.|
00001270: 87 05 8B 50 24 B2 22 53 22 A7 32 34 30 00 A0 1A |...P$."S".240...|
00001280: 89 05 58 B2 C5 28 50 24 29 3A 8B 58 B3 B2 30 B0 |..X..(P$):.X..0.|
00001290: 58 B1 4D A7 99 22 91 91 91 22 3A 89 31 33 39 30 |X.M.."...":.1390|
000012A0: 00 AA 1A 8C 05 4A B2 58 AB 31 00 B2 1A D2 05 45 |.....J.X.1.....E|
000012B0: B2 30 00 EB 1A DC 05 99 22 93 22 A3 31 30 29 22 |.0......".".10)"|
000012C0: D2 45 43 4F 52 44 20 CE 55 4D 42 45 52 3A 22 4A |.ECORD .UMBER:"J|
000012D0: AA 31 3A 99 A3 31 30 29 22 A3 A3 A3 A3 A3 A3 A3 |.1:..10)".......|
000012E0: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 22 00 01 1B E8 05 |..........".....|
000012F0: 8D 32 37 30 30 30 3A 8B 46 35 B2 31 A7 31 35 31 |.27000:.F5.1.151|
00001300: 34 00 31 1B E9 05 58 B2 B5 28 32 30 AB 4C 4C AD |4.1...X..(20.LL.|
00001310: 32 29 3A 99 A3 58 29 4E 54 24 3A 99 A3 58 29 3A |2):..X)NT$:..X):|
00001320: 81 58 B2 31 A4 4C 4C 3A 99 22 2D 22 3B 3A 82 3A |.X.1.LL:."-";:.:|
00001330: 99 00 57 1B EA 05 8D 32 37 31 30 30 3A 41 24 B2 |..W....27100:A$.|
00001340: 22 CE 4F 54 20 C1 56 41 49 4C 41 42 4C 45 22 3A |".OT .VAILABLE":|
00001350: 8B 46 35 B2 31 A7 8E 00 8D 1B F0 05 99 22 11 12 |.F5.1........"..|
00001360: 81 C1 44 44 52 45 53 53 3A 92 9A 22 3A 99 22 2D |..DDRESS:..":."-|
00001370: 2D 2D 2D 2D 2D 2D 2D 22 3A 8B 41 24 28 32 29 B2 |-------":.A$(2).|
00001380: 22 4E 22 A7 99 41 24 3A 89 31 35 32 36 00 98 1B |"N"..A$:.1526...|
00001390: F3 05 99 41 24 28 32 29 00 D2 1B F6 05 99 22 11 |...A$(2)......".|
000013A0: 12 81 D4 45 4C 45 50 48 4F 4E 45 3A 92 9A 22 3A |...ELEPHONE:..":|
000013B0: 99 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 3A 8B 41 |."----------":.A|
000013C0: 24 28 33 29 B2 22 4E 22 A7 99 41 24 3A 89 31 35 |$(3)."N"..A$:.15|
000013D0: 32 39 00 DD 1B F8 05 99 41 24 28 33 29 00 0F 1C |29......A$(3)...|
000013E0: F9 05 99 A3 38 29 22 11 2A 2A 2A 20 20 C5 4E 44 |....8)".*** .ND|
000013F0: 20 D2 45 43 4F 52 44 20 20 2A 2A 2A 22 3A 8D 32 | .ECORD ***":.2|
00001400: 30 30 30 30 3A 8B 49 45 B2 31 A7 31 35 37 30 00 |0000:.IE.1.1570.|
00001410: 1F 1C FF 05 8B 4A B1 B2 35 30 A7 31 35 36 37 00 |.....J..50.1567.|
00001420: 3C 1C 04 06 8B 4E 24 28 4A 2C 49 29 B3 B1 4E 24 |<....N$(J,I)..N$|
00001430: 28 4A AA 31 2C 49 29 A7 31 35 36 37 00 88 1C 0E |(J.1,I).1567....|
00001440: 06 99 22 11 1D 1D D4 48 45 52 45 20 49 53 20 41 |.."....HERE IS A|
00001450: 4E 4F 54 48 45 52 20 52 45 43 4F 52 44 20 49 4E |NOTHER RECORD IN|
00001460: 20 54 48 41 54 20 4E 41 4D 45 22 3A 99 A3 31 30 | THAT NAME":..10|
00001470: 29 22 12 48 49 54 20 41 4E 59 20 4B 45 59 20 54 |)".HIT ANY KEY T|
00001480: 4F 20 56 49 45 57 92 22 00 BC 1C 15 06 99 A3 31 |O VIEW.".......1|
00001490: 30 29 22 12 4F 52 20 48 49 54 20 20 53 20 20 54 |0)".OR HIT S T|
000014A0: 4F 20 20 53 54 4F 50 22 3A 8D 31 30 30 30 30 3A |O STOP":.10000:|
000014B0: 8B 41 24 B2 22 53 22 A7 31 35 36 37 00 CC 1C 1D |.A$."S".1567....|
000014C0: 06 4A B2 4A AA 31 3A 89 31 35 30 30 00 DB 1C 1F |.J.J.1:.1500....|
000014D0: 06 8B 4E 53 B2 31 A7 32 30 32 30 00 E7 1C 20 06 |..NS.1.2020... .|
000014E0: 8B 46 34 B2 31 A7 8E 00 22 1D 22 06 99 22 11 C9 |.F4.1...".".."..|
000014F0: 53 20 41 4C 54 45 52 41 54 49 4F 4E 2F 44 45 4C |S ALTERATION/DEL|
00001500: 45 54 49 4F 4E 20 52 45 51 55 49 52 45 44 22 3B |ETION REQUIRED";|
00001510: 3A 8D 31 31 30 30 30 3A 8B 50 36 B2 32 A7 31 38 |:.11000:.P6.2.18|
00001520: 32 30 00 30 1D 41 06 8B 4A B2 30 A7 31 36 30 37 |20.0.A..J.0.1607|
00001530: 00 4D 1D 42 06 8B 4E 24 28 4A 2C 49 29 B3 B1 4E |.M.B..N$(J,I)..N|
00001540: 24 28 4A AB 31 2C 49 29 A7 31 36 30 37 00 86 1D |$(J.1,I).1607...|
00001550: 43 06 99 22 11 C5 4E 54 45 52 20 D2 45 43 4F 52 |C.."..NTER .ECOR|
00001560: 44 20 CE 4F 2E 20 54 4F 20 42 45 20 41 4C 54 45 |D .O. TO BE ALTE|
00001570: 52 45 44 22 3B 3A 50 33 B2 32 3A 50 34 B2 31 3A |RED";:P3.2:P4.1:|
00001580: 8D 33 30 30 30 30 00 AC 1D 44 06 8B C5 28 50 24 |.30000...D...(P$|
00001590: 29 B3 B2 30 B0 C5 28 50 24 29 B1 43 28 49 29 A7 |)..0..(P$).C(I).|
000015A0: 99 22 91 91 91 22 3A 89 31 36 30 33 00 BA 1D 45 |."...":.1603...E|
000015B0: 06 4A B2 C5 28 50 24 29 AB 31 00 ED 1D 47 06 99 |.J..(P$).1...G..|
000015C0: 22 91 C8 49 54 20 12 20 44 20 92 20 54 4F 20 44 |"..IT . D . TO D|
000015D0: 45 4C 45 54 45 2C 20 CF 54 48 45 52 57 49 53 45 |ELETE, .THERWISE|
000015E0: 20 48 49 54 20 41 4E 59 20 4B 45 59 22 00 21 1E | HIT ANY KEY".!.|
000015F0: 4D 06 8D 31 30 30 30 30 3A 8B 41 24 B2 22 44 22 |M..10000:.A$."D"|
00001600: A7 99 22 11 C8 41 4E 47 20 4F 4E 20 57 48 49 4C |.."..ANG ON WHIL|
00001610: 45 20 44 45 4C 45 54 49 4E 47 22 3A 89 31 37 35 |E DELETING":.175|
00001620: 30 00 5E 1E 4F 06 99 22 93 22 3B 3A 8D 32 37 30 |0.^.O..".";:.270|
00001630: 30 30 3A 8D 32 37 31 30 30 3A 53 24 B2 41 24 28 |00:.27100:S$.A$(|
00001640: 32 29 3A 54 24 B2 41 24 28 33 29 3A 81 4E B2 32 |2):T$.A$(3):.N.2|
00001650: A4 31 30 3A 41 24 28 4E 29 B2 22 22 3A 82 00 92 |.10:A$(N)."":...|
00001660: 1E 54 06 51 B2 32 3A 50 24 B2 53 24 3A 8D 32 37 |.T.Q.2:P$.S$:.27|
00001670: 32 30 30 3A 51 B2 39 3A 50 24 B2 54 24 3A 8D 32 |200:Q.9:P$.T$:.2|
00001680: 37 32 30 30 3A 45 B2 31 3A 49 45 B2 31 3A 89 35 |7200:E.1:IE.1:.5|
00001690: 32 30 00 AC 1E 5E 06 53 24 28 4A 2C 49 29 B2 53 |20...^.S$(J,I).S|
000016A0: 24 3A 46 31 B2 31 3A 89 31 35 30 30 00 D2 1E D6 |$:F1.1:.1500....|
000016B0: 06 53 B2 4A 3A 46 31 B2 31 3A 81 4A B2 53 A4 35 |.S.J:F1.1:.J.S.5|
000016C0: 30 3A 8B 4E 24 28 4A 2C 49 29 B2 22 22 A7 31 38 |0:.N$(J,I)."".18|
000016D0: 31 33 00 F8 1E EF 06 8B 4A B2 35 30 A7 4E 24 28 |13......J.50.N$(|
000016E0: 4A 2C 49 29 B2 22 22 3A 53 24 28 4A 2C 49 29 B2 |J,I)."":S$(J,I).|
000016F0: 22 22 3A 89 31 38 31 33 00 23 1F F4 06 4E 24 28 |"":.1813.#...N$(|
00001700: 4A 2C 49 29 B2 4E 24 28 4A AA 31 2C 49 29 3A 53 |J,I).N$(J.1,I):S|
00001710: 24 28 4A 2C 49 29 B2 53 24 28 4A AA 31 2C 49 29 |$(J,I).S$(J.1,I)|
00001720: 3A 82 4A 00 51 1F 15 07 43 28 49 29 B2 43 28 49 |:.J.Q...C(I).C(I|
00001730: 29 AB 31 3A 99 22 1D CF CB 2C 20 46 49 4C 45 20 |).1:."..., FILE |
00001740: 44 45 4C 45 54 45 44 22 3A 8D 32 30 30 30 30 3A |DELETED":.20000:|
00001750: 99 00 81 1F 1C 07 99 22 11 C1 4E 59 20 4F 54 48 |......."..NY OTH|
00001760: 45 52 20 41 4C 54 45 52 41 54 49 4F 4E 22 3B 3A |ER ALTERATION";:|
00001770: 8D 31 31 30 30 30 3A 8B 50 36 B2 31 A7 31 32 30 |.11000:.P6.1.120|
00001780: 30 00 8A 1F 26 07 89 32 34 30 00 99 1F 4E 07 8B |0...&..240...N..|
00001790: 4E 53 B2 31 A7 32 30 32 30 00 A8 1F 58 07 8B 4E |NS.1.2020...X..N|
000017A0: 53 B2 30 A7 31 38 32 30 00 BC 1F D0 07 8D 39 30 |S.0.1820......90|
000017B0: 30 30 3A 8B 50 36 B2 32 A7 32 34 30 00 F6 1F DA |00:.P6.2.240....|
000017C0: 07 99 22 93 C5 4E 54 45 52 20 12 D3 55 52 4E 41 |.."..NTER ..URNA|
000017D0: 4D 45 20 26 20 CE 41 4D 45 92 20 54 4F 20 46 49 |ME & .AME. TO FI|
000017E0: 4E 44 20 41 44 44 52 45 53 53 22 3A 4E 53 B2 31 |ND ADDRESS":NS.1|
000017F0: 3A 89 31 32 31 30 00 31 20 E4 07 4E 53 B2 30 3A |:.1210.1 ..NS.0:|
00001800: 99 22 11 C1 4E 59 20 4F 54 48 45 52 20 41 44 44 |."..NY OTHER ADD|
00001810: 52 45 53 53 20 52 45 51 55 49 52 45 44 22 3B 3A |RESS REQUIRED";:|
00001820: 8D 31 31 30 30 30 3A 8B 50 36 B2 31 A7 32 30 30 |.11000:.P6.1.200|
00001830: 30 00 3A 20 0C 08 89 32 34 30 00 6F 20 34 08 99 |0.: ...240.o 4..|
00001840: 22 93 C5 4E 54 45 52 20 4C 45 54 54 45 52 20 46 |"..NTER LETTER F|
00001850: 4F 52 20 57 48 49 43 48 20 50 41 47 45 20 52 45 |OR WHICH PAGE RE|
00001860: 51 55 49 52 45 44 3A 22 3A 8D 31 30 30 30 30 00 |QUIRED:":.10000.|
00001870: 8B 20 43 08 41 B2 C6 28 41 24 29 3A 8B 41 B3 36 |. C.A..(A$):.A.6|
00001880: 35 B0 41 B1 39 30 A7 32 31 30 30 00 A7 20 48 08 |5.A.90.2100.. H.|
00001890: 49 B2 B5 28 28 41 AB 36 35 29 AD 32 29 3A 8B 49 |I..((A.65).2):.I|
000018A0: B1 39 A7 49 B2 31 30 00 CC 20 4D 08 41 24 B2 C7 |.9.I.10.. M.A$..|
000018B0: 28 32 AC 49 AA 31 39 33 29 3A 8B 49 B2 31 30 A7 |(2.I.193):.I.10.|
000018C0: 43 24 B2 22 DA 22 3A 89 32 31 33 30 00 DE 20 4F |C$.".":.2130.. O|
000018D0: 08 43 24 B2 C7 28 32 AC 49 AA 31 39 34 29 00 2A |.C$..(2.I.194).*|
000018E0: 21 52 08 99 22 93 D0 41 47 45 20 12 20 22 41 24 |!R.."..AGE . "A$|
000018F0: 22 20 2D 20 22 43 24 22 20 92 20 43 4F 4E 54 41 |" - "C$" . CONTA|
00001900: 49 4E 53 20 12 22 43 28 49 29 22 9D 20 92 20 45 |INS ."C(I)". . E|
00001910: 4E 54 52 49 45 53 3A 22 3A 81 4E B2 31 A4 33 34 |NTRIES:":.N.1.34|
00001920: 3A 99 22 A3 22 3B 3A 82 3A 99 00 58 21 61 08 4D |:.".";:.:..X!a.M|
00001930: B2 30 3A 8B 4E 24 28 30 2C 49 29 B2 22 22 A7 99 |.0:.N$(0,I).""..|
00001940: 22 12 11 11 1D 1D D0 41 47 45 20 45 4D 50 54 59 |"......AGE EMPTY|
00001950: 11 22 3A 89 32 32 33 30 00 74 21 66 08 81 4A B2 |.":.2230.t!f..J.|
00001960: 4D A4 32 30 AA 4D 3A 8B 4A B1 B2 43 28 49 29 A7 |M.20.M:.J..C(I).|
00001970: 32 32 33 30 00 BC 21 75 08 99 4E 24 28 4A 2C 49 |2230..!u..N$(J,I|
00001980: 29 3A 82 3A 99 22 D0 52 45 53 53 20 41 4E 59 20 |):.:.".RESS ANY |
00001990: 4B 45 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 20 |KEY TO CONTINUE |
000019A0: 53 43 41 4E 22 3A 8D 31 30 30 30 30 3A 4D B2 4A |SCAN":.10000:M.J|
000019B0: 3A 99 22 93 22 3B 3A 89 32 31 35 30 00 E6 21 B6 |:.".";:.2150..!.|
000019C0: 08 99 22 11 C1 4E 59 20 4F 54 48 45 52 20 53 43 |.."..NY OTHER SC|
000019D0: 41 4E 22 3B 3A 8D 31 31 30 30 30 3A 8B 50 36 B2 |AN";:.11000:.P6.|
000019E0: 31 A7 32 31 30 30 00 EF 21 DE 08 89 32 34 30 00 |1.2100..!...240.|
000019F0: 2E 22 C4 09 99 22 93 22 A3 31 33 29 22 D0 D2 C9 |."...".".13)"...|
00001A00: CE D4 20 CD C5 CE D5 22 3A 99 A3 31 33 29 22 A3 |.. ....":..13)".|
00001A10: A3 A3 A3 A3 A3 A3 A3 A3 A3 22 3A 46 37 B2 30 3A |.........":F7.0:|
00001A20: 46 36 B2 30 3A 46 35 B2 30 3A 46 34 B2 30 00 72 |F6.0:F5.0:F4.0.r|
00001A30: 22 D8 09 99 A3 38 29 22 11 12 D0 52 45 53 53 20 |"....8)"...RESS |
00001A40: 4F 50 54 49 4F 4E 20 4E 55 4D 42 45 52 22 3A 99 |OPTION NUMBER":.|
00001A50: A3 38 29 22 11 11 11 12 20 31 20 92 20 D0 52 49 |.8)".... 1 . .RI|
00001A60: 4E 54 20 53 49 4E 47 4C 45 20 41 44 44 52 45 53 |NT SINGLE ADDRES|
00001A70: 53 22 00 B3 22 E2 09 99 A3 38 29 22 11 11 12 20 |S".."....8)"... |
00001A80: 32 20 92 20 D0 52 49 4E 54 20 41 4C 4C 20 41 44 |2 . .RINT ALL AD|
00001A90: 44 52 45 53 53 45 53 22 3A 99 A3 38 29 22 11 11 |DRESSES":..8)"..|
00001AA0: 12 20 33 20 92 20 C2 41 43 4B 20 54 4F 20 4D 45 |. 3 . .ACK TO ME|
00001AB0: 4E 55 22 00 D9 22 F6 09 8D 31 30 30 30 30 3A 91 |NU".."...10000:.|
00001AC0: C5 28 41 24 29 89 32 35 37 30 2C 32 36 37 30 2C |.(A$).2570,2670,|
00001AD0: 32 34 30 3A 89 32 35 35 30 00 1D 23 0A 0A 99 22 |240:.2550..#..."|
00001AE0: 93 C5 4E 54 45 52 20 12 D3 55 52 4E 41 4D 45 2F |..NTER ..URNAME/|
00001AF0: CE 41 4D 45 92 20 54 4F 20 46 49 4E 44 20 41 44 |.AME. TO FIND AD|
00001B00: 44 52 45 53 53 3A 22 3A 46 34 B2 31 3A 8D 31 32 |DRESS:":F4.1:.12|
00001B10: 31 30 3A 8B 46 34 B2 32 A7 32 36 33 30 00 4D 23 |10:.F4.2.2630.M#|
00001B20: 1E 0A 99 22 11 C4 4F 20 59 4F 55 20 57 49 53 48 |..."..O YOU WISH|
00001B30: 20 54 4F 20 50 52 49 4E 54 22 3B 3A 8D 31 31 30 | TO PRINT";:.110|
00001B40: 30 30 3A 8B 50 36 B2 32 A7 32 35 30 30 00 68 23 |00:.P6.2.2500.h#|
00001B50: 3C 0A 8D 32 38 30 30 3A 81 4D B2 31 A4 54 54 3A |<..2800:.M.1.TT:|
00001B60: 8D 32 39 30 30 3A 82 4D 00 A1 23 46 0A 46 34 B2 |.2900:.M..#F.F4.|
00001B70: 30 3A 99 22 11 CF CB 2C 20 41 4E 59 20 4F 54 48 |0:."..., ANY OTH|
00001B80: 45 52 22 3B 3A 8D 31 31 30 30 30 3A 8B 50 36 B2 |ER";:.11000:.P6.|
00001B90: 32 A7 46 34 B2 30 3A 46 36 B2 30 3A 89 32 35 30 |2.F4.0:F6.0:.250|
00001BA0: 30 00 AB 23 64 0A 89 32 35 37 30 00 F1 23 6E 0A |0..#d..2570..#n.|
00001BB0: 99 22 93 11 11 11 11 11 11 22 A3 39 29 22 C4 4F |.".......".9)".O|
00001BC0: 20 59 4F 55 20 57 49 53 48 20 54 4F 20 50 52 49 | YOU WISH TO PRI|
00001BD0: 4E 54 3A 22 3A 99 A3 39 29 22 11 12 20 31 20 92 |NT:":..9)".. 1 .|
00001BE0: 20 D0 45 52 20 4C 49 53 54 20 46 4F 52 4D 41 54 | .ER LIST FORMAT|
00001BF0: 22 00 32 24 78 0A 99 A3 39 29 22 11 12 20 32 20 |".2$x...9)".. 2 |
00001C00: 92 20 D0 45 52 20 4C 41 42 45 4C 20 46 4F 52 4D |. .ER LABEL FORM|
00001C10: 41 54 22 3A 99 3A 99 A3 39 29 22 11 12 D0 52 45 |AT":.:..9)"...RE|
00001C20: 53 53 20 4F 50 54 49 4F 4E 20 4E 55 4D 42 45 52 |SS OPTION NUMBER|
00001C30: 92 22 00 50 24 82 0A A1 41 24 3A 8B 41 24 B3 B1 |.".P$...A$:.A$..|
00001C40: 22 31 22 AF 41 24 B3 B1 22 32 22 A7 32 36 39 30 |"1".A$.."2".2690|
00001C50: 00 61 24 8C 0A 8B 41 24 B2 22 32 22 A7 32 37 32 |.a$...A$."2".272|
00001C60: 30 00 89 24 96 0A 8D 32 38 32 30 3A 46 37 B2 31 |0..$...2820:F7.1|
00001C70: 3A 54 54 B2 31 3A 4C 46 B2 31 3A 49 B2 30 3A 46 |:TT.1:LF.1:I.0:F|
00001C80: 35 B2 31 3A 89 32 37 32 35 00 9C 24 A0 0A 8D 32 |5.1:.2725..$...2|
00001C90: 38 30 30 3A 49 B2 30 3A 46 35 B2 31 00 CF 24 A5 |800:I.0:F5.1..$.|
00001CA0: 0A 99 22 11 D0 4C 45 41 53 45 20 41 4C 49 47 4E |.."..LEASE ALIGN|
00001CB0: 20 50 41 50 45 52 20 54 48 45 4E 20 48 49 54 20 | PAPER THEN HIT |
00001CC0: 41 4E 59 20 4B 45 59 22 3A 8D 31 30 30 30 30 00 |ANY KEY":.10000.|
00001CD0: EC 24 AA 0A 81 4A B2 30 A4 35 30 3A 8B 4E 24 28 |.$...J.0.50:.N$(|
00001CE0: 4A 2C 49 29 B2 22 22 A7 32 37 36 30 00 0A 25 B4 |J,I)."".2760..%.|
00001CF0: 0A 8D 31 35 30 30 3A 81 4D B2 31 A4 54 54 3A 8D |..1500:.M.1.TT:.|
00001D00: 32 39 30 30 3A 82 4D 3A 82 4A 00 20 25 C8 0A 49 |2900:.M:.J. %..I|
00001D10: B2 49 AA 31 3A 8B 49 B3 B2 31 30 A7 32 37 33 30 |.I.1:.I..10.2730|
00001D20: 00 39 25 D2 0A 46 37 B2 30 3A 46 36 B2 30 3A 46 |.9%..F7.0:F6.0:F|
00001D30: 35 B2 30 3A 89 32 35 30 30 00 81 25 F0 0A 99 22 |5.0:.2500..%..."|
00001D40: 11 C8 4F 57 20 4D 41 4E 59 20 54 49 4D 45 53 20 |..OW MANY TIMES |
00001D50: 44 4F 20 59 4F 55 20 57 49 53 48 20 54 4F 20 50 |DO YOU WISH TO P|
00001D60: 52 49 4E 54 3F 22 3B 3A 50 33 B2 33 3A 50 34 B2 |RINT?";:P3.3:P4.|
00001D70: 31 3A 8D 33 30 30 30 30 3A 54 54 B2 C5 28 50 24 |1:.30000:TT..(P$|
00001D80: 29 00 9A 25 FA 0A 8B 54 54 B3 B2 30 A7 99 22 91 |)..%...TT..0..".|
00001D90: 91 91 91 22 3A 89 32 38 30 30 00 E2 25 FC 0A 99 |...":.2800..%...|
00001DA0: 22 11 48 4F 57 20 4D 41 4E 59 20 4C 49 4E 45 2D |".HOW MANY LINE-|
00001DB0: 46 45 45 44 53 20 42 45 54 57 45 45 4E 20 41 44 |FEEDS BETWEEN AD|
00001DC0: 44 52 45 53 53 45 53 22 3A 50 33 B2 32 3A 50 34 |DRESSES":P3.2:P4|
00001DD0: B2 31 3A 8D 33 30 30 30 30 3A 4C 46 B2 C5 28 50 |.1:.30000:LF..(P|
00001DE0: 24 29 00 FB 25 FE 0A 8B 4C 46 B3 B2 30 A7 99 22 |$)..%...LF..0.."|
00001DF0: 91 91 91 91 22 3A 89 32 38 31 32 00 39 26 04 0B |....":.2812.9&..|
00001E00: 99 22 11 C4 4F 20 59 4F 55 20 57 49 53 48 20 54 |."..O YOU WISH T|
00001E10: 45 4C 45 50 48 4F 4E 45 20 CE 4F 20 50 52 49 4E |ELEPHONE .O PRIN|
00001E20: 54 45 44 22 3B 3A 8D 31 31 30 30 30 3A 8B 50 36 |TED";:.11000:.P6|
00001E30: B2 32 A7 46 36 B2 31 3A 8E 00 3F 26 22 0B 8E 00 |.2.F6.1:..?&"...|
00001E40: 5D 26 54 0B 9F 31 2C 34 2C 37 3A 97 35 33 32 36 |]&T..1,4,7:.5326|
00001E50: 35 2C 31 31 3A 98 31 2C C7 28 31 35 29 00 88 26 |5,11:.1,.(15)..&|
00001E60: 5E 0B 8B 46 37 B2 31 A7 98 31 2C C7 28 31 37 29 |^..F7.1..1,.(17)|
00001E70: 4E 54 24 3B 3A 98 31 2C C7 28 31 36 29 22 34 30 |NT$;:.1,.(16)"40|
00001E80: 22 3B 3A 89 33 30 31 33 00 98 26 B8 0B 98 31 2C |";:.3013..&...1,|
00001E90: C7 28 31 37 29 4E 54 24 00 BD 26 C5 0B 41 24 B2 |.(17)NT$..&..A$.|
00001EA0: 41 24 28 32 29 3A 8B 46 36 B2 31 A7 4C 54 B2 4C |A$(2):.F6.1.LT.L|
00001EB0: 46 3A 8D 33 35 30 30 3A 89 33 30 33 30 00 F5 26 |F:.3500:.3030..&|
00001EC0: CF 0B 4C 54 B2 32 3A 8D 33 35 30 30 3A 41 24 B2 |..LT.2:.3500:A$.|
00001ED0: 41 24 28 33 29 3A 8B 46 37 B2 31 A7 98 31 2C C7 |A$(3):.F7.1..1,.|
00001EE0: 28 31 36 29 22 34 30 22 3B 3A 8D 33 35 30 30 3A |(16)"40";:.3500:|
00001EF0: 89 33 30 33 30 00 14 27 D1 0B 98 31 2C C7 28 31 |.3030..'...1,.(1|
00001F00: 37 29 22 D4 45 4C 45 50 48 4F 4E 45 3A 22 3A 8D |7)".ELEPHONE:":.|
00001F10: 33 35 30 30 00 2A 27 D6 0B 98 31 3A A0 31 3A 97 |3500.*'...1:.1:.|
00001F20: 35 33 32 36 35 2C 32 37 3A 8E 00 3A 27 AC 0D 81 |53265,27:..:'...|
00001F30: 4E B2 31 A4 20 C3 28 41 24 29 00 6C 27 B1 0D 8B |N.1. .(A$).l'...|
00001F40: CA 28 41 24 2C 4E 2C 31 29 B2 C7 28 31 34 31 29 |.(A$,N,1)..(141)|
00001F50: AF 46 37 B2 31 A7 98 31 3A 98 31 2C C7 28 31 36 |.F7.1..1:.1,.(16|
00001F60: 29 22 34 30 22 3B 3A 89 33 35 32 30 00 8B 27 B3 |)"40";:.3520..'.|
00001F70: 0D 8B CA 28 41 24 2C 4E 2C 31 29 B2 C7 28 31 34 |...(A$,N,1)..(14|
00001F80: 31 29 A7 98 31 3A 89 33 35 32 30 00 A2 27 B6 0D |1)..1:.3520..'..|
00001F90: 98 31 2C C7 28 31 37 29 CA 28 41 24 2C 4E 2C 31 |.1,.(17).(A$,N,1|
00001FA0: 29 3B 00 B9 27 C0 0D 82 4E 3A 81 4E B2 31 A4 4C |);..'...N:.N.1.L|
00001FB0: 54 3A 98 31 3A 82 4E 3A 8E 00 CF 27 94 11 99 22 |T:.1:.N:...'..."|
00001FC0: 93 11 11 22 3A 8D 35 30 31 30 3A 89 32 34 30 00 |...":.5010:.240.|
00001FD0: EB 27 88 13 99 22 93 20 20 20 20 20 20 12 C1 D4 |.'...". ...|
00001FE0: D4 C5 CE D4 C9 CF CE 92 3A 20 22 00 13 28 92 13 |........: "..(..|
00001FF0: 99 22 11 11 20 20 20 20 20 20 D9 4F 55 20 48 41 |.".. .OU HA|
00002000: 56 45 22 B8 28 30 29 22 42 59 54 45 53 20 46 52 |VE".(0)"BYTES FR|
00002010: 45 45 22 00 47 28 9C 13 99 22 11 11 11 20 20 20 |EE".G(..."... |
00002020: 20 20 20 12 C8 49 54 20 41 4E 59 20 20 4B 45 59 | ..IT ANY KEY|
00002030: 20 54 4F 20 20 43 4F 4E 54 49 4E 55 45 22 3A 8D | TO CONTINUE":.|
00002040: 31 30 30 30 30 3A 8E 00 66 28 28 23 99 22 93 C1 |10000:..f((#."..|
00002050: 52 45 20 59 4F 55 20 53 55 52 45 22 3B 3A 8D 31 |RE YOU SURE";:.1|
00002060: 31 30 30 30 3A 8E 00 7B 28 10 27 A1 41 24 3A 8B |1000:..{(.'.A$:.|
00002070: 41 24 B2 22 22 A7 31 30 30 30 30 00 81 28 1A 27 |A$."".10000..(.'|
00002080: 8E 00 99 28 F8 2A 99 22 20 12 81 59 9A 92 45 53 |...(.*." ..Y..ES|
00002090: 2F 12 81 4E 9A 92 4F 3F 22 00 B8 28 02 2B A1 41 |/..N..O?"..(.+.A|
000020A0: 24 3A 8B 41 24 B3 B1 22 59 22 AF 41 24 B3 B1 22 |$:.A$.."Y".A$.."|
000020B0: 4E 22 A7 31 31 30 31 30 00 CB 28 0C 2B 8B 41 24 |N".11010..(.+.A$|
000020C0: B2 22 59 22 A7 50 36 B2 31 3A 8E 00 D6 28 16 2B |."Y".P6.1:...(.+|
000020D0: 50 36 B2 32 3A 8E 00 0F 29 20 4E 97 35 34 32 37 |P6.2:...) N.5427|
000020E0: 33 2C 38 36 3A 97 35 34 32 37 32 2C 31 30 35 3A |3,86:.54272,105:|
000020F0: 97 35 34 32 37 36 2C 31 37 3A 81 54 B2 30 A4 32 |.54276,17:.T.0.2|
00002100: 35 30 3A 82 3A 97 35 34 32 37 36 2C 30 3A 8E 00 |50:.:.54276,0:..|
00002110: 45 29 78 69 4C 4C B2 C3 28 4E 24 28 4A 2C 49 29 |E)xiLL..(N$(J,I)|
00002120: 29 3A 81 4D B2 31 A4 4C 4C 3A 8B CA 28 4E 24 28 |):.M.1.LL:..(N$(|
00002130: 4A 2C 49 29 2C 4D 2C 31 29 B2 C7 28 33 32 29 A7 |J,I),M,1)..(32).|
00002140: 32 37 30 32 30 00 4C 29 82 69 82 4D 00 91 29 8C |27020.L).i.M..).|
00002150: 69 41 24 28 31 29 B2 C9 28 4E 24 28 4A 2C 49 29 |iA$(1)..(N$(J,I)|
00002160: 2C 4C 4C AB 4D 29 3A 41 24 28 30 29 B2 C8 28 4E |,LL.M):A$(0)..(N|
00002170: 24 28 4A 2C 49 29 2C 4D AB 31 29 3A 4E 54 24 B2 |$(J,I),M.1):NT$.|
00002180: 41 24 28 31 29 AA 22 20 22 AA 41 24 28 30 29 3A |A$(1)." ".A$(0):|
00002190: 8E 00 C8 29 DC 69 4C 4C B2 C3 28 53 24 28 4A 2C |...).iLL..(S$(J,|
000021A0: 49 29 29 3A 81 58 B2 4C 4C A4 31 A9 AB 31 3A 8B |I)):.X.LL.1..1:.|
000021B0: CA 28 53 24 28 4A 2C 49 29 2C 58 2C 31 29 B2 22 |.(S$(J,I),X,1)."|
000021C0: 5F 22 A7 32 37 31 32 30 00 CF 29 E6 69 82 58 00 |_".27120..).i.X.|
000021D0: 00 2A F0 69 41 24 28 32 29 B2 C8 28 53 24 28 4A |.*.iA$(2)..(S$(J|
000021E0: 2C 49 29 2C 58 AB 31 29 3A 41 24 28 33 29 B2 C9 |,I),X.1):A$(3)..|
000021F0: 28 53 24 28 4A 2C 49 29 2C 4C 4C AB 58 29 3A 8E |(S$(J,I),LL.X):.|
00002200: 00 0D 2A 40 6A 8B 50 24 B2 22 22 A7 8E 00 25 2A |..*@j.P$.""...%*|
00002210: 45 6A 8B C3 28 50 24 29 B2 31 A7 41 24 28 51 29 |Ej..(P$).1.A$(Q)|
00002220: B2 50 24 3A 8E 00 4C 2A 4A 6A 81 4E B2 31 A4 C3 |.P$:..L*Jj.N.1..|
00002230: 28 50 24 29 3A 8B CA 28 50 24 2C 4E 2C 31 29 B2 |(P$):..(P$,N,1).|
00002240: C7 28 31 34 31 29 A7 32 37 32 33 30 00 53 2A 54 |.(141).27230.S*T|
00002250: 6A 82 4E 00 6B 2A 59 6A 8B 4E B1 C3 28 50 24 29 |j.N.k*Yj.N..(P$)|
00002260: A7 41 24 28 51 29 B2 50 24 3A 8E 00 7D 2A 5E 6A |.A$(Q).P$:..}*^j|
00002270: 8D 32 37 32 35 30 3A 89 32 37 32 30 30 00 AA 2A |.27250:.27200..*|
00002280: 72 6A 41 24 28 51 29 B2 C8 28 50 24 2C 4E AB 31 |rjA$(Q)..(P$,N.1|
00002290: 29 3A 50 24 B2 C9 28 50 24 2C C3 28 50 24 29 AB |):P$..(P$,.(P$).|
000022A0: 4E 29 3A 51 B2 51 AA 31 3A 8E 00 D0 2A 60 6D 50 |N):Q.Q.1:...*`mP|
000022B0: 24 B2 41 24 28 4E 29 3A 81 51 B2 4E AA 31 A4 4D |$.A$(N):.Q.N.1.M|
000022C0: 3A 8B 41 24 28 51 29 B2 22 22 A7 32 38 30 33 30 |:.A$(Q)."".28030|
000022D0: 00 E7 2A 6A 6D 50 24 B2 50 24 AA C7 28 31 34 31 |..*jmP$.P$..(141|
000022E0: 29 AA 41 24 28 51 29 00 EE 2A 74 6D 82 51 00 F4 |).A$(Q)..*tm.Q..|
000022F0: 2A 7E 6D 8E 00 12 2B 68 74 99 22 13 22 3B 3A 8B |*~m...+ht.".";:.|
00002300: 43 4F B1 31 A7 99 C8 28 43 4F 24 2C 43 4F AB 31 |CO.1...(CO$,CO.1|
00002310: 29 3B 00 2A 2B 72 74 8B 4C 4E B1 31 A7 99 C8 28 |);.*+rt.LN.1...(|
00002320: 4C 4E 24 2C 4C 4E AB 31 29 3B 00 30 2B 7C 74 8E |LN$,LN.1);.0+|t.|
00002330: 00 3A 2B CC 74 99 22 3E 22 3B 00 58 2B D6 74 A1 |.:+.t.">";.X+.t.|
00002340: 41 24 3A 8B 41 24 B2 22 22 B0 41 24 B2 C7 28 31 |A$:.A$."".A$..(1|
00002350: 33 29 A7 32 39 39 31 30 00 79 2B E0 74 8B 41 24 |3).29910.y+.t.A$|
00002360: B2 22 11 22 AF 49 45 B2 31 A7 50 24 B2 22 11 22 |.".".IE.1.P$."."|
00002370: 3A 99 22 9D 20 22 3B 3A 8E 00 8B 2B EA 74 8B 41 |:.". ";:...+.t.A|
00002380: 24 B2 22 11 22 A7 32 39 39 31 30 00 BF 2B F4 74 |$.".".29910..+.t|
00002390: 81 51 B2 31 A4 50 33 3A 99 22 A4 22 3B 3A 82 3A |.Q.1.P3:.".";:.:|
000023A0: 81 51 B2 31 A4 50 33 3A 99 22 9D 22 3B 3A 82 3A |.Q.1.P3:.".";:.:|
000023B0: 50 24 B2 22 22 3A 50 58 B2 30 3A 50 36 B2 30 00 |P$."":PX.0:P6.0.|
000023C0: D0 2B FE 74 8B 41 24 B2 22 22 A7 33 30 31 36 30 |.+.t.A$."".30160|
000023D0: 00 DB 2B 08 75 89 33 30 31 37 30 00 15 2C 30 75 |..+.u.30170..,0u|
000023E0: 99 22 3E 22 3B 3A 50 24 B2 22 22 3A 50 58 B2 30 |.">";:P$."":PX.0|
000023F0: 3A 50 36 B2 30 3A 81 51 B2 31 A4 50 33 3A 99 22 |:P6.0:.Q.1.P3:."|
00002400: A4 22 3B 3A 82 3A 81 51 B2 31 A4 50 33 3A 99 22 |.";:.:.Q.1.P3:."|
00002410: 9D 22 3B 3A 82 00 2A 2C D0 75 A1 41 24 3A 8B 41 |.";:..*,.u.A$:.A|
00002420: 24 B2 22 22 A7 33 30 31 36 30 00 49 2C DA 75 41 |$."".30160.I,.uA|
00002430: B2 C6 28 41 24 29 3A 8B 41 B1 31 39 32 AF 41 B3 |..(A$):.A.192.A.|
00002440: 32 31 39 A7 33 30 32 30 30 00 88 2C E4 75 8B 28 |219.30200..,.u.(|
00002450: 41 B1 33 31 AF 41 B3 B1 34 34 AF 41 B3 B1 33 34 |A.31.A..44.A..34|
00002460: AF 41 B3 B1 35 38 AF 41 B3 B1 35 39 AF 41 B3 39 |.A..58.A..59.A.9|
00002470: 37 29 B0 41 B2 31 33 B0 41 B2 32 30 B0 41 B2 31 |7).A.13.A.20.A.1|
00002480: 35 37 A7 33 30 32 30 30 00 93 2C EE 75 89 33 30 |57.30200..,.u.30|
00002490: 31 36 30 00 AA 2C F8 75 8B 41 B2 31 33 AF 50 24 |160..,.u.A.13.P$|
000024A0: B3 B1 22 22 A7 33 30 33 32 30 00 BA 2C FB 75 8B |.."".30320..,.u.|
000024B0: 41 B2 31 33 A7 33 30 31 36 30 00 D0 2C FD 75 8B |A.13.30160..,.u.|
000024C0: 41 B2 39 35 A7 50 36 B2 31 3A 89 33 30 33 32 30 |A.95.P6.1:.30320|
000024D0: 00 E0 2C 0C 76 8B 41 B2 32 30 A7 33 30 32 35 30 |..,.v.A.20.30250|
000024E0: 00 F2 2C 16 76 8B 41 B3 B1 31 35 37 A7 33 30 32 |..,.v.A..157.302|
000024F0: 38 30 00 19 2D 1B 76 50 58 B2 C3 28 50 24 29 3A |80..-.vPX..(P$):|
00002500: 81 51 B2 31 A4 50 58 AA 31 3A 99 22 9D 22 3B 3A |.Q.1.PX.1:.".";:|
00002510: 82 51 3A 89 33 30 30 30 30 00 2A 2D 2A 76 8B 50 |.Q:.30000.*-*v.P|
00002520: 24 B2 22 22 A7 33 30 31 36 30 00 57 2D 34 76 50 |$."".30160.W-4vP|
00002530: 24 B2 C8 28 50 24 2C C3 28 50 24 29 AB 31 29 3A |$..(P$,.(P$).1):|
00002540: 41 24 B2 22 9D A4 9D 22 3A 50 58 B2 50 58 AB 31 |A$."...":PX.PX.1|
00002550: 3A 89 33 30 33 30 30 00 6B 2D 48 76 8B C3 28 50 |:.30300.k-Hv..(P|
00002560: 24 29 B2 50 33 A7 33 30 31 36 30 00 81 2D 52 76 |$).P3.30160..-Rv|
00002570: 50 24 B2 50 24 AA 41 24 3A 50 58 B2 C3 28 50 24 |P$.P$.A$:PX..(P$|
00002580: 29 00 91 2D 5C 76 99 41 24 3B 3A 89 33 30 31 36 |)..-\v.A$;:.3016|
00002590: 30 00 AB 2D 70 76 8B C3 28 50 24 29 B3 50 34 A7 |0..-pv..(P$).P4.|
000025A0: 50 36 B2 30 3A 89 33 30 31 36 30 00 CE 2D 75 76 |P6.0:.30160..-uv|
000025B0: 81 51 B2 31 A4 C3 28 50 24 29 AA 31 3A 99 22 9D |.Q.1..(P$).1:.".|
000025C0: 22 3B 3A 82 3A 99 22 20 22 3B 3A 99 3A 8E 00 F7 |";:.:." ";:.:...|
000025D0: 2D 7A 76 8B C8 28 50 24 2C 31 29 B2 22 20 22 A7 |-zv..(P$,1)." ".|
000025E0: 50 24 B2 C9 28 50 24 2C C3 28 50 24 29 AB 31 29 |P$..(P$,.(P$).1)|
000025F0: 3A 89 33 30 33 33 30 00 2F 2E 84 76 8B C9 28 50 |:.30330./..v..(P|
00002600: 24 2C 31 29 B2 22 20 22 B0 C9 28 50 24 2C 31 29 |$,1)." "..(P$,1)|
00002610: B2 C7 28 31 34 31 29 A7 50 24 B2 C8 28 50 24 2C |..(141).P$..(P$,|
00002620: C3 28 50 24 29 AB 31 29 3A 89 33 30 33 34 30 00 |.(P$).1):.30340.|
00002630: 35 2E 8E 76 8E 00 4E 2E D0 84 81 51 B2 31 A4 31 |5..v..N....Q.1.1|
00002640: 34 3A 99 22 A4 22 3B 3A 82 51 3A 99 3A 8E 00 63 |4:.".";:.Q:.:..c|
00002650: 2E B8 88 8B 4E 55 B2 C3 28 41 24 28 4E 29 29 A7 |....NU..(A$(N)).|
00002660: 99 3A 8E 00 85 2E C2 88 81 51 B2 31 A4 4E 55 AB |.:.......Q.1.NU.|
00002670: C3 28 41 24 28 4E 29 29 3A 99 22 A4 22 3B 3A 82 |.(A$(N)):.".";:.|
00002680: 51 3A 99 3A 8E 00 9D 2E AC 8A 81 51 B2 31 A4 33 |Q:.:.......Q.1.3|
00002690: 37 3A 99 22 C0 22 3B 3A 82 3A 99 3A 8E 00 AB 2E |7:.".";:.:.:....|
000026A0: 50 C3 8F 20 56 32 2E 30 28 54 29 00 00 00 00 00 |P.. V2.0(T).....|
..?.... *ADDRESS MANAGER* BY BERNARD HAB
ET (C) 1983 ABRASCO LTD...P.CO$.".......
.................................":LN$."
.........................".G.U..".":.532
80,6:.53272,23:.G(8):.54296,15:.54277,0.
.....54278,240:.N$(50,10),S$(50,10),A$(1
0),C(10):.240......9000:.P6.2.240.^...."
.PLEASE ENTER NAME OF FILE TO BE LOADED"
:.".(MAX .16. LETTERS) ";:P4.1... .P3.16
:.30000:.".PLEASE LOAD YOUR DISC, THEN H
IT ANY KEY":.10000......1,8,0,P$:I.0.A..
.. J.0.50...H..1,N$(J,I):.N$(J,I)."^".N$
(J,I)."":C(I).J:.230...R..1,S$(J,I):.S$(
J,I).."*".220.:.T..#1,A$:.A$.G(13).S$(J,
I).B$:.220.L.V.B$.B$.A$:.212.T.... J.I..
.I.I.1:.I..10.180.W... 1:.20000......"."
;:.35500:.".. A D D R E S S M A N A
G E R ..":.35500......"...... PRESS
.. CORRESPONDING NUMBER TO".5...."...ACC
ESS THE FOLLOWING FACILITIES":..5)"....
1 .. ADD AN ADDRESS"...,...5)"... 2 ..
CHANGE AN ADDRESS":..5)"... 3 .. SEARC
H FOR AN ADDRESS"...@...5)"... 4 .. NAM
E DISPLAY BY LETTER".T.E...5)"... 5 ..
LOAD DATA FROM DISC"...Y...5)"... 6 ..
PRINT ADDRESSES":..5)"... 7 .. CHECK FR
EE MEMORY".E.[.."........ 8 .. SAVE DAT
A / SIGN-OFF".G.\.IE.0:NS.0:F7.0:F6.0:F5
.0:F4.0...^..10000:.E(A$).515,1200,2000,
2100,150,2500,4500,1000:.350......9000:.
P6.2.240.W....".";:..(0).500..5000:.240.
.....N.0.10:A$(N)."":.:IE.0.#....".PLEAS
E ENTER THE FOLLOWING INFORMATION:".V...
.IE.1.."HIT . CURSOR DOWN . TO SKIP LINE
":.523.\.........."HIT . N . IF INFORMAT
ION IS .NOT AVAILABLE".P...."HIT . _ . O
NCE FINISHED ENTERING A PARA-":."
GRAPH"......".SURNAME : ";:N.0:NU.19
:.A$(0);:.35000.'...."NAME : ";:N.1
:.A$(1);:.35000.G...."..ADDRESS : ";:.
A$(2)."N".."NOT AVAILABLE";:.34000:.537.
....N.2:NU.27:.A$(2);:.35000.....NU.27:.
N.3.8:..12)A$(N);:.35000:......."..TELEP
HONE: ";:.A$(9)."N".."NOT AVAILABLE";:.
34000:.543.....N.9:.A$(9);:.35000.....N.
10:..12)A$(10);:.35000.3.#..IE.1.CO.12:.
557.K.&.CO.12:LN.7:.29800:P3.19:P4.3:.30
000:.30330:A$(0).P$...'.A.F(A$(0).G(0)):
.A.193.A.218.."...":.550.O.(...11);:P4.1
:.30000:.30330:A$(1).P$:A.F(A$(1).G(0)).
..+..A.193.A.218.."..":.552...,.A$(1).A$
(0).G(32).A$(1).7.-.LN.11:.29800:P3.27:P
4.1:.29900:.P$.."N".560.../.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...5.A$(N).P$:.P6.1.56
7...6..N.8.7.N.2:M.8:.28000:.30340:S$.P$
.B.:.LN.20:.29800:P4.1:.29900:.P$.."N".5
74...<.A$(9)."N":..12)".NOT AVAILABLE":A
$(10)."":..12);:.35000:.590...>..P$.".".
.:.578.M.@.A$(9).P$:.P6.1.590...B.P4.0:.
.11):.29900:.P$.".".A$(10)."".590...D..P
$.".".A$(10)..""..:.590.%.F.A$(10).P$.@.
N.N.9:M.10:.28000:.30340.\.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.R.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.C...S$(J,I).S$:F1.1:.J.0.
700._.... N$(J,I).N$(J.1,I).750......200
00:."..OK":."..."51.C(I)". ENTRIES LEFT
IN THIS PAGE.".I.A.."..ANY OTHER ENTRY";
:.11000:.P6.1.515.R.F..240.....S.J:.J.S.
1..1:.N$(J,I)..N$(J.1,I).700...... 900:.
J:.700.<...B$.N$(J.1,I):N$(J.1,I).N$(J,I
):N$(J,I).B$.L...B$.S$(J.1,I):S$(J.1,I).
S$(J,I):S$(J,I).B$:..{....F1.1.1015.....
.".":.1170.H....G(9):.53272,21:.53280,14
:."..".8)"OK, NOW SIGNING-OFF":.......".
YOU HAVE MADE SOME ALTERATIONS":.".DO YO
U WISH TO SAVE THEM";:.11000.#....P6.2.1
170.J....".PLEASE ENTER NAME OF FILE TO
BE SAVED":.".(MAX .16. LETTERS) ";.....P
4.1:P3.16:.30000:B$.P$:.".PLEASE LOAD YO
UR DISC, THEN"......"..HIT ANY KEY TO CO
NTINUE..":.10000:.1,8,1,B$:I.0......J.0.
50...3..N$(J,I).""..1,"^":.1120.-.8..1,N
$(J,I):.C(S$(J,I))..79..1,"*".?.B..1,S$(
J,I):.J.U.`.I.I.1:.I..10.1070...~. 1:.20
000:.".DO YOU WISH TO SAVE THEM AGAIN";:
.11000:.P6.1.1027.M....".DO YOU WISH TO
SIGN-OFF ";:.11000:.P6.1.1010.V....240..
....9000:.P6.2.240......".";:..(0).500..
5000:.240.<....".ENTER .SURNAME & NAME.
FOR ALTERATION":NS.0.~...F3.0:P3.36:P4.2
:.30000:A$.P$:A.F(A$):.A.193.A.218..".";
:.1210...D.I..((A.193).2):.I.9.I.10...N.
.J.0.C(I):.N$(J,I).A$.1490.A.U..J...X.."
.NO RECORD OF THIS NAME":.20000:."NOW SE
ARCHING FOR POSSIBLE ALTERNATIVE.(...ZB.
0:ZT.0:.J.0.C(I).V....H(N$(J,I),C(A$)).A
$.ZB.J:ZT.J:F3.1:.1293.I....J:.F3..1.129
6....J.J.1:.J..51.1298......H(N$(J,I),C
(A$)).A$.ZT.ZT.1:.1293......1298.X...."S
ORRY NOTHING CLOSE":.F4.1.F4.2:.......:.
:.1870......"I HAVE FOUND THE FOLLOWING:
":.20000:N.ZB.B....".RECORD NO","NAME":.
".........","....".P.F..M.N.N.15._.K..M.
ZT.1382.W.Z..".."M.1,N$(M,I):.M...F..".P
RESS . C . TO CONTINUE SCAN . S . TO STO
P"...H..". R . TO RESTART SCAN OR . CORR
ESPONDING ."...J.."NUMBER TO ACCESS POTE
NTIAL RECORD":.20000.K.N..".ENTER NOW: "
;:P3.2:P4.1:.30000:.P$."R".N.ZB:.".";:.1
310.M....P$."C".M..ZT.N.M:.".";:.1310.}.
...P$."S".240. ...X.E(P$):.X..0.X.M.."..
.":.1390.....J.X.1...R.E.0......".".10)"
RECORD NUMBER:"J.1:..10)"...............
.."......27000:.F5.1.1514.1...X..(20.LL.
2):..X)NT$:..X):.X.1.LL:."-";:.:..W....2
7100:A$."NOT AVAILABLE":.F5.1........"..
.ADDRESS:..":."--------":.A$(2)."N"..A$:
.1526......A$(2).R...."...TELEPHONE:..":
."----------":.A$(3)."N"..A$:.1529......
A$(3).......8)".*** END RECORD ***":.2
0000:.IE.1.1570......J..50.1567.<....N$(
J,I)..N$(J.1,I).1567......"...THERE IS A
NOTHER RECORD IN THAT NAME":..10)".HIT A
NY KEY TO VIEW.".......10)".OR HIT S T
O STOP":.10000:.A$."S".1567.L...J.J.1:.
1500......NS.1.2020... ..F4.1..."."..".I
S ALTERATION/DELETION REQUIRED";:.11000:
.P6.2.1820.0.A..J.0.1607.M.B..N$(J,I)..N
$(J.1,I).1607...C..".ENTER RECORD 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, OTHERWISE
HIT ANY KEY".!.M..10000:.A$."D"..".HANG
ON WHILE DELETING":.1750.^.O..".";:.270
00:.27100:S$.A$(2):T$.A$(3):.N.2.10:A$(N
)."":....T.Q.2:P$.S$:.27200:Q.9:P$.T$:.2
7200:E.1:IE.1:.520...^.S$(J,I).S$:F1.1:.
1500.R.V.S.J:F1.1:.J.S.50:.N$(J,I)."".18
13......J.50.N$(J,I)."":S$(J,I)."":.1813
.#...N$(J,I).N$(J.1,I):S$(J,I).S$(J.1,I)
:.J.Q...C(I).C(I).1:.".OK, FILE DELETED"
:.20000:.......".ANY OTHER ALTERATION";:
.11000:.P6.1.1200...&..240...N..NS.1.202
0...X..NS.0.1820...P..9000:.P6.2.240...Z
..".ENTER .SURNAME & NAME. TO FIND ADDRE
SS":NS.1:.1210.1 ..NS.0:.".ANY OTHER ADD
RESS REQUIRED";:.11000:.P6.1.2000.: ...2
40.O 4..".ENTER LETTER FOR WHICH PAGE RE
QUIRED:":.10000.. C.A.F(A$):.A.65.A.90.2
100.. H.I..((A.65).2):.I.9.I.10.L M.A$.G
(2.I.193):.I.10.C$."Z":.2130.. O.C$.G(2.
I.194).*!R..".PAGE . "A$" - "C$" . CONTA
INS ."C(I)". . ENTRIES:":.N.1.34:.".";:.
:..X!A.M.0:.N$(0,I).""..".....PAGE EMPTY
.":.2230.T!F..J.M.20.M:.J..C(I).2230..!U
..N$(J,I):.:."PRESS ANY KEY TO CONTINUE
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.R"X...8)"..PRESS
OPTION NUMBER":..8)".... 1 . PRINT SINGL
E ADDRESS".."....8)"... 2 . PRINT ALL AD
DRESSES":..8)"... 3 . BACK TO MENU".Y"..
.10000:.E(A$).2570,2670,240:.2550..#..."
.ENTER .SURNAME/NAME. TO FIND ADDRESS:":
F4.1:.1210:.F4.2.2630.M#...".DO YOU WISH
TO PRINT";:.11000:.P6.2.2500.H#<..2800:
.M.1.TT:.2900:.M..#F.F4.0:.".OK, ANY OTH
ER";:.11000:.P6.2.F4.0:F6.0:.2500..#D..2
570..#N..".......".9)"DO YOU WISH TO PRI
NT:":..9)".. 1 . PER LIST FORMAT".2$X...
9)".. 2 . PER LABEL FORMAT":.:..9)"..PRE
SS OPTION NUMBER.".P$...A$:.A$.."1".A$..
"2".2690.A$...A$."2".2720..$...2820:F7.1
:TT.1:LF.1:I.0:F5.1:.2725..$ ..2800:I.0:
F5.1.O$...".PLEASE ALIGN PAPER THEN HIT
ANY KEY":.10000..$...J.0.50:.N$(J,I)."".
2760..%...1500:.M.1.TT:.2900:.M:.J. %H.I
.I.1:.I..10.2730.9%R.F7.0:F6.0:F5.0:.250
0..%...".HOW MANY TIMES DO YOU WISH TO P
RINT?";:P3.3:P4.1:.30000:TT.E(P$)..%...T
T..0.."....":.2800..%...".HOW MANY LINE-
FEEDS BETWEEN ADDRESSES":P3.2:P4.1:.3000
0:LF.E(P$)..%...LF..0.."....":.2812.9&..
.".DO YOU WISH TELEPHONE NO PRINTED";:.1
1000:.P6.2.F6.1:..?&"...]&T..1,4,7:.5326
5,11:.1,G(15)..&^..F7.1..1,G(17)NT$;:.1,
G(16)"40";:.3013..&...1,G(17)NT$..&E.A$.
A$(2):.F6.1.LT.LF:.3500:.3030..&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$).L'...
J(A$,N,1).G(141).F7.1..1:.1,G(16)"40";:.
3520..'...J(A$,N,1).G(141)..1:.3520..'..
.1,G(17)J(A$,N,1);..'...N:.N.1.LT:.1:.N:
..O'..."...":.5010:.240..'...". .AT
TENTION.: "..(...".. YOU HAVE".(0)"
BYTES FREE".G(..."... .HIT ANY KEY
TO CONTINUE":.10000:..F((#.".ARE YOU S
URE";:.11000:..{(.'.A$:.A$."".10000..(.'
...(.*." ..Y..ES/..N..O?"..(.+.A$:.A$.."
Y".A$.."N".11010.K(.+.A$."Y".P6.1:..V(.+
P6.2:...) N.54273,86:.54272,105:.54276,1
7:.T.0.250:.:.54276,0:..E)XILL.C(N$(J,I)
):.M.1.LL:.J(N$(J,I),M,1).G(32).27020.L)
.I.M..).IA$(1).I(N$(J,I),LL.M):A$(0).H(N
$(J,I),M.1):NT$.A$(1)." ".A$(0):..H).ILL
.C(S$(J,I)):.X.LL.1..1:.J(S$(J,I),X,1)."
_".27120.O).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$:..L*JJ.N.1.C(P$):.J(
P$,N,1).G(141).27230.S*TJ.N.K*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:..P*`MP
$.A$(N):.Q.N.1.M:.A$(Q)."".28030..*JMP$.
P$.G(141).A$(Q)..*TM.Q..*~M...+HT.".";:.
CO.1..H(CO$,CO.1);.*+RT.LN.1..H(LN$,LN.1
);.0+|T..:+LT.">";.X+VT.A$:.A$."".A$.G(1
3).29910.Y+.T.A$.".".IE.1.P$.".":.". ";:
...+.T.A$.".".29910..+.T.Q.1.P3:.".";:.:
.Q.1.P3:.".";:.:P$."":PX.0:P6.0.P+.T.A$.
"".30160..+.U.30170..,0U.">";:P$."":PX.0
:P6.0:.Q.1.P3:.".";:.:.Q.1.P3:.".";:..*,
PU.A$:.A$."".30160.I,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.30
160..,.U.A.13.P$.."".30320..,.U.A.13.301
60.P,.U.A.95.P6.1:.30320..,.V.A.20.30250
..,.V.A..157.30280..-.VPX.C(P$):.Q.1.PX.
1:.".";:.Q:.30000.*-*V.P$."".30160.W-4VP
$.H(P$,C(P$).1):A$."...":PX.PX.1:.30300.
K-HV.C(P$).P3.30160..-RVP$.P$.A$:PX.C(P$
)..-\V.A$;:.30160..-PV.C(P$).P4.P6.0:.30
160.N-UV.Q.1.C(P$).1:.".";:.:." ";:.:...
-ZV.H(P$,1)." ".P$.I(P$,C(P$).1):.30330.
/..V.I(P$,1)." ".I(P$,1).G(141).P$.H(P$,
C(P$).1):.30340.5..V..N.P..Q.1.14:.".";:
.Q:.:..C....NU.C(A$(N))..:....B..Q.1.NU.
C(A$(N)):.".";:.Q:.:.......Q.1.37:.".";:
.:.:....PC. V2.0(T).....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL