FAMILY TREE
FILE INFORMATION
FILENAME(S): FAMILY TREE
FILE TYPE(S): PRG
FILE SIZE: 17.8K
FIRST SEEN: 2025-11-30 21:23:03
APPEARS ON: 1 disk(s)
FILE HASH
457278b3129b0e19140424c998bb381dce2c15539dc2057b6c25ac526a238b70
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 HULP 60 2 | FAMILY TREE | PRG | DuncanTwain | 19 | 4 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 21 08 0A 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |..!.... ********|
00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000020: 2A 00 41 08 14 00 8F 20 2A 20 20 20 20 20 20 46 |*.A.... * F|
00000030: 41 4D 49 4C 59 20 54 52 45 45 20 20 20 20 20 20 |AMILY TREE |
00000040: 2A 00 61 08 1E 00 8F 20 2A 20 20 20 20 20 20 43 |*.a.... * C|
00000050: 52 45 41 54 45 44 20 42 59 20 20 20 20 20 20 20 |REATED BY |
00000060: 2A 00 81 08 28 00 8F 20 2A 20 47 4F 52 44 20 41 |*...(.. * GORD A|
00000070: 4E 44 20 52 49 43 4B 20 48 49 4C 4C 4D 41 4E 20 |ND RICK HILLMAN |
00000080: 2A 00 A1 08 32 00 8F 20 2A 20 20 47 45 4E 45 41 |*...2.. * GENEA|
00000090: 4C 4F 47 59 20 53 4F 46 54 57 41 52 45 20 20 20 |LOGY SOFTWARE |
000000A0: 2A 00 C1 08 3C 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |*...<.. ********|
000000B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000000C0: 2A 00 FB 08 72 01 86 41 24 28 36 36 34 29 2C 49 |*...r..A$(664),I|
000000D0: 24 28 36 36 34 29 2C 46 42 24 28 31 39 29 2C 43 |$(664),FB$(19),C|
000000E0: 42 24 28 31 30 2C 32 30 29 3A 46 44 B2 30 3A 46 |B$(10,20):FD.0:F|
000000F0: 58 B2 31 39 3A 55 24 B2 22 2C 22 00 3C 09 7C 01 |X.19:U$.",".<.|.|
00000100: 86 4E 28 36 33 29 2C 4E 24 28 36 33 29 2C 47 4E |.N(63),N$(63),GN|
00000110: 24 28 36 33 29 2C 42 24 28 31 35 29 2C 42 50 24 |$(63),B$(15),BP$|
00000120: 28 31 35 29 2C 4E 46 24 28 36 33 29 2C 4D 4E 24 |(15),NF$(63),MN$|
00000130: 28 36 33 29 2C 54 4E 24 28 32 30 29 00 61 09 86 |(63),TN$(20).a..|
00000140: 01 86 53 46 24 28 33 31 29 2C 47 46 24 28 33 31 |..SF$(31),GF$(31|
00000150: 29 2C 53 4D 24 28 33 31 29 2C 47 4D 24 28 33 31 |),SM$(31),GM$(31|
00000160: 29 00 79 09 90 01 97 35 33 32 38 30 2C 31 35 3A |).y....53280,15:|
00000170: 97 35 33 32 38 31 2C 31 35 00 97 09 9A 01 99 22 |.53281,15......"|
00000180: 93 11 11 05 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 |................|
00000190: C6 C6 C6 C6 C6 C6 22 00 BA 09 A4 01 99 22 12 1F |......"......"..|
000001A0: 20 20 52 45 4D 4F 56 45 20 50 52 4F 47 52 41 4D | REMOVE PROGRAM|
000001B0: 20 44 49 53 4B 20 20 20 20 22 00 DD 09 AE 01 99 | DISK "......|
000001C0: 22 12 1F 20 20 20 20 20 20 20 20 20 20 41 4E 44 |".. AND|
000001D0: 20 20 20 20 20 20 20 20 20 20 20 20 22 00 00 0A | "...|
000001E0: B8 01 99 22 12 1F 20 20 20 49 4E 53 45 52 54 20 |...".. INSERT |
000001F0: 44 41 54 41 20 44 49 53 4B 20 20 20 20 20 20 22 |DATA DISK "|
00000200: 00 1B 0A C2 01 99 22 05 C4 C4 C4 C4 C4 C4 C4 C4 |......".........|
00000210: C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 22 00 3D 0A CC 01 |..........".=...|
00000220: 99 22 90 48 41 56 45 20 59 4F 55 20 45 58 43 48 |.".HAVE YOU EXCH|
00000230: 41 4E 47 45 44 20 44 49 53 4B 53 3F 22 00 52 0A |ANGED DISKS?".R.|
00000240: D6 01 A1 41 24 3A 8B 41 24 B3 B1 22 59 22 A7 34 |...A$:.A$.."Y".4|
00000250: 37 30 00 70 0A E0 01 99 22 11 11 90 20 54 4F 20 |70.p...."... TO |
00000260: 53 54 41 52 54 20 50 52 45 53 53 20 27 53 27 22 |START PRESS 'S'"|
00000270: 00 85 0A EA 01 A1 50 24 3A 8B 50 24 B3 B1 22 53 |......P$:.P$.."S|
00000280: 22 A7 34 39 30 00 A2 0A FE 01 99 22 93 11 05 C6 |".490......"....|
00000290: C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 |................|
000002A0: C6 22 00 BE 0A 08 02 99 22 12 1F 20 53 45 54 54 |."......".. SETT|
000002B0: 49 4E 47 20 55 50 20 49 4E 44 45 58 20 22 00 D9 |ING UP INDEX "..|
000002C0: 0A 12 02 99 22 05 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 |...."...........|
000002D0: C4 C4 C4 C4 C4 C4 C4 C4 22 00 E2 0A 1C 02 99 22 |........"......"|
000002E0: 90 22 00 07 0B 26 02 99 22 11 49 53 20 54 48 49 |."...&..".IS THI|
000002F0: 53 20 44 49 53 4B 20 49 4E 44 45 58 45 44 3F 20 |S DISK INDEXED? |
00000300: 20 12 59 92 9D 22 3B 00 1A 0B 30 02 A1 4F 24 3A | .Y..";...0..O$:|
00000310: 8B 4F 24 B2 22 22 A7 35 36 30 00 2F 0B 3A 02 8B |.O$."".560./.:..|
00000320: C6 28 4F 24 29 B2 31 33 A7 4F 24 B2 22 59 22 00 |.(O$).13.O$."Y".|
00000330: 48 0B 44 02 8B 4F 24 B3 B1 22 59 22 AF 4F 24 B3 |H.D..O$.."Y".O$.|
00000340: B1 22 4E 22 A7 35 36 30 00 50 0B 4E 02 99 4F 24 |."N".560.P.N..O$|
00000350: 00 94 0B 58 02 99 22 11 54 48 45 20 4C 41 52 47 |...X..".THE LARG|
00000360: 45 53 54 20 46 49 4C 45 20 4E 55 4D 42 45 52 20 |EST FILE NUMBER |
00000370: 3F 20 20 20 20 20 20 20 9D 9D 9D 9D 9D 9D 22 3B |? ......";|
00000380: 3A 5A 4D B2 33 3A 8D 35 31 33 30 3A 4B B2 C5 28 |:ZM.3:.5130:K..(|
00000390: 5A 42 24 29 00 AF 0B 62 02 8B 4B B2 30 B0 4B B1 |ZB$)...b..K.0.K.|
000003A0: 36 36 34 A7 99 22 91 91 22 3B 3A 89 36 30 30 00 |664.."..";:.600.|
000003B0: BF 0B 6C 02 8B 4F 24 B2 22 59 22 A7 36 38 30 00 |..l..O$."Y".680.|
000003C0: D0 0B 76 02 8B 4F 24 B3 B1 22 4E 22 A7 35 35 30 |..v..O$.."N".550|
000003D0: 00 04 0C 80 02 99 22 91 20 20 57 41 49 54 20 20 |......". WAIT |
000003E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003F0: 20 20 20 20 20 20 20 20 20 20 20 20 22 3A 81 49 | ":.I|
00000400: B2 31 A4 4B 00 32 0C 8A 02 99 22 13 11 11 11 11 |.1.K.2....".....|
00000410: 11 11 11 11 1D 1D 1D 1D 1D 1D 22 49 3B 3A 49 24 |.........."I;:I$|
00000420: 28 49 29 B2 22 20 2F 22 3A 41 24 28 49 29 B2 22 |(I)." /":A$(I)."|
00000430: 2F 22 00 54 0C 94 02 99 22 20 22 49 24 28 49 29 |/".T...." "I$(I)|
00000440: 3B 22 20 22 3B 41 24 28 49 29 3B 22 20 20 20 20 |;" ";A$(I);" |
00000450: 20 22 3A 82 00 79 0C 9E 02 49 24 28 4B AA 31 29 | ":..y...I$(K.1)|
00000460: B2 22 45 4E 44 22 3A 41 24 28 4B AA 31 29 B2 22 |."END":A$(K.1)."|
00000470: 45 4E 44 22 3A 89 37 35 30 00 92 0C A8 02 9F 35 |END":.750......5|
00000480: 2C 38 2C 35 2C 22 30 3A 49 4E 44 45 58 2C 53 2C |,8,5,"0:INDEX,S,|
00000490: 52 22 00 BD 0C B2 02 81 49 B2 31 A4 4B 3A 84 35 |R"......I.1.K:.5|
000004A0: 2C 49 24 28 49 29 2C 41 24 28 49 29 3A 8B 49 24 |,I$(I),A$(I):.I$|
000004B0: 28 49 29 B2 22 45 4E 44 22 A7 37 34 31 00 05 0D |(I)."END".741...|
000004C0: D0 02 99 22 13 11 11 11 11 11 11 11 11 50 4C 45 |...".........PLE|
000004D0: 41 53 45 20 57 41 49 54 21 20 20 20 20 20 9D 9D |ASE WAIT! ..|
000004E0: 9D 9D 9D 22 49 3B 49 24 28 49 29 3B 22 20 22 3B |..."I;I$(I);" ";|
000004F0: 41 24 28 49 29 3B 22 20 20 20 20 20 20 20 20 20 |A$(I);" |
00000500: 20 20 20 20 22 00 0F 0D E4 02 82 49 3A A0 35 00 | "......I:.5.|
00000510: 31 0D E5 02 81 49 49 B2 49 A4 4B 3A 41 24 28 49 |1....II.I.K:A$(I|
00000520: 49 29 B2 22 2F 22 3A 49 24 28 49 49 29 B2 22 2F |I)."/":I$(II)."/|
00000530: 22 00 78 0D E6 02 99 22 13 11 11 11 11 11 11 11 |".x...."........|
00000540: 11 50 4C 45 41 53 45 20 57 41 49 54 21 20 20 20 |.PLEASE WAIT! |
00000550: 20 20 9D 9D 9D 9D 9D 22 49 49 3B 49 24 28 49 49 | ....."II;I$(II|
00000560: 29 3B 22 20 22 3B 41 24 28 49 49 29 3B 22 20 20 |);" ";A$(II);" |
00000570: 20 20 20 20 20 20 20 22 00 88 0D E7 02 82 49 49 | "......II|
00000580: 3A A0 35 3A 89 36 37 30 00 A7 0D EE 02 99 22 93 |:.5:.670......".|
00000590: 11 05 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 |................|
000005A0: C6 C6 C6 C6 C6 C6 22 00 C4 0D F8 02 99 22 12 1F |......"......"..|
000005B0: 20 20 20 20 20 20 20 4D 45 4E 55 20 20 20 20 20 | MENU |
000005C0: 20 20 20 22 00 E1 0D 02 03 99 22 05 C4 C4 C4 C4 | "......".....|
000005D0: C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 |................|
000005E0: 22 00 EA 0D 0C 03 99 22 90 22 00 12 0E 16 03 99 |"......"."......|
000005F0: 22 20 20 12 41 92 20 20 20 43 52 45 41 54 45 20 |" .A. CREATE |
00000600: 47 45 4E 45 41 4C 4F 47 49 43 41 4C 20 44 41 54 |GENEALOGICAL DAT|
00000610: 41 22 00 39 0E 20 03 99 22 11 20 20 12 42 92 20 |A".9. ..". .B. |
00000620: 20 20 45 44 49 54 20 47 45 4E 45 41 4C 4F 47 49 | EDIT GENEALOGI|
00000630: 43 41 4C 20 44 41 54 41 22 00 55 0E 2A 03 99 22 |CAL DATA".U.*.."|
00000640: 11 20 20 12 43 92 20 20 20 44 45 4C 45 54 45 20 |. .C. DELETE |
00000650: 44 41 54 41 22 00 7A 0E 34 03 99 22 11 20 20 12 |DATA".z.4..". .|
00000660: 44 92 20 20 20 53 45 41 52 43 48 20 46 4F 52 20 |D. SEARCH FOR |
00000670: 41 4E 43 45 53 54 4F 52 53 22 00 9D 0E 3E 03 99 |ANCESTORS"...>..|
00000680: 22 11 20 20 12 45 92 20 20 20 49 4E 44 45 58 20 |". .E. INDEX |
00000690: 4F 46 20 41 4E 43 45 53 54 4F 52 53 22 00 C3 0E |OF ANCESTORS"...|
000006A0: 48 03 99 22 11 20 20 12 46 92 20 20 20 50 45 44 |H..". .F. PED|
000006B0: 49 47 52 45 45 20 43 48 41 52 54 2D 53 43 52 45 |IGREE CHART-SCRE|
000006C0: 45 4E 22 00 EC 0E 52 03 99 22 11 20 20 12 47 92 |EN"...R..". .G.|
000006D0: 20 20 20 50 45 44 49 47 52 45 45 20 50 52 4F 47 | PEDIGREE PROG|
000006E0: 52 41 4D 2D 50 52 49 4E 54 45 52 22 00 01 0F 5C |RAM-PRINTER"...\|
000006F0: 03 99 22 11 20 20 12 51 92 20 20 20 51 55 49 54 |..". .Q. QUIT|
00000700: 22 00 20 0F 66 03 99 22 11 11 53 45 4C 45 43 54 |". .f.."..SELECT|
00000710: 20 41 20 4C 45 54 54 45 52 20 12 3F 92 9D 22 3B | A LETTER .?..";|
00000720: 00 33 0F 70 03 A1 41 24 3A 8B 41 24 B2 22 22 A7 |.3.p..A$:.A$."".|
00000730: 38 38 30 00 57 0F 7A 03 81 4F B2 31 A4 38 3A 8B |880.W.z..O.1.8:.|
00000740: 41 24 B3 B1 CA 28 22 41 42 43 44 45 46 47 51 22 |A$...("ABCDEFGQ"|
00000750: 2C 4F 2C 31 29 A7 82 00 69 0F 84 03 99 22 12 22 |,O,1)...i...."."|
00000760: 3B 41 24 3B 22 92 9D 22 3B 00 95 0F 8E 03 91 4F |;A$;"..";......O|
00000770: 89 39 35 30 2C 39 39 30 2C 31 30 30 30 2C 32 36 |.950,990,1000,26|
00000780: 33 30 2C 33 30 31 30 2C 33 32 39 30 2C 35 35 31 |30,3010,3290,551|
00000790: 30 2C 39 33 30 00 9E 0F 98 03 89 37 35 30 00 AC |0,930......750..|
000007A0: 0F A2 03 A0 31 35 3A A0 35 3A A0 32 00 D5 0F A7 |....15:.5:.2....|
000007B0: 03 99 22 93 11 11 11 52 45 54 55 52 4E 20 54 4F |.."....RETURN TO|
000007C0: 20 54 48 45 20 43 4F 56 45 52 3F 20 28 59 20 4F | THE COVER? (Y O|
000007D0: 52 20 4E 29 22 00 E8 0F A8 03 A1 5A 24 3A 8B 5A |R N)"......Z$:.Z|
000007E0: 24 B2 22 22 A7 39 33 36 00 F9 0F A9 03 8B 5A 24 |$."".936......Z$|
000007F0: B2 22 59 22 A7 38 35 30 30 00 FF 0F AA 03 80 00 |."Y".8500.......|
00000800: 0A 10 AC 03 89 20 20 37 35 30 00 2A 10 B6 03 8F |..... 750.*....|
00000810: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
00000820: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 4A 10 C0 03 8F |**********.J....|
00000830: 20 2A 20 20 20 43 52 45 41 54 45 20 45 44 49 54 | * CREATE EDIT|
00000840: 20 44 45 4C 45 54 45 20 20 2A 00 6A 10 CA 03 8F | DELETE *.j....|
00000850: 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | ***************|
00000860: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 86 10 D4 03 4C |**********.....L|
00000870: 42 24 B2 22 43 52 45 41 54 45 22 3A 4C 42 B2 30 |B$."CREATE":LB.0|
00000880: 3A 89 31 30 31 30 00 A0 10 DE 03 4C 42 24 B2 22 |:.1010.....LB$."|
00000890: 45 44 49 54 22 3A 4C 42 B2 31 3A 89 31 30 31 30 |EDIT":LB.1:.1010|
000008A0: 00 B6 10 E8 03 4C 42 24 B2 22 44 45 4C 45 54 45 |.....LB$."DELETE|
000008B0: 22 3A 4C 42 B2 32 00 F9 10 F2 03 81 5A 43 B2 31 |":LB.2......ZC.1|
000008C0: A4 31 39 3A 46 42 24 28 5A 43 29 B2 22 2E 22 3A |.19:FB$(ZC).".":|
000008D0: 82 3A 58 24 B2 22 2E 22 3A 46 24 B2 22 2E 22 3A |.:X$.".":F$.".":|
000008E0: 58 B2 30 3A 81 5A 43 B2 31 A4 31 30 3A 59 24 28 |X.0:.ZC.1.10:Y$(|
000008F0: 5A 43 29 B2 22 2E 22 3A 82 00 22 11 F7 03 81 5A |ZC).".":.."....Z|
00000900: 44 B2 31 A4 31 30 3A 81 5A 43 B2 31 A4 32 30 3A |D.1.10:.ZC.1.20:|
00000910: 43 42 24 28 5A 44 2C 5A 43 29 B2 22 2E 22 3A 82 |CB$(ZD,ZC).".":.|
00000920: 3A 82 00 6A 11 FC 03 81 5A 43 B2 31 A4 33 3A 4D |:..j....ZC.1.3:M|
00000930: 41 24 28 5A 43 29 B2 22 2E 22 3A 4D 42 24 28 5A |A$(ZC).".":MB$(Z|
00000940: 43 29 B2 22 2E 22 3A 4D 43 24 28 5A 43 29 B2 22 |C).".":MC$(ZC)."|
00000950: 2E 22 3A 4D 44 24 28 5A 43 29 B2 22 2E 22 3A 4D |.":MD$(ZC).".":M|
00000960: 45 24 28 5A 43 29 B2 22 2E 22 00 7D 11 06 04 59 |E$(ZC).".".}...Y|
00000970: 24 B2 22 2E 22 3A 59 B2 30 3A 82 5A 43 00 AA 11 |$.".":Y.0:.ZC...|
00000980: 10 04 54 54 24 B2 22 22 3A 99 22 93 20 20 20 20 |..TT$."":.". |
00000990: 20 12 1F 22 3B 4C 42 24 3B 22 20 47 45 4E 45 41 | ..";LB$;" GENEA|
000009A0: 4C 4F 47 59 20 46 49 4C 45 22 00 DD 11 1A 04 99 |LOGY FILE"......|
000009B0: 22 13 11 11 90 46 31 2D 4D 45 4E 55 20 20 46 33 |"....F1-MENU F3|
000009C0: 2D 48 45 4C 50 20 20 46 35 2D 53 41 56 45 20 20 |-HELP F5-SAVE |
000009D0: 46 37 2D 4E 45 58 54 20 50 41 47 45 22 00 02 12 |F7-NEXT PAGE"...|
000009E0: 24 04 44 4E 24 B2 22 13 11 11 11 11 11 11 11 11 |$.DN$.".........|
000009F0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000A00: 11 22 00 2B 12 2E 04 8B 4C 42 B2 31 A7 20 81 5A |.".+....LB.1. .Z|
00000A10: 43 B2 31 A4 31 31 3A 8D 31 33 33 30 3A 82 5A 43 |C.1.11:.1330:.ZC|
00000A20: 3A 4C 42 B2 30 3A 89 31 33 38 30 00 4F 12 38 04 |:LB.0:.1380.O.8.|
00000A30: 8B 4C 42 B2 32 A7 20 81 5A 43 B2 31 A4 31 31 3A |.LB.2. .ZC.1.11:|
00000A40: 8D 31 33 33 30 3A 82 5A 43 3A 89 31 33 38 30 00 |.1330:.ZC:.1380.|
00000A50: 59 12 42 04 89 31 33 31 30 00 91 12 4C 04 99 C8 |Y.B..1310...L...|
00000A60: 28 44 4E 24 2C 38 29 3B 22 4E 41 4D 45 20 20 3A |(DN$,8);"NAME :|
00000A70: 92 22 3B 3A 54 54 24 B2 46 42 24 28 31 29 AA 22 |.";:TT$.FB$(1)."|
00000A80: 2C 22 AA 46 42 24 28 32 29 3A 8D 31 32 34 30 3A |,".FB$(2):.1240:|
00000A90: 8E 00 B5 12 56 04 99 C8 28 44 4E 24 2C 37 29 3B |....V...(DN$,7);|
00000AA0: 22 4E 55 4D 42 45 52 3A 92 2E 2E 2E 9D 9D 9D 22 |"NUMBER:......."|
00000AB0: 3B 46 24 3A 8E 00 E0 12 60 04 99 C8 28 44 4E 24 |;F$:....`...(DN$|
00000AC0: 2C 31 30 29 3B 22 42 4F 52 4E 20 20 3A 92 22 3B |,10);"BORN :.";|
00000AD0: 42 4C 24 3B 42 57 24 3B 46 42 24 28 33 29 3A 8E |BL$;BW$;FB$(3):.|
00000AE0: 00 0B 13 6A 04 99 C8 28 44 4E 24 2C 31 31 29 3B |...j...(DN$,11);|
00000AF0: 22 42 50 4C 41 43 45 3A 92 22 3B 42 4C 24 3B 42 |"BPLACE:.";BL$;B|
00000B00: 57 24 3B 46 42 24 28 34 29 3A 8E 00 37 13 74 04 |W$;FB$(4):..7.t.|
00000B10: 99 C8 28 44 4E 24 2C 31 32 29 3B 22 44 49 45 44 |..(DN$,12);"DIED|
00000B20: 20 20 3A 92 22 3B 42 4C 24 3B 42 57 24 3B 46 42 | :.";BL$;BW$;FB|
00000B30: 24 28 31 36 29 3A 8E 00 61 13 7E 04 99 C8 28 44 |$(16):..a.~...(D|
00000B40: 4E 24 2C 31 33 29 3B 22 44 50 4C 41 43 45 3A 92 |N$,13);"DPLACE:.|
00000B50: 22 3B 42 4C 24 3B 42 57 24 3B 46 42 24 28 31 37 |";BL$;BW$;FB$(17|
00000B60: 29 00 84 13 88 04 99 22 11 20 20 20 20 20 20 20 |)......". |
00000B70: 20 20 20 20 20 20 20 20 20 20 20 46 41 54 48 45 | FATHE|
00000B80: 52 22 3A 8E 00 BD 13 92 04 99 C8 28 44 4E 24 2C |R":........(DN$,|
00000B90: 31 36 29 3B 22 4E 41 4D 45 20 20 3A 92 22 3B 3A |16);"NAME :.";:|
00000BA0: 54 54 24 B2 46 42 24 28 35 29 AA 22 2C 22 AA 46 |TT$.FB$(5).",".F|
00000BB0: 42 24 28 36 29 3A 8D 31 32 34 30 3A 8E 00 E4 13 |B$(6):.1240:....|
00000BC0: 9C 04 99 C8 28 44 4E 24 2C 31 38 29 3B 22 4E 55 |....(DN$,18);"NU|
00000BD0: 4D 42 45 52 3A 92 2E 2E 2E 9D 9D 9D 22 3B 46 42 |MBER:.......";FB|
00000BE0: 24 28 37 29 00 08 14 A6 04 99 3A 99 22 20 20 20 |$(7)......:." |
00000BF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4D | M|
00000C00: 4F 54 48 45 52 22 3A 8E 00 41 14 B0 04 99 C8 28 |OTHER":..A.....(|
00000C10: 44 4E 24 2C 32 31 29 3B 22 4E 41 4D 45 20 20 3A |DN$,21);"NAME :|
00000C20: 92 22 3B 3A 54 54 24 B2 46 42 24 28 38 29 AA 22 |.";:TT$.FB$(8)."|
00000C30: 2C 22 AA 46 42 24 28 39 29 3A 8D 31 32 34 30 3A |,".FB$(9):.1240:|
00000C40: 8E 00 6E 14 BA 04 99 C8 28 44 4E 24 2C 32 33 29 |..n.....(DN$,23)|
00000C50: 3B 22 4E 55 4D 42 45 52 3A 92 22 3B 22 2E 2E 2E |;"NUMBER:.";"...|
00000C60: 9D 9D 9D 22 3B 46 42 24 28 31 30 29 3A 8E 00 A8 |...";FB$(10):...|
00000C70: 14 C4 04 99 C8 28 44 4E 24 2C 32 35 29 3B 22 20 |.....(DN$,25);" |
00000C80: 4E 55 4D 42 45 52 20 4F 46 20 4D 41 52 52 49 41 |NUMBER OF MARRIA|
00000C90: 47 45 53 20 3A 20 92 22 3B 22 2E 2E 9D 9D 22 3B |GES : .";"....";|
00000CA0: 58 24 3B 22 13 22 3A 8E 00 CD 14 CE 04 8F 20 2A |X$;".":....... *|
00000CB0: 2A 2A 2A 2A 2A 20 44 49 53 50 4C 41 59 20 42 4C |***** DISPLAY BL|
00000CC0: 41 4E 4B 49 4E 47 20 53 55 42 52 54 4E 00 F9 14 |ANKING SUBRTN...|
00000CD0: D8 04 42 4C 24 B2 22 2E 2E 2E 2E 2E 2E 2E 2E 2E |..BL$.".........|
00000CE0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000CF0: 2E 2E 2E 2E 2E 2E 2E 2E 22 00 39 15 E2 04 42 57 |........".9...BW|
00000D00: 24 B2 22 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |$.".............|
00000D10: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |................|
00000D20: 9D 9D 9D 9D 22 3A 99 42 4C 24 3B 22 20 20 20 20 |....":.BL$;" |
00000D30: 20 20 20 22 3B 42 4C 24 3B 00 51 15 EC 04 99 42 | ";BL$;.Q....B|
00000D40: 57 24 3B 22 9D 9D 9D 9D 9D 9D 9D 22 3B 42 57 24 |W$;".......";BW$|
00000D50: 3B 00 6B 15 F6 04 8B C3 28 54 54 24 29 B3 33 34 |;.k.....(TT$).34|
00000D60: A7 99 54 54 24 3A 89 31 32 39 30 00 98 15 00 05 |..TT$:.1290.....|
00000D70: 99 C8 28 54 54 24 2C 33 33 29 3B 22 20 20 20 20 |..(TT$,33);" |
00000D80: 20 20 20 22 3B CA 28 54 54 24 2C 33 34 2C C3 28 | ";.(TT$,34,.(|
00000D90: 54 54 24 29 AB 33 33 29 00 A5 15 0A 05 54 54 24 |TT$).33).....TT$|
00000DA0: B2 22 22 3A 8E 00 C2 15 14 05 8F 2A 2A 2A 2A 2A |."":.......*****|
00000DB0: 2A 2A 20 44 49 53 50 4C 41 59 20 52 45 46 52 45 |** DISPLAY REFRE|
00000DC0: 53 48 00 EA 15 1E 05 81 5A 43 B2 31 A4 31 31 3A |SH......ZC.1.11:|
00000DD0: 8D 31 33 33 30 3A 82 5A 43 3A 5A 43 B2 31 3A 99 |.1330:.ZC:ZC.1:.|
00000DE0: 22 12 22 3B 3A 8D 31 33 33 30 00 F4 15 28 05 89 |".";:.1330...(..|
00000DF0: 31 36 36 30 00 35 16 32 05 91 5A 43 20 8D 20 31 |1660.5.2..ZC . 1|
00000E00: 31 31 30 2C 31 31 30 30 2C 31 31 32 30 2C 31 31 |110,1100,1120,11|
00000E10: 33 30 2C 31 31 34 30 2C 31 31 35 30 2C 31 31 37 |30,1140,1150,117|
00000E20: 30 2C 31 31 38 30 2C 31 32 30 30 2C 31 32 31 30 |0,1180,1200,1210|
00000E30: 2C 31 32 32 30 00 3B 16 3C 05 8E 00 5E 16 46 05 |,1220.;.<...^.F.|
00000E40: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 20 42 4C 41 4E |. ********* BLAN|
00000E50: 4B 20 43 4F 4D 4D 41 4E 44 20 4C 49 4E 45 00 A9 |K COMMAND LINE..|
00000E60: 16 50 05 99 22 13 11 11 11 11 20 20 20 20 20 20 |.P.."..... |
00000E70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000E80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000E90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000EA0: 20 20 20 20 20 20 20 22 3B 00 C0 16 5A 05 99 22 | ";...Z.."|
00000EB0: 20 20 20 20 20 22 3A 99 22 91 91 3E 22 3B 3A 8E | ":."..>";:.|
00000EC0: 00 D6 16 64 05 8D 31 34 35 30 3A 8B 5A 42 24 B2 |...d..1450:.ZB$.|
00000ED0: 22 22 A7 37 35 30 00 E6 16 6E 05 8B 4C 42 B3 B1 |"".750...n..LB..|
00000EE0: 32 A7 31 33 30 30 00 03 17 78 05 81 5A 43 B2 31 |2.1300...x..ZC.1|
00000EF0: A4 31 31 3A 8D 31 33 33 30 3A 82 5A 43 3A 8D 31 |.11:.1330:.ZC:.1|
00000F00: 33 36 30 00 38 17 82 05 99 22 12 44 45 4C 45 54 |360.8....".DELET|
00000F10: 45 2D 41 52 45 20 59 4F 55 20 53 55 52 45 3F 20 |E-ARE YOU SURE? |
00000F20: 28 59 45 53 20 4F 52 20 4E 4F 29 22 3B 3A 5A 4D |(YES OR NO)";:ZM|
00000F30: B2 33 3A 8D 35 31 33 30 00 51 17 8C 05 8B 5A 42 |.3:.5130.Q....ZB|
00000F40: 24 B2 22 22 B0 5A 42 24 B2 22 4E 4F 22 A7 37 35 |$."".ZB$."NO".75|
00000F50: 30 00 89 17 96 05 8B 5A 42 24 B3 B1 22 59 45 53 |0......ZB$.."YES|
00000F60: 22 A7 8D 31 33 36 30 3A 99 22 59 45 53 20 4F 52 |"..1360:."YES OR|
00000F70: 20 4E 4F 22 3A 81 5A 43 B2 31 A4 32 30 30 30 3A | NO":.ZC.1.2000:|
00000F80: 82 5A 43 3A 89 31 34 30 30 00 B2 17 9B 05 81 5A |.ZC:.1400......Z|
00000F90: 44 B2 31 A4 31 30 3A 81 5A 43 B2 31 A4 32 30 3A |D.1.10:.ZC.1.20:|
00000FA0: 43 42 24 28 5A 44 2C 5A 43 29 B2 22 2E 22 3A 82 |CB$(ZD,ZC).".":.|
00000FB0: 3A 82 00 E9 17 A0 05 81 5A 43 B2 31 A4 31 39 3A |:.......ZC.1.19:|
00000FC0: 46 42 24 28 5A 43 29 B2 22 2E 22 3A 82 5A 43 3A |FB$(ZC).".":.ZC:|
00000FD0: 58 B2 30 3A 59 B2 30 3A 8D 33 39 37 30 3A 8D 32 |X.0:Y.0:.3970:.2|
00000FE0: 35 38 30 3A 89 31 30 30 30 00 1B 18 AA 05 8D 31 |580:.1000......1|
00000FF0: 33 36 30 3A 99 22 9D 45 4E 54 45 52 20 4E 41 4D |360:.".ENTER NAM|
00001000: 45 20 4F 52 20 4E 55 4D 42 45 52 20 3E 22 3B 3A |E OR NUMBER >";:|
00001010: 5A 4D B2 36 30 3A 8D 35 31 33 30 00 30 18 B4 05 |ZM.60:.5130.0...|
00001020: 8B 20 5A 42 24 B2 22 22 A7 8D 32 35 38 31 3A 8E |. ZB$.""..2581:.|
00001030: 00 44 18 BE 05 8B 20 C5 28 5A 42 24 29 B1 4B A7 |.D.... .(ZB$).K.|
00001040: 31 34 35 30 00 5D 18 C8 05 8B 53 49 B2 31 AF C5 |1450.]....SI.1..|
00001050: 28 5A 42 24 29 B3 B1 30 A7 31 36 34 30 00 78 18 |(ZB$)..0.1640.x.|
00001060: CD 05 8B C9 28 5A 42 24 2C 33 29 B2 22 41 4C 4C |....(ZB$,3)."ALL|
00001070: 22 A7 20 89 37 30 30 30 00 AB 18 D2 05 8B 20 C5 |". .7000...... .|
00001080: 28 5A 42 24 29 B3 B1 30 A7 46 B2 C5 28 5A 42 24 |(ZB$)..0.F..(ZB$|
00001090: 29 3A 8D 33 37 37 30 3A 46 24 B2 C4 28 46 29 3A |):.3770:F$..(F):|
000010A0: 8D 31 33 36 30 3A 89 31 35 32 35 00 D4 18 DC 05 |.1360:.1525.....|
000010B0: 81 5A 43 B2 31 A4 C3 28 5A 42 24 29 3A 8B 20 CA |.ZC.1..(ZB$):. .|
000010C0: 28 5A 42 24 2C 5A 43 2C 31 29 B2 22 2E 22 A7 20 |(ZB$,ZC,1).".". |
000010D0: 31 35 33 30 00 13 19 E6 05 82 5A 43 3A 8D 31 33 |1530......ZC:.13|
000010E0: 36 30 3A 99 22 9D 20 45 4E 54 45 52 20 4C 49 4B |60:.". ENTER LIK|
000010F0: 45 20 54 48 49 53 3A 20 12 4C 41 53 54 4E 41 4D |E THIS: .LASTNAM|
00001100: 45 92 20 2C 20 12 47 49 56 45 4E 20 4E 41 4D 45 |E. , .GIVEN NAME|
00001110: 53 92 22 00 2C 19 F0 05 81 5A 43 B2 31 A4 32 30 |S.".,....ZC.1.20|
00001120: 30 30 3A 82 5A 43 3A 89 31 34 35 30 00 43 19 F5 |00:.ZC:.1450.C..|
00001130: 05 46 24 B2 C9 28 46 24 2C C3 28 46 24 29 AB 31 |.F$..(F$,.(F$).1|
00001140: 29 3A 8E 00 6C 19 FA 05 54 4B 24 B2 C8 28 5A 42 |):..l...TK$..(ZB|
00001150: 24 2C 5A 43 AB 31 29 3A 54 4A 24 B2 C9 28 5A 42 |$,ZC.1):TJ$..(ZB|
00001160: 24 2C C3 28 5A 42 24 29 AB 5A 43 29 00 92 19 04 |$,.(ZB$).ZC)....|
00001170: 06 8B C8 28 54 4A 24 2C 31 29 B2 22 20 22 A7 54 |...(TJ$,1)." ".T|
00001180: 4A 24 B2 C9 28 54 4A 24 2C C3 28 54 4A 24 29 AB |J$..(TJ$,.(TJ$).|
00001190: 31 29 00 CC 19 0E 06 43 5A B2 30 3A 81 5A 43 B2 |1).....CZ.0:.ZC.|
000011A0: 31 A4 4B 3A 8B 41 24 28 5A 43 29 B2 54 4A 24 AF |1.K:.A$(ZC).TJ$.|
000011B0: 49 24 28 5A 43 29 B2 54 4B 24 A7 43 5A B2 43 5A |I$(ZC).TK$.CZ.CZ|
000011C0: AA 31 3A 43 59 28 43 5A 29 B2 5A 43 00 D4 19 18 |.1:CY(CZ).ZC....|
000011D0: 06 82 5A 43 00 0B 1A 22 06 8B 43 5A B2 30 A7 8D |..ZC..."..CZ.0..|
000011E0: 31 33 35 30 3A 99 22 9D 12 54 48 41 54 20 50 45 |1350:."..THAT PE|
000011F0: 52 53 4F 4E 20 49 53 20 4E 4F 54 20 4F 4E 20 46 |RSON IS NOT ON F|
00001200: 49 4C 45 2E 22 3A 89 31 35 32 30 00 28 1A 2C 06 |ILE.":.1520.(.,.|
00001210: 8B 53 49 B2 31 A7 5A 42 24 B2 C4 28 43 59 28 31 |.SI.1.ZB$..(CY(1|
00001220: 29 29 3A 89 31 36 34 30 00 55 1A 36 06 8B 43 5A |)):.1640.U.6..CZ|
00001230: B2 31 A7 20 46 B2 43 59 28 31 29 3A 8D 33 37 37 |.1. F.CY(1):.377|
00001240: 30 3A 46 24 B2 C4 28 46 29 3A 8D 31 33 36 30 3A |0:F$..(F):.1360:|
00001250: 89 31 35 32 35 00 90 1A 40 06 8D 31 33 36 30 3A |.1525...@..1360:|
00001260: 99 22 54 48 45 52 45 20 41 52 45 22 3B 43 5A 3B |."THERE ARE";CZ;|
00001270: 22 9D 2E 20 54 48 45 49 52 20 23 3A 22 3B 3A 81 |".. THEIR #:";:.|
00001280: 5A 43 B2 31 A4 43 5A 3A 99 43 59 28 5A 43 29 3B |ZC.1.CZ:.CY(ZC);|
00001290: 00 9A 1A 4A 06 82 5A 43 3A 99 00 B0 1A 54 06 A1 |...J..ZC:....T..|
000012A0: 5A 43 24 3A 8B 5A 43 24 B2 22 22 A7 31 36 32 30 |ZC$:.ZC$."".1620|
000012B0: 00 BA 1A 5E 06 89 31 34 35 30 00 FA 1A 68 06 53 |...^..1450...h.S|
000012C0: 49 B2 30 3A 43 42 24 28 4E 46 2C 5A 47 29 B2 5A |I.0:CB$(NF,ZG).Z|
000012D0: 42 24 3A 54 4E 24 28 5A 47 29 B2 C8 28 41 24 28 |B$:TN$(ZG)..(A$(|
000012E0: C5 28 5A 42 24 29 29 AA 22 2C 22 AA 49 24 28 C5 |.(ZB$)).",".I$(.|
000012F0: 28 5A 42 24 29 29 2C 33 33 29 00 06 1B 72 06 8D |(ZB$)),33)...r..|
00001300: 31 33 36 30 3A 8E 00 1C 1B 7C 06 A1 5A 43 24 3A |1360:....|..ZC$:|
00001310: 8B 5A 43 24 B2 22 22 A7 31 36 36 30 00 26 1B 86 |.ZC$."".1660.&..|
00001320: 06 8D 31 33 33 30 00 47 1B 90 06 8B 5A 43 24 B2 |..1330.G....ZC$.|
00001330: 22 11 22 A7 5A 43 B2 5A 43 AA 31 3A 8B 5A 43 B2 |".".ZC.ZC.1:.ZC.|
00001340: 31 32 A7 5A 43 B2 31 00 68 1B 9A 06 8B 5A 43 24 |12.ZC.1.h....ZC$|
00001350: B2 22 91 22 A7 5A 43 B2 5A 43 AB 31 3A 8B 5A 43 |.".".ZC.ZC.1:.ZC|
00001360: B2 30 A7 5A 43 B2 31 31 00 78 1B A4 06 99 22 12 |.0.ZC.11.x....".|
00001370: 22 3B 3A 8D 31 33 33 30 00 90 1B AE 06 8B 5A 43 |";:.1330......ZC|
00001380: 24 B2 22 85 22 A7 8D 32 35 38 31 3A 89 37 35 30 |$."."..2581:.750|
00001390: 00 AA 1B B8 06 8B 5A 43 24 B2 22 86 22 A7 20 8D |......ZC$.".". .|
000013A0: 35 33 31 30 3A 89 31 30 34 30 00 BD 1B C2 06 8B |5310:.1040......|
000013B0: 5A 43 24 B2 22 88 22 A7 20 31 38 39 30 00 CF 1B |ZC$.".". 1890...|
000013C0: CC 06 8B 5A 43 24 B2 22 87 22 A7 32 35 35 30 00 |...ZC$.".".2550.|
000013D0: E5 1B D6 06 8B 20 C6 28 5A 43 24 29 B2 31 33 20 |..... .(ZC$).13 |
000013E0: A7 31 37 37 30 00 EF 1B E0 06 89 31 36 36 30 00 |.1770......1660.|
000013F0: 0E 1C EA 06 8D 31 33 36 30 3A 8B 5A 43 B2 32 B0 |.....1360:.ZC.2.|
00001400: 5A 43 B2 37 B0 5A 43 B2 39 A7 31 38 33 30 00 43 |ZC.7.ZC.9.1830.C|
00001410: 1C F4 06 8B 5A 43 B2 31 A7 5A 4D B2 33 3A 8D 35 |....ZC.1.ZM.3:.5|
00001420: 31 33 30 3A 52 24 B2 46 24 3A 8D 31 38 38 31 3A |130:R$.F$:.1881:|
00001430: 46 B2 C5 28 52 24 29 3A 46 24 B2 52 24 3A 89 31 |F..(R$):F$.R$:.1|
00001440: 38 38 30 00 79 1C FE 06 8B 5A 43 B2 31 31 A7 5A |880.y....ZC.11.Z|
00001450: 4D B2 32 3A 8D 35 31 33 30 3A 52 24 B2 58 24 3A |M.2:.5130:R$.X$:|
00001460: 8D 31 38 38 31 3A 58 B2 C5 28 52 24 29 3A 58 24 |.1881:X..(R$):X$|
00001470: B2 52 24 3A 89 31 38 32 35 00 A6 1C 08 07 5A 44 |.R$:.1825.....ZD|
00001480: B2 C5 28 CA 28 22 30 30 30 30 30 33 30 34 31 36 |..(.("0000030416|
00001490: 31 37 30 30 30 37 30 30 31 30 22 2C 5A 43 AC 32 |1700070010",ZC.2|
000014A0: AB 31 2C 32 29 29 00 E3 1C 12 07 8B 5A 43 B1 32 |.1,2))......ZC.2|
000014B0: AF 5A 43 B3 37 A7 5A 4D B2 33 33 3A 8D 35 31 33 |.ZC.7.ZM.33:.513|
000014C0: 30 3A 52 24 B2 46 42 24 28 5A 44 29 3A 8D 31 38 |0:R$.FB$(ZD):.18|
000014D0: 38 31 3A 46 42 24 28 5A 44 29 B2 52 24 3A 89 31 |81:FB$(ZD).R$:.1|
000014E0: 38 38 30 00 14 1D 1C 07 5A 4D B2 33 3A 8D 35 31 |880.....ZM.3:.51|
000014F0: 33 30 3A 52 24 B2 46 42 24 28 5A 44 29 3A 8D 31 |30:R$.FB$(ZD):.1|
00001500: 38 38 31 3A 46 42 24 28 5A 44 29 B2 52 24 3A 89 |881:FB$(ZD).R$:.|
00001510: 31 38 38 30 00 29 1D 21 07 8D 31 33 33 30 3A 5A |1880.).!..1330:Z|
00001520: 43 B2 30 3A 89 31 38 38 30 00 56 1D 26 07 99 22 |C.0:.1880.V.&.."|
00001530: 9D 53 55 52 4E 41 4D 45 20 3E 22 3B 3A 5A 4D B2 |.SURNAME >";:ZM.|
00001540: 36 36 3A 8D 35 31 33 30 3A 53 53 24 B2 5A 42 24 |66:.5130:SS$.ZB$|
00001550: 3A 8D 31 33 36 30 00 8E 1D 30 07 99 22 9D 47 49 |:.1360...0..".GI|
00001560: 56 45 4E 20 4E 41 4D 45 53 20 3E 22 3B 3A 5A 4D |VEN NAMES >";:ZM|
00001570: B2 36 36 AB C3 28 53 53 24 29 3A 8D 35 31 33 30 |.66..(SS$):.5130|
00001580: 3A 53 47 24 B2 5A 42 24 3A 8D 31 33 36 30 00 A6 |:SG$.ZB$:.1360..|
00001590: 1D 35 07 8B 53 53 24 B2 22 22 B0 53 47 24 B2 22 |.5..SS$."".SG$."|
000015A0: 22 A7 31 38 38 30 00 C6 1D 3A 07 8B 5A 43 B2 32 |".1880...:..ZC.2|
000015B0: A7 46 42 24 28 31 29 B2 53 53 24 3A 46 42 24 28 |.FB$(1).SS$:FB$(|
000015C0: 32 29 B2 53 47 24 00 E6 1D 44 07 8B 5A 43 B2 37 |2).SG$...D..ZC.7|
000015D0: A7 46 42 24 28 35 29 B2 53 53 24 3A 46 42 24 28 |.FB$(5).SS$:FB$(|
000015E0: 36 29 B2 53 47 24 00 06 1E 4E 07 8B 5A 43 B2 39 |6).SG$...N..ZC.9|
000015F0: A7 46 42 24 28 38 29 B2 53 53 24 3A 46 42 24 28 |.FB$(8).SS$:FB$(|
00001600: 39 29 B2 53 47 24 00 2A 1E 58 07 8D 31 33 36 30 |9).SG$.*.X..1360|
00001610: 3A 8D 31 33 33 30 3A 5A 43 B2 5A 43 AA 31 3A 99 |:.1330:ZC.ZC.1:.|
00001620: 22 12 22 3B 3A 89 31 36 37 30 00 38 1E 59 07 8B |".";:.1670.8.Y..|
00001630: 5A 42 24 B2 22 22 A7 8E 00 45 1E 5A 07 52 24 B2 |ZB$.""...E.Z.R$.|
00001640: 5A 42 24 3A 8E 00 58 1E 62 07 8B C5 28 58 24 29 |ZB$:..X.b...(X$)|
00001650: B2 30 A7 20 32 34 31 30 00 66 1E 6C 07 4E 46 B2 |.0. 2410.f.l.NF.|
00001660: 30 3A 5A 43 B2 30 00 81 1E 76 07 4E 46 B2 4E 46 |0:ZC.0...v.NF.NF|
00001670: AA 31 3A 8B 4E 46 B1 C5 28 58 24 29 A7 32 34 31 |.1:.NF..(X$).241|
00001680: 30 00 A4 1E 80 07 59 B2 C5 28 59 24 28 4E 46 29 |0.....Y..(Y$(NF)|
00001690: 29 3A 8B 59 B3 31 31 A7 55 B2 59 3A 50 B2 31 34 |):.Y.11.U.Y:P.14|
000016A0: 3A 47 B2 30 00 BC 1E 8A 07 8B 59 B1 31 30 A7 55 |:G.0......Y.10.U|
000016B0: B2 31 30 3A 50 B2 31 34 3A 47 B2 30 00 FF 1E 94 |.10:P.14:G.0....|
000016C0: 07 99 22 93 20 20 20 12 1F 46 41 4D 49 4C 59 20 |..". ..FAMILY |
000016D0: 23 22 3B 4E 46 3B 22 9D 20 4F 46 20 22 3B C8 28 |#";NF;". OF ";.(|
000016E0: 46 42 24 28 32 29 2C 31 31 29 3B 22 20 22 3B C8 |FB$(2),11);" ";.|
000016F0: 28 46 42 24 28 31 29 2C 31 31 29 3B 22 90 22 00 |(FB$(1),11);".".|
00001700: 2F 1F 9E 07 99 22 11 46 31 2D 4D 45 4E 55 20 20 |/....".F1-MENU |
00001710: 46 33 2D 48 45 4C 50 20 20 46 35 2D 53 41 56 45 |F3-HELP F5-SAVE|
00001720: 20 20 46 37 2D 4E 45 58 54 20 50 41 47 45 22 00 | F7-NEXT PAGE".|
00001730: 53 1F A8 07 99 22 11 11 11 20 20 20 20 20 20 20 |S...."... |
00001740: 20 20 20 20 20 20 20 20 20 20 20 20 53 50 4F 55 | SPOU|
00001750: 53 45 22 00 5E 1F B2 07 89 20 32 31 31 30 00 87 |SE".^.... 2110..|
00001760: 1F BC 07 99 C8 28 44 4E 24 2C 38 29 3B 22 4E 55 |.....(DN$,8);"NU|
00001770: 4D 42 45 52 3A 92 2E 2E 2E 9D 9D 9D 22 3B 4D 43 |MBER:.......";MC|
00001780: 24 28 4E 46 29 3A 8E 00 C1 1F C6 07 99 C8 28 44 |$(NF):........(D|
00001790: 4E 24 2C 39 29 3B 22 4E 41 4D 45 20 20 3A 92 22 |N$,9);"NAME :."|
000017A0: 3B 3A 54 54 24 B2 4D 41 24 28 4E 46 29 AA 22 2C |;:TT$.MA$(NF).",|
000017B0: 22 AA 4D 42 24 28 4E 46 29 3A 8D 31 32 34 30 3A |".MB$(NF):.1240:|
000017C0: 8E 00 ED 1F D0 07 99 C8 28 44 4E 24 2C 31 31 29 |........(DN$,11)|
000017D0: 3B 22 4D 44 41 54 45 20 3A 92 22 3B 42 4C 24 3B |;"MDATE :.";BL$;|
000017E0: 42 57 24 3B 4D 44 24 28 4E 46 29 3A 8E 00 19 20 |BW$;MD$(NF):... |
000017F0: DA 07 99 C8 28 44 4E 24 2C 31 32 29 3B 22 4D 50 |....(DN$,12);"MP|
00001800: 4C 41 43 45 3A 92 22 3B 42 4C 24 3B 42 57 24 3B |LACE:.";BL$;BW$;|
00001810: 4D 45 24 28 4E 46 29 3A 8E 00 51 20 E4 07 99 C8 |ME$(NF):..Q ....|
00001820: 28 44 4E 24 2C 31 33 29 3B 22 23 20 4F 46 20 43 |(DN$,13);"# OF C|
00001830: 48 49 4C 44 52 45 4E 3A 92 2E 2E 9D 9D 22 3B 59 |HILDREN:.....";Y|
00001840: 24 28 4E 46 29 3A 59 B2 C5 28 59 24 28 4E 46 29 |$(NF):Y..(Y$(NF)|
00001850: 29 00 5C 20 EE 07 8B 59 B2 30 A7 8E 00 7E 20 F8 |).\ ...Y.0...~ .|
00001860: 07 99 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |.." |
00001870: 20 20 20 20 20 43 48 49 4C 44 52 45 4E 22 00 B7 | CHILDREN"..|
00001880: 20 02 08 8B 59 B1 31 30 A7 99 C8 28 44 4E 24 2C | ...Y.10...(DN$,|
00001890: 32 35 29 3B 22 20 20 12 20 46 4F 52 20 4D 4F 52 |25);" . FOR MOR|
000018A0: 45 20 43 48 49 4C 44 52 45 4E 20 50 52 45 53 53 |E CHILDREN PRESS|
000018B0: 20 46 38 20 92 13 22 00 BD 20 0C 08 8E 00 F8 20 | F8 ..".. ..... |
000018C0: 16 08 99 C8 28 44 4E 24 2C 50 AA 5A 47 29 3B C4 |....(DN$,P.ZG);.|
000018D0: 28 5A 47 29 3B 22 3A 92 22 3B 43 42 24 28 4E 46 |(ZG);":.";CB$(NF|
000018E0: 2C 5A 47 29 3B A3 36 29 3B 42 4C 24 3B 42 57 24 |,ZG);.6);BL$;BW$|
000018F0: 3B 54 4E 24 28 5A 47 29 00 FE 20 20 08 8E 00 1A |;TN$(ZG).. ....|
00001900: 21 2A 08 8B 5A 43 B1 35 A7 5A 47 B2 5A 43 AB 35 |!*..ZC.5.ZG.ZC.5|
00001910: AA 47 3A 8D 32 30 37 30 3A 8E 00 3F 21 34 08 91 |.G:.2070:..?!4..|
00001920: 20 5A 43 20 8D 31 39 38 30 2C 31 39 39 30 2C 32 | ZC .1980,1990,2|
00001930: 30 30 30 2C 32 30 31 30 2C 32 30 32 30 3A 8E 00 |000,2010,2020:..|
00001940: 60 21 3E 08 81 5A 43 B2 31 A4 35 3A 8D 32 30 39 |`!>..ZC.1.5:.209|
00001950: 30 3A 82 5A 43 3A 8B 59 B2 30 A7 20 32 31 34 30 |0:.ZC:.Y.0. 2140|
00001960: 00 70 21 48 08 81 5A 47 B2 47 AA 31 A4 55 AA 47 |.p!H..ZG.G.1.U.G|
00001970: 00 AA 21 4D 08 54 4E 24 28 5A 47 29 B2 C8 28 41 |..!M.TN$(ZG)..(A|
00001980: 24 28 C5 28 43 42 24 28 4E 46 2C 5A 47 29 29 29 |$(.(CB$(NF,ZG)))|
00001990: AA 22 20 22 AA 49 24 28 C5 28 43 42 24 28 4E 46 |." ".I$(.(CB$(NF|
000019A0: 2C 5A 47 29 29 29 2C 33 33 29 00 B6 21 52 08 8D |,ZG))),33)..!R..|
000019B0: 32 30 37 30 3A 82 00 CB 21 5C 08 5A 43 B2 31 3A |2070:...!\.ZC.1:|
000019C0: 99 22 12 22 3B 3A 8D 31 39 38 30 00 E1 21 66 08 |.".";:.1980..!f.|
000019D0: A1 5A 43 24 3A 8B 5A 43 24 B2 22 22 A7 32 31 35 |.ZC$:.ZC$."".215|
000019E0: 30 00 EC 21 70 08 8D 20 32 30 39 30 00 0E 22 7A |0..!p.. 2090.."z|
000019F0: 08 8B 5A 43 24 B2 22 11 22 A7 5A 43 B2 5A 43 AA |..ZC$.".".ZC.ZC.|
00001A00: 31 3A 8B 5A 43 B1 35 AA 55 A7 5A 43 B2 31 00 30 |1:.ZC.5.U.ZC.1.0|
00001A10: 22 84 08 8B 5A 43 24 B2 22 91 22 A7 5A 43 B2 5A |"...ZC$.".".ZC.Z|
00001A20: 43 AB 31 3A 8B 5A 43 B2 30 A7 5A 43 B2 35 AA 55 |C.1:.ZC.0.ZC.5.U|
00001A30: 00 40 22 8E 08 99 22 12 22 3B 3A 8D 32 30 39 30 |.@"...".";:.2090|
00001A40: 00 59 22 98 08 8B 5A 43 24 B2 22 85 22 A7 20 8D |.Y"...ZC$.".". .|
00001A50: 32 35 38 31 3A 89 37 35 30 00 74 22 A2 08 8B 5A |2581:.750.t"...Z|
00001A60: 43 24 B2 22 86 22 A7 20 8D 35 33 31 30 3A 89 20 |C$.".". .5310:. |
00001A70: 31 39 34 30 00 87 22 AC 08 8B 5A 43 24 B2 22 88 |1940.."...ZC$.".|
00001A80: 22 A7 20 31 39 31 30 00 9A 22 B6 08 8B 5A 43 24 |". 1910.."...ZC$|
00001A90: B2 22 87 22 A7 20 32 35 35 30 00 B1 22 C0 08 8B |.".". 2550.."...|
00001AA0: 5A 43 24 B2 22 8C 22 AF 59 B1 31 30 A7 32 32 37 |ZC$.".".Y.10.227|
00001AB0: 30 00 C6 22 CA 08 8B C6 28 5A 43 24 29 B2 31 33 |0.."....(ZC$).13|
00001AC0: A7 20 32 33 30 30 00 D0 22 D4 08 89 32 31 35 30 |. 2300.."...2150|
00001AD0: 00 EE 22 DE 08 8B 47 B2 31 30 A7 47 B2 30 3A 50 |.."...G.10.G.0:P|
00001AE0: B2 31 34 3A 55 B2 31 30 3A 89 31 39 34 30 00 0D |.14:U.10:.1940..|
00001AF0: 23 E8 08 8B 47 B2 30 A7 47 B2 31 30 3A 50 B2 34 |#...G.0.G.10:P.4|
00001B00: 3A 55 B2 59 AB 31 30 3A 89 31 39 34 30 00 13 23 |:U.Y.10:.1940..#|
00001B10: F2 08 80 00 2A 23 FC 08 8D 20 31 33 35 30 3A 8B |....*#... 1350:.|
00001B20: 5A 43 B1 35 A7 20 32 33 39 30 00 4C 23 06 09 91 |ZC.5. 2390.L#...|
00001B30: 5A 43 89 20 32 33 34 30 2C 32 33 32 30 2C 32 33 |ZC. 2340,2320,23|
00001B40: 35 30 2C 32 33 36 30 2C 32 33 38 30 00 87 23 10 |50,2360,2380..#.|
00001B50: 09 99 22 9D 53 55 52 4E 41 4D 45 20 3E 22 3B 3A |..".SURNAME >";:|
00001B60: 5A 4D B2 36 36 3A 8D 35 31 33 30 3A 52 24 B2 4D |ZM.66:.5130:R$.M|
00001B70: 41 24 28 4E 46 29 3A 8D 31 38 38 31 3A 4D 41 24 |A$(NF):.1881:MA$|
00001B80: 28 4E 46 29 B2 52 24 00 91 23 15 09 8D 31 33 36 |(NF).R$..#...136|
00001B90: 30 00 CA 23 1A 09 99 22 9D 47 49 56 45 4E 20 4E |0..#...".GIVEN N|
00001BA0: 41 4D 45 53 20 3E 22 3B 3A 5A 4D B2 36 36 AB C3 |AMES >";:ZM.66..|
00001BB0: 28 4D 41 24 28 4E 46 29 29 3A 8D 35 31 33 30 3A |(MA$(NF)):.5130:|
00001BC0: 52 24 B2 4D 42 24 28 4E 46 29 00 E5 23 1F 09 8D |R$.MB$(NF)..#...|
00001BD0: 31 38 38 31 3A 4D 42 24 28 4E 46 29 B2 52 24 3A |1881:MB$(NF).R$:|
00001BE0: 89 32 33 37 30 00 16 24 24 09 5A 4D B2 33 3A 8D |.2370..$$.ZM.3:.|
00001BF0: 35 31 33 30 3A 52 24 B2 4D 43 24 28 4E 46 29 3A |5130:R$.MC$(NF):|
00001C00: 8D 31 38 38 31 3A 4D 43 24 28 4E 46 29 B2 52 24 |.1881:MC$(NF).R$|
00001C10: 3A 89 32 33 37 30 00 48 24 2E 09 5A 4D B2 33 33 |:.2370.H$..ZM.33|
00001C20: 3A 8D 35 31 33 30 3A 52 24 B2 4D 44 24 28 4E 46 |:.5130:R$.MD$(NF|
00001C30: 29 3A 8D 31 38 38 31 3A 4D 44 24 28 4E 46 29 B2 |):.1881:MD$(NF).|
00001C40: 52 24 3A 89 32 33 37 30 00 74 24 38 09 5A 4D B2 |R$:.2370.t$8.ZM.|
00001C50: 33 33 3A 8D 35 31 33 30 3A 52 24 B2 4D 45 24 28 |33:.5130:R$.ME$(|
00001C60: 4E 46 29 3A 8D 31 38 38 31 3A 4D 45 24 28 4E 46 |NF):.1881:ME$(NF|
00001C70: 29 B2 52 24 00 98 24 42 09 8D 31 33 36 30 3A 8D |).R$..$B..1360:.|
00001C80: 32 31 30 30 3A 5A 43 B2 5A 43 AA 31 3A 99 22 12 |2100:ZC.ZC.1:.".|
00001C90: 22 3B 3A 89 32 31 36 30 00 D8 24 4C 09 5A 4D B2 |";:.2160..$L.ZM.|
00001CA0: 32 3A 8D 35 31 33 30 3A 52 24 B2 59 24 28 4E 46 |2:.5130:R$.Y$(NF|
00001CB0: 29 3A 8D 31 38 38 31 3A 59 24 28 4E 46 29 B2 52 |):.1881:Y$(NF).R|
00001CC0: 24 3A 59 B2 C5 28 59 24 28 4E 46 29 29 3A 5A 43 |$:Y..(Y$(NF)):ZC|
00001CD0: B2 31 3A 89 31 39 32 30 00 04 25 56 09 5A 47 B2 |.1:.1920..%V.ZG.|
00001CE0: 5A 43 AB 35 AA 47 3A 53 49 B2 31 3A 8D 31 34 35 |ZC.5.G:SI.1:.145|
00001CF0: 30 3A 8D 32 30 39 30 3A 8B 5A 43 B3 35 AA 55 A7 |0:.2090:.ZC.5.U.|
00001D00: 32 33 37 30 00 13 25 60 09 5A 43 B2 30 3A 89 32 |2370..%`.ZC.0:.2|
00001D10: 33 37 30 00 4F 25 6A 09 99 22 93 20 20 20 20 1F |370.O%j..". .|
00001D20: 12 43 4F 4D 4D 45 4E 54 53 20 3A 20 22 3B C8 28 |.COMMENTS : ";.(|
00001D30: 46 42 24 28 32 29 2C 31 31 29 3B 22 20 22 3B C8 |FB$(2),11);" ";.|
00001D40: 28 46 42 24 28 31 29 2C 31 31 29 3B 22 90 22 00 |(FB$(1),11);".".|
00001D50: 74 25 74 09 4D 54 B2 30 3A 81 5A 54 B2 31 A4 31 |t%t.MT.0:.ZT.1.1|
00001D60: 30 3A 4D 54 B2 4D 54 AA C3 28 46 42 24 28 5A 54 |0:MT.MT..(FB$(ZT|
00001D70: 29 29 3A 82 00 94 25 75 09 4D 54 B2 4D 54 AA C3 |)):...%u.MT.MT..|
00001D80: 28 46 42 24 28 31 36 29 AA 46 42 24 28 31 37 29 |(FB$(16).FB$(17)|
00001D90: 29 AA 31 35 00 A3 25 76 09 8B 58 B2 30 A7 20 32 |).15..%v..X.0. 2|
00001DA0: 34 33 30 00 E6 25 77 09 81 5A 54 B2 31 A4 58 3A |430..%w..ZT.1.X:|
00001DB0: 4D 54 B2 4D 54 AA C3 28 4D 41 24 28 5A 54 29 AA |MT.MT..(MA$(ZT).|
00001DC0: 4D 42 24 28 5A 54 29 AA 4D 43 24 28 5A 54 29 AA |MB$(ZT).MC$(ZT).|
00001DD0: 4D 44 24 28 5A 54 29 AA 4D 45 24 28 5A 54 29 29 |MD$(ZT).ME$(ZT))|
00001DE0: AA 35 AA 58 AC 33 00 FE 25 78 09 4D 54 B2 4D 54 |.5.X.3..%x.MT.MT|
00001DF0: AA 34 AC C5 28 59 24 28 5A 54 29 29 3A 82 00 18 |.4..(Y$(ZT)):...|
00001E00: 26 7E 09 4D 54 B2 32 35 36 AB 4D 54 3A 8B 4D 54 |&~.MT.256.MT:.MT|
00001E10: B3 31 A7 20 32 35 32 30 00 4C 26 88 09 99 22 13 |.1. 2520.L&...".|
00001E20: 11 11 54 48 45 52 45 20 41 52 45 22 3B 4D 54 3B |..THERE ARE";MT;|
00001E30: 22 20 53 50 41 43 45 53 20 4C 45 46 54 20 46 4F |" SPACES LEFT FO|
00001E40: 52 20 43 4F 4D 4D 45 4E 54 53 2E 22 00 6E 26 92 |R COMMENTS.".n&.|
00001E50: 09 99 22 13 11 11 11 11 11 11 11 22 3B 3A 81 5A |.."........";:.Z|
00001E60: 54 B2 31 A4 4D 54 3A 99 22 2E 22 3B 3A 82 00 86 |T.1.MT:.".";:...|
00001E70: 26 9C 09 99 22 13 11 11 11 11 11 11 11 22 3B 46 |&..."........";F|
00001E80: 42 24 28 31 39 29 00 B8 26 A6 09 8D 31 33 36 30 |B$(19)..&...1360|
00001E90: 3A 99 22 41 44 44 20 43 4F 4D 4D 45 4E 54 53 3F |:."ADD COMMENTS?|
00001EA0: 20 28 59 20 4F 52 20 4E 29 20 3E 22 3B 3A 5A 4D | (Y OR N) >";:ZM|
00001EB0: B2 32 3A 8D 35 31 33 30 00 D9 26 B0 09 8B 5A 42 |.2:.5130..&...ZB|
00001EC0: 24 B2 22 4E 22 B0 5A 42 24 B2 22 22 B0 5A 42 24 |$."N".ZB$."".ZB$|
00001ED0: B2 22 88 22 A7 31 30 34 30 00 FB 26 BA 09 99 22 |.".".1040..&..."|
00001EE0: 13 11 11 11 11 11 11 11 22 3B 3A 81 5A 54 B2 31 |........";:.ZT.1|
00001EF0: A4 4D 54 3A 99 22 2E 22 3B 3A 82 00 0E 27 C4 09 |.MT:.".";:...'..|
00001F00: 8B 5A 42 24 B3 B1 22 59 22 A7 32 34 37 30 00 3D |.ZB$.."Y".2470.=|
00001F10: 27 CE 09 5A 4D B2 4D 54 3A 99 22 13 11 11 11 11 |'..ZM.MT:.".....|
00001F20: 11 11 11 22 3B 3A 8D 35 31 33 30 3A 46 42 24 28 |...";:.5130:FB$(|
00001F30: 31 39 29 B2 5A 42 24 3A 89 32 34 34 30 00 70 27 |19).ZB$:.2440.p'|
00001F40: D8 09 8D 31 33 36 30 3A 99 22 12 59 4F 55 20 48 |...1360:.".YOU H|
00001F50: 41 56 45 20 4E 4F 20 53 50 41 43 45 20 4C 45 46 |AVE NO SPACE LEF|
00001F60: 54 20 46 4F 52 20 43 4F 4D 4D 45 4E 54 53 2E 22 |T FOR COMMENTS."|
00001F70: 00 86 27 E2 09 A1 5A 43 24 3A 8B 5A 43 24 B2 22 |..'...ZC$:.ZC$."|
00001F80: 22 A7 32 35 33 30 00 90 27 EC 09 89 31 30 34 30 |".2530..'...1040|
00001F90: 00 C8 27 F6 09 8D 31 33 36 30 3A 99 22 53 41 56 |..'...1360:."SAV|
00001FA0: 45 2D 12 41 52 45 20 59 4F 55 20 53 55 52 45 92 |E-.ARE YOU SURE.|
00001FB0: 20 28 59 20 4F 52 20 4E 29 20 3E 22 3B 3A 5A 4D | (Y OR N) >";:ZM|
00001FC0: B2 31 3A 8D 35 31 33 30 00 DB 27 00 0A 8B 5A 42 |.1:.5130..'...ZB|
00001FD0: 24 B3 B1 22 59 22 A7 31 30 34 30 00 F0 27 0A 0A |$.."Y".1040..'..|
00001FE0: 8D 33 39 37 30 3A 8D 32 35 38 30 3A 89 39 39 30 |.3970:.2580:.990|
00001FF0: 00 10 28 14 0A 49 24 28 46 29 B2 46 42 24 28 31 |..(..I$(F).FB$(1|
00002000: 29 3A 41 24 28 46 29 B2 46 42 24 28 32 29 3A 8E |):A$(F).FB$(2):.|
00002010: 00 1C 28 15 0A 8B 46 4C B2 30 A7 8E 00 28 28 16 |..(...FL.0...((.|
00002020: 0A 8D 32 35 38 35 3A 8E 00 47 28 19 0A 46 4C B2 |..2585:..G(..FL.|
00002030: 30 3A 9F 35 2C 38 2C 35 2C 22 40 30 3A 49 4E 44 |0:.5,8,5,"@0:IND|
00002040: 45 58 2C 53 2C 57 22 00 54 28 1E 0A 81 49 B2 31 |EX,S,W".T(...I.1|
00002050: A4 4B AA 31 00 74 28 28 0A 98 35 2C 49 24 28 49 |.K.1.t((..5,I$(I|
00002060: 29 3B C7 28 31 33 29 3B 41 24 28 49 29 3B C7 28 |);.(13);A$(I);.(|
00002070: 31 33 29 3B 00 7D 28 32 0A 82 3A A0 35 00 83 28 |13);.}(2..:.5..(|
00002080: 3C 0A 8E 00 A1 28 46 0A 8F 20 2A 2A 2A 2A 2A 2A |<....(F.. ******|
00002090: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000020A0: 2A 00 BF 28 50 0A 8F 20 2A 20 20 46 49 4C 45 20 |*..(P.. * FILE |
000020B0: 53 45 41 52 43 48 20 20 20 20 20 20 20 20 2A 00 |SEARCH *.|
000020C0: DD 28 5A 0A 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.(Z.. **********|
000020D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 FB 28 |*************..(|
000020E0: 64 0A 99 22 93 05 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 |d.."............|
000020F0: C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 22 00 19 29 6E 0A |.........."..)n.|
00002100: 99 22 12 1F 20 20 20 20 50 52 49 4E 54 20 41 4E |.".. PRINT AN|
00002110: 43 45 53 54 4F 52 53 20 22 00 37 29 78 0A 99 22 |CESTORS ".7)x.."|
00002120: 05 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 |................|
00002130: C4 C4 C4 C4 C4 90 22 00 5D 29 82 0A 99 22 13 11 |......".])..."..|
00002140: 11 11 11 11 11 11 11 20 20 48 49 54 20 52 45 54 |....... HIT RET|
00002150: 55 52 4E 20 46 4F 52 20 4D 45 4E 55 22 00 74 29 |URN FOR MENU".t)|
00002160: 8C 0A 8D 31 34 35 30 3A 8B 5A 42 24 B2 22 22 A7 |...1450:.ZB$."".|
00002170: 20 37 35 30 00 84 29 96 0A 8D 32 37 32 30 3A 89 | 750..)...2720:.|
00002180: 32 37 36 30 00 B2 29 A0 0A 8D 31 33 36 30 3A 99 |2760..)...1360:.|
00002190: 22 9D 53 43 52 45 45 4E 20 4F 52 20 50 52 49 4E |".SCREEN OR PRIN|
000021A0: 54 45 52 20 3F 20 28 53 20 4F 52 20 50 29 20 3E |TER ? (S OR P) >|
000021B0: 22 3B 00 C8 29 AA 0A A1 59 59 24 3A 8B 59 59 24 |";..)...YY$:.YY$|
000021C0: B2 22 22 A7 32 37 33 30 00 E4 29 B4 0A 8B 59 59 |."".2730..)...YY|
000021D0: 24 B3 B1 22 53 22 AF 59 59 24 B3 B1 22 50 22 A7 |$.."S".YY$.."P".|
000021E0: 32 37 33 30 00 EF 29 BE 0A 99 59 59 24 3A 8E 00 |2730..)...YY$:..|
000021F0: F9 29 C8 0A 8D 33 37 37 30 00 0B 2A D2 0A 8B 59 |.)...3770..*...Y|
00002200: 59 24 B2 22 50 22 A7 34 36 36 30 00 43 2A DC 0A |Y$."P".4660.C*..|
00002210: 99 22 4E 41 4D 45 20 20 20 20 20 20 20 20 20 20 |."NAME |
00002220: 20 20 20 3A 22 3B 46 42 24 28 31 29 3B 22 2C 22 | :";FB$(1);","|
00002230: 3B 46 42 24 28 32 29 3B 22 20 28 23 22 3B 46 3B |;FB$(2);" (#";F;|
00002240: 22 29 22 00 64 2A E6 0A 99 22 42 49 52 54 48 44 |")".d*..."BIRTHD|
00002250: 41 54 45 20 20 20 20 20 20 20 20 3A 22 3B 46 42 |ATE :";FB|
00002260: 24 28 33 29 00 85 2A F0 0A 99 22 42 49 52 54 48 |$(3)..*..."BIRTH|
00002270: 50 4C 41 43 45 20 20 20 20 20 20 20 3A 22 3B 46 |PLACE :";F|
00002280: 42 24 28 34 29 00 C2 2A FA 0A 99 22 46 41 54 48 |B$(4)..*..."FATH|
00002290: 45 52 27 53 20 4E 41 4D 45 20 20 20 20 3A 22 3B |ER'S NAME :";|
000022A0: 46 42 24 28 35 29 3B 22 2C 22 3B 46 42 24 28 36 |FB$(5);",";FB$(6|
000022B0: 29 3B 22 20 28 23 22 3B 46 42 24 28 37 29 3B 22 |);" (#";FB$(7);"|
000022C0: 29 22 00 00 2B 04 0B 99 22 4D 4F 54 48 45 52 27 |)"..+..."MOTHER'|
000022D0: 53 20 4E 41 4D 45 20 20 20 20 3A 22 3B 46 42 24 |S NAME :";FB$|
000022E0: 28 38 29 3B 22 2C 22 3B 46 42 24 28 39 29 3B 22 |(8);",";FB$(9);"|
000022F0: 20 28 23 22 3B 46 42 24 28 31 30 29 3B 22 29 22 | (#";FB$(10);")"|
00002300: 00 22 2B 09 0B 99 22 44 45 41 54 48 20 44 41 54 |."+..."DEATH DAT|
00002310: 45 20 20 20 20 20 20 20 3A 22 3B 46 42 24 28 31 |E :";FB$(1|
00002320: 36 29 00 44 2B 0B 0B 99 22 44 45 41 54 48 20 50 |6).D+..."DEATH P|
00002330: 4C 41 43 45 20 20 20 20 20 20 3A 22 3B 46 42 24 |LACE :";FB$|
00002340: 28 31 37 29 00 52 2B 0E 0B 8B 58 B2 30 A7 32 39 |(17).R+...X.0.29|
00002350: 36 30 00 7A 2B 13 0B 99 22 11 11 20 20 20 20 20 |60.z+...".. |
00002360: 50 52 45 53 53 20 41 4E 59 20 4B 45 59 20 54 4F |PRESS ANY KEY TO|
00002370: 20 43 4F 4E 54 49 4E 55 45 22 00 8E 2B 15 0B A1 | CONTINUE"..+...|
00002380: 41 24 3A 8B 41 24 B2 22 22 A7 32 38 33 37 00 A8 |A$:.A$."".2837..|
00002390: 2B 18 0B 81 49 B2 31 A4 58 3A 99 22 4D 41 52 52 |+...I.1.X:."MARR|
000023A0: 49 41 47 45 23 22 3B 49 00 E5 2B 22 0B 99 22 53 |IAGE#";I..+".."S|
000023B0: 50 4F 55 53 45 27 53 20 4E 41 4D 45 20 20 20 20 |POUSE'S NAME |
000023C0: 3A 22 3B 4D 41 24 28 49 29 3B 22 2C 22 3B 4D 42 |:";MA$(I);",";MB|
000023D0: 24 28 49 29 3B 22 20 28 23 22 3B 4D 43 24 28 49 |$(I);" (#";MC$(I|
000023E0: 29 3B 22 29 22 00 06 2C 2C 0B 99 22 4D 41 52 52 |);")"..,,.."MARR|
000023F0: 49 41 47 45 20 44 41 54 45 20 20 20 20 3A 22 3B |IAGE DATE :";|
00002400: 4D 44 24 28 49 29 00 27 2C 36 0B 99 22 4D 41 52 |MD$(I).',6.."MAR|
00002410: 52 49 41 47 45 20 50 4C 41 43 45 20 20 20 3A 22 |RIAGE PLACE :"|
00002420: 3B 4D 45 24 28 49 29 00 3C 2C 5E 0B 8B C5 28 59 |;ME$(I).<,^...(Y|
00002430: 24 28 49 29 29 B2 30 A7 32 39 36 30 00 4E 2C 7C |$(I)).0.2960.N,||
00002440: 0B 99 22 43 48 49 4C 44 52 45 4E 3A 20 22 00 6E |.."CHILDREN: ".n|
00002450: 2C 86 0B 81 51 B2 31 A4 C5 28 59 24 28 49 29 29 |,...Q.1..(Y$(I))|
00002460: 3A 46 B2 C5 28 43 42 24 28 49 2C 51 29 29 00 92 |:F..(CB$(I,Q))..|
00002470: 2C 87 0B 99 51 3B 22 3A 22 3B 49 24 28 46 29 3B |,...Q;":";I$(F);|
00002480: 22 2C 22 3B 41 24 28 46 29 3B A3 32 35 29 46 3A |",";A$(F);.25)F:|
00002490: 82 51 00 B8 2C 88 0B 99 22 11 11 20 20 20 50 52 |.Q..,...".. PR|
000024A0: 45 53 53 20 41 4E 59 20 4B 45 59 20 54 4F 20 43 |ESS ANY KEY TO C|
000024B0: 4F 4E 54 49 4E 55 45 22 00 CC 2C 89 0B A1 41 24 |ONTINUE"..,...A$|
000024C0: 3A 8B 41 24 B2 22 22 A7 32 39 35 33 00 D3 2C 8B |:.A$."".2953..,.|
000024D0: 0B 82 49 00 EE 2C 90 0B 99 3A 99 22 43 4F 4D 4D |..I..,...:."COMM|
000024E0: 45 4E 54 53 20 22 3B 46 42 24 28 31 39 29 00 14 |ENTS ";FB$(19)..|
000024F0: 2D 9A 0B 99 22 11 11 20 20 20 50 52 45 53 53 20 |-...".. PRESS |
00002500: 41 4E 59 20 4B 45 59 20 54 4F 20 43 4F 4E 54 49 |ANY KEY TO CONTI|
00002510: 4E 55 45 22 00 28 2D A4 0B A1 41 24 3A 8B 41 24 |NUE".(-...A$:.A$|
00002520: B2 22 22 A7 32 39 38 30 00 45 2D AE 0B 99 22 2D |."".2980.E-..."-|
00002530: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00002540: 2D 2D 2D 2D 22 00 4F 2D B8 0B 89 32 36 35 30 00 |----".O-...2650.|
00002550: 6E 2D C2 0B 99 22 93 11 05 C6 C6 C6 C6 C6 C6 C6 |n-..."..........|
00002560: C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 22 00 8C |............."..|
00002570: 2D CC 0B 99 22 1F 12 20 20 49 4E 44 45 58 20 4F |-...".. INDEX O|
00002580: 46 20 4E 41 4D 45 53 20 20 20 20 22 00 AA 2D D6 |F NAMES "..-.|
00002590: 0B 99 22 05 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 |..".............|
000025A0: C4 C4 C4 C4 C4 C4 C4 C4 90 22 00 B4 2D E0 0B 8D |........."..-...|
000025B0: 32 37 32 30 00 C6 2D EA 0B 8B 59 59 24 B2 22 50 |2720..-...YY$."P|
000025C0: 22 A7 34 39 36 30 00 D1 2D F4 0B 55 24 B2 22 2C |".4960..-..U$.",|
000025D0: 22 00 EA 2D FE 0B 53 24 B2 22 20 20 20 20 20 20 |"..-..S$." |
000025E0: 20 20 20 20 20 20 20 20 20 22 00 F2 2D 08 0C 58 | "..-..X|
000025F0: B2 30 00 FD 2D 12 0C 81 49 B2 31 A4 4B 00 1C 2E |.0..-...I.1.K...|
00002600: 1C 0C 54 24 B2 C8 28 49 24 28 49 29 AA 55 24 AA |..T$..(I$(I).U$.|
00002610: 41 24 28 49 29 AA 53 24 2C 31 35 29 00 2C 2E 26 |A$(I).S$,15).,.&|
00002620: 0C 8B 49 B3 31 30 A7 99 22 20 22 3B 00 51 2E 30 |..I.10.." ";.Q.0|
00002630: 0C 8B 49 24 28 49 29 B2 22 20 2F 22 A7 54 24 B2 |..I$(I)." /".T$.|
00002640: 22 2F 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |"/ |
00002650: 22 00 75 2E 3A 0C 8B 49 24 28 49 29 B2 22 2F 22 |".u.:..I$(I)."/"|
00002660: A7 54 24 B2 22 2F 20 20 20 20 20 20 20 20 20 20 |.T$."/ |
00002670: 20 20 20 20 22 00 7F 2E 44 0C 58 B2 58 AA 31 00 | "...D.X.X.1.|
00002680: 91 2E 4E 0C 8B 58 B2 32 31 A7 99 22 13 11 11 11 |..N..X.21.."....|
00002690: 22 00 A3 2E 58 0C 8B 58 B1 32 30 A7 99 A3 31 39 |"...X..X.20...19|
000026A0: 29 49 3B 00 B8 2E 62 0C 8B 58 B1 32 30 AF 49 B1 |)I;...b..X.20.I.|
000026B0: 39 39 A7 99 22 9D 22 3B 00 CC 2E 6C 0C 8B 58 B1 |99..".";...l..X.|
000026C0: 32 30 A7 99 54 24 3A 89 33 32 32 30 00 D4 2E 76 |20..T$:.3220...v|
000026D0: 0C 99 49 3B 00 E4 2E 80 0C 8B 49 B1 39 39 A7 99 |..I;......I.99..|
000026E0: 22 9D 22 3B 00 EC 2E 8A 0C 99 54 24 00 FB 2E 94 |".";......T$....|
000026F0: 0C 8B 58 B3 34 30 A7 33 32 36 30 00 03 2F 9E 0C |..X.40.3260../..|
00002700: 58 B2 30 00 17 2F A8 0C A1 58 24 3A 8B 58 24 B2 |X.0../...X$:.X$.|
00002710: 22 22 A7 33 32 34 30 00 23 2F B2 0C 99 22 13 11 |"".3240.#/..."..|
00002720: 11 11 22 00 29 2F BC 0C 82 00 3D 2F C6 0C A1 58 |..".)/....=/...X|
00002730: 24 3A 8B 58 24 B2 22 22 A7 33 32 37 30 00 46 2F |$:.X$."".3270.F/|
00002740: D0 0C 89 37 35 30 00 65 2F DA 0C 99 22 93 11 05 |...750.e/..."...|
00002750: C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 |................|
00002760: C6 C6 C6 C6 22 00 83 2F E4 0C 99 22 1F 12 20 20 |...."../...".. |
00002770: 50 52 49 4E 54 20 50 45 44 49 47 52 45 45 20 20 |PRINT PEDIGREE |
00002780: 20 20 22 00 A1 2F EE 0C 99 22 05 C4 C4 C4 C4 C4 | "../..."......|
00002790: C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 90 |................|
000027A0: 22 00 C7 2F F8 0C 99 22 13 11 11 11 11 11 11 11 |"../..."........|
000027B0: 11 20 20 48 49 54 20 52 45 54 55 52 4E 20 46 4F |. HIT RETURN FO|
000027C0: 52 20 4D 45 4E 55 22 00 DD 2F 02 0D 8D 31 34 35 |R MENU"../...145|
000027D0: 30 3A 8B 5A 42 24 B2 22 22 A7 37 35 30 00 E7 2F |0:.ZB$."".750../|
000027E0: 0C 0D 8D 33 37 37 30 00 10 30 16 0D 99 22 93 11 |...3770..0..."..|
000027F0: 1F 12 50 45 44 49 47 52 45 45 20 4F 46 20 22 3B |..PEDIGREE OF ";|
00002800: 46 42 24 28 31 29 3B 55 24 3B 46 42 24 28 32 29 |FB$(1);U$;FB$(2)|
00002810: 00 3F 30 20 0D 99 22 05 B7 B7 B7 B7 B7 B7 B7 B7 |.?0 ..".........|
00002820: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |................|
00002830: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 22 00 |..............".|
00002840: 63 30 2A 0D 99 22 13 11 11 11 11 11 11 11 11 22 |c0*.."........."|
00002850: 3A 81 58 B2 31 A4 31 31 3A 99 A3 33 29 22 C2 9D |:.X.1.11:..3)"..|
00002860: 22 3A 82 00 83 30 34 0D 99 22 13 11 11 11 11 11 |":...04.."......|
00002870: 22 3A 81 58 B2 31 A4 35 3A 99 A3 39 29 22 C2 9D |":.X.1.5:..9)"..|
00002880: 22 3A 82 00 A3 30 3E 0D 99 22 11 11 11 11 11 11 |":...0>.."......|
00002890: 22 3A 81 58 B2 31 A4 35 3A 99 A3 39 29 22 C2 9D |":.X.1.5:..9)"..|
000028A0: 22 3A 82 00 D4 30 48 0D 99 22 12 1F 91 91 91 91 |":...0H.."......|
000028B0: 91 91 91 91 91 91 22 46 42 24 28 31 29 3B 22 2C |......"FB$(1);",|
000028C0: 22 3B 46 42 24 28 32 29 3B 22 28 23 22 3B 46 3B |";FB$(2);"(#";F;|
000028D0: 22 9D 29 22 00 E5 30 52 0D 8B 58 24 B2 22 30 22 |".)"..0R..X$."0"|
000028E0: A7 33 34 33 30 00 17 31 5C 0D 99 22 90 28 22 3B |.3430..1\..".(";|
000028F0: C8 28 4D 41 24 28 31 29 AA 55 24 AA 4D 42 24 28 |.(MA$(1).U$.MB$(|
00002900: 31 29 2C 32 30 29 3B 22 28 23 22 3B 4D 43 24 28 |1),20);"(#";MC$(|
00002910: 31 29 3B 22 29 29 22 00 29 31 66 0D 99 22 13 11 |1);"))".)1f.."..|
00002920: 11 11 11 11 11 11 11 22 3B 00 3A 31 70 0D 99 22 |.......";.:1p.."|
00002930: 05 20 20 20 C0 C0 C0 C0 22 3B 00 6A 31 7A 0D 99 |. ....";.j1z..|
00002940: 22 90 22 3B C8 28 46 42 24 28 35 29 AA 55 24 AA |".";.(FB$(5).U$.|
00002950: 46 42 24 28 36 29 2C 32 30 29 3B 22 28 23 22 3B |FB$(6),20);"(#";|
00002960: 46 42 24 28 37 29 3B 22 29 22 00 7E 31 84 0D 99 |FB$(7);")".~1...|
00002970: 22 11 11 11 11 11 11 11 11 11 11 11 22 3B 00 8F |"...........";..|
00002980: 31 8E 0D 99 22 05 20 20 20 C0 C0 C0 C0 22 3B 00 |1...". ....";.|
00002990: C0 31 98 0D 99 22 90 22 3B C8 28 46 42 24 28 38 |.1...".";.(FB$(8|
000029A0: 29 AA 55 24 AA 46 42 24 28 39 29 2C 32 30 29 3B |).U$.FB$(9),20);|
000029B0: 22 28 23 22 3B 46 42 24 28 31 30 29 3B 22 29 22 |"(#";FB$(10);")"|
000029C0: 00 DC 31 A2 0D 46 B2 C5 28 46 42 24 28 37 29 29 |..1..F..(FB$(7))|
000029D0: 3A 46 50 24 B2 46 42 24 28 31 30 29 00 E6 31 AC |:FP$.FB$(10)..1.|
000029E0: 0D 8D 33 37 37 30 00 28 32 B6 0D 99 22 13 11 11 |..3770.(2..."...|
000029F0: 11 11 11 22 3B A3 39 29 22 05 C0 C0 22 3B 22 90 |...";.9)"...";".|
00002A00: 22 3B C8 28 46 42 24 28 35 29 AA 55 24 AA 46 42 |";.(FB$(5).U$.FB|
00002A10: 24 28 36 29 2C 32 30 29 3B 22 28 23 22 3B 46 42 |$(6),20);"(#";FB|
00002A20: 24 28 37 29 3B 22 29 22 00 66 32 C0 0D 99 22 11 |$(7);")".f2...".|
00002A30: 11 11 11 22 3B A3 39 29 22 05 C0 C0 90 22 3B C8 |...";.9)"....";.|
00002A40: 28 46 42 24 28 38 29 AA 55 24 AA 46 42 24 28 39 |(FB$(8).U$.FB$(9|
00002A50: 29 2C 32 30 29 3B 22 28 23 22 3B 46 42 24 28 31 |),20);"(#";FB$(1|
00002A60: 30 29 3B 22 29 22 00 81 32 CA 0D 46 41 24 B2 46 |0);")"..2..FA$.F|
00002A70: 42 24 28 37 29 3A 46 43 24 B2 46 42 24 28 31 30 |B$(7):FC$.FB$(10|
00002A80: 29 00 8E 32 D4 0D 46 B2 C5 28 46 50 24 29 00 98 |)..2..F..(FP$)..|
00002A90: 32 DE 0D 8D 33 37 37 30 00 D7 32 E8 0D 99 22 11 |2...3770..2...".|
00002AA0: 11 11 11 11 11 22 3B A3 39 29 22 05 C3 C0 90 22 |.....";.9)"...."|
00002AB0: 3B C8 28 46 42 24 28 35 29 AA 55 24 AA 46 42 24 |;.(FB$(5).U$.FB$|
00002AC0: 28 36 29 2C 32 30 29 3B 22 28 23 22 3B 46 42 24 |(6),20);"(#";FB$|
00002AD0: 28 37 29 3B 22 29 22 00 15 33 F2 0D 99 22 11 11 |(7);")"..3..."..|
00002AE0: 11 11 22 3B A3 39 29 22 05 C0 C0 90 22 3B C8 28 |..";.9)"....";.(|
00002AF0: 46 42 24 28 38 29 AA 55 24 AA 46 42 24 28 39 29 |FB$(8).U$.FB$(9)|
00002B00: 2C 32 30 29 3B 22 28 23 22 3B 46 42 24 28 31 30 |,20);"(#";FB$(10|
00002B10: 29 3B 22 29 22 00 30 33 FC 0D 46 57 24 B2 46 42 |);")".03..FW$.FB|
00002B20: 24 28 37 29 3A 46 56 24 B2 46 42 24 28 31 30 29 |$(7):FV$.FB$(10)|
00002B30: 00 3D 33 06 0E 46 B2 C5 28 46 41 24 29 00 47 33 |.=3..F..(FA$).G3|
00002B40: 10 0E 8D 33 37 37 30 00 85 33 1A 0E 99 22 13 11 |...3770..3..."..|
00002B50: 11 11 11 22 3B A3 31 36 29 22 05 CF 90 22 3B C8 |...";.16)"...";.|
00002B60: 28 46 42 24 28 35 29 AA 55 24 AA 46 42 24 28 36 |(FB$(5).U$.FB$(6|
00002B70: 29 2C 31 36 29 3B 22 28 23 22 3B 46 42 24 28 37 |),16);"(#";FB$(7|
00002B80: 29 3B 22 29 22 00 C0 33 24 0E 99 22 11 22 3B A3 |);")"..3$..".";.|
00002B90: 31 36 29 22 05 CC 90 22 3B C8 28 46 42 24 28 38 |16)"...";.(FB$(8|
00002BA0: 29 AA 55 24 AA 46 42 24 28 39 29 2C 31 36 29 3B |).U$.FB$(9),16);|
00002BB0: 22 28 23 22 3B 46 42 24 28 31 30 29 3B 22 29 22 |"(#";FB$(10);")"|
00002BC0: 00 EA 33 2E 0E 46 58 24 B2 46 42 24 28 37 29 3A |..3..FX$.FB$(7):|
00002BD0: 46 59 24 B2 46 42 24 28 31 30 29 3A 46 B2 C5 28 |FY$.FB$(10):F..(|
00002BE0: 46 43 24 29 3A 8D 33 37 37 30 00 25 34 38 0E 99 |FC$):.3770.%48..|
00002BF0: 22 11 11 22 3B A3 31 36 29 22 05 CF 90 22 3B C8 |"..";.16)"...";.|
00002C00: 28 46 42 24 28 35 29 AA 55 24 AA 46 42 24 28 36 |(FB$(5).U$.FB$(6|
00002C10: 29 2C 31 36 29 3B 22 28 23 22 3B 46 42 24 28 37 |),16);"(#";FB$(7|
00002C20: 29 3B 22 29 22 00 60 34 42 0E 99 22 11 22 3B A3 |);")".`4B..".";.|
00002C30: 31 36 29 22 05 CC 90 22 3B C8 28 46 42 24 28 38 |16)"...";.(FB$(8|
00002C40: 29 AA 55 24 AA 46 42 24 28 39 29 2C 31 36 29 3B |).U$.FB$(9),16);|
00002C50: 22 28 23 22 3B 46 42 24 28 31 30 29 3B 22 29 22 |"(#";FB$(10);")"|
00002C60: 00 8A 34 4C 0E 46 54 24 B2 46 42 24 28 37 29 3A |..4L.FT$.FB$(7):|
00002C70: 46 50 24 B2 46 42 24 28 31 30 29 3A 46 B2 C5 28 |FP$.FB$(10):F..(|
00002C80: 46 57 24 29 3A 8D 33 37 37 30 00 C7 34 56 0E 99 |FW$):.3770..4V..|
00002C90: 22 11 11 11 11 22 3B A3 31 36 29 22 05 CF 90 22 |"....";.16)"..."|
00002CA0: 3B C8 28 46 42 24 28 35 29 AA 55 24 AA 46 42 24 |;.(FB$(5).U$.FB$|
00002CB0: 28 36 29 2C 31 36 29 3B 22 28 23 22 3B 46 42 24 |(6),16);"(#";FB$|
00002CC0: 28 37 29 3B 22 29 22 00 02 35 60 0E 99 22 11 22 |(7);")"..5`.."."|
00002CD0: 3B A3 31 36 29 22 05 CC 90 22 3B C8 28 46 42 24 |;.16)"...";.(FB$|
00002CE0: 28 38 29 AA 55 24 AA 46 42 24 28 39 29 2C 31 36 |(8).U$.FB$(9),16|
00002CF0: 29 3B 22 28 23 22 3B 46 42 24 28 31 30 29 3B 22 |);"(#";FB$(10);"|
00002D00: 29 22 00 15 35 6A 0E 46 B2 C5 28 46 56 24 29 3A |)"..5j.F..(FV$):|
00002D10: 8D 33 37 37 30 00 50 35 74 0E 99 22 11 11 22 3B |.3770.P5t.."..";|
00002D20: A3 31 36 29 22 05 CF 90 22 3B C8 28 46 42 24 28 |.16)"...";.(FB$(|
00002D30: 35 29 AA 55 24 AA 46 42 24 28 36 29 2C 31 36 29 |5).U$.FB$(6),16)|
00002D40: 3B 22 28 23 22 3B 46 42 24 28 37 29 3B 22 29 22 |;"(#";FB$(7);")"|
00002D50: 00 8B 35 7E 0E 99 22 11 22 3B A3 31 36 29 22 05 |..5~..".";.16)".|
00002D60: CC 90 22 3B C8 28 46 42 24 28 38 29 AA 55 24 AA |..";.(FB$(8).U$.|
00002D70: 46 42 24 28 39 29 2C 31 36 29 3B 22 28 23 22 3B |FB$(9),16);"(#";|
00002D80: 46 42 24 28 31 30 29 3B 22 29 22 00 AF 35 88 0E |FB$(10);")"..5..|
00002D90: 46 44 24 B2 46 42 24 28 37 29 3A 46 45 24 B2 46 |FD$.FB$(7):FE$.F|
00002DA0: 42 24 28 31 30 29 3A 46 B2 C5 28 46 58 24 29 00 |B$(10):F..(FX$).|
00002DB0: E1 35 92 0E 99 22 13 11 11 11 11 11 11 11 11 11 |.5..."..........|
00002DC0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 20 |............... |
00002DD0: 20 12 20 48 49 54 20 41 4E 59 20 4B 45 59 20 13 | . HIT ANY KEY .|
00002DE0: 22 00 F5 35 9C 0E A1 41 24 3A 8B 41 24 B2 22 22 |"..5...A$:.A$.""|
00002DF0: A7 33 37 34 30 00 FE 35 A6 0E 89 37 35 30 00 08 |.3740..5...750..|
00002E00: 36 B0 0E 97 56 2C 39 30 00 26 36 BA 0E 8F 20 2A |6...V,90.&6... *|
00002E10: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002E20: 2A 2A 2A 2A 2A 2A 00 44 36 C4 0E 8F 20 2A 20 46 |******.D6... * F|
00002E30: 44 44 20 42 4C 4F 43 4B 20 52 45 41 44 20 20 20 |DD BLOCK READ |
00002E40: 20 20 20 2A 00 62 36 CE 0E 8F 20 2A 2A 2A 2A 2A | *.b6... *****|
00002E50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002E60: 2A 2A 00 7A 36 D3 0E 9F 31 35 2C 38 2C 31 35 3A |**.z6...15,8,15:|
00002E70: 9F 32 2C 38 2C 32 2C 22 23 22 00 84 36 D8 0E 8D |.2,8,2,"#"..6...|
00002E80: 34 32 36 30 00 9E 36 E2 0E 98 31 35 2C 22 42 2D |4260..6...15,"B-|
00002E90: 52 3A 22 3B 32 3B 46 44 3B 46 54 3B 46 53 00 A8 |R:";2;FD;FT;FS..|
00002EA0: 36 EC 0E 8D 34 31 35 30 00 B5 36 F6 0E 81 46 49 |6...4150..6...FI|
00002EB0: B2 31 A4 31 30 00 C6 36 00 0F 84 32 2C 46 42 24 |.1.10..6...2,FB$|
00002EC0: 28 46 49 29 3A 82 00 E2 36 0A 0F 84 32 2C 58 24 |(FI):...6...2,X$|
00002ED0: 3A 58 B2 C5 28 58 24 29 3A 8B 58 B2 30 A7 33 39 |:X..(X$):.X.0.39|
00002EE0: 33 30 00 ED 36 14 0F 81 49 B2 31 A4 58 00 FC 36 |30..6...I.1.X..6|
00002EF0: 1E 0F 84 32 2C 4D 41 24 28 49 29 3A 00 0B 37 28 |...2,MA$(I):..7(|
00002F00: 0F 84 32 2C 4D 42 24 28 49 29 3A 00 1A 37 32 0F |..2,MB$(I):..72.|
00002F10: 84 32 2C 4D 43 24 28 49 29 3A 00 29 37 3C 0F 84 |.2,MC$(I):.)7<..|
00002F20: 32 2C 4D 44 24 28 49 29 3A 00 39 37 46 0F 84 32 |2,MD$(I):.97F..2|
00002F30: 2C 4D 45 24 28 49 29 3A 82 00 56 37 5A 0F 81 46 |,ME$(I):..V7Z..F|
00002F40: 49 B2 31 36 A4 31 37 3A 84 32 2C 46 42 24 28 46 |I.16.17:.2,FB$(F|
00002F50: 49 29 3A 82 46 49 00 64 37 5B 0F 8B 58 B2 30 A7 |I):.FI.d7[..X.0.|
00002F60: 33 39 35 30 00 7A 37 5C 0F 81 49 B2 31 A4 58 3A |3950.z7\..I.1.X:|
00002F70: 84 32 2C 59 24 28 49 29 3A 82 00 9A 37 5D 0F 81 |.2,Y$(I):...7]..|
00002F80: 49 B2 31 A4 58 3A 59 B2 C5 28 59 24 28 49 29 29 |I.1.X:Y..(Y$(I))|
00002F90: 3A 8B 59 B2 30 A7 33 39 33 35 00 B5 37 5E 0F 81 |:.Y.0.3935..7^..|
00002FA0: 49 49 B2 31 A4 59 3A 84 32 2C 43 42 24 28 49 2C |II.1.Y:.2,CB$(I,|
00002FB0: 49 49 29 3A 82 00 BB 37 5F 0F 82 00 CB 37 6E 0F |II):...7_....7n.|
00002FC0: 84 32 2C 46 42 24 28 31 39 29 3A 00 D8 37 78 0F |.2,FB$(19):..7x.|
00002FD0: A0 32 3A A0 31 35 3A 8E 00 F6 37 82 0F 8F 20 2A |.2:.15:...7... *|
00002FE0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002FF0: 2A 2A 2A 2A 2A 2A 00 14 38 8C 0F 8F 20 2A 20 46 |******..8... * F|
00003000: 44 44 20 42 4C 4F 43 4B 20 57 52 49 54 45 20 20 |DD BLOCK WRITE |
00003010: 20 20 20 2A 00 32 38 96 0F 8F 20 2A 2A 2A 2A 2A | *.28... *****|
00003020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003030: 2A 2A 00 4A 38 9B 0F 9F 31 35 2C 38 2C 31 35 3A |**.J8...15,8,15:|
00003040: 9F 32 2C 38 2C 32 2C 22 23 22 00 59 38 A0 0F 8D |.2,8,2,"#".Y8...|
00003050: 34 32 36 30 3A 46 4C B2 31 00 7A 38 AA 0F 81 46 |4260:FL.1.z8...F|
00003060: 49 B2 31 A4 31 30 3A 98 32 2C 46 42 24 28 46 49 |I.1.10:.2,FB$(FI|
00003070: 29 3B C7 28 31 33 29 3B 3A 82 00 9D 38 B4 0F 98 |);.(13);:...8...|
00003080: 32 2C 58 24 3B C7 28 31 33 29 3B 3A 58 B2 C5 28 |2,X$;.(13);:X..(|
00003090: 58 24 29 3A 8B 58 B2 30 A7 34 30 38 30 00 BA 38 |X$):.X.0.4080..8|
000030A0: BE 0F 81 49 B2 31 A4 58 3A 98 32 2C 4D 41 24 28 |...I.1.X:.2,MA$(|
000030B0: 49 29 3B C7 28 31 33 29 3B 3A 00 D0 38 C8 0F 98 |I);.(13);:..8...|
000030C0: 32 2C 4D 42 24 28 49 29 3B C7 28 31 33 29 3B 3A |2,MB$(I);.(13);:|
000030D0: 00 E6 38 D2 0F 98 32 2C 4D 43 24 28 49 29 3B C7 |..8...2,MC$(I);.|
000030E0: 28 31 33 29 3B 3A 00 FC 38 DC 0F 98 32 2C 4D 44 |(13);:..8...2,MD|
000030F0: 24 28 49 29 3B C7 28 31 33 29 3B 3A 00 13 39 E6 |$(I);.(13);:..9.|
00003100: 0F 98 32 2C 4D 45 24 28 49 29 3B C7 28 31 33 29 |..2,ME$(I);.(13)|
00003110: 3B 3A 82 00 37 39 F0 0F 81 46 49 B2 31 36 A4 31 |;:..79...FI.16.1|
00003120: 37 3A 98 32 2C 46 42 24 28 46 49 29 3B C7 28 31 |7:.2,FB$(FI);.(1|
00003130: 33 29 3B 3A 82 46 49 00 46 39 F5 0F 8B 58 B2 30 |3);:.FI.F9...X.0|
00003140: A7 20 34 31 31 30 00 64 39 FA 0F 81 49 B2 31 A4 |. 4110.d9...I.1.|
00003150: 58 3A 98 32 2C 59 24 28 49 29 3B C7 28 31 33 29 |X:.2,Y$(I);.(13)|
00003160: 3B 3A 82 49 00 84 39 FF 0F 81 49 B2 31 A4 58 3A |;:.I..9...I.1.X:|
00003170: 59 B2 C5 28 59 24 28 49 29 29 3A 8B 59 B2 30 A7 |Y..(Y$(I)):.Y.0.|
00003180: 34 31 30 35 00 A6 39 04 10 81 49 49 B2 31 A4 59 |4105..9...II.1.Y|
00003190: 3A 98 32 2C 43 42 24 28 49 2C 49 49 29 3B C7 28 |:.2,CB$(I,II);.(|
000031A0: 31 33 29 3B 3A 82 00 AC 39 09 10 82 00 C2 39 0E |13);:...9.....9.|
000031B0: 10 98 32 2C 46 42 24 28 31 39 29 3B C7 28 31 33 |..2,FB$(19);.(13|
000031C0: 29 3B 00 D8 39 13 10 98 31 35 2C 22 42 2D 41 22 |);..9...15,"B-A"|
000031D0: 2C 30 2C 46 54 2C 46 53 00 F2 39 18 10 98 31 35 |,0,FT,FS..9...15|
000031E0: 2C 22 42 2D 57 3A 22 3B 32 3B 46 44 3B 46 54 3B |,"B-W:";2;FD;FT;|
000031F0: 46 53 00 FC 39 22 10 8D 34 31 35 30 00 09 3A 2C |FS..9"..4150..:,|
00003200: 10 A0 32 3A A0 31 35 3A 8E 00 27 3A 36 10 8F 20 |..2:.15:..':6.. |
00003210: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003220: 2A 2A 2A 2A 2A 2A 2A 00 45 3A 40 10 8F 20 2A 20 |*******.E:@.. * |
00003230: 20 45 52 52 4F 52 20 43 48 45 43 4B 20 20 20 20 | ERROR CHECK |
00003240: 20 20 20 20 2A 00 63 3A 4A 10 8F 20 2A 2A 2A 2A | *.c:J.. ****|
00003250: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003260: 2A 2A 2A 00 78 3A 54 10 84 31 35 2C 45 4E 2C 45 |***.x:T..15,EN,E|
00003270: 4D 24 2C 45 54 2C 45 53 00 84 3A 5E 10 8B 45 4E |M$,ET,ES..:^..EN|
00003280: B2 30 A7 8E 00 A7 3A 68 10 99 22 93 45 52 52 4F |.0....:h..".ERRO|
00003290: 52 20 53 54 41 54 55 53 3A 22 3B 45 4E 3B 45 4D |R STATUS:";EN;EM|
000032A0: 24 3B 45 54 3B 45 53 00 C5 3A 72 10 85 22 43 4F |$;ET;ES..:r.."CO|
000032B0: 4E 54 49 4E 55 45 3F 22 3B 59 24 3A 8B 59 24 B2 |NTINUE?";Y$:.Y$.|
000032C0: 22 59 22 A7 8E 00 CB 3A 7C 10 90 00 E9 3A 86 10 |"Y"....:|....:..|
000032D0: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
000032E0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 07 3B 90 10 8F 20 |*********..;... |
000032F0: 2A 20 53 45 54 20 54 52 41 43 4B 20 26 20 53 45 |* SET TRACK & SE|
00003300: 43 54 4F 52 20 20 2A 00 25 3B 9A 10 8F 20 2A 2A |CTOR *.%;... **|
00003310: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003320: 2A 2A 2A 2A 2A 00 46 3B A4 10 8B 46 B3 33 35 38 |*****.F;...F.358|
00003330: A7 46 31 B2 30 3A 46 32 B2 32 32 3A 46 33 B2 31 |.F1.0:F2.22:F3.1|
00003340: 3A 89 34 33 30 30 00 70 3B AE 10 8B 46 B1 33 35 |:.4300.p;...F.35|
00003350: 37 AF 46 B3 34 37 32 A7 46 31 B2 33 35 37 3A 46 |7.F.472.F1.357:F|
00003360: 32 B2 32 30 3A 46 33 B2 31 39 3A 89 34 33 30 30 |2.20:F3.19:.4300|
00003370: 00 9A 3B B8 10 8B 46 B1 34 37 31 AF 46 B3 35 38 |..;...F.471.F.58|
00003380: 30 A7 46 31 B2 34 37 31 3A 46 32 B2 31 39 3A 46 |0.F1.471:F2.19:F|
00003390: 33 B2 32 35 3A 89 34 33 30 30 00 B8 3B C2 10 8B |3.25:.4300..;...|
000033A0: 46 B1 35 37 39 A7 46 31 B2 35 37 39 3A 46 32 B2 |F.579.F1.579:F2.|
000033B0: 31 38 3A 46 33 B2 33 31 00 D7 3B CC 10 46 54 B2 |18:F3.31..;..FT.|
000033C0: B5 28 28 28 46 AB 46 31 29 AB 31 29 AD 28 46 32 |.(((F.F1).1).(F2|
000033D0: AB 31 29 29 AA 46 33 00 F8 3B D6 10 46 53 B2 46 |.1)).F3..;..FS.F|
000033E0: AB 46 31 AB 28 46 54 AB 46 33 29 AC 46 32 AA 28 |.F1.(FT.F3).F2.(|
000033F0: 46 54 AB 46 33 AB 31 29 00 FE 3B E0 10 8E 00 08 |FT.F3.1)..;.....|
00003400: 3C EA 10 8D 33 34 34 30 00 20 3C F4 10 8F 2A 2A |<...3440. <...**|
00003410: 53 45 41 52 43 48 20 42 59 20 4E 41 4D 45 2A 2A |SEARCH BY NAME**|
00003420: 00 44 3C FE 10 99 22 93 11 11 22 3B A3 31 32 29 |.D<..."...";.12)|
00003430: 22 12 53 45 41 52 43 48 49 4E 47 20 42 59 20 4E |".SEARCHING BY N|
00003440: 41 4D 45 22 00 63 3C 08 11 99 22 11 11 11 53 55 |AME".c<..."...SU|
00003450: 52 4E 41 4D 45 20 4F 46 20 50 45 52 53 4F 4E 3A |RNAME OF PERSON:|
00003460: 20 22 3B 00 6B 3C 12 11 85 58 24 00 8E 3C 1C 11 | ";.k<...X$..<..|
00003470: 99 22 47 49 56 45 4E 20 4E 41 4D 45 20 4F 46 20 |."GIVEN NAME OF |
00003480: 50 45 52 53 4F 4E 3A 20 22 3B 3A 85 59 24 00 BD |PERSON: ";:.Y$..|
00003490: 3C 26 11 85 22 41 52 45 20 59 4F 55 20 55 53 49 |<&.."ARE YOU USI|
000034A0: 4E 47 20 41 20 50 52 49 4E 54 45 52 22 3B 54 24 |NG A PRINTER";T$|
000034B0: 3A 8B 54 24 B2 22 59 22 A7 34 34 39 30 00 C3 3C |:.T$."Y".4490..<|
000034C0: 30 11 99 00 F1 3C 3A 11 99 22 12 4E 55 4D 42 45 |0....<:..".NUMBE|
000034D0: 52 22 3B A3 31 35 29 22 53 55 52 4E 41 4D 45 22 |R";.15)"SURNAME"|
000034E0: 3B A3 32 35 29 22 47 49 56 45 4E 20 4E 41 4D 45 |;.25)"GIVEN NAME|
000034F0: 22 00 FC 3C 44 11 81 49 B2 31 A4 4B 00 2E 3D 4E |"..<D..I.1.K..=N|
00003500: 11 8B 49 24 28 49 29 B2 58 24 AF 41 24 28 49 29 |..I$(I).X$.A$(I)|
00003510: B2 59 24 A7 99 22 23 22 3B 49 3B A3 31 35 29 49 |.Y$.."#";I;.15)I|
00003520: 24 28 49 29 3B A3 32 35 29 41 24 28 49 29 00 60 |$(I);.25)A$(I).`|
00003530: 3D 58 11 8B 49 24 28 49 29 B2 58 24 AF 59 24 B2 |=X..I$(I).X$.Y$.|
00003540: 22 41 4C 4C 22 A7 99 22 23 22 3B 49 3B A3 31 35 |"ALL".."#";I;.15|
00003550: 29 49 24 28 49 29 3B A3 32 35 29 41 24 28 49 29 |)I$(I);.25)A$(I)|
00003560: 00 67 3D 62 11 82 3A 00 8F 3D 6C 11 99 22 11 11 |.g=b..:..=l.."..|
00003570: 11 11 20 20 20 50 52 45 53 53 20 41 4E 59 20 4B |.. PRESS ANY K|
00003580: 45 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 00 |EY TO CONTINUE".|
00003590: A3 3D 76 11 A1 41 24 3A 8B 41 24 B2 22 22 A7 34 |.=v..A$:.A$."".4|
000035A0: 34 37 30 00 AD 3D 80 11 89 32 36 36 30 00 CE 3D |470..=...2660..=|
000035B0: 8A 11 8F 2A 2A 50 52 49 4E 54 4F 55 54 20 4F 46 |...**PRINTOUT OF|
000035C0: 20 4E 41 4D 45 20 53 45 41 52 43 48 2A 2A 00 E9 | NAME SEARCH**..|
000035D0: 3D 94 11 41 41 24 B2 22 20 20 20 20 20 20 20 20 |=..AA$." |
000035E0: 20 20 20 20 20 20 20 20 22 00 F2 3D 9E 11 9F 34 | "..=...4|
000035F0: 2C 34 00 23 3E A8 11 98 34 2C C7 28 31 34 29 22 |,4.#>...4,.(14)"|
00003600: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4E 41 | NA|
00003610: 4D 45 20 53 45 41 52 43 48 22 3A 98 34 2C C7 28 |ME SEARCH":.4,.(|
00003620: 31 30 29 00 30 3E B2 11 98 34 2C C7 28 31 35 29 |10).0>...4,.(15)|
00003630: 00 61 3E BC 11 98 34 2C 22 20 20 4E 55 4D 42 45 |.a>...4," NUMBE|
00003640: 52 22 3B 41 41 24 3B 22 53 55 52 4E 41 4D 45 22 |R";AA$;"SURNAME"|
00003650: 3B 41 41 24 3B 22 47 49 56 45 4E 20 4E 41 4D 45 |;AA$;"GIVEN NAME|
00003660: 22 00 77 3E C6 11 81 58 B2 31 A4 37 35 3A 98 34 |".w>...X.1.75:.4|
00003670: 2C 22 2D 22 3B 3A 82 00 7E 3E D0 11 98 34 00 89 |,"-";:..~>...4..|
00003680: 3E DA 11 81 49 B2 31 A4 4B 00 AF 3E E4 11 49 49 |>...I.1.K..>..II|
00003690: 24 B2 C4 28 49 29 3A 8B 49 B3 31 30 A7 49 49 24 |$..(I):.I.10.II$|
000036A0: B2 49 49 24 AA 22 20 20 22 3A 89 34 36 30 30 00 |.II$." ":.4600.|
000036B0: C6 3E EE 11 8B 49 B3 31 30 30 A7 49 49 24 B2 49 |.>...I.100.II$.I|
000036C0: 49 24 AA 22 20 22 00 E2 3E F8 11 8B 49 24 28 49 |I$." "..>...I$(I|
000036D0: 29 B2 58 24 AF 59 24 B2 22 41 4C 4C 22 A7 34 36 |).X$.Y$."ALL".46|
000036E0: 34 30 00 FE 3E 02 12 8B 49 24 28 49 29 B2 58 24 |40..>...I$(I).X$|
000036F0: AF 41 24 28 49 29 B2 59 24 A7 34 36 33 30 00 0A |.A$(I).Y$.4630..|
00003700: 3F 0C 12 82 3A 89 34 36 35 30 00 38 3F 16 12 98 |?...:.4650.8?...|
00003710: 34 2C 22 20 20 20 23 22 3B 49 49 24 3B 41 41 24 |4," #";II$;AA$|
00003720: 3B 49 24 28 49 29 3B 41 41 24 3B 41 24 28 49 29 |;I$(I);AA$;A$(I)|
00003730: 3A 82 3A 89 34 36 35 30 00 60 3F 20 12 98 34 2C |:.:.4650.`? ..4,|
00003740: 22 20 20 20 23 22 3B 49 49 24 3B 41 41 24 3B 49 |" #";II$;AA$;I|
00003750: 24 28 49 29 3B 41 41 24 3B 41 24 28 49 29 3A 82 |$(I);AA$;A$(I):.|
00003760: 00 70 3F 2A 12 98 34 3A A0 34 3A 89 32 36 36 30 |.p?*..4:.4:.2660|
00003770: 00 8F 3F 34 12 8F 20 2A 2A 20 50 52 49 4E 54 4F |..?4.. ** PRINTO|
00003780: 55 54 20 4F 46 20 53 45 41 52 43 48 20 2A 2A 00 |UT OF SEARCH **.|
00003790: 98 3F 3E 12 9F 34 2C 34 00 C3 3F 48 12 98 34 2C |.?>..4,4..?H..4,|
000037A0: C7 28 31 34 29 3B 22 20 20 20 20 20 20 20 20 20 |.(14);" |
000037B0: 22 3B 46 42 24 28 32 29 3B 22 20 22 3B 46 42 24 |";FB$(2);" ";FB$|
000037C0: 28 31 29 00 EB 3F 52 12 98 34 2C C7 28 31 35 29 |(1)..?R..4,.(15)|
000037D0: 3A 81 54 B2 31 A4 37 35 3A 98 34 2C 22 2D 22 3B |:.T.1.75:.4,"-";|
000037E0: 3A 82 3A 98 34 2C C7 28 31 30 29 00 28 40 5C 12 |:.:.4,.(10).(@\.|
000037F0: 98 34 2C 22 20 20 20 4E 41 4D 45 20 20 20 20 20 |.4," NAME |
00003800: 20 20 20 20 20 20 20 20 3A 22 3B 46 42 24 28 31 | :";FB$(1|
00003810: 29 3B 22 2C 22 3B 46 42 24 28 32 29 3B 22 20 28 |);",";FB$(2);" (|
00003820: 23 22 3B 46 3B 22 29 22 00 4E 40 66 12 98 34 2C |#";F;")".N@f..4,|
00003830: 22 20 20 20 42 49 52 54 48 44 41 54 45 20 20 20 |" BIRTHDATE |
00003840: 20 20 20 20 20 3A 22 3B 46 42 24 28 33 29 00 74 | :";FB$(3).t|
00003850: 40 70 12 98 34 2C 22 20 20 20 42 49 52 54 48 50 |@p..4," BIRTHP|
00003860: 4C 41 43 45 20 20 20 20 20 20 20 3A 22 3B 46 42 |LACE :";FB|
00003870: 24 28 34 29 00 B6 40 7A 12 98 34 2C 22 20 20 20 |$(4)..@z..4," |
00003880: 46 41 54 48 45 52 27 53 20 4E 41 4D 45 20 20 20 |FATHER'S NAME |
00003890: 20 3A 22 3B 46 42 24 28 35 29 3B 22 2C 22 3B 46 | :";FB$(5);",";F|
000038A0: 42 24 28 36 29 3B 22 20 28 23 22 3B 46 42 24 28 |B$(6);" (#";FB$(|
000038B0: 37 29 3B 22 29 22 00 F9 40 84 12 98 34 2C 22 20 |7);")"..@...4," |
000038C0: 20 20 4D 4F 54 48 45 52 27 53 20 4E 41 4D 45 20 | MOTHER'S NAME |
000038D0: 20 20 20 3A 22 3B 46 42 24 28 38 29 3B 22 2C 22 | :";FB$(8);","|
000038E0: 3B 46 42 24 28 39 29 3B 22 20 28 23 22 3B 46 42 |;FB$(9);" (#";FB|
000038F0: 24 28 31 30 29 3B 22 29 22 00 06 41 87 12 98 34 |$(10);")"..A...4|
00003900: 2C C7 28 31 30 29 00 2D 41 89 12 98 34 2C 22 20 |,.(10).-A...4," |
00003910: 20 20 44 45 41 54 48 20 44 41 54 45 20 20 20 20 | DEATH DATE |
00003920: 20 20 20 3A 22 3B 46 42 24 28 31 36 29 00 54 41 | :";FB$(16).TA|
00003930: 8A 12 98 34 2C 22 20 20 20 44 45 41 54 48 20 50 |...4," DEATH P|
00003940: 4C 41 43 45 20 20 20 20 20 20 3A 22 3B 46 42 24 |LACE :";FB$|
00003950: 28 31 37 29 00 62 41 8E 12 8B 58 B2 30 A7 34 39 |(17).bA...X.0.49|
00003960: 33 30 00 6F 41 93 12 98 34 2C C7 28 31 30 29 00 |30.oA...4,.(10).|
00003970: 8E 41 98 12 81 49 B2 31 A4 58 3A 98 34 2C 22 20 |.A...I.1.X:.4," |
00003980: 20 20 4D 41 52 52 49 41 47 45 23 22 3B 49 00 D0 | MARRIAGE#";I..|
00003990: 41 A2 12 98 34 2C 22 20 20 20 53 50 4F 55 53 45 |A...4," SPOUSE|
000039A0: 27 53 20 4E 41 4D 45 20 20 20 20 3A 22 3B 4D 41 |'S NAME :";MA|
000039B0: 24 28 49 29 3B 22 2C 22 3B 4D 42 24 28 49 29 3B |$(I);",";MB$(I);|
000039C0: 22 20 28 23 22 3B 4D 43 24 28 49 29 3B 22 29 22 |" (#";MC$(I);")"|
000039D0: 00 F6 41 AC 12 98 34 2C 22 20 20 20 4D 41 52 52 |..A...4," MARR|
000039E0: 49 41 47 45 20 44 41 54 45 20 20 20 20 3A 22 3B |IAGE DATE :";|
000039F0: 4D 44 24 28 49 29 00 1C 42 B6 12 98 34 2C 22 20 |MD$(I)..B...4," |
00003A00: 20 20 4D 41 52 52 49 41 47 45 20 50 4C 41 43 45 | MARRIAGE PLACE|
00003A10: 20 20 20 3A 22 3B 4D 45 24 28 49 29 00 29 42 DE | :";ME$(I).)B.|
00003A20: 12 98 34 2C C7 28 31 30 29 00 3E 42 E8 12 8B C5 |..4,.(10).>B....|
00003A30: 28 59 24 28 49 29 29 B2 30 A7 34 39 33 30 00 55 |(Y$(I)).0.4930.U|
00003A40: 42 F2 12 98 34 2C 22 20 20 20 43 48 49 4C 44 52 |B...4," CHILDR|
00003A50: 45 4E 3A 20 22 00 62 42 FC 12 98 34 2C C7 28 31 |EN: ".bB...4,.(1|
00003A60: 30 29 00 8B 42 06 13 41 41 24 B2 22 20 20 20 20 |0)..B..AA$." |
00003A70: 20 20 20 20 22 3A 42 42 24 B2 22 20 20 20 20 20 | ":BB$." |
00003A80: 20 20 20 20 20 20 20 20 20 20 22 00 C6 42 10 13 | "..B..|
00003A90: 98 34 2C 41 41 24 3B 22 20 53 55 52 4E 41 4D 45 |.4,AA$;" SURNAME|
00003AA0: 22 3B 41 41 24 AA 41 41 24 3B 22 47 49 56 45 4E |";AA$.AA$;"GIVEN|
00003AB0: 20 4E 41 4D 45 53 22 3B 41 41 24 3B 22 20 20 4E | NAMES";AA$;" N|
00003AC0: 55 4D 42 45 52 22 00 01 43 1A 13 98 34 2C 41 41 |UMBER"..C...4,AA|
00003AD0: 24 3B 22 20 2D 2D 2D 2D 2D 2D 2D 22 3B 41 41 24 |$;" -------";AA$|
00003AE0: AA 41 41 24 3B 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.AA$;"----------|
00003AF0: 2D 22 3B 41 41 24 3B 22 20 20 2D 2D 2D 2D 2D 2D |-";AA$;" ------|
00003B00: 22 00 21 43 24 13 81 51 B2 31 A4 C5 28 59 24 28 |".!C$..Q.1..(Y$(|
00003B10: 49 29 29 3A 46 B2 C5 28 43 42 24 28 49 2C 51 29 |I)):F..(CB$(I,Q)|
00003B20: 29 00 60 43 2E 13 98 34 2C 22 20 20 22 3B 51 3B |).`C...4," ";Q;|
00003B30: 22 20 20 20 20 22 3B C8 28 49 24 28 46 29 AA 42 |" ";.(I$(F).B|
00003B40: 42 24 2C 31 34 29 3B 41 41 24 3B C8 28 41 24 28 |B$,14);AA$;.(A$(|
00003B50: 46 29 AA 42 42 24 2C 31 35 29 3B 41 41 24 3B 46 |F).BB$,15);AA$;F|
00003B60: 00 71 43 38 13 82 3A 98 34 2C C7 28 31 30 29 3A |.qC8..:.4,.(10):|
00003B70: 82 00 90 43 42 13 98 34 2C 22 2D 2D 2D 2D 2D 2D |...CB..4,"------|
00003B80: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 |---------------"|
00003B90: 00 AF 43 4C 13 98 34 2C 22 20 20 20 20 43 4F 4D |..CL..4," COM|
00003BA0: 4D 45 4E 54 53 20 22 3B 46 42 24 28 31 39 29 00 |MENTS ";FB$(19).|
00003BB0: BF 43 56 13 98 34 3A A0 34 3A 89 32 36 34 30 00 |.CV..4:.4:.2640.|
00003BC0: C8 43 60 13 9F 34 2C 34 00 FD 43 6A 13 98 34 2C |.C`..4,4..Cj..4,|
00003BD0: C7 28 31 34 29 3B 22 20 20 20 20 20 20 20 20 20 |.(14);" |
00003BE0: 20 20 20 20 20 49 4E 44 45 58 20 4F 46 20 4E 41 | INDEX OF NA|
00003BF0: 4D 45 53 22 3A 98 34 2C C7 28 31 35 29 00 16 44 |MES":.4,.(15)..D|
00003C00: 74 13 81 54 B2 31 A4 37 35 3A 98 34 2C 22 2D 22 |t..T.1.75:.4,"-"|
00003C10: 3B 3A 82 3A 98 34 00 21 44 7E 13 55 24 B2 22 2C |;:.:.4.!D~.U$.",|
00003C20: 22 00 4C 44 88 13 53 24 B2 22 20 20 20 20 20 20 |".LD..S$." |
00003C30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003C40: 20 20 20 20 20 20 20 20 20 20 20 22 00 5A 44 92 | ".ZD.|
00003C50: 13 41 41 24 B2 22 20 20 20 22 00 62 44 9C 13 58 |.AA$." ".bD..X|
00003C60: B2 30 00 6D 44 A6 13 81 49 B2 31 A4 4B 00 8C 44 |.0.mD...I.1.K..D|
00003C70: B0 13 54 24 B2 C8 28 49 24 28 49 29 AA 55 24 AA |..T$..(I$(I).U$.|
00003C80: 41 24 28 49 29 AA 53 24 2C 33 30 29 00 B2 44 BA |A$(I).S$,30)..D.|
00003C90: 13 49 49 24 B2 C4 28 49 29 3A 8B 49 B3 31 30 A7 |.II$..(I):.I.10.|
00003CA0: 49 49 24 B2 49 49 24 AA 22 20 20 22 3A 89 35 30 |II$.II$." ":.50|
00003CB0: 37 30 00 C9 44 C4 13 8B 49 B3 31 30 30 A7 49 49 |70..D...I.100.II|
00003CC0: 24 B2 49 49 24 AA 22 20 22 00 DE 44 CE 13 8B 49 |$.II$." "..D...I|
00003CD0: AD 32 B2 B5 28 49 AD 32 29 A7 35 31 30 30 00 FB |.2..(I.2).5100..|
00003CE0: 44 D8 13 98 34 2C 22 20 22 3B 49 49 24 AA 22 20 |D...4," ";II$." |
00003CF0: 22 3B 3A 98 34 2C 54 24 3B 3A 82 00 0E 45 E2 13 |";:.4,T$;:...E..|
00003D00: 98 34 2C C7 28 31 30 29 3A 89 35 31 32 30 00 28 |.4,.(10):.5120.(|
00003D10: 45 EC 13 98 34 2C 41 41 24 3B 49 49 24 AA 22 20 |E...4,AA$;II$." |
00003D20: 22 3B 3A 98 34 2C 54 24 00 2E 45 F6 13 82 00 3D |";:.4,T$..E....=|
00003D30: 45 00 14 98 34 3A A0 34 3A 89 37 35 30 00 59 45 |E...4:.4:.750.YE|
00003D40: 0A 14 5A 42 24 B2 22 22 3A 5A 41 24 B2 22 22 3A |..ZB$."":ZA$."":|
00003D50: 5A 43 24 B2 22 12 20 92 22 00 67 45 14 14 99 5A |ZC$.". .".gE...Z|
00003D60: 43 24 3B 22 9D 22 3B 00 75 45 1E 14 81 5A 5A B2 |C$;".";.uE...ZZ.|
00003D70: 31 20 A4 20 32 00 85 45 28 14 81 20 5A 59 B2 31 |1 . 2..E(.. ZY.1|
00003D80: 20 A4 20 33 30 00 9D 45 32 14 A1 5A 41 24 3A 8B | . 30..E2..ZA$:.|
00003D90: 5A 41 24 B2 22 22 20 A7 20 35 32 36 30 00 B2 45 |ZA$."" . 5260..E|
00003DA0: 37 14 8B 5A 41 24 B2 22 2C 22 A7 5A 41 24 B2 22 |7..ZA$.",".ZA$."|
00003DB0: 2E 22 00 C0 45 3C 14 5A 41 B2 C6 28 5A 41 24 29 |."..E<.ZA..(ZA$)|
00003DC0: 00 D8 45 46 14 8B 5A 41 24 B2 22 88 22 AF C3 28 |..EF..ZA$."."..(|
00003DD0: 5A 42 24 29 B3 32 A7 8E 00 10 46 50 14 8B 5A 41 |ZB$).2....FP..ZA|
00003DE0: B2 31 34 35 B0 5A 41 B2 31 37 B0 5A 41 B2 31 34 |.145.ZA.17.ZA.14|
00003DF0: 37 B0 5A 41 B2 31 39 B0 5A 41 B2 31 35 37 B0 5A |7.ZA.19.ZA.157.Z|
00003E00: 41 B2 32 39 B0 5A 41 B2 31 34 38 A7 35 32 36 30 |A.29.ZA.148.5260|
00003E10: 00 29 46 5A 14 8B 5A 41 B2 32 30 AF C3 28 5A 42 |.)FZ..ZA.20..(ZB|
00003E20: 24 29 B2 30 A7 35 32 36 30 00 58 46 64 14 8B 5A |$).0.5260.XFd..Z|
00003E30: 41 B2 32 30 A7 5A 42 24 B2 C8 28 5A 42 24 2C C3 |A.20.ZB$..(ZB$,.|
00003E40: 28 5A 42 24 29 AB 31 29 3A 99 22 9D 20 20 9D 9D |(ZB$).1):.". ..|
00003E50: 22 3B 3A 89 35 32 36 30 00 6B 46 6E 14 8B 20 5A |";:.5260.kFn.. Z|
00003E60: 41 B2 31 33 A7 99 22 20 22 3A 8E 00 80 46 78 14 |A.13.." ":...Fx.|
00003E70: 8B 20 C3 28 5A 42 24 29 B2 5A 4D A7 35 31 37 30 |. .(ZB$).ZM.5170|
00003E80: 00 9E 46 82 14 5A 42 24 B2 5A 42 24 AA 5A 41 24 |..F..ZB$.ZB$.ZA$|
00003E90: 3A 99 5A 41 24 3B 5A 43 24 3B 22 9D 22 3B 00 A6 |:.ZA$;ZC$;".";..|
00003EA0: 46 8C 14 82 5A 59 00 B1 46 96 14 99 22 20 9D 22 |F...ZY..F..." ."|
00003EB0: 3B 00 B9 46 A0 14 82 5A 5A 00 C3 46 AA 14 89 35 |;..F...ZZ..F...5|
00003EC0: 31 34 30 00 DF 46 B4 14 8F 20 2A 2A 2A 2A 2A 2A |140..F... ******|
00003ED0: 20 45 44 49 54 49 4E 47 20 49 4E 53 54 52 2E 00 | EDITING INSTR..|
00003EE0: 08 47 BE 14 99 22 93 20 20 20 20 20 20 20 1F 12 |.G...". ..|
00003EF0: 20 45 44 49 54 49 4E 47 20 49 4E 53 54 52 55 43 | EDITING INSTRUC|
00003F00: 54 49 4F 4E 53 20 90 22 00 32 47 C8 14 99 22 11 |TIONS .".2G...".|
00003F10: 45 4E 54 45 52 49 4E 47 20 44 41 54 41 20 3A 22 |ENTERING DATA :"|
00003F20: 3A 99 22 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 |:.".............|
00003F30: C5 22 00 5F 47 D2 14 99 22 2D 54 48 45 20 43 55 |."._G..."-THE CU|
00003F40: 52 53 4F 52 20 55 50 20 41 4E 44 20 44 4F 57 4E |RSOR UP AND DOWN|
00003F50: 20 4B 45 59 53 20 41 52 45 20 55 53 45 44 22 00 | KEYS ARE USED".|
00003F60: 78 47 DC 14 99 22 20 54 4F 20 50 49 43 4B 20 41 |xG..." TO PICK A|
00003F70: 20 54 4F 50 49 43 2E 22 00 A0 47 E6 14 99 22 11 | TOPIC."..G...".|
00003F80: 2D 54 48 45 20 52 45 54 55 52 4E 20 4B 45 59 20 |-THE RETURN KEY |
00003F90: 4D 55 53 54 20 42 45 20 50 52 45 53 53 45 44 22 |MUST BE PRESSED"|
00003FA0: 00 CB 47 F0 14 99 22 20 42 45 46 4F 52 45 20 49 |..G..." BEFORE I|
00003FB0: 4E 46 4F 52 4D 41 54 49 4F 4E 20 43 41 4E 20 42 |NFORMATION CAN B|
00003FC0: 45 20 45 4E 54 45 52 45 44 2E 22 00 F7 47 FA 14 |E ENTERED."..G..|
00003FD0: 99 22 11 2D 41 20 46 4C 41 53 48 49 4E 47 20 43 |.".-A FLASHING C|
00003FE0: 55 52 53 4F 52 20 57 49 4C 4C 20 41 50 50 45 41 |URSOR WILL APPEA|
00003FF0: 52 20 4F 4E 4C 59 22 00 21 48 04 15 99 22 20 57 |R ONLY".!H..." W|
00004000: 48 45 4E 20 54 48 45 20 52 45 54 55 52 4E 20 4B |HEN THE RETURN K|
00004010: 45 59 20 49 53 20 48 49 54 20 46 49 52 53 54 2E |EY IS HIT FIRST.|
00004020: 22 00 4A 48 0E 15 99 22 11 46 55 4E 54 49 4F 4E |".JH...".FUNTION|
00004030: 20 4B 45 59 53 20 3A 22 3A 99 22 C5 C5 C5 C5 C5 | KEYS :":.".....|
00004040: C5 C5 C5 C5 C5 C5 C5 C5 C5 22 00 8F 48 18 15 99 |........."..H...|
00004050: 22 46 31 20 2D 20 52 45 54 55 52 4E 53 20 54 4F |"F1 - RETURNS TO|
00004060: 20 4D 41 49 4E 20 4D 45 4E 55 2E 20 22 3A 99 22 | MAIN MENU. ":."|
00004070: 20 20 20 20 20 20 20 12 20 44 4F 45 53 20 4E 4F | . DOES NO|
00004080: 54 20 53 41 56 45 20 44 41 54 41 20 21 20 22 00 |T SAVE DATA ! ".|
00004090: B8 48 22 15 99 22 46 33 20 2D 20 53 48 4F 57 53 |.H".."F3 - SHOWS|
000040A0: 20 54 48 49 53 20 49 4E 53 54 52 55 43 54 49 4F | THIS INSTRUCTIO|
000040B0: 4E 20 50 41 47 45 2E 22 00 E0 48 2C 15 99 22 46 |N PAGE."..H,.."F|
000040C0: 37 20 2D 20 53 41 56 45 53 20 50 52 45 53 45 4E |7 - SAVES PRESEN|
000040D0: 54 20 44 41 54 41 20 54 4F 20 44 49 53 4B 2E 22 |T DATA TO DISK."|
000040E0: 00 0D 49 36 15 99 22 46 37 20 2D 20 47 4F 45 53 |..I6.."F7 - GOES|
000040F0: 20 54 4F 20 54 48 45 20 4E 45 58 54 20 50 41 47 | TO THE NEXT PAG|
00004100: 45 2E 20 54 48 45 52 45 20 41 52 45 22 00 28 49 |E. THERE ARE".(I|
00004110: 40 15 99 22 20 20 20 20 20 20 20 54 48 52 45 45 |@.." THREE|
00004120: 20 50 41 47 45 53 3A 22 00 49 49 4A 15 99 22 20 | PAGES:".IIJ.." |
00004130: 20 20 20 20 20 20 20 20 31 2E 20 47 45 4E 45 52 | 1. GENER|
00004140: 41 4C 20 44 41 54 41 2E 22 00 78 49 54 15 99 22 |AL DATA.".xIT.."|
00004150: 20 20 20 20 20 20 20 20 20 32 2E 20 4D 41 52 52 | 2. MARR|
00004160: 49 41 47 45 20 41 4E 44 20 43 48 49 4C 44 52 45 |IAGE AND CHILDRE|
00004170: 4E 20 44 41 54 41 2E 22 00 95 49 5E 15 99 22 20 |N DATA."..I^.." |
00004180: 20 20 20 20 20 20 20 20 33 2E 20 43 4F 4D 4D 45 | 3. COMME|
00004190: 4E 54 53 2E 22 00 BB 49 68 15 99 22 20 20 20 12 |NTS."..Ih.." .|
000041A0: 20 48 49 54 20 41 4E 59 20 4B 45 59 20 54 4F 20 | HIT ANY KEY TO |
000041B0: 43 4F 4E 54 49 4E 55 45 20 13 22 00 CF 49 72 15 |CONTINUE ."..Ir.|
000041C0: A1 41 24 3A 8B 41 24 B2 22 22 A7 35 34 39 30 00 |.A$:.A$."".5490.|
000041D0: D5 49 7C 15 8E 00 FA 49 86 15 8F 2A 2A 2A 2A 2A |.I|....I...*****|
000041E0: 2A 20 4C 4F 41 44 20 50 52 49 4E 54 20 50 45 44 |* LOAD PRINT PED|
000041F0: 49 47 52 45 45 20 2A 2A 2A 2A 00 04 4A 8B 15 8D |IGREE ****..J...|
00004200: 32 35 38 30 00 2D 4A 90 15 99 22 93 20 20 20 20 |2580.-J...". |
00004210: 20 20 12 1F 20 4C 4F 41 44 20 50 45 44 49 47 52 | .. LOAD PEDIGR|
00004220: 45 45 20 50 52 4F 47 52 41 4D 20 90 22 00 58 4A |EE PROGRAM .".XJ|
00004230: 9A 15 99 22 11 11 11 11 20 20 20 20 50 4C 41 43 |...".... PLAC|
00004240: 45 20 50 52 4F 47 52 41 4D 20 44 49 53 4B 20 49 |E PROGRAM DISK I|
00004250: 4E 20 44 52 49 56 45 22 00 7A 4A A4 15 99 22 11 |N DRIVE".zJ...".|
00004260: 20 20 20 20 20 20 20 20 20 20 41 4E 44 20 48 49 | AND HI|
00004270: 54 20 52 45 54 55 52 4E 2E 22 00 98 4A AE 15 A1 |T RETURN."..J...|
00004280: 41 24 3A 8B 41 24 B2 22 22 B0 41 24 B3 B1 C7 28 |A$:.A$."".A$...(|
00004290: 31 33 29 A7 35 35 35 30 00 D2 4A B8 15 99 22 93 |13).5550..J...".|
000042A0: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 20 |............... |
000042B0: 20 20 12 20 50 4C 45 41 53 45 20 57 41 49 54 2D | . PLEASE WAIT-|
000042C0: 20 4C 4F 41 44 49 4E 47 20 50 52 4F 47 52 41 4D | LOADING PROGRAM|
000042D0: 20 22 00 01 4B C2 15 99 C7 28 31 37 29 C7 28 31 | "..K....(17).(1|
000042E0: 39 29 22 9B 4C 4F 41 44 22 C7 28 33 34 29 22 50 |9)".LOAD".(34)"P|
000042F0: 45 44 49 47 52 45 45 22 C7 28 33 34 29 22 2C 38 |EDIGREE".(34)",8|
00004300: 22 00 19 4B CC 15 99 3A 99 3A 99 3A 99 3A 99 22 |"..K...:.:.:.:."|
00004310: 52 55 4E 22 C7 28 31 39 29 00 41 4B D6 15 97 31 |RUN".(19).AK...1|
00004320: 39 38 2C 34 3A 97 36 33 31 2C 31 39 3A 81 42 B2 |98,4:.631,19:.B.|
00004330: 31 A4 33 3A 97 36 33 31 AA 42 2C 31 33 3A 82 3A |1.3:.631.B,13:.:|
00004340: 80 00 5D 4B 58 1B 99 22 93 11 11 11 12 20 53 55 |..]KX.."..... SU|
00004350: 52 4E 41 4D 45 20 53 45 41 52 43 48 22 00 86 4B |RNAME SEARCH"..K|
00004360: 62 1B 99 22 11 11 11 53 43 52 45 45 4E 20 4F 52 |b.."...SCREEN OR|
00004370: 20 50 52 49 4E 54 45 52 3F 20 28 53 20 4F 52 20 | PRINTER? (S OR |
00004380: 50 29 20 3E 22 3B 00 9C 4B 6C 1B A1 58 58 24 3A |P) >";..Kl..XX$:|
00004390: 8B 58 58 24 B2 22 22 A7 37 30 32 30 00 B8 4B 76 |.XX$."".7020..Kv|
000043A0: 1B 8B 58 58 24 B3 B1 22 53 22 AF 58 58 24 B3 B1 |..XX$.."S".XX$..|
000043B0: 22 50 22 A7 37 30 32 30 00 C1 4B 80 1B 99 58 58 |"P".7020..K...XX|
000043C0: 24 00 D3 4B 8A 1B 8B 58 58 24 B2 22 50 22 A7 38 |$..K...XX$."P".8|
000043D0: 30 30 30 00 03 4C 94 1B 99 22 93 11 12 4E 55 4D |000..L..."...NUM|
000043E0: 42 45 52 22 3B A3 31 30 29 22 53 55 52 4E 41 4D |BER";.10)"SURNAM|
000043F0: 45 22 3B A3 32 32 29 22 47 49 56 45 4E 20 4E 41 |E";.22)"GIVEN NA|
00004400: 4D 45 22 00 09 4C 99 1B 99 00 14 4C 9E 1B 81 49 |ME"..L.....L...I|
00004410: B2 31 A4 4B 00 4A 4C A8 1B 8B 20 C8 28 49 24 28 |.1.K.JL... .(I$(|
00004420: 49 29 2C 35 29 B2 C8 28 5A 42 24 2C 35 29 A7 20 |I),5)..(ZB$,5). |
00004430: 99 22 23 22 3B 49 3B A3 31 30 29 49 24 28 49 29 |."#";I;.10)I$(I)|
00004440: 3B A3 32 32 29 41 24 28 49 29 00 50 4C B2 1B 82 |;.22)A$(I).PL...|
00004450: 00 7E 4C BC 1B 99 3A 99 22 1D 1D 1D 1D 1D 12 20 |.~L...:."...... |
00004460: 20 20 50 52 45 53 53 20 41 4E 59 20 4B 45 59 20 | PRESS ANY KEY |
00004470: 54 4F 20 43 4F 4E 54 49 4E 55 45 20 20 22 00 94 |TO CONTINUE "..|
00004480: 4C C1 1B A1 58 58 24 3A 8B 58 58 24 B2 22 22 A7 |L...XX$:.XX$."".|
00004490: 37 31 30 35 00 9D 4C C6 1B 89 37 35 30 00 C6 4C |7105..L...750..L|
000044A0: 40 1F 9F 34 2C 34 3A 98 34 2C C7 28 31 34 29 3B |@..4,4:.4,.(14);|
000044B0: 22 20 20 20 20 20 20 20 20 20 4E 41 4D 45 20 53 |" NAME S|
000044C0: 45 41 52 43 48 22 00 D7 4C 43 1F 98 34 2C 22 A0 |EARCH"..LC..4,".|
000044D0: 22 3B C7 28 31 35 29 00 F0 4C 45 1F 41 41 24 B2 |";.(15)..LE.AA$.|
000044E0: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 |" "|
000044F0: 00 1F 4D 4A 1F 98 34 2C 22 4E 55 4D 42 45 52 22 |..MJ..4,"NUMBER"|
00004500: 3B 41 41 24 3B 22 53 55 52 4E 41 4D 45 22 3B 41 |;AA$;"SURNAME";A|
00004510: 41 24 3B 22 47 49 56 45 4E 20 4E 41 4D 45 22 00 |A$;"GIVEN NAME".|
00004520: 35 4D 54 1F 81 58 B2 31 A4 37 35 3A 98 34 2C 22 |5MT..X.1.75:.4,"|
00004530: 2D 22 3B 3A 82 00 3C 4D 5E 1F 98 34 00 47 4D 68 |-";:..<M^..4.GMh|
00004540: 1F 81 49 B2 31 A4 4B 00 6D 4D 72 1F 49 49 24 B2 |..I.1.K.mMr.II$.|
00004550: C4 28 49 29 3A 8B 49 B3 31 30 A7 49 49 24 B2 49 |.(I):.I.10.II$.I|
00004560: 49 24 AA 22 20 20 22 3A 89 38 30 37 30 00 84 4D |I$." ":.8070..M|
00004570: 7C 1F 8B 49 B3 31 30 30 A7 49 49 24 B2 49 49 24 ||..I.100.II$.II$|
00004580: AA 22 20 22 00 A4 4D 86 1F 8B 20 C8 28 49 24 28 |." "..M... .(I$(|
00004590: 49 29 2C 35 29 B2 C8 28 5A 42 24 2C 35 29 A7 20 |I),5)..(ZB$,5). |
000045A0: 38 30 39 30 00 AE 4D 90 1F 89 38 31 30 30 00 D2 |8090..M...8100..|
000045B0: 4D 9A 1F 98 34 2C 22 20 23 22 3B 49 49 24 3B 41 |M...4," #";II$;A|
000045C0: 41 24 3B 49 24 28 49 29 3B 41 41 24 3B 41 24 28 |A$;I$(I);AA$;A$(|
000045D0: 49 29 00 D8 4D A4 1F 82 00 E7 4D AE 1F 98 34 3A |I)..M.....M...4:|
000045E0: A0 34 3A 89 37 35 30 00 ED 4D 34 21 8F 00 0A 4E |.4:.750..M4!...N|
000045F0: 3E 21 8F 2A 2A 2A 2A 2A 2A 20 4C 4F 41 44 20 43 |>!.****** LOAD C|
00004600: 4F 56 45 52 20 20 2A 2A 2A 2A 00 30 4E 48 21 99 |OVER ****.0NH!.|
00004610: 22 93 20 20 20 20 20 20 12 1F 20 4C 4F 41 44 20 |". .. LOAD |
00004620: 43 4F 56 45 52 20 50 52 4F 47 52 41 4D 20 90 22 |COVER PROGRAM ."|
00004630: 00 52 4E 5C 21 99 22 11 20 20 20 20 20 20 20 20 |.RN\!.". |
00004640: 20 20 20 20 20 20 48 49 54 20 52 45 54 55 52 4E | HIT RETURN|
00004650: 2E 22 00 70 4E 66 21 A1 41 24 3A 8B 41 24 B2 22 |.".pNf!.A$:.A$."|
00004660: 22 B0 41 24 B3 B1 C7 28 31 33 29 A7 38 35 35 30 |".A$...(13).8550|
00004670: 00 AA 4E 70 21 99 22 93 11 11 11 11 11 11 11 11 |..Np!.".........|
00004680: 11 11 11 11 11 11 11 20 20 20 12 20 50 4C 45 41 |....... . PLEA|
00004690: 53 45 20 57 41 49 54 2D 20 4C 4F 41 44 49 4E 47 |SE WAIT- LOADING|
000046A0: 20 50 52 4F 47 52 41 4D 20 22 00 D6 4E 7A 21 99 | PROGRAM "..Nz!.|
000046B0: C7 28 31 37 29 C7 28 31 39 29 22 9B 4C 4F 41 44 |.(17).(19)".LOAD|
000046C0: 22 C7 28 33 34 29 22 43 4F 56 45 52 22 C7 28 33 |".(34)"COVER".(3|
000046D0: 34 29 22 2C 38 22 00 EE 4E 84 21 99 3A 99 3A 99 |4)",8"..N.!.:.:.|
000046E0: 3A 99 3A 99 22 52 55 4E 22 C7 28 31 39 29 00 16 |:.:."RUN".(19)..|
000046F0: 4F 8E 21 97 31 39 38 2C 34 3A 97 36 33 31 2C 31 |O.!.198,4:.631,1|
00004700: 39 3A 81 42 B2 31 A4 33 3A 97 36 33 31 AA 42 2C |9:.B.1.3:.631.B,|
00004710: 31 33 3A 82 3A 80 00 00 00 |13:.:.... |
..!.... *************************.A....
* FAMILY TREE *.A.... * C
REATED BY *...(.. * GORD AND RICK
HILLMAN *...2.. * GENEALOGY SOFTWARE
*.A.<.. *************************...R..A
$(664),I$(664),FB$(19),CB$(10,20):FD.0:F
X.19:U$.",".<.|..N(63),N$(63),GN$(63),B$
(15),BP$(15),NF$(63),MN$(63),TN$(20).A..
..SF$(31),GF$(31),SM$(31),GM$(31).Y....5
3280,15:.53281,15......"....FFFFFFFFFFFF
FFFFFF"......".. REMOVE PROGRAM DISK
"......".. AND "...
...".. INSERT DATA DISK "...B..".
DDDDDDDDDDDDDDDDDD".=.L..".HAVE YOU EXCH
ANGED DISKS?".R.V..A$:.A$.."Y".470.P....
"... TO START PRESS 'S'"......P$:.P$.."S
".490......"...FFFFFFFFFFFFFFFFFF"......
".. SETTING UP INDEX ".Y....".DDDDDDDDDD
DDDDDDDD"......"."...&..".IS THIS DISK I
NDEXED? .Y..";...0..O$:.O$."".560./.:..
F(O$).13.O$."Y".H.D..O$.."Y".O$.."N".560
.P.N..O$...X..".THE LARGEST FILE NUMBER
? ......";:ZM.3:.5130:K.E(ZB$)...B
..K.0.K.664.."..";:.600...L..O$."Y".680.
P.V..O$.."N".550......". WAIT
":.I.1.K.2....".....
.........."I;:I$(I)." /":A$(I)."/".T....
" "I$(I);" ";A$(I);" ":..Y...I$(K.1)
."END":A$(K.1)."END":.750......5,8,5,"0:
INDEX,S,R"......I.1.K:.5,I$(I),A$(I):.I$
(I)."END".741...P..".........PLEASE WAIT
! ....."I;I$(I);" ";A$(I);"
"......I: 5.1....II.I.K:A$(II)."/":I
$(II)."/".X....".........PLEASE WAIT!
....."II;I$(II);" ";A$(II);" "
......II: 5:.670......"...FFFFFFFFFFFFFF
FFFFFF".D....".. MENU "....
..".DDDDDDDDDDDDDDDDDDDD"......"."......
" .A. CREATE GENEALOGICAL DATA".9. ..
". .B. EDIT GENEALOGICAL DATA".U.*.."
. .C. DELETE DATA".Z.4..". .D. SEA
RCH FOR ANCESTORS"...>..". .E. INDEX
OF ANCESTORS".C.H..". .F. PEDIGREE CH
ART-SCREEN"...R..". .G. PEDIGREE PROG
RAM-PRINTER"...\..". .Q. QUIT". .F.."
..SELECT A LETTER .?..";.3.P..A$:.A$."".
880.W.Z..O.1.8:.A$..J("ABCDEFGQ",O,1)...
I....".";A$;"..";......O.950,990,1000,26
30,3010,3290,5510,930......750..... 15:
5: 2.U...."....RETURN TO THE COVER? (Y O
R N)"......Z$:.Z$."".936......Z$."Y".850
0............ 750.*.... ***************
**********.J.... * CREATE EDIT DELETE
*.J.J.. *************************...T.L
B$."CREATE":LB.0:.1010. ...LB$."EDIT":LB
.1:.1010.....LB$."DELETE":LB.2......ZC.1
.19:FB$(ZC).".":.:X$.".":F$.".":X.0:.ZC.
1.10:Y$(ZC).".":.."....ZD.1.10:.ZC.1.20:
CB$(ZD,ZC).".":.:..J....ZC.1.3:MA$(ZC)."
.":MB$(ZC).".":MC$(ZC).".":MD$(ZC).".":M
E$(ZC).".".}...Y$.".":Y.0:.ZC.....TT$.""
:.". ..";LB$;" GENEALOGY FILE"......
"....F1-MENU F3-HELP F5-SAVE F7-NEXT
PAGE"...$.DN$.".........................
.".+....LB.1. .ZC.1.11:.1330:.ZC:LB.0:.1
380.O.8..LB.2. .ZC.1.11:.1330:.ZC:.1380.
Y.B..1310...L..H(DN$,8);"NAME :.";:TT$.
FB$(1).",".FB$(2):.1240:....V..H(DN$,7);
"NUMBER:.......";F$:....`..H(DN$,10);"BO
RN :.";BL$;BW$;FB$(3):....J..H(DN$,11);
"BPLACE:.";BL$;BW$;FB$(4):..7.T..H(DN$,1
2);"DIED :.";BL$;BW$;FB$(16):..A.~..H(D
N$,13);"DPLACE:.";BL$;BW$;FB$(17)......"
. FATHER":.......H(DN$,
16);"NAME :.";:TT$.FB$(5).",".FB$(6):.1
240:.......H(DN$,18);"NUMBER:.......";FB
$(7)......:." MOTHER":.
.A....H(DN$,21);"NAME :.";:TT$.FB$(8)."
,".FB$(9):.1240:..N....H(DN$,23);"NUMBER
:.";"......";FB$(10):....D..H(DN$,25);"
NUMBER OF MARRIAGES : .";"....";X$;".":.
.M.N.. ****** DISPLAY BLANKING SUBRTN...
X.BL$.".................................
".9...BW$.".............................
....":.BL$;" ";BL$;.Q....BW$;"....
...";BW$;.K....C(TT$).34..TT$:.1290.....
.H(TT$,33);" ";J(TT$,34,C(TT$).33)
.....TT$."":..B....******* DISPLAY REFRE
SH......ZC.1.11:.1330:.ZC:ZC.1:.".";:.13
30...(..1660.5.2..ZC . 1110,1100,1120,11
30,1140,1150,1170,1180,1200,1210,1220.;.
<...^.F.. ********* BLANK COMMAND LINE..
.P..".....
";...Z.."
":."..>";:..V.D..1450:.ZB$."".750..
.N..LB..2.1300...X..ZC.1.11:.1330:.ZC:.1
360.8....".DELETE-ARE YOU SURE? (YES OR
NO)";:ZM.3:.5130.Q....ZB$."".ZB$."NO".75
0......ZB$.."YES"..1360:."YES OR NO":.ZC
.1.2000:.ZC:.1400......ZD.1.10:.ZC.1.20:
CB$(ZD,ZC).".":.:.... ..ZC.1.19:FB$(ZC).
".":.ZC:X.0:Y.0:.3970:.2580:.1000......1
360:.".ENTER NAME OR NUMBER >";:ZM.60:.5
130.0.... ZB$.""..2581:..D.... E(ZB$).K.
1450.].H..SI.1.E(ZB$)..0.1640.X.M..I(ZB$
,3)."ALL". .7000...R.. E(ZB$)..0.F.E(ZB$
):.3770:F$.D(F):.1360:.1525.T....ZC.1.C(
ZB$):. J(ZB$,ZC,1).".". 1530......ZC:.13
60:.". ENTER LIKE THIS: .LASTNAME. , .GI
VEN NAMES.".,....ZC.1.2000:.ZC:.1450.C..
.F$.I(F$,C(F$).1):..L...TK$.H(ZB$,ZC.1):
TJ$.I(ZB$,C(ZB$).ZC)......H(TJ$,1)." ".T
J$.I(TJ$,C(TJ$).1).L...CZ.0:.ZC.1.K:.A$(
ZC).TJ$.I$(ZC).TK$.CZ.CZ.1:CY(CZ).ZC.T..
..ZC..."..CZ.0..1350:."..THAT PERSON IS
NOT ON FILE.":.1520.(.,..SI.1.ZB$.D(CY(1
)):.1640.U.6..CZ.1. F.CY(1):.3770:F$.D(F
):.1360:.1525...@..1360:."THERE ARE";CZ;
".. THEIR #:";:.ZC.1.CZ:.CY(ZC);...J..ZC
:....T..ZC$:.ZC$."".1620...^..1450...H.S
I.0:CB$(NF,ZG).ZB$:TN$(ZG).H(A$(E(ZB$)).
",".I$(E(ZB$)),33)...R..1360:....|..ZC$:
.ZC$."".1660.&....1330.G....ZC$.".".ZC.Z
C.1:.ZC.12.ZC.1.H....ZC$.".".ZC.ZC.1:.ZC
.0.ZC.11.X....".";:.1330......ZC$."."..2
581:.750......ZC$.".". .5310:.1040...B..
ZC$.".". 1890.O.L..ZC$.".".2550...V.. F(
ZC$).13 .1770......1660......1360:.ZC.2.
ZC.7.ZC.9.1830.C....ZC.1.ZM.3:.5130:R$.F
$:.1881:F.E(R$):F$.R$:.1880.Y....ZC.11.Z
M.2:.5130:R$.X$:.1881:X.E(R$):X$.R$:.182
5.....ZD.E(J("00000304161700070010",ZC.2
.1,2))......ZC.2.ZC.7.ZM.33:.5130:R$.FB$
(ZD):.1881:FB$(ZD).R$:.1880.....ZM.3:.51
30:R$.FB$(ZD):.1881:FB$(ZD).R$:.1880.).!
..1330:ZC.0:.1880.V.&..".SURNAME >";:ZM.
66:.5130:SS$.ZB$:.1360...0..".GIVEN NAME
S >";:ZM.66.C(SS$):.5130:SG$.ZB$:.1360..
.5..SS$."".SG$."".1880.F.:..ZC.2.FB$(1).
SS$:FB$(2).SG$...D..ZC.7.FB$(5).SS$:FB$(
6).SG$...N..ZC.9.FB$(8).SS$:FB$(9).SG$.*
.X..1360:.1330:ZC.ZC.1:.".";:.1670.8.Y..
ZB$.""...E.Z.R$.ZB$:..X.B..E(X$).0. 2410
.F.L.NF.0:ZC.0...V.NF.NF.1:.NF.E(X$).241
0.....Y.E(Y$(NF)):.Y.11.U.Y:P.14:G.0....
..Y.10.U.10:P.14:G.0......". ..FAMILY
#";NF;". OF ";H(FB$(2),11);" ";H(FB$(1),
11);"."./....".F1-MENU F3-HELP F5-SAVE
F7-NEXT PAGE".S...."...
SPOUSE".^.... 2110......H(DN$,8);"NU
MBER:.......";MC$(NF):..A.F..H(DN$,9);"N
AME :.";:TT$.MA$(NF).",".MB$(NF):.1240:
....P..H(DN$,11);"MDATE :.";BL$;BW$;MD$(
NF):... Z..H(DN$,12);"MPLACE:.";BL$;BW$;
ME$(NF):..Q ...H(DN$,13);"# OF CHILDREN:
.....";Y$(NF):Y.E(Y$(NF)).\ ...Y.0...~ .
.." CHILDREN".. ...Y.10
..H(DN$,25);" . FOR MORE CHILDREN PRESS
F8 ..".. ..... ...H(DN$,P.ZG);D(ZG);":.
";CB$(NF,ZG);.6);BL$;BW$;TN$(ZG).. ....
!*..ZC.5.ZG.ZC.5.G:.2070:..?!4.. ZC .198
0,1990,2000,2010,2020:..`!>..ZC.1.5:.209
0:.ZC:.Y.0. 2140.P!H..ZG.G.1.U.G..!M.TN$
(ZG).H(A$(E(CB$(NF,ZG)))." ".I$(E(CB$(NF
,ZG))),33)..!R..2070:..K!\.ZC.1:.".";:.1
980..!F..ZC$:.ZC$."".2150..!P.. 2090.."Z
..ZC$.".".ZC.ZC.1:.ZC.5.U.ZC.1.0"...ZC$.
".".ZC.ZC.1:.ZC.0.ZC.5.U.@"...".";:.2090
.Y"...ZC$.".". .2581:.750.T"...ZC$.".".
.5310:. 1940.."...ZC$.".". 1910.."...ZC$
.".". 2550.."...ZC$.".".Y.10.2270.F"J..F
(ZC$).13. 2300.P"T..2150.."...G.10.G.0:P
.14:U.10:.1940..#...G.0.G.10:P.4:U.Y.10:
.1940..#....*#... 1350:.ZC.5. 2390.L#...
ZC. 2340,2320,2350,2360,2380..#...".SURN
AME >";:ZM.66:.5130:R$.MA$(NF):.1881:MA$
(NF).R$..#...1360.J#...".GIVEN NAMES >";
:ZM.66.C(MA$(NF)):.5130:R$.MB$(NF)..#...
1881:MB$(NF).R$:.2370..$$.ZM.3:.5130:R$.
MC$(NF):.1881:MC$(NF).R$:.2370.H$..ZM.33
:.5130:R$.MD$(NF):.1881:MD$(NF).R$:.2370
.T$8.ZM.33:.5130:R$.ME$(NF):.1881:ME$(NF
).R$..$B..1360:.2100:ZC.ZC.1:.".";:.2160
.X$L.ZM.2:.5130:R$.Y$(NF):.1881:Y$(NF).R
$:Y.E(Y$(NF)):ZC.1:.1920..%V.ZG.ZC.5.G:S
I.1:.1450:.2090:.ZC.5.U.2370..%`.ZC.0:.2
370.O%J..". ..COMMENTS : ";H(FB$(2),1
1);" ";H(FB$(1),11);".".T%T.MT.0:.ZT.1.1
0:MT.MT.C(FB$(ZT)):...%U.MT.MT.C(FB$(16)
.FB$(17)).15..%V..X.0. 2430..%W..ZT.1.X:
MT.MT.C(MA$(ZT).MB$(ZT).MC$(ZT).MD$(ZT).
ME$(ZT)).5.X.3..%X.MT.MT.4.E(Y$(ZT)):...
&~.MT.256.MT:.MT.1. 2520.L&..."...THERE
ARE";MT;" SPACES LEFT FOR COMMENTS.".N&.
.."........";:.ZT.1.MT:.".";:...&..."...
.....";FB$(19)..&...1360:."ADD COMMENTS?
(Y OR N) >";:ZM.2:.5130.Y&...ZB$."N".ZB
$."".ZB$.".".1040..&..."........";:.ZT.1
.MT:.".";:...'D..ZB$.."Y".2470.='N.ZM.MT
:."........";:.5130:FB$(19).ZB$:.2440.P'
X..1360:.".YOU HAVE NO SPACE LEFT FOR CO
MMENTS."..'...ZC$:.ZC$."".2530..'...1040
.H'...1360:."SAVE-.ARE YOU SURE. (Y OR N
) >";:ZM.1:.5130..'...ZB$.."Y".1040..'..
.3970:.2580:.990..(..I$(F).FB$(1):A$(F).
FB$(2):...(...FL.0...((...2585:..G(..FL.
0:.5,8,5,"@0:INDEX,S,W".T(...I.1.K.1.T((
..5,I$(I);G(13);A$(I);G(13);.}(2..: 5..(
<....(F.. ***********************..(P..
* FILE SEARCH *..(Z.. **********
*************..(D.."..FFFFFFFFFFFFFFFFFF
FF"..)N..".. PRINT ANCESTORS ".7)X.."
.DDDDDDDDDDDDDDDDDDDD.".])...".........
HIT RETURN FOR MENU".T)...1450:.ZB$."".
750..)...2720:.2760..) ..1360:.".SCREEN
OR PRINTER ? (S OR P) >";.H)...YY$:.YY$
."".2730..)...YY$.."S".YY$.."P".2730..).
..YY$:...)H..3770..*R..YY$."P".4660.C*..
."NAME :";FB$(1);",";FB$(2);
" (#";F;")".D*..."BIRTHDATE :";FB
$(3)..*..."BIRTHPLACE :";FB$(4).B*
..."FATHER'S NAME :";FB$(5);",";FB$(6
);" (#";FB$(7);")"..+..."MOTHER'S NAME
:";FB$(8);",";FB$(9);" (#";FB$(10);")"
."+..."DEATH DATE :";FB$(16).D+...
"DEATH PLACE :";FB$(17).R+...X.0.29
60.Z+...".. PRESS ANY KEY TO CONTINU
E"..+...A$:.A$."".2837..+...I.1.X:."MARR
IAGE#";I..+".."SPOUSE'S NAME :";MA$(I
);",";MB$(I);" (#";MC$(I);")"..,,.."MARR
IAGE DATE :";MD$(I).',6.."MARRIAGE PL
ACE :";ME$(I).<,^..E(Y$(I)).0.2960.N,|
.."CHILDREN: ".N,...Q.1.E(Y$(I)):F.E(CB$
(I,Q))..,...Q;":";I$(F);",";A$(F);.25)F:
.Q..,...".. PRESS ANY KEY TO CONTINUE"
.L,...A$:.A$."".2953.S,...I..,...:."COMM
ENTS ";FB$(19)..-...".. PRESS ANY KEY
TO CONTINUE".(-...A$:.A$."".2980.E-..."-
--------------------".O-...2650.N-B.."..
.FFFFFFFFFFFFFFFFFFFF"..-L..".. INDEX O
F NAMES "..-V..".DDDDDDDDDDDDDDDDDDDD
."..-...2720.F-...YY$."P".4960.Q-..U$.",
"..-..S$." "..-..X.0..-...
I.1.K.....T$.H(I$(I).U$.A$(I).S$,15).,.&
..I.10.." ";.Q.0..I$(I)." /".T$."/
".U.:..I$(I)."/".T$."/
"..D.X.X.1...N..X.21.."...."...X..X
.20...19)I;...B..X.20.I.99..".";.L.L..X.
20..T$:.3220.T.V..I;......I.99..".";....
..T$......X.40.3260../..X.0../...X$:.X$.
"".3240.#/..."....".)/....=/F..X$:.X$.""
.3270.F/P..750.E/Z.."...FFFFFFFFFFFFFFFF
FFFF"../...".. PRINT PEDIGREE "../..
.".DDDDDDDDDDDDDDDDDDDD.".G/..."........
. HIT RETURN FOR MENU"../...1450:.ZB$."
".750../...3770..0..."....PEDIGREE OF ";
FB$(1);U$;FB$(2).?0 ..".................
......................".C0*.."........."
:.X.1.11:..3)"B.":...04.."......":.X.1.5
:..9)"B.":...0>.."......":.X.1.5:..9)"B.
":..T0H.."............"FB$(1);",";FB$(2)
;"(#";F;".)"..0R..X$."0".3430..1\..".(";
H(MA$(1).U$.MB$(1),20);"(#";MC$(1);"))".
)1F..".........";.:1P..". ....";.J1Z..
".";H(FB$(5).U$.FB$(6),20);"(#";FB$(7);"
)".~1..."...........";..1...". ....";.
.1...".";H(FB$(8).U$.FB$(9),20);"(#";FB$
(10);")"..1..F.E(FB$(7)):FP$.FB$(10)..1.
..3770.(2..."......";.9)"...";".";H(FB$(
5).U$.FB$(6),20);"(#";FB$(7);")".F2...".
...";.9)"....";H(FB$(8).U$.FB$(9),20);"(
#";FB$(10);")"..2J.FA$.FB$(7):FC$.FB$(10
)..2T.F.E(FP$)..2...3770.W2..."......";.
9)".C..";H(FB$(5).U$.FB$(6),20);"(#";FB$
(7);")"..3..."....";.9)"....";H(FB$(8).U
$.FB$(9),20);"(#";FB$(10);")".03..FW$.FB
$(7):FV$.FB$(10).=3..F.E(FA$).G3...3770.
.3...".....";.16)".O.";H(FB$(5).U$.FB$(6
),16);"(#";FB$(7);")"..3$..".";.16)".L."
;H(FB$(8).U$.FB$(9),16);"(#";FB$(10);")"
..3..FX$.FB$(7):FY$.FB$(10):F.E(FC$):.37
70.%48.."..";.16)".O.";H(FB$(5).U$.FB$(6
),16);"(#";FB$(7);")".`4B..".";.16)".L."
;H(FB$(8).U$.FB$(9),16);"(#";FB$(10);")"
..4L.FT$.FB$(7):FP$.FB$(10):F.E(FW$):.37
70.G4V.."....";.16)".O.";H(FB$(5).U$.FB$
(6),16);"(#";FB$(7);")"..5`..".";.16)".L
.";H(FB$(8).U$.FB$(9),16);"(#";FB$(10);"
)"..5J.F.E(FV$):.3770.P5T.."..";.16)".O.
";H(FB$(5).U$.FB$(6),16);"(#";FB$(7);")"
..5~..".";.16)".L.";H(FB$(8).U$.FB$(9),1
6);"(#";FB$(10);")"..5..FD$.FB$(7):FE$.F
B$(10):F.E(FX$)..5..."..................
....... . HIT ANY KEY ."..5...A$:.A$.""
.3740..5...750..6...V,90.&6... *********
**************.D6D.. * FDD BLOCK READ
*.B6N.. ***********************.Z6S..
15,8,15:.2,8,2,"#"..6X..4260..6...15,"B-
R:";2;FD;FT;FS..6...4150..6...FI.1.10.F6
...2,FB$(FI):...6...2,X$:X.E(X$):.X.0.39
30..6...I.1.X..6...2,MA$(I):..7(..2,MB$(
I):..72..2,MC$(I):.)7<..2,MD$(I):.97F..2
,ME$(I):..V7Z..FI.16.17:.2,FB$(FI):.FI.D
7[..X.0.3950.Z7\..I.1.X:.2,Y$(I):...7]..
I.1.X:Y.E(Y$(I)):.Y.0.3935..7^..II.1.Y:.
2,CB$(I,II):...7_...K7N..2,FB$(19):.X7X.
2: 15:...7... ***********************..
8... * FDD BLOCK WRITE *.28... *****
******************.J8...15,8,15:.2,8,2,"
#".Y8 ..4260:FL.1.Z8...FI.1.10:.2,FB$(FI
);G(13);:...8...2,X$;G(13);:X.E(X$):.X.0
.4080..8...I.1.X:.2,MA$(I);G(13);:.P8H..
2,MB$(I);G(13);:..8R..2,MC$(I);G(13);:..
8...2,MD$(I);G(13);:..9...2,ME$(I);G(13)
;:..79...FI.16.17:.2,FB$(FI);G(13);:.FI.
F9...X.0. 4110.D9...I.1.X:.2,Y$(I);G(13)
;:.I..9...I.1.X:Y.E(Y$(I)):.Y.0.4105..9.
..II.1.Y:.2,CB$(I,II);G(13);:...9....B9.
..2,FB$(19);G(13);.X9...15,"B-A",0,FT,FS
..9...15,"B-W:";2;FD;FT;FS..9"..4150..:,
. 2: 15:..':6.. ***********************.
E:@.. * ERROR CHECK *.C:J.. ****
*******************.X:T..15,EN,EM$,ET,ES
..:^..EN.0....:H..".ERROR STATUS:";EN;EM
$;ET;ES.E:R.."CONTINUE?";Y$:.Y$."Y"...K:
|....:... ***********************..;...
* SET TRACK & SECTOR *.%;... **********
*************.F;...F.358.F1.0:F2.22:F3.1
:.4300.P;...F.357.F.472.F1.357:F2.20:F3.
19:.4300..;...F.471.F.580.F1.471:F2.19:F
3.25:.4300..;B..F.579.F1.579:F2.18:F3.31
.W;L.FT..(((F.F1).1).(F2.1)).F3..;V.FS.F
.F1.(FT.F3).F2.(FT.F3.1)..;.....<...3440
. <...**SEARCH BY NAME**.D<..."...";.12)
".SEARCHING BY NAME".C<..."...SURNAME OF
PERSON: ";.K<...X$..<..."GIVEN NAME OF
PERSON: ";:.Y$..<&.."ARE YOU USING A PRI
NTER";T$:.T$."Y".4490.C<0....<:..".NUMBE
R";.15)"SURNAME";.25)"GIVEN NAME"..<D..I
.1.K..=N..I$(I).X$.A$(I).Y$.."#";I;.15)I
$(I);.25)A$(I).`=X..I$(I).X$.Y$."ALL".."
#";I;.15)I$(I);.25)A$(I).G=B..:..=L.."..
.. PRESS ANY KEY TO CONTINUE"..=V..A$:
.A$."".4470..=...2660.N=...**PRINTOUT OF
NAME SEARCH**..=..AA$."
"..=...4,4.#>...4,G(14)" NA
ME SEARCH":.4,G(10).0>...4,G(15).A>...4,
" NUMBER";AA$;"SURNAME";AA$;"GIVEN NAME
".W>F..X.1.75:.4,"-";:..~>P..4..>Z..I.1.
K..>..II$.D(I):.I.10.II$.II$." ":.4600.
F>...I.100.II$.II$." "..>...I$(I).X$.Y$.
"ALL".4640..>...I$(I).X$.A$(I).Y$.4630..
?...:.4650.8?...4," #";II$;AA$;I$(I);A
A$;A$(I):.:.4650.`? ..4," #";II$;AA$;I
$(I);AA$;A$(I):..P?*..4: 4:.2660..?4.. *
* PRINTOUT OF SEARCH **..?>..4,4.C?H..4,
G(14);" ";FB$(2);" ";FB$(1)..?R.
.4,G(15):.T.1.75:.4,"-";:.:.4,G(10).(@\.
.4," NAME :";FB$(1);",";FB
$(2);" (#";F;")".N@F..4," BIRTHDATE
:";FB$(3).T@P..4," BIRTHPLACE
:";FB$(4)..@Z..4," FATHER'S NAME
:";FB$(5);",";FB$(6);" (#";FB$(7);")"..
@...4," MOTHER'S NAME :";FB$(8);","
;FB$(9);" (#";FB$(10);")"..A...4,G(10).-
A...4," DEATH DATE :";FB$(16).TA
...4," DEATH PLACE :";FB$(17).BA.
..X.0.4930.OA...4,G(10)..A...I.1.X:.4,"
MARRIAGE#";I.PA...4," SPOUSE'S NAME
:";MA$(I);",";MB$(I);" (#";MC$(I);")"
..A...4," MARRIAGE DATE :";MD$(I)..
B...4," MARRIAGE PLACE :";ME$(I).)B.
..4,G(10).>B...E(Y$(I)).0.4930.UB...4,"
CHILDREN: ".BB...4,G(10)..B..AA$."
":BB$." ".FB...4,AA$;"
SURNAME";AA$.AA$;"GIVEN NAMES";AA$;" N
UMBER"..C...4,AA$;" -------";AA$.AA$;"--
---------";AA$;" ------".!C$..Q.1.E(Y$(
I)):F.E(CB$(I,Q)).`C...4," ";Q;" ";H
(I$(F).BB$,14);AA$;H(A$(F).BB$,15);AA$;F
.QC8..:.4,G(10):...CB..4,"--------------
-------"..CL..4," COMMENTS ";FB$(19).
.CV..4: 4:.2640.HC`..4,4..CJ..4,G(14);"
INDEX OF NAMES":.4,G(15)..D
T..T.1.75:.4,"-";:.:.4.!D~.U$.",".LD..S$
." ".ZD.
.AA$." ".BD..X.0.MD...I.1.K..D..T$.H(I
$(I).U$.A$(I).S$,30)..D..II$.D(I):.I.10.
II$.II$." ":.5070.IDD..I.100.II$.II$."
"..DN..I.2..(I.2).5100..DX..4," ";II$."
";:.4,T$;:...E...4,G(10):.5120.(E...4,AA
$;II$." ";:.4,T$..E....=E...4: 4:.750.YE
..ZB$."":ZA$."":ZC$.". .".GE...ZC$;".";.
UE...ZZ.1 . 2..E(.. ZY.1 . 30..E2..ZA$:.
ZA$."" . 5260..E7..ZA$.",".ZA$."."..E<.Z
A.F(ZA$).XEF..ZA$.".".C(ZB$).2....FP..ZA
.145.ZA.17.ZA.147.ZA.19.ZA.157.ZA.29.ZA.
148.5260.)FZ..ZA.20.C(ZB$).0.5260.XFD..Z
A.20.ZB$.H(ZB$,C(ZB$).1):.". ..";:.5260
.KFN.. ZA.13.." ":...FX.. C(ZB$).ZM.5170
..F..ZB$.ZB$.ZA$:.ZA$;ZC$;".";..F...ZY..
F..." .";..F ..ZZ.CF...5140..F... ******
EDITING INSTR...G...". .. EDITING
INSTRUCTIONS .".2GH..".ENTERING DATA :"
:."EEEEEEEEEEEEEE"._GR.."-THE CURSOR UP
AND DOWN KEYS ARE USED".XG..." TO PICK A
TOPIC.". G...".-THE RETURN KEY MUST BE
PRESSED".KG..." BEFORE INFORMATION CAN B
E ENTERED."..G...".-A FLASHING CURSOR WI
LL APPEAR ONLY".!H..." WHEN THE RETURN K
EY IS HIT FIRST.".JH...".FUNTION KEYS :"
:."EEEEEEEEEEEEEE"..H..."F1 - RETURNS TO
MAIN MENU. ":." . DOES NOT SAVE D
ATA ! "..H".."F3 - SHOWS THIS INSTRUCTIO
N PAGE."..H,.."F7 - SAVES PRESENT DATA T
O DISK."..I6.."F7 - GOES TO THE NEXT PAG
E. THERE ARE".(I@.." THREE PAGES:"
.IIJ.." 1. GENERAL DATA.".XIT.."
2. MARRIAGE AND CHILDREN DATA."
..I^.." 3. COMMENTS."..IH.." .
HIT ANY KEY TO CONTINUE .".OIR..A$:.A$.
"".5490.UI|....I...****** LOAD PRINT PED
IGREE ****..J...2580.-J...". .. LOA
D PEDIGREE PROGRAM .".XJ...".... PLAC
E PROGRAM DISK IN DRIVE".ZJ...".
AND HIT RETURN."..J...A$:.A$."".A$..G(
13).5550.RJ..."................ . PLEA
SE WAIT- LOADING PROGRAM "..KB..G(17)G(1
9)".LOAD"G(34)"PEDIGREE"G(34)",8"..KL..:
.:.:.:."RUN"G(19).AKV..198,4:.631,19:.B.
1.3:.631.B,13:.:..]KX.."..... SURNAME SE
ARCH"..KB.."...SCREEN OR PRINTER? (S OR
P) >";..KL..XX$:.XX$."".7020..KV..XX$.."
S".XX$.."P".7020.AK...XX$.SK...XX$."P".8
000..L..."...NUMBER";.10)"SURNAME";.22)"
GIVEN NAME"..L.....L...I.1.K.JL... H(I$(
I),5).H(ZB$,5). ."#";I;.10)I$(I);.22)A$(
I).PL....~L...:."...... PRESS ANY KEY
TO CONTINUE "..LA..XX$:.XX$."".7105..LF
..750.FL@..4,4:.4,G(14);" NAME S
EARCH".WLC..4," ";G(15)..LE.AA$."
"..MJ..4,"NUMBER";AA$;"SURNAME";A
A$;"GIVEN NAME".5MT..X.1.75:.4,"-";:..<M
^..4.GMH..I.1.K.MMR.II$.D(I):.I.10.II$.I
I$." ":.8070..M|..I.100.II$.II$." "..M.
.. H(I$(I),5).H(ZB$,5). 8090..M...8100.R
M...4," #";II$;AA$;I$(I);AA$;A$(I).XM...
..M...4: 4:.750..M4!...N>!.****** LOAD C
OVER ****.0NH!.". .. LOAD COVER PR
OGRAM .".RN\!.". HIT RETURN
.".PNF!.A$:.A$."".A$..G(13).8550..NP!.".
............... . PLEASE WAIT- LOADING
PROGRAM ".VNZ!.G(17)G(19)".LOAD"G(34)"C
OVER"G(34)",8"..N.!.:.:.:.:."RUN"G(19)..
O.!.198,4:.631,19:.B.1.3:.631.B,13:.:...
.
> CLICK IMAGE PREVIEW FOR FULL MODAL