<>ADDRESS BOOK<>
FILE INFORMATION
FILENAME(S): <>ADDRESS BOOK<>
FILE TYPE(S): PRG
FILE SIZE: 4K
FIRST SEEN: 2025-11-30 16:44:51
APPEARS ON: 1 disk(s)
FILE HASH
60f2dc1b884b650e211e62fcc4055a3e9135bcd3e538f84846d293de939d521a
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DEMOS | <>ADDRESS BOOK<> | PRG | High Voltage Complete C64 Collection | 31 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 19 08 0A 00 8F 20 41 44 44 52 45 53 53 20 |....... ADDRESS |
00000010: 42 4F 4F 4B 20 56 31 2E 30 00 30 08 14 00 8F 20 |BOOK V1.0.0.... |
00000020: 46 4F 52 20 43 42 4D 20 31 32 38 20 4F 4E 4C 59 |FOR CBM 128 ONLY|
00000030: 00 54 08 1E 00 8F 20 57 52 49 54 54 45 4E 20 49 |.T.... WRITTEN I|
00000040: 4E 20 53 45 50 54 45 4D 42 45 52 20 28 31 2D 39 |N SEPTEMBER (1-9|
00000050: 2D 38 38 29 00 79 08 28 00 8F 20 42 59 20 52 49 |-88).y.(.. BY RI|
00000060: 43 48 41 52 44 20 43 4C 45 4D 45 4E 54 53 20 20 |CHARD CLEMENTS |
00000070: 28 42 4F 4F 42 49 41 4E 29 00 7F 08 32 00 8F 00 |(BOOBIAN)...2...|
00000080: 8E 08 36 00 86 4F 24 28 33 30 30 2C 37 29 00 A7 |..6..O$(300,7)..|
00000090: 08 37 00 4D 41 B2 32 31 3A 8B C2 28 31 29 B2 37 |.7.MA.21:..(1).7|
000000A0: 31 A7 4D 41 B2 31 39 00 BD 08 3C 00 97 35 33 32 |1.MA.19...<..532|
000000B0: 38 30 2C 30 3A 97 35 33 32 38 31 2C 30 00 C6 08 |80,0:.53281,0...|
000000C0: 46 00 8D 31 35 30 00 0C 09 50 00 99 A6 31 31 29 |F..150...P...11)|
000000D0: 3B 22 11 99 CF D0 D4 C9 CF CE D3 20 C1 D6 C1 C9 |;"......... ....|
000000E0: CC C1 C2 CC C5 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |................|
000000F0: 9D 9D 9D 9D 9D 9D 9F 11 B8 B8 B8 B8 B8 B8 B8 B8 |................|
00000100: B8 B8 B8 B8 B8 B8 B8 B8 B8 11 11 22 00 3B 09 5A |...........".;.Z|
00000110: 00 99 22 20 20 20 20 05 31 9B 2E 2E 2E 2E 2E 2E |.." .1.......|
00000120: 2E 2E 2E 2E 2E 9E C5 CE D4 C5 D2 20 C1 20 CE C5 |........... . ..|
00000130: D7 20 C1 C4 C4 D2 C5 D3 D3 11 22 00 6A 09 5B 00 |. ........".j.[.|
00000140: 99 22 20 20 20 20 05 32 9B 2E 2E 2E 2E 2E 2E 2E |." .2........|
00000150: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 9E D3 C5 C1 D2 |................|
00000160: C3 C8 20 D1 D5 C5 D2 D9 11 22 00 99 09 5C 00 99 |.. ......"...\..|
00000170: 22 20 20 20 20 05 33 9B 2E 2E 2E 2E 2E 2E 2E 9E |" .3.........|
00000180: C6 C9 CE C4 20 C1 CE 20 C1 C4 C4 D2 C5 D3 D3 20 |.... .. ....... |
00000190: C2 D9 20 CE C1 CD C5 11 22 00 C8 09 5D 00 99 22 |.. ....."...].."|
000001A0: 20 20 20 20 05 34 9B 2E 2E 2E 2E 2E 2E 2E 2E 2E | .4..........|
000001B0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
000001C0: 2E 9E D1 D5 C9 D4 11 22 00 FD 09 64 00 99 22 11 |......."...d..".|
000001D0: 11 11 11 9C D7 52 49 54 54 45 4E 20 42 59 20 D2 |.....RITTEN BY .|
000001E0: 2E C3 4C 45 4D 45 4E 54 53 20 49 4E 20 D3 45 50 |..LEMENTS IN .EP|
000001F0: 54 45 4D 42 45 52 2C 20 31 39 38 38 22 00 23 0A |TEMBER, 1988".#.|
00000200: 65 00 99 22 11 9F 20 20 20 20 20 20 20 20 20 20 |e..".. |
00000210: 20 D4 48 45 20 31 32 38 20 4C 49 56 45 53 20 4F | .HE 128 LIVES O|
00000220: 4E 21 22 00 36 0A 6E 00 A1 41 24 3A 8B 41 24 B2 |N!".6.n..A$:.A$.|
00000230: 22 22 A7 31 31 30 00 47 0A 6F 00 8B 41 24 B2 22 |"".110.G.o..A$."|
00000240: 50 22 A7 32 30 30 30 00 5E 0A 73 00 91 C5 28 41 |P".2000.^.s...(A|
00000250: 24 29 89 32 30 30 2C 35 30 30 2C 38 30 30 00 73 |$).200,500,800.s|
00000260: 0A 78 00 8B 41 24 B2 22 34 22 A7 99 22 05 93 22 |.x..A$."4"..".."|
00000270: 3B 3A 80 00 7C 0A 82 00 89 31 31 30 00 B0 0A 96 |;:..|....110....|
00000280: 00 99 22 93 05 0E C1 C4 C4 D2 C5 D3 D3 20 C2 CF |..".......... ..|
00000290: CF CB 20 56 31 2E 30 20 20 20 20 20 20 20 20 20 |.. V1.0 |
000002A0: 20 20 20 20 20 20 20 C2 CF CF C2 C9 C1 CE 22 3B | .......";|
000002B0: 00 E2 0A 97 00 99 22 9C B7 B7 B7 B7 B7 B7 B7 B7 |......".........|
000002C0: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |................|
000002D0: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |................|
000002E0: 22 3B 00 E8 0A 98 00 8E 00 F1 0A C8 00 8D 31 35 |";............15|
000002F0: 30 00 0D 0B CD 00 99 22 99 20 20 20 20 20 20 CE |0......". .|
00000300: C1 CD C5 20 3A 20 22 3B 43 24 28 31 29 00 29 0B |... : ";C$(1).).|
00000310: CE 00 99 22 99 20 20 20 20 D3 D4 D2 C5 C5 D4 20 |...". ...... |
00000320: 3A 20 22 3B 43 24 28 32 29 00 45 0B CF 00 99 22 |: ";C$(2).E...."|
00000330: 99 20 20 D3 D5 C2 2D C4 C9 D3 D4 20 3A 20 22 3B |. ...-.... : ";|
00000340: 43 24 28 33 29 00 61 0B D0 00 99 22 99 20 20 20 |C$(3).a....". |
00000350: 20 20 20 D4 CF D7 CE 20 3A 20 22 3B 43 24 28 34 | .... : ";C$(4|
00000360: 29 00 7D 0B D1 00 99 22 99 20 20 20 20 C3 CF D5 |).}....". ...|
00000370: CE D4 D9 20 3A 20 22 3B 43 24 28 35 29 00 99 0B |... : ";C$(5)...|
00000380: D2 00 99 22 99 20 D0 CF D3 D4 2D C3 CF C4 C5 20 |...". ....-.... |
00000390: 3A 20 22 3B 43 24 28 36 29 00 B5 0B D3 00 99 22 |: ";C$(6)......"|
000003A0: 99 20 D4 C5 CC C5 D0 C8 CF CE C5 20 3A 20 22 3B |. ......... : ";|
000003B0: 43 24 28 37 29 00 F7 0B D7 00 99 22 11 11 9B C5 |C$(7)......"....|
000003C0: 4E 54 45 52 20 54 48 45 20 41 50 50 52 4F 50 52 |NTER THE APPROPR|
000003D0: 49 41 54 45 20 49 4E 46 4F 52 4D 41 54 49 4F 4E |IATE INFORMATION|
000003E0: 20 41 53 20 20 20 20 52 45 51 55 49 52 45 44 20 | AS REQUIRED |
000003F0: 41 42 4F 56 45 2E 22 00 2D 0C DC 00 8B 4D 41 B2 |ABOVE.".-....MA.|
00000400: 31 39 A7 99 22 11 9A D4 4F 20 4C 45 41 56 45 20 |19.."...O LEAVE |
00000410: 41 4E 20 45 4E 54 52 59 20 42 4C 41 4E 4B 20 54 |AN ENTRY BLANK T|
00000420: 48 45 4E 20 54 59 50 45 20 27 3A 27 22 00 3A 0C |HEN TYPE ':'".:.|
00000430: E1 00 99 22 05 13 11 11 22 3B 00 74 0C E6 00 81 |..."....";.t....|
00000440: 54 B2 31 A4 37 3A 97 20 4D 41 2C 31 3A 85 22 1D |T.1.7:. MA,1:.".|
00000450: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 3B 43 24 |............";C$|
00000460: 28 54 29 3A 97 4D 41 2C 30 3A 99 C7 28 31 33 29 |(T):.MA,0:..(13)|
00000470: 3B 3A 82 54 00 93 0C EB 00 81 48 B2 31 A4 37 3A |;:.T......H.1.7:|
00000480: 8B 43 24 28 48 29 B2 22 22 A7 43 24 28 48 29 B2 |.C$(H)."".C$(H).|
00000490: 22 20 22 00 9A 0C EC 00 82 48 00 D1 0C F0 00 99 |" "......H......|
000004A0: 22 11 11 11 11 11 11 11 99 C9 4E 46 4F 52 4D 41 |".........NFORMA|
000004B0: 54 49 4F 4E 20 43 4F 52 52 45 43 54 3F 20 28 59 |TION CORRECT? (Y|
000004C0: 2F 4E 29 9A 20 D2 C5 D4 D5 D2 CE 3D 45 44 49 54 |/N). ......=EDIT|
000004D0: 22 00 E4 0C F5 00 A1 41 24 3A 8B 41 24 B2 22 22 |"......A$:.A$.""|
000004E0: A7 32 34 35 00 F6 0C F9 00 8B 41 24 B2 C7 28 31 |.245......A$..(1|
000004F0: 33 29 A7 32 30 30 00 07 0D FA 00 8B 41 24 B3 B1 |3).200......A$..|
00000500: 22 59 22 A7 89 36 30 00 13 0D FF 00 99 22 11 11 |"Y"..60......"..|
00000510: 05 22 3B 00 37 0D 04 01 9F 38 2C 38 2C 38 2C 22 |.";.7....8,8,8,"|
00000520: 30 3A 41 44 44 52 45 53 53 20 46 49 4C 45 2E 46 |0:ADDRESS FILE.F|
00000530: 49 4C 2C 53 2C 41 22 00 4F 0D 06 01 58 B2 31 3A |IL,S,A".O...X.1:|
00000540: 9F 31 2C 38 2C 31 35 3A 84 31 2C 58 3A A0 31 00 |.1,8,15:.1,X:.1.|
00000550: 80 0D 07 01 8B 58 B2 30 A7 A0 38 3A 9F 38 2C 38 |.....X.0..8:.8,8|
00000560: 2C 38 2C 22 30 3A 41 44 44 52 45 53 53 20 46 49 |,8,"0:ADDRESS FI|
00000570: 4C 45 2E 46 49 4C 2C 53 2C 41 22 3A 89 32 37 35 |LE.FIL,S,A":.275|
00000580: 00 B8 0D 09 01 99 22 2A C1 44 44 52 45 53 53 20 |......"*.DDRESS |
00000590: 46 49 4C 45 20 4E 4F 54 20 50 52 45 53 45 4E 54 |FILE NOT PRESENT|
000005A0: 2E 22 3A 99 22 2A C3 52 45 41 54 49 4E 47 20 46 |.":."*.REATING F|
000005B0: 49 4C 45 2E 2E 2E 2E 22 00 DF 0D 0E 01 A0 38 3A |ILE...."......8:|
000005C0: 9F 38 2C 38 2C 38 2C 22 30 3A 41 44 44 52 45 53 |.8,8,8,"0:ADDRES|
000005D0: 53 20 46 49 4C 45 2E 46 49 4C 2C 53 2C 57 22 00 |S FILE.FIL,S,W".|
000005E0: FB 0D 13 01 99 22 2A D7 52 49 54 49 4E 47 20 54 |....."*.RITING T|
000005F0: 4F 20 46 49 4C 45 2E 2E 2E 2E 22 00 12 0E 18 01 |O FILE....".....|
00000600: 81 54 B2 31 A4 37 3A 98 38 2C 43 24 28 54 29 3A |.T.1.7:.8,C$(T):|
00000610: 82 54 00 30 0E 1D 01 A0 38 3A 81 54 B2 31 A4 37 |.T.0....8:.T.1.7|
00000620: 3A 43 24 28 54 29 B2 22 22 3A 82 54 3A 89 36 30 |:C$(T)."":.T:.60|
00000630: 00 39 0E F4 01 8D 31 35 30 00 4E 0E F9 01 99 22 |.9....150.N...."|
00000640: 99 20 20 20 20 20 20 CE C1 CD C5 20 3A 22 00 63 |. .... :".c|
00000650: 0E FA 01 99 22 99 20 20 20 20 D3 D4 D2 C5 C5 D4 |....". ......|
00000660: 20 3A 22 00 78 0E FB 01 99 22 99 20 20 D3 D5 C2 | :".x....". ...|
00000670: 2D C4 C9 D3 D4 20 3A 22 00 8D 0E FC 01 99 22 99 |-.... :"......".|
00000680: 20 20 20 20 20 20 D4 CF D7 CE 20 3A 22 00 A2 0E | .... :"...|
00000690: FD 01 99 22 99 20 20 20 20 C3 CF D5 CE D4 D9 20 |...". ...... |
000006A0: 3A 22 00 B7 0E FE 01 99 22 99 20 D0 CF D3 D4 2D |:"......". ....-|
000006B0: C3 CF C4 C5 20 3A 22 00 CC 0E FF 01 99 22 99 20 |.... :"......". |
000006C0: D4 C5 CC C5 D0 C8 CF CE C5 20 3A 22 00 17 0F 03 |......... :"....|
000006D0: 02 99 22 11 9B 11 C5 4E 54 45 52 20 54 48 45 20 |.."....NTER THE |
000006E0: 49 4E 46 4F 52 4D 41 54 49 4F 4E 20 54 48 41 54 |INFORMATION THAT|
000006F0: 20 59 4F 55 20 52 45 51 55 49 52 45 20 20 55 53 | YOU REQUIRE US|
00000700: 49 4E 47 20 27 2A 27 20 46 4F 52 20 57 49 4C 44 |ING '*' FOR WILD|
00000710: 43 41 52 44 53 2E 22 00 3C 0F 08 02 99 22 11 9E |CARDS.".<...."..|
00000720: C5 D8 C1 CD D0 CC C5 3A 2D 20 20 99 2A 43 48 41 |.......:- .*CHA|
00000730: 4E 46 49 45 4C 44 20 52 4F 41 44 22 00 67 0F 09 |NFIELD ROAD".g..|
00000740: 02 99 22 11 9E 4F 52 20 46 4F 52 20 41 4E 20 45 |.."..OR FOR AN E|
00000750: 4D 50 54 59 20 46 49 45 4C 44 20 4A 55 53 54 20 |MPTY FIELD JUST |
00000760: 55 53 45 20 99 2A 22 00 74 0F 12 02 99 22 13 11 |USE .*".t...."..|
00000770: 11 05 22 3B 00 AD 0F 17 02 81 54 B2 31 A4 37 3A |..";......T.1.7:|
00000780: 97 4D 41 2C 31 3A 85 22 1D 1D 1D 1D 1D 1D 1D 1D |.MA,1:."........|
00000790: 1D 1D 1D 1D 1D 22 3B 47 24 28 54 29 3A 97 4D 41 |.....";G$(T):.MA|
000007A0: 2C 30 3A 99 C7 28 31 33 29 3B 3A 82 54 00 CF 0F |,0:..(13);:.T...|
000007B0: 18 02 81 54 B2 31 A4 37 3A 8B 47 24 28 54 29 B2 |...T.1.7:.G$(T).|
000007C0: 22 22 A7 47 24 28 54 29 B2 22 20 22 3A 82 54 00 |"".G$(T)." ":.T.|
000007D0: D8 0F 1C 02 8D 31 35 30 00 15 10 21 02 99 22 97 |.....150...!..".|
000007E0: CD 41 4B 45 20 59 4F 55 20 53 45 4C 45 43 54 49 |.AKE YOU SELECTI|
000007F0: 4F 4E 2E 20 27 5F 27 20 46 4F 52 20 54 4F 20 50 |ON. '_' FOR TO P|
00000800: 52 49 4E 54 20 41 4C 4C 53 48 4F 57 4E 20 46 49 |RINT ALLSHOWN FI|
00000810: 4C 45 53 2E 22 00 39 10 26 02 9F 38 2C 38 2C 38 |LES.".9.&..8,8,8|
00000820: 2C 22 30 3A 41 44 44 52 45 53 53 20 46 49 4C 45 |,"0:ADDRESS FILE|
00000830: 2E 46 49 4C 2C 53 2C 52 22 00 74 10 2B 02 99 22 |.FIL,S,R".t.+.."|
00000840: 9B C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000850: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000860: C0 C0 C0 C0 C0 C0 C0 C0 C0 11 11 11 11 11 22 3B |..............";|
00000870: 3A 56 B2 30 00 8B 10 30 02 81 54 B2 31 A4 37 3A |:V.0...0..T.1.7:|
00000880: 84 38 2C 42 24 28 54 29 3A 82 54 00 93 10 33 02 |.8,B$(T):.T...3.|
00000890: 48 B2 30 00 9E 10 35 02 81 54 B2 31 A4 37 00 B8 |H.0...5..T.1.7..|
000008A0: 10 38 02 8B 47 24 28 54 29 B2 22 2A 22 A7 48 B2 |.8..G$(T)."*".H.|
000008B0: 48 AA 31 3A 89 35 38 38 00 D7 10 39 02 8B C8 28 |H.1:.588...9...(|
000008C0: 47 24 28 54 29 2C 31 29 B3 B1 22 2A 22 A7 8D 37 |G$(T),1).."*"..7|
000008D0: 35 30 3A 89 35 38 38 00 E9 10 3A 02 81 52 B2 31 |50:.588...:..R.1|
000008E0: A4 C3 28 42 24 28 54 29 29 00 07 11 3F 02 4D 4D |..(B$(T))...?.MM|
000008F0: 24 B2 CA 28 42 24 28 54 29 2C 52 2C C3 28 47 24 |$..(B$(T),R,.(G$|
00000900: 28 54 29 29 AB 31 29 00 1D 11 40 02 4D 4E 24 B2 |(T)).1)...@.MN$.|
00000910: CA 28 47 24 28 54 29 2C 32 2C 35 30 29 00 35 11 |.(G$(T),2,50).5.|
00000920: 41 02 8B 4D 4E 24 B2 4D 4D 24 A7 48 B2 48 AA 31 |A..MN$.MM$.H.H.1|
00000930: 3A 89 35 38 38 00 3C 11 44 02 82 52 00 43 11 4C |:.588.<.D..R.C.L|
00000940: 02 82 54 00 6A 11 4E 02 8B 48 B2 37 A7 81 45 B2 |..T.j.N..H.7..E.|
00000950: 31 A4 37 3A 4F 24 28 56 2C 45 29 B2 42 24 28 45 |1.7:O$(V,E).B$(E|
00000960: 29 3A 82 45 3A 56 B2 56 AA 31 00 78 11 53 02 8B |):.E:V.V.1.x.S..|
00000970: 53 54 B1 30 A7 36 30 30 00 81 11 54 02 89 35 36 |ST.0.600...T..56|
00000980: 30 00 88 11 58 02 A0 38 00 96 11 5D 02 81 54 B2 |0...X..8...]..T.|
00000990: 30 A4 56 A9 31 35 00 9F 11 5E 02 8D 31 35 30 00 |0.V.15...^..150.|
000009A0: AB 11 62 02 81 52 B2 30 A4 31 34 00 D8 11 67 02 |..b..R.0.14...g.|
000009B0: 99 22 20 20 20 20 05 22 3B C7 28 52 AA 36 35 AA |." .";.(R.65.|
000009C0: 31 32 38 29 3B 22 29 20 20 99 22 3B 4F 24 28 54 |128);") .";O$(T|
000009D0: AA 52 2C 31 29 3A 82 52 00 FB 11 6C 02 99 22 20 |.R,1):.R...l.." |
000009E0: 20 20 20 9E D0 29 20 20 9F C5 58 49 54 20 54 4F | ..) ..XIT TO|
000009F0: 20 CD 41 49 4E 20 CD 45 4E 55 22 00 21 12 6D 02 | .AIN .ENU".!.m.|
00000A00: 99 22 20 20 20 20 9E D1 29 20 20 9F CE 45 58 54 |." ..) ..EXT|
00000A10: 20 53 45 54 20 4F 46 20 45 4E 54 52 49 45 53 2E | SET OF ENTRIES.|
00000A20: 22 00 45 12 6E 02 99 22 20 20 20 20 9E D2 29 20 |".E.n.." ..) |
00000A30: 20 9F D0 52 49 4E 54 20 41 4C 4C 20 45 4E 54 52 | ..RINT ALL ENTR|
00000A40: 49 45 53 2E 22 00 77 12 71 02 99 22 9B C0 C0 C0 |IES.".w.q.."....|
00000A50: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000A60: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000A70: C0 C0 C0 C0 C0 22 3B 00 8A 12 76 02 A1 41 24 3A |.....";...v..A$:|
00000A80: 8B 41 24 B2 22 22 A7 36 33 30 00 B9 12 7B 02 8B |.A$."".630...{..|
00000A90: 41 24 B2 22 50 22 A7 81 46 B2 30 A4 56 3A 81 43 |A$."P"..F.0.V:.C|
00000AA0: B2 31 A4 37 3A 4F 24 28 46 2C 43 29 B2 22 22 3A |.1.7:O$(F,C)."":|
00000AB0: 82 43 3A 82 46 3A 89 36 30 00 D8 12 80 02 8B 20 |.C:.F:.60...... |
00000AC0: C6 28 41 24 29 B1 36 34 AF 20 C6 28 41 24 29 B3 |.(A$).64. .(A$).|
00000AD0: 38 30 20 A7 20 36 35 30 00 EB 12 81 02 8B 41 24 |80 . 650......A$|
00000AE0: B2 22 52 22 A7 8D 20 31 30 30 30 00 F2 12 85 02 |."R".. 1000.....|
00000AF0: 82 54 00 FB 12 86 02 89 36 30 35 00 04 13 8A 02 |.T......605.....|
00000B00: 8D 31 35 30 00 19 13 8F 02 99 22 99 20 20 20 20 |.150......". |
00000B10: 20 20 CE C1 CD C5 20 3A 22 00 2E 13 90 02 99 22 | .... :"......"|
00000B20: 99 20 20 20 20 D3 D4 D2 C5 C5 D4 20 3A 22 00 43 |. ...... :".C|
00000B30: 13 91 02 99 22 99 20 20 D3 D5 C2 2D C4 C9 D3 D4 |....". ...-....|
00000B40: 20 3A 22 00 58 13 92 02 99 22 99 20 20 20 20 20 | :".X....". |
00000B50: 20 D4 CF D7 CE 20 3A 22 00 6D 13 93 02 99 22 99 | .... :".m....".|
00000B60: 20 20 20 20 C3 CF D5 CE D4 D9 20 3A 22 00 82 13 | ...... :"...|
00000B70: 94 02 99 22 99 20 D0 CF D3 D4 2D C3 CF C4 C5 20 |...". ....-.... |
00000B80: 3A 22 00 97 13 95 02 99 22 99 20 D4 C5 CC C5 D0 |:"......". .....|
00000B90: C8 CF CE C5 20 3A 22 00 A3 13 99 02 99 22 13 11 |.... :"......"..|
00000BA0: 11 22 3B 00 D2 13 9E 02 81 43 B2 31 A4 37 3A 99 |.";......C.1.7:.|
00000BB0: 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 05 22 |".............."|
00000BC0: 3B 4F 24 28 C6 28 41 24 29 AB 36 35 2C 43 29 3A |;O$(.(A$).65,C):|
00000BD0: 82 43 00 15 14 A5 02 99 22 11 11 9B D0 52 45 53 |.C......"....RES|
00000BE0: 53 20 D0 20 54 4F 20 50 52 49 4E 54 2C 20 CD 20 |S . TO PRINT, . |
00000BF0: 46 4F 52 20 4D 45 4E 55 2C 20 41 4E 44 20 CC 20 |FOR MENU, AND . |
00000C00: 46 4F 52 20 54 48 45 20 53 45 41 52 43 48 20 4C |FOR THE SEARCH L|
00000C10: 49 53 54 2E 22 00 28 14 A8 02 A1 58 24 3A 8B 58 |IST.".(....X$:.X|
00000C20: 24 B2 22 22 A7 36 38 30 00 57 14 AD 02 8B 58 24 |$."".680.W....X$|
00000C30: B2 22 4D 22 A7 81 54 B2 30 A4 56 3A 81 4E B2 31 |."M"..T.0.V:.N.1|
00000C40: A4 37 3A 4F 24 28 54 2C 4E 29 B2 22 22 3A 82 4E |.7:O$(T,N)."":.N|
00000C50: 3A 82 54 3A 89 36 30 00 6F 14 B2 02 8B 58 24 B2 |:.T:.60.o....X$.|
00000C60: 22 4C 22 A7 54 B2 54 AB 31 35 3A 89 36 34 35 00 |"L".T.T.15:.645.|
00000C70: 80 14 BC 02 8B 58 24 B3 B1 22 50 22 A7 36 38 30 |.....X$.."P".680|
00000C80: 00 A6 14 C1 02 99 22 99 11 D5 53 49 4E 47 20 57 |......"...SING W|
00000C90: 48 41 54 20 44 45 56 49 43 45 3F 20 20 28 34 2F |HAT DEVICE? (4/|
00000CA0: 35 2F 36 29 2E 22 00 B9 14 C6 02 A1 58 24 3A 8B |5/6)."......X$:.|
00000CB0: 58 24 B2 22 22 A7 37 31 30 00 D2 14 CB 02 8B C5 |X$."".710.......|
00000CC0: 28 58 24 29 B3 34 B0 C5 28 58 24 29 B1 36 A7 36 |(X$).4..(X$).6.6|
00000CD0: 38 30 00 DF 14 D0 02 9F 34 2C C5 28 58 24 29 00 |80......4,.(X$).|
00000CE0: FF 14 D5 02 81 58 B2 31 A4 37 3A 98 34 2C 4F 24 |.....X.1.7:.4,O$|
00000CF0: 28 C6 28 41 24 29 AB 36 35 2C 58 29 3A 82 58 00 |(.(A$).65,X):.X.|
00000D00: 0B 15 DA 02 A0 34 3A 89 36 35 30 00 22 15 EE 02 |.....4:.650."...|
00000D10: 8B 47 24 28 54 29 B2 42 24 28 54 29 A7 48 B2 48 |.G$(T).B$(T).H.H|
00000D20: AA 31 00 28 15 F3 02 8E 00 31 15 20 03 8D 31 35 |.1.(.....1. ..15|
00000D30: 30 00 5E 15 25 03 97 4D 41 2C 31 3A 85 22 05 D0 |0.^.%..MA,1:."..|
00000D40: 4C 45 41 53 45 20 45 4E 54 45 52 20 CE C1 CD C5 |LEASE ENTER ....|
00000D50: 3A 20 9E 22 3B 4E 41 24 3A 97 4D 41 2C 30 00 6E |: .";NA$:.MA,0.n|
00000D60: 15 2A 03 8B 20 4E 41 24 B2 22 22 A7 36 30 00 9B |.*.. NA$."".60..|
00000D70: 15 2F 03 99 C7 28 31 33 29 3B 22 99 11 11 11 D0 |./...(13);".....|
00000D80: 4C 45 41 53 45 20 57 41 49 54 2E 2E 20 D3 45 41 |LEASE WAIT.. .EA|
00000D90: 52 43 48 49 4E 47 2E 2E 2E 2E 22 00 BF 15 34 03 |RCHING...."...4.|
00000DA0: 9F 38 2C 38 2C 38 2C 22 30 3A 41 44 44 52 45 53 |.8,8,8,"0:ADDRES|
00000DB0: 53 20 46 49 4C 45 2E 46 49 4C 2C 53 2C 52 22 00 |S FILE.FIL,S,R".|
00000DC0: D5 15 39 03 84 38 2C 53 24 3A 8B 53 24 B2 4E 41 |..9..8,S$:.S$.NA|
00000DD0: 24 A7 38 37 30 00 EA 15 3E 03 81 54 B2 31 A4 36 |$.870...>..T.1.6|
00000DE0: 3A 84 38 2C 56 56 24 3A 82 54 00 F8 15 43 03 8B |:.8,VV$:.T...C..|
00000DF0: 53 54 B1 30 A7 38 34 30 00 01 16 44 03 89 38 32 |ST.0.840...D..82|
00000E00: 35 00 08 16 48 03 A0 38 00 3C 16 4D 03 99 22 9F |5...H..8.<.M..".|
00000E10: 11 11 11 D3 45 41 52 43 48 20 57 41 53 20 55 4E |....EARCH WAS UN|
00000E20: 2D 53 55 43 43 45 53 53 46 55 4C 2E 20 20 9A D0 |-SUCCESSFUL. ..|
00000E30: 52 45 53 53 20 D2 C5 D4 D5 D2 CE 22 00 53 16 52 |RESS ......".S.R|
00000E40: 03 A1 41 24 3A 8B 41 24 B3 B1 C7 28 31 33 29 A7 |..A$:.A$...(13).|
00000E50: 38 35 30 00 5B 16 57 03 89 36 30 00 6F 16 66 03 |850.[.W..60.o.f.|
00000E60: 56 B2 31 3A 4F 24 28 30 2C 31 29 B2 4E 41 24 00 |V.1:O$(0,1).NA$.|
00000E70: 7A 16 6B 03 81 54 B2 32 A4 37 00 8C 16 70 03 84 |z.k..T.2.7...p..|
00000E80: 38 2C 4F 24 28 30 2C 54 29 3A 82 54 00 93 16 75 |8,O$(0,T):.T...u|
00000E90: 03 A0 38 00 9C 16 7A 03 89 36 30 30 00 BC 16 E8 |..8...z..600....|
00000EA0: 03 99 22 05 C5 4E 54 45 52 20 44 45 56 49 43 45 |.."..NTER DEVICE|
00000EB0: 2D 20 20 28 34 2F 35 2F 36 29 2E 22 00 D0 16 ED |- (4/5/6)."....|
00000EC0: 03 A1 4E 24 3A 8B 4E 24 B2 22 22 A7 31 30 30 35 |..N$:.N$."".1005|
00000ED0: 00 DD 16 F2 03 9F 34 2C C5 28 4E 24 29 00 EA 16 |......4,.(N$)...|
00000EE0: F7 03 81 4A B2 30 A4 56 A9 32 00 F5 16 FC 03 81 |...J.0.V.2......|
00000EF0: 4B B2 31 A4 37 00 04 17 01 04 4C 24 B2 4F 24 28 |K.1.7.....L$.O$(|
00000F00: 4A 2C 4B 29 00 1D 17 06 04 81 57 B2 31 A4 34 30 |J,K)......W.1.40|
00000F10: 3A 4C 24 B2 4C 24 AA 22 20 22 3A 82 57 00 2D 17 |:L$.L$." ":.W.-.|
00000F20: 0B 04 4C 24 B2 C8 28 4C 24 2C 34 30 29 00 38 17 |..L$..(L$,40).8.|
00000F30: 10 04 98 34 2C 4C 24 3B 00 49 17 15 04 4C 24 B2 |...4,L$;.I...L$.|
00000F40: 4F 24 28 4A AA 31 2C 4B 29 00 62 17 1A 04 81 57 |O$(J.1,K).b....W|
00000F50: B2 31 A4 34 30 3A 4C 24 B2 4C 24 AA 22 20 22 3A |.1.40:L$.L$." ":|
00000F60: 82 57 00 72 17 1F 04 4C 24 B2 C8 28 4C 24 2C 34 |.W.r...L$..(L$,4|
00000F70: 30 29 00 7D 17 24 04 98 34 2C 4C 24 3B 00 87 17 |0).}.$..4,L$;...|
00000F80: 29 04 82 4B 3A 82 4A 00 8E 17 2E 04 A0 34 00 94 |)..K:.J......4..|
00000F90: 17 33 04 8E 00 A7 17 D0 07 9F 34 2C 36 2C 32 3A |.3........4,6,2:|
00000FA0: 98 34 2C 30 3A A0 34 00 BA 17 D1 07 9F 34 2C 36 |.4,0:.4......4,6|
00000FB0: 2C 33 3A 98 34 2C 30 3A A0 34 00 CD 17 D2 07 9F |,3:.4,0:.4......|
00000FC0: 34 2C 36 2C 36 3A 98 34 2C 31 3A A0 34 00 D5 17 |4,6,6:.4,1:.4...|
00000FD0: D3 07 89 36 30 00 00 00 |...60... |
....... ADDRESS BOOK V1.0.0.... FOR CBM
128 ONLY.T.... WRITTEN IN SEPTEMBER (1-9
-88).Y.(.. BY RICHARD CLEMENTS (BOOBIAN
)..2.....6..O$(300,7)...7.MA.21:.B(1).7
1.MA.19...<..53280,0:.53281,0.F.F..150..
.P...11);"..OPTIONS AVAILABLE...........
...........................".;.Z.." .
1.............ENTER A NEW ADDRESS.".J.[.
." .2....................SEARCH QUERY
."...\.." .3.........FIND AN ADDRESS
BY NAME.".H.].." .4..................
..........QUIT."...D..".....WRITTEN BY R
.CLEMENTS IN SEPTEMBER, 1988".#.E.."..
THE 128 LIVES ON!".6.N..A$:.A$.
"".110.G.O..A$."P".2000.^.S..E(A$).200,5
00,800.S.X..A$."4".."..";:..|....110....
.."...ADDRESS BOOK V1.0 B
OOBIAN";......".........................
................";.........H..150...M.."
. NAME : ";C$(1).).N..". STREET
: ";C$(2).E.O..". SUB-DIST : ";C$(3).A.
P..". TOWN : ";C$(4).}.Q..". COU
NTY : ";C$(5)...R..". POST-CODE : ";C$(6
)...S..". TELEPHONE : ";C$(7)...W.."...E
NTER THE APPROPRIATE INFORMATION AS R
EQUIRED ABOVE.".-....MA.19.."..TO LEAVE
AN ENTRY BLANK THEN TYPE ':'".:...."....
";.T....T.1.7:. MA,1:.".............";C$
(T):.MA,0:.G(13);:.T......H.1.7:.C$(H)."
".C$(H)." "......H.Q...."........INFORMA
TION CORRECT? (Y/N). RETURN=EDIT"......A
$:.A$."".245......A$.G(13).200......A$..
"Y"..60......"...";.7....8,8,8,"0:ADDRES
S FILE.FIL,S,A".O...X.1:.1,8,15:.1,X: 1.
.....X.0. 8:.8,8,8,"0:ADDRESS FILE.FIL,S
,A":.275......"*ADDRESS FILE NOT PRESENT
.":."*CREATING FILE...."..... 8:.8,8,8,"
0:ADDRESS FILE.FIL,S,W"......"*WRITING T
O FILE...."......T.1.7:.8,C$(T):.T.0...
8:.T.1.7:C$(T)."":.T:.60.9....150.N...."
. NAME :".C....". STREET :".X...
.". SUB-DIST :"......". TOWN :"...
...". COUNTY :"......". POST-CODE :".
L....". TELEPHONE :"......"...ENTER THE
INFORMATION THAT YOU REQUIRE USING '*'
FOR WILDCARDS.".<...."..EXAMPLE:- .*CHA
NFIELD ROAD".G...."..OR FOR AN EMPTY FIE
LD JUST USE .*".T...."....";......T.1.7:
.MA,1:.".............";G$(T):.MA,0:.G(13
);:.T.O....T.1.7:.G$(T)."".G$(T)." ":.T.
X....150...!..".MAKE YOU SELECTION. '_'
FOR TO PRINT ALLSHOWN FILES.".9.&..8,8,8
,"0:ADDRESS FILE.FIL,S,R".T.+.."........
......................................";
:V.0...0..T.1.7:.8,B$(T):.T...3.H.0...5.
.T.1.7...8..G$(T)."*".H.H.1:.588.W.9..H(
G$(T),1).."*"..750:.588...:..R.1.C(B$(T)
)...?.MM$.J(B$(T),R,C(G$(T)).1)...@.MN$.
J(G$(T),2,50).5.A..MN$.MM$.H.H.1:.588.<.
D..R.C.L..T.J.N..H.7..E.1.7:O$(V,E).B$(E
):.E:V.V.1.X.S..ST.0.600...T..560...X. 8
...]..T.0.V.15...^..150...B..R.0.14.X.G.
." .";G(R.65.128);") .";O$(T.R,1):.R
...L.." .P) .EXIT TO MAIN MENU".!.M.
." .Q) .NEXT SET OF ENTRIES.".E.N.."
.R) .PRINT ALL ENTRIES.".W.Q.."....
.....................................";.
..V..A$:.A$."".630...{..A$."P"..F.0.V:.C
.1.7:O$(F,C)."":.C:.F:.60.X.... F(A$).64
. F(A$).80 . 650......A$."R".. 1000.....
.T......605......150......". NAME :
"......". STREET :".C....". SUB-DIST
:".X....". TOWN :".M....". COUN
TY :"......". POST-CODE :"......". TELEP
HONE :"......"...";.R....C.1.7:.".......
.......";O$(F(A$).65,C):.C......"...PRES
S P TO PRINT, M FOR MENU, AND L FOR THE
SEARCH LIST.".(....X$:.X$."".680.W....X$
."M"..T.0.V:.N.1.7:O$(T,N)."":.N:.T:.60.
O....X$."L".T.T.15:.645......X$.."P".680
...A.."..USING WHAT DEVICE? (4/5/6)."..
.F..X$:.X$."".710.R.K..E(X$).4.E(X$).6.6
80...P..4,E(X$)...U..X.1.7:.4,O$(F(A$).6
5,X):.X...Z. 4:.650."....G$(T).B$(T).H.H
.1.(.....1. ..150.^.%..MA,1:.".PLEASE EN
TER NAME: .";NA$:.MA,0.N.*.. NA$."".60..
./..G(13);"....PLEASE WAIT.. SEARCHING..
.."...4..8,8,8,"0:ADDRESS FILE.FIL,S,R".
U.9..8,S$:.S$.NA$.870...>..T.1.6:.8,VV$:
.T...C..ST.0.840...D..825...H. 8.<.M..".
...SEARCH WAS UN-SUCCESSFUL. .PRESS RET
URN".S.R..A$:.A$..G(13).850.[.W..60.O.F.
V.1:O$(0,1).NA$.Z.K..T.2.7...P..8,O$(0,T
):.T...U. 8...Z..600......".ENTER DEVICE
- (4/5/6).".P....N$:.N$."".1005......4,
E(N$)......J.0.V.2......K.1.7.....L$.O$(
J,K)......W.1.40:L$.L$." ":.W.-...L$.H(L
$,40).8....4,L$;.I...L$.O$(J.1,K).B....W
.1.40:L$.L$." ":.W.R...L$.H(L$,40).}.$..
4,L$;...)..K:.J..... 4...3.....P..4,6,2:
.4,0: 4...Q..4,6,3:.4,0: 4.M.R..4,6,6:.4
,1: 4.U.S..60...
> CLICK IMAGE PREVIEW FOR FULL MODAL