ADDRESS BOOK
FILE INFORMATION
FILENAME(S): ADDRESS BOOK
FILE TYPE(S): PRG
FILE SIZE: 7.6K
FIRST SEEN: 2025-11-30 17:31:23
APPEARS ON: 1 disk(s)
FILE HASH
0273f98ca409e74b5f252d3144446514e4c7a7332c1a53b53082f2856348cbbe
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PB DOMAIN 0012BU | ADDRESS BOOK | PRG | UK CD | 15 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 25 08 64 00 8F 20 54 48 49 53 20 50 52 4F |..%.d.. THIS PRO|
00000010: 47 52 41 4D 20 49 53 20 54 4F 20 42 45 20 55 53 |GRAM IS TO BE US|
00000020: 45 44 20 41 53 00 4A 08 6E 00 8F 20 41 4E 20 41 |ED AS.J.n.. AN A|
00000030: 44 44 52 45 53 53 20 42 4F 4F 4B 2E 20 54 4F 20 |DDRESS BOOK. TO |
00000040: 47 45 54 20 41 20 43 4F 50 59 00 6C 08 78 00 8F |GET A COPY.l.x..|
00000050: 20 4F 46 20 49 54 2C 20 43 4F 4E 54 41 43 54 20 | OF IT, CONTACT |
00000060: 4A 4F 45 20 53 50 55 52 4C 4F 43 4B 00 91 08 82 |JOE SPURLOCK....|
00000070: 00 8F 20 41 54 20 35 38 39 2D 30 30 30 34 2E 20 |.. AT 589-0004. |
00000080: 49 20 57 49 4C 4C 20 47 49 56 45 20 49 54 20 54 |I WILL GIVE IT T|
00000090: 4F 00 AE 08 8C 00 8F 20 59 4F 55 20 46 4F 52 20 |O...... YOU FOR |
000000A0: 24 31 2E 20 54 48 41 4E 4B 20 59 4F 55 2E 00 C1 |$1. THANK YOU...|
000000B0: 08 96 00 8F 20 4A 4F 45 20 53 50 55 52 4C 4F 43 |.... JOE SPURLOC|
000000C0: 4B 00 DA 08 A0 00 8F 20 43 4F 4D 50 55 54 45 52 |K...... COMPUTER|
000000D0: 20 53 43 49 45 4E 43 45 20 49 00 E9 08 AA 00 8F | SCIENCE I......|
000000E0: 20 50 45 52 49 4F 44 20 34 00 00 09 B4 00 8F 20 | PERIOD 4...... |
000000F0: 4A 41 4E 55 41 52 59 20 31 30 2C 20 31 39 38 35 |JANUARY 10, 1985|
00000100: 00 06 09 BE 00 8F 00 11 09 C8 00 99 C7 28 31 34 |.............(14|
00000110: 29 00 5B 09 D2 00 8F 20 46 24 3D 46 49 52 53 54 |).[.... F$=FIRST|
00000120: 20 4E 41 4D 45 2C 20 4C 41 24 3D 4C 41 53 54 20 | NAME, LA$=LAST |
00000130: 4E 41 4D 45 2C 53 41 24 3D 20 53 54 52 45 45 54 |NAME,SA$= STREET|
00000140: 20 41 44 44 52 45 53 53 2C 20 43 24 3D 43 49 54 | ADDRESS, C$=CIT|
00000150: 59 2C 20 53 24 3D 53 54 41 54 45 00 98 09 DC 00 |Y, S$=STATE.....|
00000160: 97 35 33 32 38 30 2C 30 3A 97 35 33 32 38 31 2C |.53280,0:.53281,|
00000170: 30 3A 97 36 34 36 2C 34 3A 8F 20 5A 24 3D 5A 49 |0:.646,4:. Z$=ZI|
00000180: 50 20 43 4F 44 45 2C 20 50 4E 24 3D 50 48 4F 4E |P CODE, PN$=PHON|
00000190: 45 20 4E 55 4D 42 45 52 00 D7 09 E6 00 8F 20 41 |E NUMBER...... A|
000001A0: 41 24 2C 41 42 24 2C 41 43 24 2C 41 44 24 2C 41 |A$,AB$,AC$,AD$,A|
000001B0: 45 24 2C 41 46 2C 41 47 24 2C 4C 24 2C 4F 24 20 |E$,AF,AG$,L$,O$ |
000001C0: 41 52 45 20 53 57 49 54 43 48 49 4E 47 20 56 41 |ARE SWITCHING VA|
000001D0: 52 49 41 42 4C 45 53 00 29 0A F0 00 86 46 24 28 |RIABLES.)....F$(|
000001E0: 32 30 30 29 2C 4C 41 24 28 32 30 30 29 2C 53 41 |200),LA$(200),SA|
000001F0: 24 28 32 30 30 29 2C 43 24 28 32 30 30 29 2C 53 |$(200),C$(200),S|
00000200: 24 28 32 30 30 29 2C 5A 24 28 32 30 30 29 2C 50 |$(200),Z$(200),P|
00000210: 4E 24 28 32 30 30 29 2C 41 41 24 28 32 30 30 29 |N$(200),AA$(200)|
00000220: 2C 41 42 24 28 32 30 30 29 00 6B 0A FA 00 86 41 |,AB$(200).k....A|
00000230: 43 24 28 32 30 30 29 2C 41 44 24 28 32 30 30 29 |C$(200),AD$(200)|
00000240: 2C 41 45 24 28 32 30 30 29 2C 41 46 24 28 32 30 |,AE$(200),AF$(20|
00000250: 30 29 2C 41 47 24 28 32 30 30 29 2C 4C 24 28 32 |0),AG$(200),L$(2|
00000260: 30 30 29 2C 4F 24 28 32 30 30 29 00 91 0A 04 01 |00),O$(200).....|
00000270: 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.***************|
00000280: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000290: 2A 00 B7 0A 0E 01 8F 2A 2A 2A 2A 2A 2A 2A 20 20 |*......******* |
000002A0: 20 46 49 52 53 54 20 4D 45 4E 55 20 20 20 20 2A | FIRST MENU *|
000002B0: 2A 2A 2A 2A 2A 2A 2A 00 DD 0A 18 01 8F 2A 2A 2A |*******......***|
000002C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000002D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 E8 0A |*************...|
000002E0: 22 01 8D 20 32 35 36 30 00 0D 0B 2C 01 99 22 93 |".. 2560...,..".|
000002F0: 81 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
00000300: 1D 1D C6 49 52 53 54 20 CD 45 4E 55 9F 00 32 0B |...IRST .ENU..2.|
00000310: 31 01 99 22 9F 11 11 11 11 1D 1D 1D 1D 1D 1D 1D |1.."............|
00000320: 1D 1D 1D 31 2E 20 C2 55 49 4C 44 20 41 20 C6 49 |...1. .UILD A .I|
00000330: 4C 45 00 52 0B 36 01 99 22 11 1D 1D 1D 1D 1D 1D |LE.R.6..".......|
00000340: 1D 1D 1D 1D 32 2E 20 C5 44 49 54 20 41 20 C6 49 |....2. .DIT A .I|
00000350: 4C 45 00 73 0B 40 01 99 22 11 11 1D 1D 1D 1D 1D |LE.s.@..".......|
00000360: 1D 1D 1D 1D 1D 1D 1D D9 CF D5 D2 A0 C3 C8 CF C9 |................|
00000370: C3 C5 22 00 86 0B 4A 01 A1 47 24 3A 8B 47 24 B2 |.."...J..G$:.G$.|
00000380: 22 22 A7 33 33 30 00 9D 0B 54 01 47 B2 C5 28 47 |"".330...T.G..(G|
00000390: 24 29 3A 91 47 89 36 38 30 2C 38 39 30 00 A7 0B |$):.G.680,890...|
000003A0: 5E 01 89 20 33 30 30 00 CC 0B 68 01 8F 2A 2A 2A |^.. 300...h..***|
000003B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000003C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 F1 0B 72 |************...r|
000003D0: 01 8F 2A 2A 2A 2A 2A 2A 20 20 53 45 43 4F 4E 44 |..****** SECOND|
000003E0: 20 4D 45 4E 55 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | MENU **********|
000003F0: 2A 00 16 0C 7C 01 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |*...|..*********|
00000400: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000410: 2A 2A 2A 2A 2A 2A 00 39 0C 86 01 99 22 93 1D 1D |******.9...."...|
00000420: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 81 CD 41 53 |..............AS|
00000430: 54 45 52 20 CD 45 4E 55 9F 00 5C 0C 8B 01 99 22 |TER .ENU..\...."|
00000440: 13 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 31 |...............1|
00000450: 2E 20 C1 44 44 20 41 20 CE 41 4D 45 00 7E 0C 90 |. .DD A .AME.~..|
00000460: 01 99 22 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 32 2E |.."...........2.|
00000470: 20 C4 45 4C 45 54 45 20 41 20 CE 41 4D 45 00 A0 | .ELETE A .AME..|
00000480: 0C 9A 01 99 22 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |...."...........|
00000490: 33 2E 20 C3 48 41 4E 47 45 20 41 20 CE 41 4D 45 |3. .HANGE A .AME|
000004A0: 00 C3 0C A4 01 99 22 11 1D 1D 1D 1D 1D 1D 1D 1D |......".........|
000004B0: 1D 1D 34 2E 20 D0 52 49 4E 54 20 54 48 45 20 CC |..4. .RINT THE .|
000004C0: 49 53 54 00 E9 0C AE 01 99 22 11 1D 1D 1D 1D 1D |IST......"......|
000004D0: 1D 1D 1D 1D 1D 35 2E 20 D3 45 41 52 43 48 20 46 |.....5. .EARCH F|
000004E0: 4F 52 20 41 20 CE 41 4D 45 00 15 0D B8 01 99 22 |OR A .AME......"|
000004F0: 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 36 2E 20 D7 52 |...........6. .R|
00000500: 49 54 45 20 54 48 45 20 CC 49 53 54 20 54 4F 20 |ITE THE .IST TO |
00000510: C4 49 53 4B 22 00 44 0D C2 01 99 22 11 1D 1D 1D |.ISK".D...."....|
00000520: 1D 1D 1D 1D 1D 1D 1D 37 2E 20 C7 4F 20 42 41 43 |.......7. .O BAC|
00000530: 4B 20 54 4F 20 54 48 45 20 C6 49 52 53 54 20 CD |K TO THE .IRST .|
00000540: 45 4E 55 22 00 5D 0D C7 01 99 22 11 1D 1D 1D 1D |ENU".]....".....|
00000550: 1D 1D 1D 1D 1D 1D 38 2E 20 C5 4E 44 22 00 81 0D |......8. .ND"...|
00000560: CC 01 99 22 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |..."............|
00000570: C9 CE D0 D5 D4 A0 D9 CF D5 D2 A0 C3 C8 CF C9 C3 |................|
00000580: C5 00 95 0D D6 01 A1 20 4B 24 3A 8B 4B 24 B2 22 |....... K$:.K$."|
00000590: 22 A7 34 37 30 00 CB 0D E0 01 4B B2 C5 28 4B 24 |".470.....K..(K$|
000005A0: 29 3A 91 4B 8D 31 30 34 30 2C 31 32 32 30 2C 31 |):.K.1040,1220,1|
000005B0: 34 30 30 2C 31 36 34 30 2C 31 37 35 30 2C 31 38 |400,1640,1750,18|
000005C0: 34 30 2C 33 30 30 2C 31 39 35 30 00 D5 0D EA 01 |40,300,1950.....|
000005D0: 89 20 33 39 30 00 F9 0D F4 01 8F 2A 2A 2A 2A 2A |. 390......*****|
000005E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000005F0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 1D 0E FE 01 8F 2A |*********......*|
00000600: 2A 2A 2A 2A 20 53 45 41 52 43 48 49 4E 47 20 52 |**** SEARCHING R|
00000610: 4F 55 54 49 4E 45 20 2A 2A 2A 2A 2A 2A 00 41 0E |OUTINE ******.A.|
00000620: 08 02 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |...*************|
00000630: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000640: 2A 00 6C 0E 12 02 85 22 93 11 11 11 11 11 11 11 |*.l...."........|
00000650: D7 48 41 54 20 49 53 20 54 48 45 20 12 CC C1 D3 |.HAT IS THE ....|
00000660: D4 20 CE C1 CD C5 92 22 3B 4C 41 24 00 94 0E 13 |. .....";LA$....|
00000670: 02 99 22 93 11 11 11 11 1D 1D 1D 1D 1D 1D 1D 1D |..".............|
00000680: 1D 1D 1D 1D 1D 1D 1D 1D 1C D3 45 41 52 43 48 49 |..........EARCHI|
00000690: 4E 47 9F 22 00 A3 0E 1C 02 45 B2 30 3A 81 46 B2 |NG.".....E.0:.F.|
000006A0: 31 A4 4E 00 B8 0E 26 02 8B 4C 41 24 B3 B1 4C 41 |1.N...&..LA$..LA|
000006B0: 24 28 46 29 A7 35 39 30 00 06 0F 30 02 99 22 11 |$(F).590...0..".|
000006C0: 11 22 3B 46 24 28 46 29 3B 22 20 22 3B 4C 41 24 |.";F$(F);" ";LA$|
000006D0: 28 46 29 3A 99 53 41 24 28 46 29 3A 99 43 24 28 |(F):.SA$(F):.C$(|
000006E0: 46 29 3B 22 20 20 22 3B 53 24 28 46 29 3A 99 22 |F);" ";S$(F):."|
000006F0: 20 22 2C 5A 24 28 46 29 3A 99 3A 99 A3 32 30 29 | ",Z$(F):.:..20)|
00000700: 50 4E 24 28 46 29 00 24 0F 3A 02 85 22 11 C9 53 |PN$(F).$.:.."..S|
00000710: 20 54 48 49 53 20 54 48 45 20 52 45 43 4F 52 44 | THIS THE RECORD|
00000720: 22 3B 59 24 00 3D 0F 44 02 8B 59 24 B2 22 59 22 |";Y$.=.D..Y$."Y"|
00000730: B0 59 24 B2 22 59 45 53 22 A7 36 32 30 00 4A 0F |.Y$."YES".620.J.|
00000740: 4E 02 99 22 93 22 3A 20 82 46 00 68 0F 58 02 99 |N..".": .F.h.X..|
00000750: 22 11 11 11 11 1C D2 45 43 4F 52 44 20 CE 4F 54 |"......ECORD .OT|
00000760: 20 C6 4F 55 4E 44 9F 22 00 7D 0F 62 02 81 50 B2 | .OUND.".}.b..P.|
00000770: 31 A4 31 30 30 30 3A 82 50 3A 45 B2 31 00 83 0F |1.1000:.P:E.1...|
00000780: 6C 02 8E 00 A8 0F 76 02 8F 2A 2A 2A 2A 2A 2A 2A |l.....v..*******|
00000790: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000007A0: 2A 2A 2A 2A 2A 2A 2A 2A 00 CD 0F 80 02 8F 2A 2A |********......**|
000007B0: 2A 2A 2A 2A 20 20 20 20 20 42 55 49 4C 44 20 20 |**** BUILD |
000007C0: 20 20 20 20 20 2A 2A 2A 2A 2A 2A 2A 2A 00 F2 0F | ********...|
000007D0: 8A 02 8F 2A 2A 2A 2A 2A 2A 20 20 20 20 20 20 41 |...****** A|
000007E0: 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 2A 2A 2A | ******|
000007F0: 2A 2A 00 17 10 94 02 8F 2A 2A 2A 2A 2A 2A 20 20 |**......****** |
00000800: 20 20 20 46 49 4C 45 20 20 20 20 20 20 20 20 2A | FILE *|
00000810: 2A 2A 2A 2A 2A 2A 2A 00 3C 10 9E 02 8F 2A 2A 2A |*******.<....***|
00000820: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000830: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 5B 10 A8 |************.[..|
00000840: 02 9F 31 35 2C 38 2C 31 35 3A 58 24 B2 C7 28 31 |..15,8,15:X$..(1|
00000850: 33 29 3A 98 31 35 2C 22 49 30 22 00 99 10 B2 02 |3):.15,"I0".....|
00000860: 85 22 93 11 11 11 11 D7 48 41 54 20 49 53 20 54 |."......HAT IS T|
00000870: 48 45 20 12 1C C6 C9 CC C5 CE C1 CD C5 92 9F 22 |HE ............"|
00000880: 3B 4E 24 3A 9F 32 2C 38 2C 32 2C 22 30 3A 22 AA |;N$:.2,8,2,"0:".|
00000890: 4E 24 AA 22 2C 53 2C 57 22 00 D2 10 BC 02 84 31 |N$.",S,W"......1|
000008A0: 35 2C 45 2C 45 24 2C 45 31 2C 45 32 3A 8B 45 A7 |5,E,E$,E1,E2:.E.|
000008B0: 99 22 11 11 11 11 11 11 11 11 11 11 45 52 52 4F |."..........ERRO|
000008C0: 52 3A 22 2C 45 24 3A A0 32 3A A0 31 35 3A 89 38 |R:",E$:.2:.15:.8|
000008D0: 31 30 00 EA 10 C6 02 99 22 93 11 D7 48 41 54 20 |10......"...HAT |
000008E0: 49 53 20 54 48 45 1C 3A 9F 22 00 04 11 D0 02 85 |IS THE.:."......|
000008F0: 22 11 11 C6 49 52 53 54 20 CE 41 4D 45 20 1C 22 |"...IRST .AME ."|
00000900: 3B 46 24 3A 00 1D 11 DA 02 85 22 9F CC 41 53 54 |;F$:......"..AST|
00000910: 20 CE 41 4D 45 20 1C 22 3B 4C 41 24 3A 00 3B 11 | .AME .";LA$:.;.|
00000920: E4 02 85 22 9F D3 54 52 45 45 54 20 C1 44 44 52 |..."..TREET .DDR|
00000930: 45 53 53 20 1C 22 3B 53 41 24 3A 00 4E 11 EE 02 |ESS .";SA$:.N...|
00000940: 85 22 9F C3 49 54 59 20 1C 22 3B 43 24 3A 00 62 |."..ITY .";C$:.b|
00000950: 11 F8 02 85 22 9F D3 54 41 54 45 20 1C 22 3B 53 |...."..TATE .";S|
00000960: 24 3A 00 79 11 02 03 85 22 9F DA 49 50 20 C3 4F |$:.y...."..IP .O|
00000970: 44 45 20 1C 22 3B 5A 24 3A 00 95 11 0C 03 85 22 |DE .";Z$:......"|
00000980: 9F D0 48 4F 4E 45 20 CE 55 4D 42 45 52 20 1C 22 |..HONE .UMBER ."|
00000990: 3B 50 4E 24 3A 00 CA 11 16 03 98 32 2C 46 24 3B |;PN$:......2,F$;|
000009A0: 58 24 3B 4C 41 24 3B 58 24 3B 53 41 24 3B 58 24 |X$;LA$;X$;SA$;X$|
000009B0: 3B 43 24 3B 58 24 3B 53 24 3B 58 24 3B 5A 24 3B |;C$;X$;S$;X$;Z$;|
000009C0: 58 24 3B 50 4E 24 3B 58 24 3B 00 F3 11 20 03 A0 |X$;PN$;X$;... ..|
000009D0: 32 3A A0 31 35 3A 99 22 9F C6 49 4C 45 20 1C 22 |2:.15:."..ILE ."|
000009E0: 3B 4E 24 3B 22 9F 20 49 53 20 D7 52 49 54 54 45 |;N$;". IS .RITTE|
000009F0: 4E 2E 22 00 16 12 2A 03 99 22 11 11 D0 D2 C5 D3 |N."...*.."......|
00000A00: D3 A0 C1 CE D9 A0 CB C5 D9 A0 D4 CF A0 C3 CF CE |................|
00000A10: D4 C9 CE D5 C5 22 00 29 12 34 03 A1 47 24 3A 8B |.....".).4..G$:.|
00000A20: 47 24 B2 22 22 A7 38 32 30 00 32 12 3E 03 89 33 |G$."".820.2.>..3|
00000A30: 30 30 00 56 12 48 03 8F 2A 2A 2A 2A 2A 2A 2A 2A |00.V.H..********|
00000A40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000A50: 2A 2A 2A 2A 2A 2A 00 7A 12 52 03 8F 2A 2A 2A 2A |******.z.R..****|
00000A60: 2A 2A 20 20 20 20 20 52 45 41 44 20 20 20 20 20 |** READ |
00000A70: 20 20 2A 2A 2A 2A 2A 2A 2A 2A 00 9E 12 5C 03 8F | ********...\..|
00000A80: 2A 2A 2A 2A 2A 2A 20 20 20 20 20 20 49 4E 20 20 |****** IN |
00000A90: 20 20 20 20 20 20 2A 2A 2A 2A 2A 2A 2A 2A 00 C2 | ********..|
00000AA0: 12 66 03 8F 2A 2A 2A 2A 2A 2A 20 20 20 20 52 4F |.f..****** RO|
00000AB0: 55 54 49 4E 45 20 20 20 20 20 2A 2A 2A 2A 2A 2A |UTINE ******|
00000AC0: 2A 2A 00 E6 12 70 03 8F 2A 2A 2A 2A 2A 2A 2A 2A |**...p..********|
00000AD0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000AE0: 2A 2A 2A 2A 2A 2A 00 EC 12 7A 03 8F 00 12 13 84 |******...z......|
00000AF0: 03 85 22 93 11 11 11 11 C5 4E 54 45 52 20 54 48 |.."......NTER TH|
00000B00: 45 20 12 1C C6 49 4C 45 4E 41 4D 45 92 9F 22 3B |E ...ILENAME..";|
00000B10: 4E 24 00 24 13 85 03 9F 31 35 2C 38 2C 31 35 2C |N$.$....15,8,15,|
00000B20: 22 49 30 22 00 32 13 8E 03 9F 31 2C 38 2C 32 2C |"I0".2....1,8,2,|
00000B30: 4E 24 00 45 13 8F 03 84 31 35 2C 45 2C 45 24 2C |N$.E....15,E,E$,|
00000B40: 45 31 2C 45 32 00 7F 13 90 03 8B 45 A7 99 22 1C |E1,E2......E..".|
00000B50: 11 11 D4 48 45 52 45 20 49 53 20 4E 4F 20 46 49 |...HERE IS NO FI|
00000B60: 4C 45 20 43 41 4C 4C 45 44 20 22 3B 4E 24 3B 22 |LE CALLED ";N$;"|
00000B70: 2E 22 3A A0 31 35 3A A0 31 3A 89 20 38 31 30 00 |.":.15:.1:. 810.|
00000B80: 87 13 98 03 4A B2 30 00 91 13 A2 03 4A B2 4A AA |....J.0.....J.J.|
00000B90: 31 00 C5 13 AC 03 84 31 2C 46 24 28 4A 29 2C 4C |1......1,F$(J),L|
00000BA0: 41 24 28 4A 29 2C 53 41 24 28 4A 29 2C 43 24 28 |A$(J),SA$(J),C$(|
00000BB0: 4A 29 2C 53 24 28 4A 29 2C 5A 24 28 4A 29 2C 50 |J),S$(J),Z$(J),P|
00000BC0: 4E 24 28 4A 29 00 D5 13 B6 03 8B 20 53 54 B2 30 |N$(J)...... ST.0|
00000BD0: 20 A7 39 33 30 00 DD 13 C0 03 4E B2 4A 00 EC 13 | .930.....N.J...|
00000BE0: CA 03 A0 31 3A A0 31 35 3A 42 B2 4E 00 34 14 D4 |...1:.15:B.N.4..|
00000BF0: 03 99 22 11 11 11 D4 48 45 52 45 20 41 52 45 1C |.."....HERE ARE.|
00000C00: 22 3B 4E 3B 22 9F D2 45 43 4F 52 44 53 20 D5 4E |";N;"..ECORDS .N|
00000C10: 44 45 52 20 1C 22 3B 4E 24 3B 22 9F 2E 22 3A 81 |DER .";N$;"..":.|
00000C20: 50 B2 31 A4 31 30 30 30 3A 82 50 3A 44 B2 31 3A |P.1.1000:.P:D.1:|
00000C30: 89 33 39 30 00 58 14 DE 03 8F 2A 2A 2A 2A 2A 2A |.390.X....******|
00000C40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000C50: 2A 2A 2A 2A 2A 2A 2A 2A 00 7C 14 E8 03 8F 2A 2A |********.|....**|
00000C60: 2A 2A 2A 2A 20 20 20 20 20 41 44 44 20 20 20 20 |**** ADD |
00000C70: 20 20 20 20 2A 2A 2A 2A 2A 2A 2A 2A 00 A0 14 F2 | ********....|
00000C80: 03 8F 2A 2A 2A 2A 2A 2A 20 20 20 20 20 20 41 20 |..****** A |
00000C90: 20 20 20 20 20 20 20 20 2A 2A 2A 2A 2A 2A 2A 2A | ********|
00000CA0: 00 C4 14 FC 03 8F 2A 2A 2A 2A 2A 2A 20 20 20 20 |......****** |
00000CB0: 52 45 43 4F 52 44 20 20 20 20 20 20 2A 2A 2A 2A |RECORD ****|
00000CC0: 2A 2A 2A 2A 00 E8 14 06 04 8F 2A 2A 2A 2A 2A 2A |****......******|
00000CD0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000CE0: 2A 2A 2A 2A 2A 2A 2A 2A 00 0C 15 10 04 99 22 9F |********......".|
00000CF0: 93 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D C1 44 |...............D|
00000D00: 44 49 4E 47 20 41 20 CE 41 4D 45 22 00 23 15 11 |DING A .AME".#..|
00000D10: 04 99 22 9F 11 11 C5 4E 54 45 52 20 54 48 45 1C |.."....NTER THE.|
00000D20: 3A 9F 22 00 39 15 1A 04 85 22 C6 49 52 53 54 20 |:.".9....".IRST |
00000D30: CE 41 4D 45 1C 22 3B 46 24 00 50 15 24 04 85 22 |.AME.";F$.P.$.."|
00000D40: 9F CC 41 53 54 20 CE 41 4D 45 1C 22 3B 4C 41 24 |..AST .AME.";LA$|
00000D50: 00 6C 15 2E 04 85 22 9F D3 54 52 45 45 54 20 C1 |.l...."..TREET .|
00000D60: 44 44 52 45 53 53 1C 22 3B 53 41 24 00 7D 15 38 |DDRESS.";SA$.}.8|
00000D70: 04 85 22 9F C3 49 54 59 1C 22 3B 43 24 00 8F 15 |.."..ITY.";C$...|
00000D80: 42 04 85 22 9F D3 54 41 54 45 1C 22 3B 53 24 00 |B.."..TATE.";S$.|
00000D90: A4 15 4C 04 85 22 9F DA 49 50 20 C3 4F 44 45 1C |..L.."..IP .ODE.|
00000DA0: 22 3B 5A 24 00 BE 15 56 04 85 22 9F D0 48 4F 4E |";Z$...V.."..HON|
00000DB0: 45 20 CE 55 4D 42 45 52 1C 22 3B 50 4E 24 00 DA |E .UMBER.";PN$..|
00000DC0: 15 60 04 85 22 9F C9 53 20 D4 48 49 53 20 C3 4F |.`.."..S .HIS .O|
00000DD0: 43 52 45 43 54 1C 22 3B 59 24 00 FE 15 6A 04 8B |CRECT.";Y$...j..|
00000DE0: 59 24 B3 B1 22 59 22 AF 59 24 B3 B1 22 59 45 53 |Y$.."Y".Y$.."YES|
00000DF0: 22 A7 99 22 9F 93 22 3A 89 20 31 30 34 30 00 08 |".."..":. 1040..|
00000E00: 16 74 04 4E B2 4E AA 31 00 51 16 7E 04 46 24 28 |.t.N.N.1.Q.~.F$(|
00000E10: 4E 29 B2 46 24 3A 4C 41 24 28 4E 29 B2 4C 41 24 |N).F$:LA$(N).LA$|
00000E20: 3A 53 41 24 28 4E 29 B2 53 41 24 3A 43 24 28 4E |:SA$(N).SA$:C$(N|
00000E30: 29 B2 43 24 3A 53 24 28 4E 29 B2 53 24 3A 5A 24 |).C$:S$(N).S$:Z$|
00000E40: 28 4E 29 B2 5A 24 3A 50 4E 24 28 4E 29 B2 50 4E |(N).Z$:PN$(N).PN|
00000E50: 24 00 57 16 88 04 8E 00 7B 16 92 04 8F 2A 2A 2A |$.W.....{....***|
00000E60: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000E70: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 9F 16 9C 04 |***********.....|
00000E80: 8F 2A 2A 2A 2A 2A 2A 20 20 20 20 44 45 4C 45 54 |.****** DELET|
00000E90: 45 20 20 20 20 20 20 2A 2A 2A 2A 2A 2A 2A 2A 00 |E ********.|
00000EA0: C3 16 A6 04 8F 2A 2A 2A 2A 2A 2A 20 20 20 20 20 |.....****** |
00000EB0: 20 41 20 20 20 20 20 20 20 20 20 2A 2A 2A 2A 2A | A *****|
00000EC0: 2A 2A 2A 00 E7 16 B0 04 8F 2A 2A 2A 2A 2A 2A 20 |***......****** |
00000ED0: 20 20 20 52 45 43 4F 52 44 20 20 20 20 20 20 2A | RECORD *|
00000EE0: 2A 2A 2A 2A 2A 2A 2A 00 0B 17 BA 04 8F 2A 2A 2A |*******......***|
00000EF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000F00: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 19 17 C4 04 |***********.....|
00000F10: 8D 35 33 30 3A 8B 45 A7 8E 00 23 17 CE 04 4E B2 |.530:.E...#...N.|
00000F20: 4E AB 31 00 2E 17 D8 04 81 4B B2 46 A4 4E 00 40 |N.1......K.F.N.@|
00000F30: 17 E2 04 46 24 28 4B 29 B2 46 24 28 4B AA 31 29 |...F$(K).F$(K.1)|
00000F40: 00 54 17 EC 04 4C 41 24 28 4B 29 B2 4C 41 24 28 |.T...LA$(K).LA$(|
00000F50: 4B AA 31 29 00 68 17 F6 04 53 41 24 28 4B 29 B2 |K.1).h...SA$(K).|
00000F60: 53 41 24 28 4B AA 31 29 00 7A 17 00 05 43 24 28 |SA$(K.1).z...C$(|
00000F70: 4B 29 B2 43 24 28 4B AA 31 29 00 8C 17 0A 05 53 |K).C$(K.1).....S|
00000F80: 24 28 4B 29 B2 53 24 28 4B AA 31 29 00 9E 17 14 |$(K).S$(K.1)....|
00000F90: 05 5A 24 28 4B 29 B2 5A 24 28 4B AA 31 29 00 B2 |.Z$(K).Z$(K.1)..|
00000FA0: 17 1E 05 50 4E 24 28 4B 29 B2 50 4E 24 28 4B AA |...PN$(K).PN$(K.|
00000FB0: 31 29 00 B9 17 28 05 82 4B 00 E0 17 32 05 99 22 |1)...(..K...2.."|
00000FC0: 11 11 1C D2 45 43 4F 52 44 20 C4 45 4C 45 54 45 |....ECORD .ELETE|
00000FD0: 44 9F 22 3A 81 50 B2 31 A4 31 30 30 30 3A 82 50 |D.":.P.1.1000:.P|
00000FE0: 00 E6 17 3C 05 8E 00 09 18 46 05 8F 2A 2A 2A 2A |...<.....F..****|
00000FF0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001000: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 2C 18 50 05 8F 2A |*********.,.P..*|
00001010: 2A 2A 2A 2A 2A 20 20 20 20 43 48 41 4E 47 45 20 |***** CHANGE |
00001020: 20 20 20 20 20 20 2A 2A 2A 2A 2A 2A 00 4F 18 5A | ******.O.Z|
00001030: 05 8F 2A 2A 2A 2A 2A 2A 20 20 20 20 20 20 41 20 |..****** A |
00001040: 20 20 20 20 20 20 20 20 20 2A 2A 2A 2A 2A 2A 00 | ******.|
00001050: 72 18 64 05 8F 2A 2A 2A 2A 2A 2A 20 20 20 20 52 |r.d..****** R|
00001060: 45 43 4F 52 44 20 20 20 20 20 20 20 2A 2A 2A 2A |ECORD ****|
00001070: 2A 2A 00 95 18 6E 05 8F 2A 2A 2A 2A 2A 2A 2A 2A |**...n..********|
00001080: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001090: 2A 2A 2A 2A 2A 00 A3 18 78 05 8D 35 33 30 3A 8B |*****...x..530:.|
000010A0: 45 A7 8E 00 BE 18 82 05 85 22 9F CE 45 57 20 C6 |E........"..EW .|
000010B0: 49 52 53 54 20 CE 41 4D 45 1C 22 3B 46 24 00 D9 |IRST .AME.";F$..|
000010C0: 18 8C 05 85 22 9F CE 45 57 20 CC 41 53 54 20 CE |...."..EW .AST .|
000010D0: 41 4D 45 1C 22 3B 4C 41 24 00 F9 18 96 05 85 22 |AME.";LA$......"|
000010E0: 9F CE 45 57 20 D3 54 52 45 45 54 20 C1 44 44 52 |..EW .TREET .DDR|
000010F0: 45 53 53 1C 22 3B 53 41 24 00 0E 19 A0 05 85 22 |ESS.";SA$......"|
00001100: 9F CE 45 57 20 C3 49 54 59 1C 22 3B 43 24 00 24 |..EW .ITY.";C$.$|
00001110: 19 AA 05 85 22 9F CE 45 57 20 D3 54 41 54 45 1C |...."..EW .TATE.|
00001120: 22 3B 53 24 00 38 19 B4 05 85 22 9F CE 45 57 20 |";S$.8...."..EW |
00001130: DA 49 50 1C 22 3B 5A 24 00 56 19 BE 05 85 22 9F |.IP.";Z$.V....".|
00001140: CE 45 57 20 D0 48 4F 4E 45 20 CE 55 4D 42 45 52 |.EW .HONE .UMBER|
00001150: 1C 22 3B 50 4E 24 00 67 19 C8 05 85 22 11 11 9F |.";PN$.g...."...|
00001160: CF CB 1C 22 3B 59 24 00 85 19 D2 05 8B 59 24 B3 |...";Y$......Y$.|
00001170: B1 22 59 22 AF 59 24 B3 B1 22 59 45 53 22 A7 99 |."Y".Y$.."YES"..|
00001180: 22 9F 22 3A 8E 00 92 19 DC 05 46 24 28 46 29 B2 |".":......F$(F).|
00001190: 46 24 00 A1 19 E6 05 4C 41 24 28 46 29 B2 4C 41 |F$.....LA$(F).LA|
000011A0: 24 00 B0 19 F0 05 53 41 24 28 46 29 B2 53 41 24 |$.....SA$(F).SA$|
000011B0: 00 BD 19 FA 05 43 24 28 46 29 B2 43 24 00 CA 19 |.....C$(F).C$...|
000011C0: 04 06 53 24 28 46 29 B2 53 24 00 D7 19 0E 06 5A |..S$(F).S$.....Z|
000011D0: 24 28 46 29 B2 5A 24 00 E6 19 18 06 50 4E 24 28 |$(F).Z$.....PN$(|
000011E0: 46 29 B2 50 4E 24 00 01 1A 22 06 99 22 9C C4 CF |F).PN$...".."...|
000011F0: CE C5 21 9F 22 3A 81 4C B2 31 A4 35 30 30 3A 82 |..!.":.L.1.500:.|
00001200: 4C 00 07 1A 2C 06 8E 00 2A 1A 36 06 8F 2A 2A 2A |L...,...*.6..***|
00001210: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001220: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 4D 1A 40 06 8F |**********.M.@..|
00001230: 2A 2A 2A 2A 2A 20 20 20 20 50 52 49 4E 54 49 4E |***** PRINTIN|
00001240: 47 20 20 20 20 20 20 2A 2A 2A 2A 2A 2A 00 70 1A |G ******.p.|
00001250: 4A 06 8F 2A 2A 2A 2A 2A 20 20 20 20 20 20 20 41 |J..***** A|
00001260: 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 2A 2A 2A | ******|
00001270: 00 93 1A 54 06 8F 2A 2A 2A 2A 2A 20 20 20 20 20 |...T..***** |
00001280: 52 45 43 4F 52 44 20 20 20 20 20 20 20 2A 2A 2A |RECORD ***|
00001290: 2A 2A 2A 00 B6 1A 5E 06 8F 2A 2A 2A 2A 2A 2A 2A |***...^..*******|
000012A0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000012B0: 2A 2A 2A 2A 2A 2A 00 CC 1A 68 06 99 22 93 11 11 |******...h.."...|
000012C0: 11 11 9F 31 2E 20 D3 43 52 45 45 4E 00 DE 1A 72 |...1. .CREEN...r|
000012D0: 06 99 22 11 32 2E 20 D0 52 49 4E 54 45 52 00 F2 |..".2. .RINTER..|
000012E0: 1A 7C 06 99 22 11 1C D9 4F 55 52 20 C3 48 4F 49 |.|.."...OUR .HOI|
000012F0: 43 45 00 06 1B 86 06 A1 47 24 3A 8B 47 24 B2 22 |CE......G$:.G$."|
00001300: 22 A7 31 36 37 30 00 1F 1B 90 06 47 B2 C5 28 47 |".1670.....G..(G|
00001310: 24 29 3A 91 47 8D 31 39 39 30 2C 32 32 37 30 00 |$):.G.1990,2270.|
00001320: 25 1B 9A 06 8E 00 48 1B A4 06 8F 2A 2A 2A 2A 2A |%.....H....*****|
00001330: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001340: 2A 2A 2A 2A 2A 2A 2A 2A 00 6B 1B AE 06 8F 2A 2A |********.k....**|
00001350: 2A 2A 2A 20 20 20 20 53 45 41 52 43 48 49 4E 47 |*** SEARCHING|
00001360: 20 20 20 20 20 2A 2A 2A 2A 2A 2A 00 8E 1B B8 06 | ******.....|
00001370: 8F 2A 2A 2A 2A 2A 20 20 20 20 20 46 4F 52 20 41 |.***** FOR A|
00001380: 20 20 20 20 20 20 20 20 2A 2A 2A 2A 2A 2A 00 B1 | ******..|
00001390: 1B C2 06 8F 2A 2A 2A 2A 2A 20 20 20 20 20 52 45 |....***** RE|
000013A0: 43 4F 52 44 20 20 20 20 20 20 20 2A 2A 2A 2A 2A |CORD *****|
000013B0: 2A 00 D4 1B CC 06 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |*......*********|
000013C0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000013D0: 2A 2A 2A 2A 00 DE 1B D6 06 8D 20 35 33 30 00 FF |****...... 530..|
000013E0: 1B E0 06 99 22 11 1C D0 D2 C5 D3 D3 A0 C1 CE D9 |...."...........|
000013F0: A0 CB C5 D9 A0 D4 CF A0 C7 CF A0 CF CE 9F 22 00 |..............".|
00001400: 13 1C EA 06 A1 47 24 3A 8B 47 24 B2 22 22 A7 31 |.....G$:.G$."".1|
00001410: 37 37 30 00 19 1C F4 06 8E 00 3C 1C FE 06 8F 2A |770.......<....*|
00001420: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001430: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 5F 1C 08 |************._..|
00001440: 07 8F 2A 2A 2A 2A 2A 20 20 20 20 57 52 49 54 49 |..***** WRITI|
00001450: 4E 47 20 20 20 20 20 20 20 2A 2A 2A 2A 2A 2A 00 |NG ******.|
00001460: 82 1C 12 07 8F 2A 2A 2A 2A 2A 20 20 20 20 20 20 |.....***** |
00001470: 20 41 20 20 20 20 20 20 20 20 20 20 2A 2A 2A 2A | A ****|
00001480: 2A 2A 00 A5 1C 1C 07 8F 2A 2A 2A 2A 2A 20 20 20 |**......***** |
00001490: 20 20 52 45 43 4F 52 44 20 20 20 20 20 20 20 2A | RECORD *|
000014A0: 2A 2A 2A 2A 2A 00 C8 1C 26 07 8F 2A 2A 2A 2A 2A |*****...&..*****|
000014B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000014C0: 2A 2A 2A 2A 2A 2A 2A 2A 00 ED 1C 30 07 85 22 93 |********...0..".|
000014D0: 11 9F CE 41 4D 45 20 4F 46 20 12 1C CF 55 54 50 |...AME OF ...UTP|
000014E0: 55 54 20 C6 49 4C 45 92 9F 22 3B 4E 24 00 08 1D |UT .ILE..";N$...|
000014F0: 3A 07 9F 31 2C 38 2C 32 2C 22 40 30 3A 22 AA 4E |:..1,8,2,"@0:".N|
00001500: 24 AA 22 2C 53 2C 57 22 00 15 1D 44 07 58 24 B2 |$.",S,W"...D.X$.|
00001510: C7 28 31 33 29 00 20 1D 4E 07 81 4A B2 31 A4 4E |.(13). .N..J.1.N|
00001520: 00 6A 1D 58 07 98 31 2C 46 24 28 4A 29 3B 58 24 |.j.X..1,F$(J);X$|
00001530: 3B 4C 41 24 28 4A 29 3B 58 24 3B 53 41 24 28 4A |;LA$(J);X$;SA$(J|
00001540: 29 3B 58 24 3B 43 24 28 4A 29 3B 58 24 3B 53 24 |);X$;C$(J);X$;S$|
00001550: 28 4A 29 3B 58 24 3B 5A 24 28 4A 29 3B 58 24 3B |(J);X$;Z$(J);X$;|
00001560: 50 4E 24 28 4A 29 3B 58 24 3B 00 71 1D 62 07 82 |PN$(J);X$;.q.b..|
00001570: 4A 00 78 1D 6C 07 A0 31 00 7E 1D 76 07 8E 00 A0 |J.x.l..1.~.v....|
00001580: 1D 80 07 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |....************|
00001590: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000015A0: 00 C2 1D 8A 07 8F 2A 2A 2A 2A 2A 2A 2A 20 20 20 |......******* |
000015B0: 20 45 4E 44 20 20 20 20 20 20 20 2A 2A 2A 2A 2A | END *****|
000015C0: 2A 2A 00 E4 1D 94 07 8F 2A 2A 2A 2A 2A 2A 2A 2A |**......********|
000015D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000015E0: 2A 2A 2A 2A 00 14 1E 9E 07 99 22 93 11 11 11 11 |****......".....|
000015F0: 90 54 48 45 20 41 44 44 52 45 53 53 20 42 4F 4F |.THE ADDRESS BOO|
00001600: 4B 20 49 53 20 46 49 4E 49 53 48 45 44 22 3A 89 |K IS FINISHED":.|
00001610: 32 36 35 30 00 37 1E A8 07 8F 2A 2A 2A 2A 2A 2A |2650.7....******|
00001620: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001630: 2A 2A 2A 2A 2A 2A 2A 00 5A 1E B2 07 8F 2A 2A 2A |*******.Z....***|
00001640: 2A 2A 20 50 52 49 4E 54 20 54 4F 20 53 43 52 45 |** PRINT TO SCRE|
00001650: 45 4E 20 2A 2A 2A 2A 2A 2A 2A 00 7D 1E BC 07 8F |EN *******.}....|
00001660: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001670: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 A5 1E |*************...|
00001680: C6 07 85 22 11 11 11 9F C4 4F 20 59 4F 55 20 57 |...".....O YOU W|
00001690: 41 4E 54 20 49 54 20 12 1C D3 4F 52 54 45 44 92 |ANT IT ...ORTED.|
000016A0: 9F 22 3B 59 24 00 C4 1E D0 07 8B 59 24 B2 22 59 |.";Y$......Y$."Y|
000016B0: 22 B0 59 24 B2 22 59 45 53 22 A7 42 B2 4E 3A 8D |".Y$."YES".B.N:.|
000016C0: 32 31 32 30 00 CC 1E D9 07 58 B2 30 00 E1 1E DA |2120.....X.0....|
000016D0: 07 58 B2 58 AA 31 3A 8B 58 B1 4E A7 58 B2 58 AB |.X.X.1:.X.N.X.X.|
000016E0: 4E 00 EC 1E DB 07 89 20 32 30 32 30 00 FF 1E DF |N...... 2020....|
000016F0: 07 58 B2 58 AB 31 3A 8B 58 B2 30 A7 58 B2 4E 00 |.X.X.1:.X.0.X.N.|
00001700: 09 1F E0 07 89 32 30 32 30 00 48 1F E4 07 99 22 |.....2020.H...."|
00001710: 93 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 9C |................|
00001720: C1 C4 C4 D2 C5 D3 D3 A0 C2 CF CF CB 9F 22 3A 99 |.............":.|
00001730: 22 11 11 11 11 11 22 3B 46 24 28 58 29 3B 22 20 |".....";F$(X);" |
00001740: 22 3B 4C 41 24 28 58 29 00 70 1F EE 07 99 53 41 |";LA$(X).p....SA|
00001750: 24 28 58 29 3A 99 43 24 28 58 29 2C 53 24 28 58 |$(X):.C$(X),S$(X|
00001760: 29 3A 99 2C 5A 24 28 58 29 2C 50 4E 24 28 58 29 |):.,Z$(X),PN$(X)|
00001770: 00 84 1F F8 07 99 22 91 91 91 91 91 91 91 1C 23 |......"........#|
00001780: 9F 22 3B 58 00 C9 1F 02 08 99 22 11 11 11 11 11 |.";X......".....|
00001790: 11 11 11 11 11 11 11 11 11 11 11 9C D0 D2 C5 D3 |................|
000017A0: D3 20 12 1C 2B 92 20 9F D4 CF A0 C7 CF A0 C6 CF |. ..+. .........|
000017B0: D2 D7 C1 D2 C4 2C 20 1C 12 2D 92 20 9F D4 CF A0 |....., ..-. ....|
000017C0: C7 CF A0 C2 C1 C3 CB 9F 22 00 F3 1F 03 08 99 22 |........"......"|
000017D0: 9C D0 D2 C5 D3 D3 20 12 1C 2A 92 20 9F D4 CF A0 |...... ..*. ....|
000017E0: C5 CE C4 20 D4 C8 C9 D3 A0 D2 CF D5 D4 C9 CE C5 |... ............|
000017F0: 2E 9F 22 00 16 20 0C 08 A1 47 24 3A 8B 47 24 B2 |..".. ...G$:.G$.|
00001800: 22 2B 22 B0 47 24 B2 22 2D 22 B0 47 24 B2 22 2A |"+".G$."-".G$."*|
00001810: 22 A7 32 30 37 30 00 21 20 11 08 89 20 32 30 36 |".2070.! ... 206|
00001820: 30 00 32 20 16 08 8B 47 24 B2 22 2B 22 A7 32 30 |0.2 ...G$."+".20|
00001830: 31 30 00 43 20 1B 08 8B 47 24 B2 22 2D 22 A7 32 |10.C ...G$."-".2|
00001840: 30 31 35 00 54 20 1C 08 8B 47 24 B2 22 2A 22 A7 |015.T ...G$."*".|
00001850: 32 30 38 30 00 5A 20 20 08 8E 00 7B 20 2A 08 8F |2080.Z ...{ *..|
00001860: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001870: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 9C 20 34 08 |***********.. 4.|
00001880: 8F 2A 2A 2A 2A 2A 2A 20 53 4F 52 54 49 4E 47 20 |.****** SORTING |
00001890: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 BD 20 3E | ***********.. >|
000018A0: 08 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |..**************|
000018B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 D0 20 |*************.. |
000018C0: 48 08 4D 24 B2 4C 41 24 28 31 29 3A 49 4D B2 31 |H.M$.LA$(1):IM.1|
000018D0: 00 DB 20 52 08 81 49 B2 32 A4 42 00 FA 20 5C 08 |.. R..I.2.B.. \.|
000018E0: 8B 4C 41 24 28 49 29 B1 B2 4D 24 A7 4D 24 B2 4C |.LA$(I)..M$.M$.L|
000018F0: 41 24 28 49 29 3A 49 4D B2 49 00 01 21 66 08 82 |A$(I):IM.I..!f..|
00001900: 49 00 2B 21 70 08 41 41 24 B2 4C 41 24 28 42 29 |I.+!p.AA$.LA$(B)|
00001910: 3A 4C 41 24 28 42 29 B2 4C 41 24 28 49 4D 29 3A |:LA$(B).LA$(IM):|
00001920: 4C 41 24 28 49 4D 29 B2 41 41 24 00 55 21 7A 08 |LA$(IM).AA$.U!z.|
00001930: 41 42 24 B2 53 41 24 28 42 29 3A 53 41 24 28 42 |AB$.SA$(B):SA$(B|
00001940: 29 B2 53 41 24 28 49 4D 29 3A 53 41 24 28 49 4D |).SA$(IM):SA$(IM|
00001950: 29 B2 41 42 24 00 7B 21 84 08 41 43 24 B2 46 24 |).AB$.{!..AC$.F$|
00001960: 28 42 29 3A 46 24 28 42 29 B2 46 24 28 49 4D 29 |(B):F$(B).F$(IM)|
00001970: 3A 46 24 28 49 4D 29 B2 41 43 24 00 A1 21 8E 08 |:F$(IM).AC$..!..|
00001980: 41 44 24 B2 43 24 28 42 29 3A 43 24 28 42 29 B2 |AD$.C$(B):C$(B).|
00001990: 43 24 28 49 4D 29 3A 43 24 28 49 4D 29 B2 41 44 |C$(IM):C$(IM).AD|
000019A0: 24 00 C7 21 98 08 41 45 24 B2 53 24 28 42 29 3A |$..!..AE$.S$(B):|
000019B0: 53 24 28 42 29 B2 53 24 28 49 4D 29 3A 53 24 28 |S$(B).S$(IM):S$(|
000019C0: 49 4D 29 B2 41 45 24 00 ED 21 A2 08 41 46 24 B2 |IM).AE$..!..AF$.|
000019D0: 5A 24 28 42 29 3A 5A 24 28 42 29 B2 5A 24 28 49 |Z$(B):Z$(B).Z$(I|
000019E0: 4D 29 3A 5A 24 28 49 4D 29 B2 41 46 24 00 27 22 |M):Z$(IM).AF$.'"|
000019F0: AC 08 41 47 24 B2 50 4E 24 28 42 29 3A 50 4E 24 |..AG$.PN$(B):PN$|
00001A00: 28 42 29 B2 50 4E 24 28 49 4D 29 3A 50 4E 24 28 |(B).PN$(IM):PN$(|
00001A10: 49 4D 29 B2 41 47 24 3A 42 B2 42 AB 31 3A 8B 42 |IM).AG$:B.B.1:.B|
00001A20: B1 31 A7 32 31 32 30 00 2D 22 B6 08 8E 00 4E 22 |.1.2120.-"....N"|
00001A30: C0 08 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |...*************|
00001A40: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 6F |**************.o|
00001A50: 22 CA 08 8F 2A 2A 2A 2A 20 50 52 49 4E 54 20 54 |"...**** PRINT T|
00001A60: 4F 20 50 52 49 4E 54 45 52 20 2A 2A 2A 2A 2A 00 |O PRINTER *****.|
00001A70: 90 22 D4 08 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |."...***********|
00001A80: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00001A90: 00 96 22 DE 08 8F 00 BD 22 E8 08 85 22 11 11 9C |.."....."..."...|
00001AA0: C4 4F 20 59 4F 55 20 57 41 4E 54 20 49 54 20 1C |.O YOU WANT IT .|
00001AB0: 12 D3 4F 52 54 45 44 92 9C 22 3B 59 24 00 D8 22 |..ORTED..";Y$.."|
00001AC0: F2 08 8B 59 24 B2 22 59 22 B0 59 24 B2 22 59 45 |...Y$."Y".Y$."YE|
00001AD0: 53 22 A7 8D 32 31 32 30 00 EB 22 FC 08 9F 38 2C |S"..2120.."...8,|
00001AE0: 34 3A 46 44 24 B2 C7 28 31 37 29 00 F1 22 06 09 |4:FD$..(17).."..|
00001AF0: 8F 00 F7 22 10 09 8F 00 FD 22 1A 09 8F 00 03 23 |...".....".....#|
00001B00: 24 09 8F 00 09 23 2E 09 8F 00 0F 23 38 09 8F 00 |$....#.....#8...|
00001B10: 1A 23 42 09 81 58 B2 31 A4 4E 00 35 23 4C 09 4C |.#B..X.1.N.5#L.L|
00001B20: 24 28 58 29 B2 46 24 28 58 29 AA 22 20 22 AA 4C |$(X).F$(X)." ".L|
00001B30: 41 24 28 58 29 00 42 23 56 09 98 38 2C 22 23 22 |A$(X).B#V..8,"#"|
00001B40: 3B 58 00 53 23 60 09 98 38 2C 46 44 24 3B 4C 24 |;X.S#`..8,FD$;L$|
00001B50: 28 58 29 00 59 23 6A 09 8F 00 6B 23 74 09 98 38 |(X).Y#j...k#t..8|
00001B60: 2C 46 44 24 3B 53 41 24 28 58 29 00 71 23 7E 09 |,FD$;SA$(X).q#~.|
00001B70: 8F 00 8C 23 88 09 4F 24 28 58 29 B2 43 24 28 58 |...#..O$(X).C$(X|
00001B80: 29 AA 22 2C 20 22 AA 53 24 28 58 29 00 A7 23 92 |).", ".S$(X)..#.|
00001B90: 09 98 38 2C 46 44 24 3B 4F 24 28 58 29 22 20 20 |..8,FD$;O$(X)" |
00001BA0: 22 3B 5A 24 28 58 29 00 AD 23 9C 09 8F 00 B3 23 |";Z$(X)..#.....#|
00001BB0: A6 09 8F 00 B9 23 B0 09 8F 00 CD 23 BA 09 98 38 |.....#.....#...8|
00001BC0: 2C 46 44 24 3B 2C 2C 50 4E 24 28 58 29 00 DA 23 |,FD$;,,PN$(X)..#|
00001BD0: BF 09 98 38 3A 98 38 3A 98 38 00 E1 23 C4 09 82 |...8:.8:.8..#...|
00001BE0: 58 00 EE 23 CE 09 98 38 3A 98 38 3A 98 38 00 F4 |X..#...8:.8:.8..|
00001BF0: 23 D8 09 8F 00 FB 23 E2 09 A0 38 00 01 24 EC 09 |#.....#...8..$..|
00001C00: 8E 00 2C 24 00 0A 99 22 93 11 D4 48 45 20 C1 44 |..,$..."...HE .D|
00001C10: 44 52 45 53 53 20 C2 4F 4F 4B 20 42 59 3A 20 CA |DRESS .OOK BY: .|
00001C20: 4F 45 20 D3 50 55 52 4C 4F 43 4B 22 00 46 24 0A |OE .PURLOCK".F$.|
00001C30: 0A 99 22 91 91 20 20 20 20 20 20 20 20 20 20 20 |..".. |
00001C40: 20 20 20 20 54 4D 00 90 24 14 0A 99 22 11 11 11 | TM..$..."...|
00001C50: D4 48 49 53 20 50 52 4F 47 52 41 4D 20 49 53 20 |.HIS PROGRAM IS |
00001C60: 54 4F 20 42 45 20 55 53 45 44 20 41 53 20 41 4E |TO BE USED AS AN|
00001C70: 20 41 44 44 52 45 53 53 42 4F 4F 4B 2E 20 C9 54 | ADDRESSBOOK. .T|
00001C80: 20 49 53 20 52 45 41 4C 49 54 49 56 4C 59 22 3B | IS REALITIVLY";|
00001C90: 00 D3 24 1E 0A 99 22 20 45 41 53 59 20 54 4F 20 |..$..." EASY TO |
00001CA0: 55 53 45 20 41 4E 44 20 20 49 54 20 49 53 20 53 |USE AND IT IS S|
00001CB0: 45 4C 46 20 45 58 50 4C 41 4E 41 54 4F 52 59 2E |ELF EXPLANATORY.|
00001CC0: 20 CA 55 53 54 20 44 4F 20 57 48 41 54 20 54 48 | .UST DO WHAT TH|
00001CD0: 45 22 3B 00 1B 25 28 0A 99 22 43 4F 4D 50 55 54 |E";..%(.."COMPUT|
00001CE0: 45 52 20 41 53 4B 53 20 46 4F 52 2E 20 C1 54 20 |ER ASKS FOR. .T |
00001CF0: 41 4E 59 20 54 49 4D 45 20 59 4F 55 20 57 41 4E |ANY TIME YOU WAN|
00001D00: 54 20 54 4F 20 53 54 4F 50 2C 20 4A 55 53 54 20 |T TO STOP, JUST |
00001D10: 50 52 45 53 53 20 54 48 45 22 3B 00 5D 25 32 0A |PRESS THE";.]%2.|
00001D20: 99 22 20 D2 55 4E 2D D3 54 4F 50 2F D2 45 53 54 |." .UN-.TOP/.EST|
00001D30: 4F 52 45 4B 45 59 53 20 41 54 20 54 48 45 20 53 |OREKEYS AT THE S|
00001D40: 41 4D 45 20 54 49 4D 45 2E 20 C9 54 27 53 20 49 |AME TIME. .T'S I|
00001D50: 4E 20 C3 C1 D0 C9 D4 C1 CC D3 2E 22 3B 00 AA 25 |N .........";..%|
00001D60: 37 0A 99 22 D0 4C 45 41 53 45 2C 20 49 46 20 59 |7..".LEASE, IF Y|
00001D70: 4F 55 20 41 52 45 20 47 4F 49 4E 47 20 54 4F 20 |OU ARE GOING TO |
00001D80: 55 53 45 20 54 48 45 20 20 20 20 20 C5 C4 C9 D4 |USE THE ....|
00001D90: 20 4D 4F 44 45 2C 20 4B 4E 4F 57 20 54 48 45 20 | MODE, KNOW THE |
00001DA0: 4E 41 4D 45 20 4F 46 20 22 3B 00 D0 25 39 0A 99 |NAME OF ";..%9..|
00001DB0: 22 54 48 45 20 46 49 4C 45 20 59 4F 55 41 52 45 |"THE FILE YOUARE|
00001DC0: 20 47 4F 49 4E 47 20 54 4F 20 45 44 49 54 2E 22 | GOING TO EDIT."|
00001DD0: 00 F3 25 3C 0A 99 22 11 11 D0 D2 C5 D3 D3 A0 C1 |..%<..".........|
00001DE0: CE D9 A0 CB C5 D9 A0 D4 CF A0 C3 CF CE D4 C9 CE |................|
00001DF0: D5 C5 22 00 08 26 46 0A A1 20 4B 24 3A 8B 4B 24 |.."..&F.. K$:.K$|
00001E00: B2 22 22 A7 32 36 33 30 00 0E 26 50 0A 8E 00 41 |."".2630..&P...A|
00001E10: 26 5A 0A 80 3A 99 C7 28 31 34 32 29 3A 97 35 33 |&Z..:..(142):.53|
00001E20: 32 38 30 2C 31 34 3A 97 35 33 32 38 31 2C 36 3A |280,14:.53281,6:|
00001E30: 97 36 34 36 2C 31 34 3A 9F 33 2C 34 3A 9D 33 3A |.646,14:.3,4:.3:|
00001E40: 9B 00 4D 26 5B 0A 98 33 3A A0 33 3A 80 00 00 00 |..M&[..3:.3:....|
..%.D.. THIS PROGRAM IS TO BE USED AS.J.
N.. AN ADDRESS BOOK. TO GET A COPY.L.X..
OF IT, CONTACT JOE SPURLOCK...... AT 58
9-0004. I WILL GIVE IT TO...... YOU FOR
$1. THANK YOU..A.... JOE SPURLOCK.Z. ..
COMPUTER SCIENCE I...... PERIOD 4......
JANUARY 10, 1985.........H..G(14).[.R..
F$=FIRST NAME, LA$=LAST NAME,SA$= STREET
ADDRESS, C$=CITY, S$=STATE......53280,0
:.53281,0:.646,4:. Z$=ZIP CODE, PN$=PHON
E NUMBER.W.... AA$,AB$,AC$,AD$,AE$,AF,AG
$,L$,O$ ARE SWITCHING VARIABLES.)....F$(
200),LA$(200),SA$(200),C$(200),S$(200),Z
$(200),PN$(200),AA$(200),AB$(200).K....A
C$(200),AD$(200),AE$(200),AF$(200),AG$(2
00),L$(200),O$(200)......***************
*****************......******* FIRST M
ENU ********......*******************
*************...".. 2560...,..".........
..........FIRST MENU..2.1.."............
...1. BUILD A FILE.R.6.."...........2. E
DIT A FILE.S.@.."..............YOUR CHOI
CE"...J..G$:.G$."".330...T.G.E(G$):.G.68
0,890...^.. 300.L.H..*******************
************...R..****** SECOND MENU **
*********...|..*************************
******.9...."................MASTER MENU
..\...."...............1. ADD A NAME.~..
.."...........2. DELETE A NAME. ...."...
........3. CHANGE A NAME.C....".........
..4. PRINT THE LIST......"...........5.
SEARCH FOR A NAME......"...........6. WR
ITE THE LIST TO DISK".D.B.."...........7
. GO BACK TO THE FIRST MENU".].G..".....
......8. END"...L.."............INPUT YO
UR CHOICE...V.. K$:.K$."".470.K...K.E(K$
):.K.1040,1220,1400,1640,1750,1840,300,1
950.U.... 390......*********************
*********......***** SEARCHING ROUTINE *
*****.A....*****************************
*.L...."........WHAT IS THE .LAST NAME."
;LA$......"......................SEARCHI
NG.".....E.0:.F.1.N...&..LA$..LA$(F).590
...0.."..";F$(F);" ";LA$(F):.SA$(F):.C$(
F);" ";S$(F):." ",Z$(F):.:..20)PN$(F).$
.:..".IS THIS THE RECORD";Y$.=.D..Y$."Y"
.Y$."YES".620.J.N..".": .F.H.X..".....RE
CORD NOT FOUND.".}.B..P.1.1000:.P:E.1...
L.....V..*******************************
.M....****** BUILD ********...
...****** A ********......
****** FILE ********.<....***
****************************.[....15,8,1
5:X$.G(13):.15,"I0"......".....WHAT IS T
HE ..FILENAME..";N$:.2,8,2,"0:".N$.",S,W
".R....15,E,E$,E1,E2:.E.."..........ERRO
R:",E$: 2: 15:.810...F.."..WHAT IS THE.:
."...P.."..FIRST NAME .";F$:...Z..".LAST
NAME .";LA$:.;....".STREET ADDRESS .";S
A$:.N....".CITY .";C$:.B....".STATE .";S
$:.Y....".ZIP CODE .";Z$:......".PHONE N
UMBER .";PN$:.J....2,F$;X$;LA$;X$;SA$;X$
;C$;X$;S$;X$;Z$;X$;PN$;X$;... . 2: 15:."
.FILE .";N$;". IS WRITTEN."...*.."..PRES
S ANY KEY TO CONTINUE".).4..G$:.G$."".82
0.2.>..300.V.H..************************
******.Z.R..****** READ ******
**...\..****** IN ********.B
.F..****** ROUTINE ********...P..
******************************...Z......
..".....ENTER THE ..FILENAME..";N$.$....
15,8,15,"I0".2....1,8,2,N$.E....15,E,E$,
E1,E2.....E.."...THERE IS NO FILE CALLE
D ";N$;".": 15: 1:. 810.....J.0.....J.J.
1.E....1,F$(J),LA$(J),SA$(J),C$(J),S$(J)
,Z$(J),PN$(J).U.... ST.0 .930.....N.J...
J. 1: 15:B.N.4.T.."...THERE ARE.";N;".RE
CORDS UNDER .";N$;"..":.P.1.1000:.P:D.1:
.390.X....******************************
.|....****** ADD ********. ..
..****** A ********.D....**
**** RECORD ********......******
************************......".........
......ADDING A NAME".#...."...ENTER THE.
:.".9...."FIRST NAME.";F$.P.$..".LAST NA
ME.";LA$.L....".STREET ADDRESS.";SA$.}.8
..".CITY.";C$...B..".STATE.";S$...L..".Z
IP CODE.";Z$...V..".PHONE NUMBER.";PN$.Z
.`..".IS THIS COCRECT.";Y$...J..Y$.."Y".
Y$.."YES".."..":. 1040...T.N.N.1.Q.~.F$(
N).F$:LA$(N).LA$:SA$(N).SA$:C$(N).C$:S$(
N).S$:Z$(N).Z$:PN$(N).PN$.W.....{....***
***************************......******
DELETE ********.C....******
A ********......****** RECOR
D ********......*******************
***********...D..530:.E...#.N.N.N.1...X.
.K.F.N.@...F$(K).F$(K.1).T...LA$(K).LA$(
K.1).H...SA$(K).SA$(K.1).Z...C$(K).C$(K.
1).....S$(K).S$(K.1).....Z$(K).Z$(K.1)..
...PN$(K).PN$(K.1)...(..K...2.."...RECOR
D DELETED.":.P.1.1000:.P...<.....F..****
*************************.,.P..******
CHANGE ******.O.Z..****** A
******.R.D..****** RECORD
******...N..************************
*****...X..530:.E........".NEW FIRST NAM
E.";F$.Y....".NEW LAST NAME.";LA$......"
.NEW STREET ADDRESS.";SA$... ..".NEW CIT
Y.";C$.$....".NEW STATE.";S$.8....".NEW
ZIP.";Z$.V....".NEW PHONE NUMBER.";PN$.G
.H.."...OK.";Y$...R..Y$.."Y".Y$.."YES"..
".":......F$(F).F$.....LA$(F).LA$.....SA
$(F).SA$.....C$(F).C$.J...S$(F).S$.W...Z
$(F).Z$.....PN$(F).PN$..."..".DONE!.":.L
.1.500:.L...,...*.6..*******************
**********.M.@..***** PRINTING *
*****.P.J..***** A ******
...T..***** RECORD ******...^.
.*****************************.L.H.."...
...1. SCREEN...R..".2. PRINTER...|.."..Y
OUR CHOICE......G$:.G$."".1670.....G.E(G
$):.G.1990,2270.%.....H....*************
****************.K....***** SEARCHING
******......***** FOR A
******...B..***** RECORD *****
*.T.L..*****************************...V
.. 530......"..PRESS ANY KEY TO GO ON.".
.....G$:.G$."".1770.......<....*********
********************._....***** WRITI
NG ******......***** A
******......***** RECORD *
*****.H.&..*****************************
...0.."...NAME OF ..OUTPUT FILE..";N$...
:..1,8,2,"@0:".N$.",S,W"...D.X$.G(13). .
N..J.1.N.J.X..1,F$(J);X$;LA$(J);X$;SA$(J
);X$;C$(J);X$;S$(J);X$;Z$(J);X$;PN$(J);X
$;.Q.B..J.X.L. 1.~.V... ....************
****************.B....******* END
*******......************************
****......"......THE ADDRESS BOOK IS FIN
ISHED":.2650.7....**********************
*******.Z....***** PRINT TO SCREEN *****
**.}....*****************************...
F.."....DO YOU WANT IT ..SORTED..";Y$.D.
P..Y$."Y".Y$."YES".B.N:.2120.L.Y.X.0...Z
.X.X.1:.X.N.X.X.N...... 2020.....X.X.1:.
X.0.X.N......2020.H...."................
ADDRESS BOOK.":.".....";F$(X);" ";LA$(X)
.P....SA$(X):.C$(X),S$(X):.,Z$(X),PN$(X)
......"........#.";X.I....".............
....PRESS ..+. .TO GO FORWARD, ..-. .TO
GO BACK."......".PRESS ..*. .TO END THIS
ROUTINE..".. ...G$:.G$."+".G$."-".G$."*
".2070.! ... 2060.2 ...G$."+".2010.C ...
G$."-".2015.T ...G$."*".2080.Z ...{ *..
***************************.. 4..******
SORTING ***********.. >..**************
*************.P H.M$.LA$(1):IM.1.. R..I.
2.B.. \..LA$(I)..M$.M$.LA$(I):IM.I..!F..
I.+!P.AA$.LA$(B):LA$(B).LA$(IM):LA$(IM).
AA$.U!Z.AB$.SA$(B):SA$(B).SA$(IM):SA$(IM
).AB$.{!..AC$.F$(B):F$(B).F$(IM):F$(IM).
AC$..!..AD$.C$(B):C$(B).C$(IM):C$(IM).AD
$.G!..AE$.S$(B):S$(B).S$(IM):S$(IM).AE$.
.!..AF$.Z$(B):Z$(B).Z$(IM):Z$(IM).AF$.'"
..AG$.PN$(B):PN$(B).PN$(IM):PN$(IM).AG$:
B.B.1:.B.1.2120.-"....N"...*************
**************.O"J..**** PRINT TO PRINTE
R *****.."T..***************************
.."....."..."...DO YOU WANT IT ..SORTED.
.";Y$.X"...Y$."Y".Y$."YES"..2120.."...8,
4:FD$.G(17)..".....".....".....#$....#..
...#8....#B..X.1.N.5#L.L$(X).F$(X)." ".L
A$(X).B#V..8,"#";X.S#`..8,FD$;L$(X).Y#J.
..K#T..8,FD$;SA$(X).Q#~....#..O$(X).C$(X
).", ".S$(X)..#...8,FD$;O$(X)" ";Z$(X).
.#.....#.....#....M#...8,FD$;,,PN$(X).Z#
...8:.8:.8..#D..X..#N..8:.8:.8..#X....#.
. 8..$....,$..."..THE ADDRESS BOOK BY: J
OE SPURLOCK".F$...".. TM..
$..."...THIS PROGRAM IS TO BE USED AS AN
ADDRESSBOOK. IT IS REALITIVLY";.S$..."
EASY TO USE AND IT IS SELF EXPLANATORY.
JUST DO WHAT THE";..%(.."COMPUTER ASKS
FOR. AT ANY TIME YOU WANT TO STOP, JUST
PRESS THE";.]%2.." RUN-STOP/RESTOREKEYS
AT THE SAME TIME. IT'S IN CAPITALS.";..%
7.."PLEASE, IF YOU ARE GOING TO USE THE
EDIT MODE, KNOW THE NAME OF ";.P%9..
"THE FILE YOUARE GOING TO EDIT."..%<..".
.PRESS ANY KEY TO CONTINUE"..&F.. K$:.K$
."".2630..&P...A&Z..:.G(142):.53280,14:.
53281,6:.646,14:.3,4:.3:..M&[..3: 3:....
> CLICK IMAGE PREVIEW FOR FULL MODAL