DEMO
FILE INFORMATION
FILENAME(S): DEMO
FILE TYPE(S): PRG
FILE SIZE: 17.8K
FIRST SEEN: 2025-11-30 21:23:03
APPEARS ON: 1 disk(s)
FILE HASH
006bd23dc6aaf91cd4ecf3070c5a174efa10f5c339d7d0dcea738407ec2c3c3b
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| C64 HULP 60 2 | DEMO | PRG | DuncanTwain | 17 | 1 | 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 49 46 20 54 48 49 53 20 57 45 52 45 20 54 | IF THIS WERE T|
000001B0: 48 45 20 20 20 20 20 20 20 22 00 DD 09 AE 01 99 |HE "......|
000001C0: 22 12 1F 20 20 46 41 4D 49 4C 59 20 54 52 45 45 |".. FAMILY TREE|
000001D0: 20 50 52 4F 47 52 41 4D 20 20 20 20 22 00 00 0A | PROGRAM "...|
000001E0: B8 01 99 22 12 1F 20 20 59 4F 55 20 57 4F 55 4C |...".. YOU WOUL|
000001F0: 44 20 42 45 20 41 53 4B 45 44 20 20 20 20 20 22 |D BE ASKED "|
00000200: 00 23 0A BA 01 99 22 12 1F 20 20 54 4F 20 52 45 |.#....".. TO RE|
00000210: 4D 4F 56 45 20 54 48 45 20 50 52 4F 47 52 41 4D |MOVE THE PROGRAM|
00000220: 20 20 22 00 46 0A BC 01 99 22 12 1F 20 20 44 49 | ".F....".. DI|
00000230: 53 4B 20 41 4E 44 20 52 45 50 4C 41 43 45 20 49 |SK AND REPLACE I|
00000240: 54 20 20 20 20 22 00 69 0A BE 01 99 22 12 1F 20 |T ".i....".. |
00000250: 20 57 49 54 48 20 41 20 44 41 54 41 20 44 49 53 | WITH A DATA DIS|
00000260: 4B 2E 20 20 20 20 20 20 22 00 84 0A C2 01 99 22 |K. "......"|
00000270: 05 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 |................|
00000280: C4 C4 C4 22 00 A2 0A E0 01 99 22 11 11 90 20 54 |..."......"... T|
00000290: 4F 20 53 54 41 52 54 20 50 52 45 53 53 20 27 53 |O START PRESS 'S|
000002A0: 27 22 00 B7 0A EA 01 A1 50 24 3A 8B 50 24 B3 B1 |'"......P$:.P$..|
000002B0: 22 53 22 A7 34 39 30 00 D4 0A FE 01 99 22 93 11 |"S".490......"..|
000002C0: 05 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 |................|
000002D0: C6 C6 C6 22 00 F0 0A 08 02 99 22 12 1F 20 53 45 |..."......".. SE|
000002E0: 54 54 49 4E 47 20 55 50 20 49 4E 44 45 58 20 22 |TTING UP INDEX "|
000002F0: 00 0B 0B 12 02 99 22 05 C4 C4 C4 C4 C4 C4 C4 C4 |......".........|
00000300: C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 22 00 14 0B 1C 02 |..........".....|
00000310: 99 22 90 22 00 39 0B 26 02 99 22 11 49 53 20 54 |.".".9.&..".IS T|
00000320: 48 49 53 20 44 49 53 4B 20 49 4E 44 45 58 45 44 |HIS DISK INDEXED|
00000330: 3F 20 20 12 59 92 9D 22 3B 00 4C 0B 30 02 A1 4F |? .Y..";.L.0..O|
00000340: 24 3A 8B 4F 24 B2 22 22 A7 35 36 30 00 61 0B 3A |$:.O$."".560.a.:|
00000350: 02 8B C6 28 4F 24 29 B2 31 33 A7 4F 24 B2 22 59 |...(O$).13.O$."Y|
00000360: 22 00 7A 0B 44 02 8B 4F 24 B3 B1 22 59 22 AF 4F |".z.D..O$.."Y".O|
00000370: 24 B3 B1 22 4E 22 A7 35 36 30 00 82 0B 4E 02 99 |$.."N".560...N..|
00000380: 4F 24 00 C6 0B 58 02 99 22 11 54 48 45 20 4C 41 |O$...X..".THE LA|
00000390: 52 47 45 53 54 20 46 49 4C 45 20 4E 55 4D 42 45 |RGEST FILE NUMBE|
000003A0: 52 20 3F 20 20 20 20 20 20 20 9D 9D 9D 9D 9D 9D |R ? ......|
000003B0: 22 3B 3A 5A 4D B2 33 3A 8D 35 31 33 30 3A 4B B2 |";:ZM.3:.5130:K.|
000003C0: C5 28 5A 42 24 29 00 E1 0B 62 02 8B 4B B2 30 B0 |.(ZB$)...b..K.0.|
000003D0: 4B B1 36 36 34 A7 99 22 91 91 22 3B 3A 89 36 30 |K.664.."..";:.60|
000003E0: 30 00 F1 0B 6C 02 8B 4F 24 B2 22 59 22 A7 36 38 |0...l..O$."Y".68|
000003F0: 30 00 02 0C 76 02 8B 4F 24 B3 B1 22 4E 22 A7 35 |0...v..O$.."N".5|
00000400: 35 30 00 36 0C 80 02 99 22 91 20 20 57 41 49 54 |50.6....". WAIT|
00000410: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000420: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3A | ":|
00000430: 81 49 B2 31 A4 4B 00 64 0C 8A 02 99 22 13 11 11 |.I.1.K.d...."...|
00000440: 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D 22 49 3B 3A |............"I;:|
00000450: 49 24 28 49 29 B2 22 20 2F 22 3A 41 24 28 49 29 |I$(I)." /":A$(I)|
00000460: B2 22 2F 22 00 86 0C 94 02 99 22 20 22 49 24 28 |."/"......" "I$(|
00000470: 49 29 3B 22 20 22 3B 41 24 28 49 29 3B 22 20 20 |I);" ";A$(I);" |
00000480: 20 20 20 22 3A 82 00 AB 0C 9E 02 49 24 28 4B AA | ":......I$(K.|
00000490: 31 29 B2 22 45 4E 44 22 3A 41 24 28 4B AA 31 29 |1)."END":A$(K.1)|
000004A0: B2 22 45 4E 44 22 3A 89 37 35 30 00 C9 0C A8 02 |."END":.750.....|
000004B0: 9F 35 2C 38 2C 35 2C 22 30 3A 44 45 4D 4F 2E 49 |.5,8,5,"0:DEMO.I|
000004C0: 4E 44 45 58 2C 53 2C 52 22 00 F4 0C B2 02 81 49 |NDEX,S,R"......I|
000004D0: B2 31 A4 4B 3A 84 35 2C 49 24 28 49 29 2C 41 24 |.1.K:.5,I$(I),A$|
000004E0: 28 49 29 3A 8B 49 24 28 49 29 B2 22 45 4E 44 22 |(I):.I$(I)."END"|
000004F0: A7 37 34 31 00 3C 0D D0 02 99 22 13 11 11 11 11 |.741.<....".....|
00000500: 11 11 11 11 50 4C 45 41 53 45 20 57 41 49 54 21 |....PLEASE WAIT!|
00000510: 20 20 20 20 20 9D 9D 9D 9D 9D 22 49 3B 49 24 28 | ....."I;I$(|
00000520: 49 29 3B 22 20 22 3B 41 24 28 49 29 3B 22 20 20 |I);" ";A$(I);" |
00000530: 20 20 20 20 20 20 20 20 20 20 20 22 00 46 0D E4 | ".F..|
00000540: 02 82 49 3A A0 35 00 68 0D E5 02 81 49 49 B2 49 |..I:.5.h....II.I|
00000550: A4 4B 3A 41 24 28 49 49 29 B2 22 2F 22 3A 49 24 |.K:A$(II)."/":I$|
00000560: 28 49 49 29 B2 22 2F 22 00 AF 0D E6 02 99 22 13 |(II)."/"......".|
00000570: 11 11 11 11 11 11 11 11 50 4C 45 41 53 45 20 57 |........PLEASE W|
00000580: 41 49 54 21 20 20 20 20 20 9D 9D 9D 9D 9D 22 49 |AIT! ....."I|
00000590: 49 3B 49 24 28 49 49 29 3B 22 20 22 3B 41 24 28 |I;I$(II);" ";A$(|
000005A0: 49 49 29 3B 22 20 20 20 20 20 20 20 20 20 22 00 |II);" ".|
000005B0: BF 0D E7 02 82 49 49 3A A0 35 3A 89 36 37 30 00 |.....II:.5:.670.|
000005C0: DE 0D EE 02 99 22 93 11 05 C6 C6 C6 C6 C6 C6 C6 |....."..........|
000005D0: C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 22 00 FB |............."..|
000005E0: 0D F8 02 99 22 12 1F 20 20 20 20 20 20 20 4D 45 |....".. ME|
000005F0: 4E 55 20 20 20 20 20 20 20 20 22 00 18 0E 02 03 |NU ".....|
00000600: 99 22 05 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 |."..............|
00000610: C4 C4 C4 C4 C4 C4 C4 22 00 21 0E 0C 03 99 22 90 |.......".!....".|
00000620: 22 00 49 0E 16 03 99 22 20 20 12 41 92 20 20 20 |".I...." .A. |
00000630: 43 52 45 41 54 45 20 47 45 4E 45 41 4C 4F 47 49 |CREATE GENEALOGI|
00000640: 43 41 4C 20 44 41 54 41 22 00 70 0E 20 03 99 22 |CAL DATA".p. .."|
00000650: 11 20 20 12 42 92 20 20 20 45 44 49 54 20 47 45 |. .B. EDIT GE|
00000660: 4E 45 41 4C 4F 47 49 43 41 4C 20 44 41 54 41 22 |NEALOGICAL DATA"|
00000670: 00 8C 0E 2A 03 99 22 11 20 20 12 43 92 20 20 20 |...*..". .C. |
00000680: 44 45 4C 45 54 45 20 44 41 54 41 22 00 B1 0E 34 |DELETE DATA"...4|
00000690: 03 99 22 11 20 20 12 44 92 20 20 20 53 45 41 52 |..". .D. SEAR|
000006A0: 43 48 20 46 4F 52 20 41 4E 43 45 53 54 4F 52 53 |CH FOR ANCESTORS|
000006B0: 22 00 D4 0E 3E 03 99 22 11 20 20 12 45 92 20 20 |"...>..". .E. |
000006C0: 20 49 4E 44 45 58 20 4F 46 20 41 4E 43 45 53 54 | INDEX OF ANCEST|
000006D0: 4F 52 53 22 00 FA 0E 48 03 99 22 11 20 20 12 46 |ORS"...H..". .F|
000006E0: 92 20 20 20 50 45 44 49 47 52 45 45 20 43 48 41 |. PEDIGREE CHA|
000006F0: 52 54 2D 53 43 52 45 45 4E 22 00 23 0F 52 03 99 |RT-SCREEN".#.R..|
00000700: 22 11 20 20 12 47 92 20 20 20 50 45 44 49 47 52 |". .G. PEDIGR|
00000710: 45 45 20 50 52 4F 47 52 41 4D 2D 50 52 49 4E 54 |EE PROGRAM-PRINT|
00000720: 45 52 22 00 38 0F 5C 03 99 22 11 20 20 12 51 92 |ER".8.\..". .Q.|
00000730: 20 20 20 51 55 49 54 22 00 57 0F 66 03 99 22 11 | QUIT".W.f..".|
00000740: 11 53 45 4C 45 43 54 20 41 20 4C 45 54 54 45 52 |.SELECT A LETTER|
00000750: 20 12 3F 92 9D 22 3B 00 6A 0F 70 03 A1 41 24 3A | .?..";.j.p..A$:|
00000760: 8B 41 24 B2 22 22 A7 38 38 30 00 8E 0F 7A 03 81 |.A$."".880...z..|
00000770: 4F B2 31 A4 38 3A 8B 41 24 B3 B1 CA 28 22 41 42 |O.1.8:.A$...("AB|
00000780: 43 44 45 46 47 51 22 2C 4F 2C 31 29 A7 82 00 A0 |CDEFGQ",O,1)....|
00000790: 0F 84 03 99 22 12 22 3B 41 24 3B 22 92 9D 22 3B |....".";A$;"..";|
000007A0: 00 CC 0F 8E 03 91 4F 89 39 35 30 2C 39 39 30 2C |......O.950,990,|
000007B0: 31 30 30 30 2C 32 36 33 30 2C 33 30 31 30 2C 33 |1000,2630,3010,3|
000007C0: 32 39 30 2C 35 35 31 30 2C 39 33 30 00 D5 0F 98 |290,5510,930....|
000007D0: 03 89 37 35 30 00 E3 0F A2 03 A0 31 35 3A A0 35 |..750......15:.5|
000007E0: 3A A0 32 00 0C 10 A7 03 99 22 93 11 11 11 52 45 |:.2......"....RE|
000007F0: 54 55 52 4E 20 54 4F 20 54 48 45 20 43 4F 56 45 |TURN TO THE COVE|
00000800: 52 3F 20 28 59 20 4F 52 20 4E 29 22 00 1F 10 A8 |R? (Y OR N)"....|
00000810: 03 A1 5A 24 3A 8B 5A 24 B2 22 22 A7 39 33 36 00 |..Z$:.Z$."".936.|
00000820: 30 10 A9 03 8B 5A 24 B2 22 59 22 A7 38 35 30 30 |0....Z$."Y".8500|
00000830: 00 36 10 AA 03 80 00 41 10 AC 03 89 20 20 37 35 |.6.....A.... 75|
00000840: 30 00 61 10 B6 03 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |0.a.... ********|
00000850: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000860: 2A 00 81 10 C0 03 8F 20 2A 20 20 20 43 52 45 41 |*...... * CREA|
00000870: 54 45 20 45 44 49 54 20 44 45 4C 45 54 45 20 20 |TE EDIT DELETE |
00000880: 2A 00 A1 10 CA 03 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |*...... ********|
00000890: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000008A0: 2A 00 BD 10 D4 03 4C 42 24 B2 22 43 52 45 41 54 |*.....LB$."CREAT|
000008B0: 45 22 3A 4C 42 B2 30 3A 89 31 30 31 30 00 D7 10 |E":LB.0:.1010...|
000008C0: DE 03 4C 42 24 B2 22 45 44 49 54 22 3A 4C 42 B2 |..LB$."EDIT":LB.|
000008D0: 31 3A 89 31 30 31 30 00 ED 10 E8 03 4C 42 24 B2 |1:.1010.....LB$.|
000008E0: 22 44 45 4C 45 54 45 22 3A 4C 42 B2 32 00 30 11 |"DELETE":LB.2.0.|
000008F0: F2 03 81 5A 43 B2 31 A4 31 39 3A 46 42 24 28 5A |...ZC.1.19:FB$(Z|
00000900: 43 29 B2 22 2E 22 3A 82 3A 58 24 B2 22 2E 22 3A |C).".":.:X$.".":|
00000910: 46 24 B2 22 2E 22 3A 58 B2 30 3A 81 5A 43 B2 31 |F$.".":X.0:.ZC.1|
00000920: A4 31 30 3A 59 24 28 5A 43 29 B2 22 2E 22 3A 82 |.10:Y$(ZC).".":.|
00000930: 00 59 11 F7 03 81 5A 44 B2 31 A4 31 30 3A 81 5A |.Y....ZD.1.10:.Z|
00000940: 43 B2 31 A4 32 30 3A 43 42 24 28 5A 44 2C 5A 43 |C.1.20:CB$(ZD,ZC|
00000950: 29 B2 22 2E 22 3A 82 3A 82 00 A1 11 FC 03 81 5A |).".":.:.......Z|
00000960: 43 B2 31 A4 33 3A 4D 41 24 28 5A 43 29 B2 22 2E |C.1.3:MA$(ZC).".|
00000970: 22 3A 4D 42 24 28 5A 43 29 B2 22 2E 22 3A 4D 43 |":MB$(ZC).".":MC|
00000980: 24 28 5A 43 29 B2 22 2E 22 3A 4D 44 24 28 5A 43 |$(ZC).".":MD$(ZC|
00000990: 29 B2 22 2E 22 3A 4D 45 24 28 5A 43 29 B2 22 2E |).".":ME$(ZC).".|
000009A0: 22 00 B4 11 06 04 59 24 B2 22 2E 22 3A 59 B2 30 |".....Y$.".":Y.0|
000009B0: 3A 82 5A 43 00 E1 11 10 04 54 54 24 B2 22 22 3A |:.ZC.....TT$."":|
000009C0: 99 22 93 20 20 20 20 20 12 1F 22 3B 4C 42 24 3B |.". ..";LB$;|
000009D0: 22 20 47 45 4E 45 41 4C 4F 47 59 20 46 49 4C 45 |" GENEALOGY FILE|
000009E0: 22 00 14 12 1A 04 99 22 13 11 11 90 46 31 2D 4D |"......"....F1-M|
000009F0: 45 4E 55 20 20 46 33 2D 48 45 4C 50 20 20 46 35 |ENU F3-HELP F5|
00000A00: 2D 53 41 56 45 20 20 46 37 2D 4E 45 58 54 20 50 |-SAVE F7-NEXT P|
00000A10: 41 47 45 22 00 39 12 24 04 44 4E 24 B2 22 13 11 |AGE".9.$.DN$."..|
00000A20: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000A30: 11 11 11 11 11 11 11 11 22 00 62 12 2E 04 8B 4C |........".b....L|
00000A40: 42 B2 31 A7 20 81 5A 43 B2 31 A4 31 31 3A 8D 31 |B.1. .ZC.1.11:.1|
00000A50: 33 33 30 3A 82 5A 43 3A 4C 42 B2 30 3A 89 31 33 |330:.ZC:LB.0:.13|
00000A60: 38 30 00 86 12 38 04 8B 4C 42 B2 32 A7 20 81 5A |80...8..LB.2. .Z|
00000A70: 43 B2 31 A4 31 31 3A 8D 31 33 33 30 3A 82 5A 43 |C.1.11:.1330:.ZC|
00000A80: 3A 89 31 33 38 30 00 90 12 42 04 89 31 33 31 30 |:.1380...B..1310|
00000A90: 00 C8 12 4C 04 99 C8 28 44 4E 24 2C 38 29 3B 22 |...L...(DN$,8);"|
00000AA0: 4E 41 4D 45 20 20 3A 92 22 3B 3A 54 54 24 B2 46 |NAME :.";:TT$.F|
00000AB0: 42 24 28 31 29 AA 22 2C 22 AA 46 42 24 28 32 29 |B$(1).",".FB$(2)|
00000AC0: 3A 8D 31 32 34 30 3A 8E 00 EC 12 56 04 99 C8 28 |:.1240:....V...(|
00000AD0: 44 4E 24 2C 37 29 3B 22 4E 55 4D 42 45 52 3A 92 |DN$,7);"NUMBER:.|
00000AE0: 2E 2E 2E 9D 9D 9D 22 3B 46 24 3A 8E 00 17 13 60 |......";F$:....`|
00000AF0: 04 99 C8 28 44 4E 24 2C 31 30 29 3B 22 42 4F 52 |...(DN$,10);"BOR|
00000B00: 4E 20 20 3A 92 22 3B 42 4C 24 3B 42 57 24 3B 46 |N :.";BL$;BW$;F|
00000B10: 42 24 28 33 29 3A 8E 00 42 13 6A 04 99 C8 28 44 |B$(3):..B.j...(D|
00000B20: 4E 24 2C 31 31 29 3B 22 42 50 4C 41 43 45 3A 92 |N$,11);"BPLACE:.|
00000B30: 22 3B 42 4C 24 3B 42 57 24 3B 46 42 24 28 34 29 |";BL$;BW$;FB$(4)|
00000B40: 3A 8E 00 6E 13 74 04 99 C8 28 44 4E 24 2C 31 32 |:..n.t...(DN$,12|
00000B50: 29 3B 22 44 49 45 44 20 20 3A 92 22 3B 42 4C 24 |);"DIED :.";BL$|
00000B60: 3B 42 57 24 3B 46 42 24 28 31 36 29 3A 8E 00 98 |;BW$;FB$(16):...|
00000B70: 13 7E 04 99 C8 28 44 4E 24 2C 31 33 29 3B 22 44 |.~...(DN$,13);"D|
00000B80: 50 4C 41 43 45 3A 92 22 3B 42 4C 24 3B 42 57 24 |PLACE:.";BL$;BW$|
00000B90: 3B 46 42 24 28 31 37 29 00 BB 13 88 04 99 22 11 |;FB$(17)......".|
00000BA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000BB0: 20 20 46 41 54 48 45 52 22 3A 8E 00 F4 13 92 04 | FATHER":......|
00000BC0: 99 C8 28 44 4E 24 2C 31 36 29 3B 22 4E 41 4D 45 |..(DN$,16);"NAME|
00000BD0: 20 20 3A 92 22 3B 3A 54 54 24 B2 46 42 24 28 35 | :.";:TT$.FB$(5|
00000BE0: 29 AA 22 2C 22 AA 46 42 24 28 36 29 3A 8D 31 32 |).",".FB$(6):.12|
00000BF0: 34 30 3A 8E 00 1B 14 9C 04 99 C8 28 44 4E 24 2C |40:........(DN$,|
00000C00: 31 38 29 3B 22 4E 55 4D 42 45 52 3A 92 2E 2E 2E |18);"NUMBER:....|
00000C10: 9D 9D 9D 22 3B 46 42 24 28 37 29 00 3F 14 A6 04 |...";FB$(7).?...|
00000C20: 99 3A 99 22 20 20 20 20 20 20 20 20 20 20 20 20 |.:." |
00000C30: 20 20 20 20 20 20 4D 4F 54 48 45 52 22 3A 8E 00 | MOTHER":..|
00000C40: 78 14 B0 04 99 C8 28 44 4E 24 2C 32 31 29 3B 22 |x.....(DN$,21);"|
00000C50: 4E 41 4D 45 20 20 3A 92 22 3B 3A 54 54 24 B2 46 |NAME :.";:TT$.F|
00000C60: 42 24 28 38 29 AA 22 2C 22 AA 46 42 24 28 39 29 |B$(8).",".FB$(9)|
00000C70: 3A 8D 31 32 34 30 3A 8E 00 A5 14 BA 04 99 C8 28 |:.1240:........(|
00000C80: 44 4E 24 2C 32 33 29 3B 22 4E 55 4D 42 45 52 3A |DN$,23);"NUMBER:|
00000C90: 92 22 3B 22 2E 2E 2E 9D 9D 9D 22 3B 46 42 24 28 |.";"......";FB$(|
00000CA0: 31 30 29 3A 8E 00 DF 14 C4 04 99 C8 28 44 4E 24 |10):........(DN$|
00000CB0: 2C 32 35 29 3B 22 20 4E 55 4D 42 45 52 20 4F 46 |,25);" NUMBER OF|
00000CC0: 20 4D 41 52 52 49 41 47 45 53 20 3A 20 92 22 3B | MARRIAGES : .";|
00000CD0: 22 2E 2E 9D 9D 22 3B 58 24 3B 22 13 22 3A 8E 00 |"....";X$;".":..|
00000CE0: 04 15 CE 04 8F 20 2A 2A 2A 2A 2A 2A 20 44 49 53 |..... ****** DIS|
00000CF0: 50 4C 41 59 20 42 4C 41 4E 4B 49 4E 47 20 53 55 |PLAY BLANKING SU|
00000D00: 42 52 54 4E 00 30 15 D8 04 42 4C 24 B2 22 2E 2E |BRTN.0...BL$."..|
00000D10: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00000D20: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 22 |..............."|
00000D30: 00 70 15 E2 04 42 57 24 B2 22 9D 9D 9D 9D 9D 9D |.p...BW$."......|
00000D40: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D |................|
00000D50: 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 9D 22 3A 99 42 4C |...........":.BL|
00000D60: 24 3B 22 20 20 20 20 20 20 20 22 3B 42 4C 24 3B |$;" ";BL$;|
00000D70: 00 88 15 EC 04 99 42 57 24 3B 22 9D 9D 9D 9D 9D |......BW$;".....|
00000D80: 9D 9D 22 3B 42 57 24 3B 00 A2 15 F6 04 8B C3 28 |..";BW$;.......(|
00000D90: 54 54 24 29 B3 33 34 A7 99 54 54 24 3A 89 31 32 |TT$).34..TT$:.12|
00000DA0: 39 30 00 CF 15 00 05 99 C8 28 54 54 24 2C 33 33 |90.......(TT$,33|
00000DB0: 29 3B 22 20 20 20 20 20 20 20 22 3B CA 28 54 54 |);" ";.(TT|
00000DC0: 24 2C 33 34 2C C3 28 54 54 24 29 AB 33 33 29 00 |$,34,.(TT$).33).|
00000DD0: DC 15 0A 05 54 54 24 B2 22 22 3A 8E 00 F9 15 14 |....TT$."":.....|
00000DE0: 05 8F 2A 2A 2A 2A 2A 2A 2A 20 44 49 53 50 4C 41 |..******* DISPLA|
00000DF0: 59 20 52 45 46 52 45 53 48 00 21 16 1E 05 81 5A |Y REFRESH.!....Z|
00000E00: 43 B2 31 A4 31 31 3A 8D 31 33 33 30 3A 82 5A 43 |C.1.11:.1330:.ZC|
00000E10: 3A 5A 43 B2 31 3A 99 22 12 22 3B 3A 8D 31 33 33 |:ZC.1:.".";:.133|
00000E20: 30 00 2B 16 28 05 89 31 36 36 30 00 6C 16 32 05 |0.+.(..1660.l.2.|
00000E30: 91 5A 43 20 8D 20 31 31 31 30 2C 31 31 30 30 2C |.ZC . 1110,1100,|
00000E40: 31 31 32 30 2C 31 31 33 30 2C 31 31 34 30 2C 31 |1120,1130,1140,1|
00000E50: 31 35 30 2C 31 31 37 30 2C 31 31 38 30 2C 31 32 |150,1170,1180,12|
00000E60: 30 30 2C 31 32 31 30 2C 31 32 32 30 00 72 16 3C |00,1210,1220.r.<|
00000E70: 05 8E 00 95 16 46 05 8F 20 2A 2A 2A 2A 2A 2A 2A |.....F.. *******|
00000E80: 2A 2A 20 42 4C 41 4E 4B 20 43 4F 4D 4D 41 4E 44 |** BLANK COMMAND|
00000E90: 20 4C 49 4E 45 00 E0 16 50 05 99 22 13 11 11 11 | LINE...P.."....|
00000EA0: 11 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
00000EB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000EC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000ED0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3B | ";|
00000EE0: 00 F7 16 5A 05 99 22 20 20 20 20 20 22 3A 99 22 |...Z.." ":."|
00000EF0: 91 91 3E 22 3B 3A 8E 00 0D 17 64 05 8D 31 34 35 |..>";:....d..145|
00000F00: 30 3A 8B 5A 42 24 B2 22 22 A7 37 35 30 00 1D 17 |0:.ZB$."".750...|
00000F10: 6E 05 8B 4C 42 B3 B1 32 A7 31 33 30 30 00 3A 17 |n..LB..2.1300.:.|
00000F20: 78 05 81 5A 43 B2 31 A4 31 31 3A 8D 31 33 33 30 |x..ZC.1.11:.1330|
00000F30: 3A 82 5A 43 3A 8D 31 33 36 30 00 6F 17 82 05 99 |:.ZC:.1360.o....|
00000F40: 22 12 44 45 4C 45 54 45 2D 41 52 45 20 59 4F 55 |".DELETE-ARE YOU|
00000F50: 20 53 55 52 45 3F 20 28 59 45 53 20 4F 52 20 4E | SURE? (YES OR N|
00000F60: 4F 29 22 3B 3A 5A 4D B2 33 3A 8D 35 31 33 30 00 |O)";:ZM.3:.5130.|
00000F70: 88 17 8C 05 8B 5A 42 24 B2 22 22 B0 5A 42 24 B2 |.....ZB$."".ZB$.|
00000F80: 22 4E 4F 22 A7 37 35 30 00 C0 17 96 05 8B 5A 42 |"NO".750......ZB|
00000F90: 24 B3 B1 22 59 45 53 22 A7 8D 31 33 36 30 3A 99 |$.."YES"..1360:.|
00000FA0: 22 59 45 53 20 4F 52 20 4E 4F 22 3A 81 5A 43 B2 |"YES OR NO":.ZC.|
00000FB0: 31 A4 32 30 30 30 3A 82 5A 43 3A 89 31 34 30 30 |1.2000:.ZC:.1400|
00000FC0: 00 E9 17 9B 05 81 5A 44 B2 31 A4 31 30 3A 81 5A |......ZD.1.10:.Z|
00000FD0: 43 B2 31 A4 32 30 3A 43 42 24 28 5A 44 2C 5A 43 |C.1.20:CB$(ZD,ZC|
00000FE0: 29 B2 22 2E 22 3A 82 3A 82 00 20 18 A0 05 81 5A |).".":.:.. ....Z|
00000FF0: 43 B2 31 A4 31 39 3A 46 42 24 28 5A 43 29 B2 22 |C.1.19:FB$(ZC)."|
00001000: 2E 22 3A 82 5A 43 3A 58 B2 30 3A 59 B2 30 3A 8D |.":.ZC:X.0:Y.0:.|
00001010: 33 39 37 30 3A 8D 32 35 38 30 3A 89 31 30 30 30 |3970:.2580:.1000|
00001020: 00 52 18 AA 05 8D 31 33 36 30 3A 99 22 9D 45 4E |.R....1360:.".EN|
00001030: 54 45 52 20 4E 41 4D 45 20 4F 52 20 4E 55 4D 42 |TER NAME OR NUMB|
00001040: 45 52 20 3E 22 3B 3A 5A 4D B2 36 30 3A 8D 35 31 |ER >";:ZM.60:.51|
00001050: 33 30 00 67 18 B4 05 8B 20 5A 42 24 B2 22 22 A7 |30.g.... ZB$."".|
00001060: 8D 32 35 38 31 3A 8E 00 7B 18 BE 05 8B 20 C5 28 |.2581:..{.... .(|
00001070: 5A 42 24 29 B1 4B A7 31 34 35 30 00 94 18 C8 05 |ZB$).K.1450.....|
00001080: 8B 53 49 B2 31 AF C5 28 5A 42 24 29 B3 B1 30 A7 |.SI.1..(ZB$)..0.|
00001090: 31 36 34 30 00 AF 18 CD 05 8B C9 28 5A 42 24 2C |1640.......(ZB$,|
000010A0: 33 29 B2 22 41 4C 4C 22 A7 20 89 37 30 30 30 00 |3)."ALL". .7000.|
000010B0: E2 18 D2 05 8B 20 C5 28 5A 42 24 29 B3 B1 30 A7 |..... .(ZB$)..0.|
000010C0: 46 B2 C5 28 5A 42 24 29 3A 8D 33 37 37 30 3A 46 |F..(ZB$):.3770:F|
000010D0: 24 B2 C4 28 46 29 3A 8D 31 33 36 30 3A 89 31 35 |$..(F):.1360:.15|
000010E0: 32 35 00 0B 19 DC 05 81 5A 43 B2 31 A4 C3 28 5A |25......ZC.1..(Z|
000010F0: 42 24 29 3A 8B 20 CA 28 5A 42 24 2C 5A 43 2C 31 |B$):. .(ZB$,ZC,1|
00001100: 29 B2 22 2E 22 A7 20 31 35 33 30 00 4A 19 E6 05 |).".". 1530.J...|
00001110: 82 5A 43 3A 8D 31 33 36 30 3A 99 22 9D 20 45 4E |.ZC:.1360:.". EN|
00001120: 54 45 52 20 4C 49 4B 45 20 54 48 49 53 3A 20 12 |TER LIKE THIS: .|
00001130: 4C 41 53 54 4E 41 4D 45 92 20 2C 20 12 47 49 56 |LASTNAME. , .GIV|
00001140: 45 4E 20 4E 41 4D 45 53 92 22 00 63 19 F0 05 81 |EN NAMES.".c....|
00001150: 5A 43 B2 31 A4 32 30 30 30 3A 82 5A 43 3A 89 31 |ZC.1.2000:.ZC:.1|
00001160: 34 35 30 00 7A 19 F5 05 46 24 B2 C9 28 46 24 2C |450.z...F$..(F$,|
00001170: C3 28 46 24 29 AB 31 29 3A 8E 00 A3 19 FA 05 54 |.(F$).1):......T|
00001180: 4B 24 B2 C8 28 5A 42 24 2C 5A 43 AB 31 29 3A 54 |K$..(ZB$,ZC.1):T|
00001190: 4A 24 B2 C9 28 5A 42 24 2C C3 28 5A 42 24 29 AB |J$..(ZB$,.(ZB$).|
000011A0: 5A 43 29 00 C9 19 04 06 8B C8 28 54 4A 24 2C 31 |ZC).......(TJ$,1|
000011B0: 29 B2 22 20 22 A7 54 4A 24 B2 C9 28 54 4A 24 2C |)." ".TJ$..(TJ$,|
000011C0: C3 28 54 4A 24 29 AB 31 29 00 03 1A 0E 06 43 5A |.(TJ$).1).....CZ|
000011D0: B2 30 3A 81 5A 43 B2 31 A4 4B 3A 8B 41 24 28 5A |.0:.ZC.1.K:.A$(Z|
000011E0: 43 29 B2 54 4A 24 AF 49 24 28 5A 43 29 B2 54 4B |C).TJ$.I$(ZC).TK|
000011F0: 24 A7 43 5A B2 43 5A AA 31 3A 43 59 28 43 5A 29 |$.CZ.CZ.1:CY(CZ)|
00001200: B2 5A 43 00 0B 1A 18 06 82 5A 43 00 42 1A 22 06 |.ZC......ZC.B.".|
00001210: 8B 43 5A B2 30 A7 8D 31 33 35 30 3A 99 22 9D 12 |.CZ.0..1350:."..|
00001220: 54 48 41 54 20 50 45 52 53 4F 4E 20 49 53 20 4E |THAT PERSON IS N|
00001230: 4F 54 20 4F 4E 20 46 49 4C 45 2E 22 3A 89 31 35 |OT ON FILE.":.15|
00001240: 32 30 00 5F 1A 2C 06 8B 53 49 B2 31 A7 5A 42 24 |20._.,..SI.1.ZB$|
00001250: B2 C4 28 43 59 28 31 29 29 3A 89 31 36 34 30 00 |..(CY(1)):.1640.|
00001260: 8C 1A 36 06 8B 43 5A B2 31 A7 20 46 B2 43 59 28 |..6..CZ.1. F.CY(|
00001270: 31 29 3A 8D 33 37 37 30 3A 46 24 B2 C4 28 46 29 |1):.3770:F$..(F)|
00001280: 3A 8D 31 33 36 30 3A 89 31 35 32 35 00 C7 1A 40 |:.1360:.1525...@|
00001290: 06 8D 31 33 36 30 3A 99 22 54 48 45 52 45 20 41 |..1360:."THERE A|
000012A0: 52 45 22 3B 43 5A 3B 22 9D 2E 20 54 48 45 49 52 |RE";CZ;".. THEIR|
000012B0: 20 23 3A 22 3B 3A 81 5A 43 B2 31 A4 43 5A 3A 99 | #:";:.ZC.1.CZ:.|
000012C0: 43 59 28 5A 43 29 3B 00 D1 1A 4A 06 82 5A 43 3A |CY(ZC);...J..ZC:|
000012D0: 99 00 E7 1A 54 06 A1 5A 43 24 3A 8B 5A 43 24 B2 |....T..ZC$:.ZC$.|
000012E0: 22 22 A7 31 36 32 30 00 F1 1A 5E 06 89 31 34 35 |"".1620...^..145|
000012F0: 30 00 31 1B 68 06 53 49 B2 30 3A 43 42 24 28 4E |0.1.h.SI.0:CB$(N|
00001300: 46 2C 5A 47 29 B2 5A 42 24 3A 54 4E 24 28 5A 47 |F,ZG).ZB$:TN$(ZG|
00001310: 29 B2 C8 28 41 24 28 C5 28 5A 42 24 29 29 AA 22 |)..(A$(.(ZB$))."|
00001320: 2C 22 AA 49 24 28 C5 28 5A 42 24 29 29 2C 33 33 |,".I$(.(ZB$)),33|
00001330: 29 00 3D 1B 72 06 8D 31 33 36 30 3A 8E 00 53 1B |).=.r..1360:..S.|
00001340: 7C 06 A1 5A 43 24 3A 8B 5A 43 24 B2 22 22 A7 31 ||..ZC$:.ZC$."".1|
00001350: 36 36 30 00 5D 1B 86 06 8D 31 33 33 30 00 7E 1B |660.]....1330.~.|
00001360: 90 06 8B 5A 43 24 B2 22 11 22 A7 5A 43 B2 5A 43 |...ZC$.".".ZC.ZC|
00001370: AA 31 3A 8B 5A 43 B2 31 32 A7 5A 43 B2 31 00 9F |.1:.ZC.12.ZC.1..|
00001380: 1B 9A 06 8B 5A 43 24 B2 22 91 22 A7 5A 43 B2 5A |....ZC$.".".ZC.Z|
00001390: 43 AB 31 3A 8B 5A 43 B2 30 A7 5A 43 B2 31 31 00 |C.1:.ZC.0.ZC.11.|
000013A0: AF 1B A4 06 99 22 12 22 3B 3A 8D 31 33 33 30 00 |.....".";:.1330.|
000013B0: C7 1B AE 06 8B 5A 43 24 B2 22 85 22 A7 8D 32 35 |.....ZC$."."..25|
000013C0: 38 31 3A 89 37 35 30 00 E1 1B B8 06 8B 5A 43 24 |81:.750......ZC$|
000013D0: B2 22 86 22 A7 20 8D 35 33 31 30 3A 89 31 30 34 |.".". .5310:.104|
000013E0: 30 00 F4 1B C2 06 8B 5A 43 24 B2 22 88 22 A7 20 |0......ZC$.".". |
000013F0: 31 38 39 30 00 06 1C CC 06 8B 5A 43 24 B2 22 87 |1890......ZC$.".|
00001400: 22 A7 32 35 35 30 00 1C 1C D6 06 8B 20 C6 28 5A |".2550...... .(Z|
00001410: 43 24 29 B2 31 33 20 A7 31 37 37 30 00 26 1C E0 |C$).13 .1770.&..|
00001420: 06 89 31 36 36 30 00 45 1C EA 06 8D 31 33 36 30 |..1660.E....1360|
00001430: 3A 8B 5A 43 B2 32 B0 5A 43 B2 37 B0 5A 43 B2 39 |:.ZC.2.ZC.7.ZC.9|
00001440: A7 31 38 33 30 00 7A 1C F4 06 8B 5A 43 B2 31 A7 |.1830.z....ZC.1.|
00001450: 5A 4D B2 33 3A 8D 35 31 33 30 3A 52 24 B2 46 24 |ZM.3:.5130:R$.F$|
00001460: 3A 8D 31 38 38 31 3A 46 B2 C5 28 52 24 29 3A 46 |:.1881:F..(R$):F|
00001470: 24 B2 52 24 3A 89 31 38 38 30 00 B0 1C FE 06 8B |$.R$:.1880......|
00001480: 5A 43 B2 31 31 A7 5A 4D B2 32 3A 8D 35 31 33 30 |ZC.11.ZM.2:.5130|
00001490: 3A 52 24 B2 58 24 3A 8D 31 38 38 31 3A 58 B2 C5 |:R$.X$:.1881:X..|
000014A0: 28 52 24 29 3A 58 24 B2 52 24 3A 89 31 38 32 35 |(R$):X$.R$:.1825|
000014B0: 00 DD 1C 08 07 5A 44 B2 C5 28 CA 28 22 30 30 30 |.....ZD..(.("000|
000014C0: 30 30 33 30 34 31 36 31 37 30 30 30 37 30 30 31 |0030416170007001|
000014D0: 30 22 2C 5A 43 AC 32 AB 31 2C 32 29 29 00 1A 1D |0",ZC.2.1,2))...|
000014E0: 12 07 8B 5A 43 B1 32 AF 5A 43 B3 37 A7 5A 4D B2 |...ZC.2.ZC.7.ZM.|
000014F0: 33 33 3A 8D 35 31 33 30 3A 52 24 B2 46 42 24 28 |33:.5130:R$.FB$(|
00001500: 5A 44 29 3A 8D 31 38 38 31 3A 46 42 24 28 5A 44 |ZD):.1881:FB$(ZD|
00001510: 29 B2 52 24 3A 89 31 38 38 30 00 4B 1D 1C 07 5A |).R$:.1880.K...Z|
00001520: 4D B2 33 3A 8D 35 31 33 30 3A 52 24 B2 46 42 24 |M.3:.5130:R$.FB$|
00001530: 28 5A 44 29 3A 8D 31 38 38 31 3A 46 42 24 28 5A |(ZD):.1881:FB$(Z|
00001540: 44 29 B2 52 24 3A 89 31 38 38 30 00 60 1D 21 07 |D).R$:.1880.`.!.|
00001550: 8D 31 33 33 30 3A 5A 43 B2 30 3A 89 31 38 38 30 |.1330:ZC.0:.1880|
00001560: 00 8D 1D 26 07 99 22 9D 53 55 52 4E 41 4D 45 20 |...&..".SURNAME |
00001570: 3E 22 3B 3A 5A 4D B2 36 36 3A 8D 35 31 33 30 3A |>";:ZM.66:.5130:|
00001580: 53 53 24 B2 5A 42 24 3A 8D 31 33 36 30 00 C5 1D |SS$.ZB$:.1360...|
00001590: 30 07 99 22 9D 47 49 56 45 4E 20 4E 41 4D 45 53 |0..".GIVEN NAMES|
000015A0: 20 3E 22 3B 3A 5A 4D B2 36 36 AB C3 28 53 53 24 | >";:ZM.66..(SS$|
000015B0: 29 3A 8D 35 31 33 30 3A 53 47 24 B2 5A 42 24 3A |):.5130:SG$.ZB$:|
000015C0: 8D 31 33 36 30 00 DD 1D 35 07 8B 53 53 24 B2 22 |.1360...5..SS$."|
000015D0: 22 B0 53 47 24 B2 22 22 A7 31 38 38 30 00 FD 1D |".SG$."".1880...|
000015E0: 3A 07 8B 5A 43 B2 32 A7 46 42 24 28 31 29 B2 53 |:..ZC.2.FB$(1).S|
000015F0: 53 24 3A 46 42 24 28 32 29 B2 53 47 24 00 1D 1E |S$:FB$(2).SG$...|
00001600: 44 07 8B 5A 43 B2 37 A7 46 42 24 28 35 29 B2 53 |D..ZC.7.FB$(5).S|
00001610: 53 24 3A 46 42 24 28 36 29 B2 53 47 24 00 3D 1E |S$:FB$(6).SG$.=.|
00001620: 4E 07 8B 5A 43 B2 39 A7 46 42 24 28 38 29 B2 53 |N..ZC.9.FB$(8).S|
00001630: 53 24 3A 46 42 24 28 39 29 B2 53 47 24 00 61 1E |S$:FB$(9).SG$.a.|
00001640: 58 07 8D 31 33 36 30 3A 8D 31 33 33 30 3A 5A 43 |X..1360:.1330:ZC|
00001650: B2 5A 43 AA 31 3A 99 22 12 22 3B 3A 89 31 36 37 |.ZC.1:.".";:.167|
00001660: 30 00 6F 1E 59 07 8B 5A 42 24 B2 22 22 A7 8E 00 |0.o.Y..ZB$.""...|
00001670: 7C 1E 5A 07 52 24 B2 5A 42 24 3A 8E 00 8F 1E 62 ||.Z.R$.ZB$:....b|
00001680: 07 8B C5 28 58 24 29 B2 30 A7 20 32 34 31 30 00 |...(X$).0. 2410.|
00001690: 9D 1E 6C 07 4E 46 B2 30 3A 5A 43 B2 30 00 B8 1E |..l.NF.0:ZC.0...|
000016A0: 76 07 4E 46 B2 4E 46 AA 31 3A 8B 4E 46 B1 C5 28 |v.NF.NF.1:.NF..(|
000016B0: 58 24 29 A7 32 34 31 30 00 DB 1E 80 07 59 B2 C5 |X$).2410.....Y..|
000016C0: 28 59 24 28 4E 46 29 29 3A 8B 59 B3 31 31 A7 55 |(Y$(NF)):.Y.11.U|
000016D0: B2 59 3A 50 B2 31 34 3A 47 B2 30 00 F3 1E 8A 07 |.Y:P.14:G.0.....|
000016E0: 8B 59 B1 31 30 A7 55 B2 31 30 3A 50 B2 31 34 3A |.Y.10.U.10:P.14:|
000016F0: 47 B2 30 00 36 1F 94 07 99 22 93 20 20 20 12 1F |G.0.6....". ..|
00001700: 46 41 4D 49 4C 59 20 23 22 3B 4E 46 3B 22 9D 20 |FAMILY #";NF;". |
00001710: 4F 46 20 22 3B C8 28 46 42 24 28 32 29 2C 31 31 |OF ";.(FB$(2),11|
00001720: 29 3B 22 20 22 3B C8 28 46 42 24 28 31 29 2C 31 |);" ";.(FB$(1),1|
00001730: 31 29 3B 22 90 22 00 66 1F 9E 07 99 22 11 46 31 |1);".".f....".F1|
00001740: 2D 4D 45 4E 55 20 20 46 33 2D 48 45 4C 50 20 20 |-MENU F3-HELP |
00001750: 46 35 2D 53 41 56 45 20 20 46 37 2D 4E 45 58 54 |F5-SAVE F7-NEXT|
00001760: 20 50 41 47 45 22 00 8A 1F A8 07 99 22 11 11 11 | PAGE"......"...|
00001770: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001780: 20 20 20 53 50 4F 55 53 45 22 00 95 1F B2 07 89 | SPOUSE"......|
00001790: 20 32 31 31 30 00 BE 1F BC 07 99 C8 28 44 4E 24 | 2110.......(DN$|
000017A0: 2C 38 29 3B 22 4E 55 4D 42 45 52 3A 92 2E 2E 2E |,8);"NUMBER:....|
000017B0: 9D 9D 9D 22 3B 4D 43 24 28 4E 46 29 3A 8E 00 F8 |...";MC$(NF):...|
000017C0: 1F C6 07 99 C8 28 44 4E 24 2C 39 29 3B 22 4E 41 |.....(DN$,9);"NA|
000017D0: 4D 45 20 20 3A 92 22 3B 3A 54 54 24 B2 4D 41 24 |ME :.";:TT$.MA$|
000017E0: 28 4E 46 29 AA 22 2C 22 AA 4D 42 24 28 4E 46 29 |(NF).",".MB$(NF)|
000017F0: 3A 8D 31 32 34 30 3A 8E 00 24 20 D0 07 99 C8 28 |:.1240:..$ ....(|
00001800: 44 4E 24 2C 31 31 29 3B 22 4D 44 41 54 45 20 3A |DN$,11);"MDATE :|
00001810: 92 22 3B 42 4C 24 3B 42 57 24 3B 4D 44 24 28 4E |.";BL$;BW$;MD$(N|
00001820: 46 29 3A 8E 00 50 20 DA 07 99 C8 28 44 4E 24 2C |F):..P ....(DN$,|
00001830: 31 32 29 3B 22 4D 50 4C 41 43 45 3A 92 22 3B 42 |12);"MPLACE:.";B|
00001840: 4C 24 3B 42 57 24 3B 4D 45 24 28 4E 46 29 3A 8E |L$;BW$;ME$(NF):.|
00001850: 00 88 20 E4 07 99 C8 28 44 4E 24 2C 31 33 29 3B |.. ....(DN$,13);|
00001860: 22 23 20 4F 46 20 43 48 49 4C 44 52 45 4E 3A 92 |"# OF CHILDREN:.|
00001870: 2E 2E 9D 9D 22 3B 59 24 28 4E 46 29 3A 59 B2 C5 |....";Y$(NF):Y..|
00001880: 28 59 24 28 4E 46 29 29 00 93 20 EE 07 8B 59 B2 |(Y$(NF)).. ...Y.|
00001890: 30 A7 8E 00 B5 20 F8 07 99 22 20 20 20 20 20 20 |0.... ..." |
000018A0: 20 20 20 20 20 20 20 20 20 20 20 20 43 48 49 4C | CHIL|
000018B0: 44 52 45 4E 22 00 EE 20 02 08 8B 59 B1 31 30 A7 |DREN".. ...Y.10.|
000018C0: 99 C8 28 44 4E 24 2C 32 35 29 3B 22 20 20 12 20 |..(DN$,25);" . |
000018D0: 46 4F 52 20 4D 4F 52 45 20 43 48 49 4C 44 52 45 |FOR MORE CHILDRE|
000018E0: 4E 20 50 52 45 53 53 20 46 38 20 92 13 22 00 F4 |N PRESS F8 .."..|
000018F0: 20 0C 08 8E 00 2F 21 16 08 99 C8 28 44 4E 24 2C | ..../!....(DN$,|
00001900: 50 AA 5A 47 29 3B C4 28 5A 47 29 3B 22 3A 92 22 |P.ZG);.(ZG);":."|
00001910: 3B 43 42 24 28 4E 46 2C 5A 47 29 3B A3 36 29 3B |;CB$(NF,ZG);.6);|
00001920: 42 4C 24 3B 42 57 24 3B 54 4E 24 28 5A 47 29 00 |BL$;BW$;TN$(ZG).|
00001930: 35 21 20 08 8E 00 51 21 2A 08 8B 5A 43 B1 35 A7 |5! ...Q!*..ZC.5.|
00001940: 5A 47 B2 5A 43 AB 35 AA 47 3A 8D 32 30 37 30 3A |ZG.ZC.5.G:.2070:|
00001950: 8E 00 76 21 34 08 91 20 5A 43 20 8D 31 39 38 30 |..v!4.. ZC .1980|
00001960: 2C 31 39 39 30 2C 32 30 30 30 2C 32 30 31 30 2C |,1990,2000,2010,|
00001970: 32 30 32 30 3A 8E 00 97 21 3E 08 81 5A 43 B2 31 |2020:...!>..ZC.1|
00001980: A4 35 3A 8D 32 30 39 30 3A 82 5A 43 3A 8B 59 B2 |.5:.2090:.ZC:.Y.|
00001990: 30 A7 20 32 31 34 30 00 A7 21 48 08 81 5A 47 B2 |0. 2140..!H..ZG.|
000019A0: 47 AA 31 A4 55 AA 47 00 E1 21 4D 08 54 4E 24 28 |G.1.U.G..!M.TN$(|
000019B0: 5A 47 29 B2 C8 28 41 24 28 C5 28 43 42 24 28 4E |ZG)..(A$(.(CB$(N|
000019C0: 46 2C 5A 47 29 29 29 AA 22 20 22 AA 49 24 28 C5 |F,ZG)))." ".I$(.|
000019D0: 28 43 42 24 28 4E 46 2C 5A 47 29 29 29 2C 33 33 |(CB$(NF,ZG))),33|
000019E0: 29 00 ED 21 52 08 8D 32 30 37 30 3A 82 00 02 22 |)..!R..2070:..."|
000019F0: 5C 08 5A 43 B2 31 3A 99 22 12 22 3B 3A 8D 31 39 |\.ZC.1:.".";:.19|
00001A00: 38 30 00 18 22 66 08 A1 5A 43 24 3A 8B 5A 43 24 |80.."f..ZC$:.ZC$|
00001A10: B2 22 22 A7 32 31 35 30 00 23 22 70 08 8D 20 32 |."".2150.#"p.. 2|
00001A20: 30 39 30 00 45 22 7A 08 8B 5A 43 24 B2 22 11 22 |090.E"z..ZC$."."|
00001A30: A7 5A 43 B2 5A 43 AA 31 3A 8B 5A 43 B1 35 AA 55 |.ZC.ZC.1:.ZC.5.U|
00001A40: A7 5A 43 B2 31 00 67 22 84 08 8B 5A 43 24 B2 22 |.ZC.1.g"...ZC$."|
00001A50: 91 22 A7 5A 43 B2 5A 43 AB 31 3A 8B 5A 43 B2 30 |.".ZC.ZC.1:.ZC.0|
00001A60: A7 5A 43 B2 35 AA 55 00 77 22 8E 08 99 22 12 22 |.ZC.5.U.w"..."."|
00001A70: 3B 3A 8D 32 30 39 30 00 90 22 98 08 8B 5A 43 24 |;:.2090.."...ZC$|
00001A80: B2 22 85 22 A7 20 8D 32 35 38 31 3A 89 37 35 30 |.".". .2581:.750|
00001A90: 00 AB 22 A2 08 8B 5A 43 24 B2 22 86 22 A7 20 8D |.."...ZC$.".". .|
00001AA0: 35 33 31 30 3A 89 20 31 39 34 30 00 BE 22 AC 08 |5310:. 1940.."..|
00001AB0: 8B 5A 43 24 B2 22 88 22 A7 20 31 39 31 30 00 D1 |.ZC$.".". 1910..|
00001AC0: 22 B6 08 8B 5A 43 24 B2 22 87 22 A7 20 32 35 35 |"...ZC$.".". 255|
00001AD0: 30 00 E8 22 C0 08 8B 5A 43 24 B2 22 8C 22 AF 59 |0.."...ZC$.".".Y|
00001AE0: B1 31 30 A7 32 32 37 30 00 FD 22 CA 08 8B C6 28 |.10.2270.."....(|
00001AF0: 5A 43 24 29 B2 31 33 A7 20 32 33 30 30 00 07 23 |ZC$).13. 2300..#|
00001B00: D4 08 89 32 31 35 30 00 25 23 DE 08 8B 47 B2 31 |...2150.%#...G.1|
00001B10: 30 A7 47 B2 30 3A 50 B2 31 34 3A 55 B2 31 30 3A |0.G.0:P.14:U.10:|
00001B20: 89 31 39 34 30 00 44 23 E8 08 8B 47 B2 30 A7 47 |.1940.D#...G.0.G|
00001B30: B2 31 30 3A 50 B2 34 3A 55 B2 59 AB 31 30 3A 89 |.10:P.4:U.Y.10:.|
00001B40: 31 39 34 30 00 4A 23 F2 08 80 00 61 23 FC 08 8D |1940.J#....a#...|
00001B50: 20 31 33 35 30 3A 8B 5A 43 B1 35 A7 20 32 33 39 | 1350:.ZC.5. 239|
00001B60: 30 00 83 23 06 09 91 5A 43 89 20 32 33 34 30 2C |0..#...ZC. 2340,|
00001B70: 32 33 32 30 2C 32 33 35 30 2C 32 33 36 30 2C 32 |2320,2350,2360,2|
00001B80: 33 38 30 00 BE 23 10 09 99 22 9D 53 55 52 4E 41 |380..#...".SURNA|
00001B90: 4D 45 20 3E 22 3B 3A 5A 4D B2 36 36 3A 8D 35 31 |ME >";:ZM.66:.51|
00001BA0: 33 30 3A 52 24 B2 4D 41 24 28 4E 46 29 3A 8D 31 |30:R$.MA$(NF):.1|
00001BB0: 38 38 31 3A 4D 41 24 28 4E 46 29 B2 52 24 00 C8 |881:MA$(NF).R$..|
00001BC0: 23 15 09 8D 31 33 36 30 00 01 24 1A 09 99 22 9D |#...1360..$...".|
00001BD0: 47 49 56 45 4E 20 4E 41 4D 45 53 20 3E 22 3B 3A |GIVEN NAMES >";:|
00001BE0: 5A 4D B2 36 36 AB C3 28 4D 41 24 28 4E 46 29 29 |ZM.66..(MA$(NF))|
00001BF0: 3A 8D 35 31 33 30 3A 52 24 B2 4D 42 24 28 4E 46 |:.5130:R$.MB$(NF|
00001C00: 29 00 1C 24 1F 09 8D 31 38 38 31 3A 4D 42 24 28 |)..$...1881:MB$(|
00001C10: 4E 46 29 B2 52 24 3A 89 32 33 37 30 00 4D 24 24 |NF).R$:.2370.M$$|
00001C20: 09 5A 4D B2 33 3A 8D 35 31 33 30 3A 52 24 B2 4D |.ZM.3:.5130:R$.M|
00001C30: 43 24 28 4E 46 29 3A 8D 31 38 38 31 3A 4D 43 24 |C$(NF):.1881:MC$|
00001C40: 28 4E 46 29 B2 52 24 3A 89 32 33 37 30 00 7F 24 |(NF).R$:.2370..$|
00001C50: 2E 09 5A 4D B2 33 33 3A 8D 35 31 33 30 3A 52 24 |..ZM.33:.5130:R$|
00001C60: B2 4D 44 24 28 4E 46 29 3A 8D 31 38 38 31 3A 4D |.MD$(NF):.1881:M|
00001C70: 44 24 28 4E 46 29 B2 52 24 3A 89 32 33 37 30 00 |D$(NF).R$:.2370.|
00001C80: AB 24 38 09 5A 4D B2 33 33 3A 8D 35 31 33 30 3A |.$8.ZM.33:.5130:|
00001C90: 52 24 B2 4D 45 24 28 4E 46 29 3A 8D 31 38 38 31 |R$.ME$(NF):.1881|
00001CA0: 3A 4D 45 24 28 4E 46 29 B2 52 24 00 CF 24 42 09 |:ME$(NF).R$..$B.|
00001CB0: 8D 31 33 36 30 3A 8D 32 31 30 30 3A 5A 43 B2 5A |.1360:.2100:ZC.Z|
00001CC0: 43 AA 31 3A 99 22 12 22 3B 3A 89 32 31 36 30 00 |C.1:.".";:.2160.|
00001CD0: 0F 25 4C 09 5A 4D B2 32 3A 8D 35 31 33 30 3A 52 |.%L.ZM.2:.5130:R|
00001CE0: 24 B2 59 24 28 4E 46 29 3A 8D 31 38 38 31 3A 59 |$.Y$(NF):.1881:Y|
00001CF0: 24 28 4E 46 29 B2 52 24 3A 59 B2 C5 28 59 24 28 |$(NF).R$:Y..(Y$(|
00001D00: 4E 46 29 29 3A 5A 43 B2 31 3A 89 31 39 32 30 00 |NF)):ZC.1:.1920.|
00001D10: 3B 25 56 09 5A 47 B2 5A 43 AB 35 AA 47 3A 53 49 |;%V.ZG.ZC.5.G:SI|
00001D20: B2 31 3A 8D 31 34 35 30 3A 8D 32 30 39 30 3A 8B |.1:.1450:.2090:.|
00001D30: 5A 43 B3 35 AA 55 A7 32 33 37 30 00 4A 25 60 09 |ZC.5.U.2370.J%`.|
00001D40: 5A 43 B2 30 3A 89 32 33 37 30 00 86 25 6A 09 99 |ZC.0:.2370..%j..|
00001D50: 22 93 20 20 20 20 1F 12 43 4F 4D 4D 45 4E 54 53 |". ..COMMENTS|
00001D60: 20 3A 20 22 3B C8 28 46 42 24 28 32 29 2C 31 31 | : ";.(FB$(2),11|
00001D70: 29 3B 22 20 22 3B C8 28 46 42 24 28 31 29 2C 31 |);" ";.(FB$(1),1|
00001D80: 31 29 3B 22 90 22 00 AB 25 74 09 4D 54 B2 30 3A |1);"."..%t.MT.0:|
00001D90: 81 5A 54 B2 31 A4 31 30 3A 4D 54 B2 4D 54 AA C3 |.ZT.1.10:MT.MT..|
00001DA0: 28 46 42 24 28 5A 54 29 29 3A 82 00 CB 25 75 09 |(FB$(ZT)):...%u.|
00001DB0: 4D 54 B2 4D 54 AA C3 28 46 42 24 28 31 36 29 AA |MT.MT..(FB$(16).|
00001DC0: 46 42 24 28 31 37 29 29 AA 31 35 00 DA 25 76 09 |FB$(17)).15..%v.|
00001DD0: 8B 58 B2 30 A7 20 32 34 33 30 00 1D 26 77 09 81 |.X.0. 2430..&w..|
00001DE0: 5A 54 B2 31 A4 58 3A 4D 54 B2 4D 54 AA C3 28 4D |ZT.1.X:MT.MT..(M|
00001DF0: 41 24 28 5A 54 29 AA 4D 42 24 28 5A 54 29 AA 4D |A$(ZT).MB$(ZT).M|
00001E00: 43 24 28 5A 54 29 AA 4D 44 24 28 5A 54 29 AA 4D |C$(ZT).MD$(ZT).M|
00001E10: 45 24 28 5A 54 29 29 AA 35 AA 58 AC 33 00 35 26 |E$(ZT)).5.X.3.5&|
00001E20: 78 09 4D 54 B2 4D 54 AA 34 AC C5 28 59 24 28 5A |x.MT.MT.4..(Y$(Z|
00001E30: 54 29 29 3A 82 00 4F 26 7E 09 4D 54 B2 32 35 36 |T)):..O&~.MT.256|
00001E40: AB 4D 54 3A 8B 4D 54 B3 31 A7 20 32 35 32 30 00 |.MT:.MT.1. 2520.|
00001E50: 83 26 88 09 99 22 13 11 11 54 48 45 52 45 20 41 |.&..."...THERE A|
00001E60: 52 45 22 3B 4D 54 3B 22 20 53 50 41 43 45 53 20 |RE";MT;" SPACES |
00001E70: 4C 45 46 54 20 46 4F 52 20 43 4F 4D 4D 45 4E 54 |LEFT FOR COMMENT|
00001E80: 53 2E 22 00 A5 26 92 09 99 22 13 11 11 11 11 11 |S."..&..."......|
00001E90: 11 11 22 3B 3A 81 5A 54 B2 31 A4 4D 54 3A 99 22 |..";:.ZT.1.MT:."|
00001EA0: 2E 22 3B 3A 82 00 BD 26 9C 09 99 22 13 11 11 11 |.";:...&..."....|
00001EB0: 11 11 11 11 22 3B 46 42 24 28 31 39 29 00 EF 26 |....";FB$(19)..&|
00001EC0: A6 09 8D 31 33 36 30 3A 99 22 41 44 44 20 43 4F |...1360:."ADD CO|
00001ED0: 4D 4D 45 4E 54 53 3F 20 28 59 20 4F 52 20 4E 29 |MMENTS? (Y OR N)|
00001EE0: 20 3E 22 3B 3A 5A 4D B2 32 3A 8D 35 31 33 30 00 | >";:ZM.2:.5130.|
00001EF0: 10 27 B0 09 8B 5A 42 24 B2 22 4E 22 B0 5A 42 24 |.'...ZB$."N".ZB$|
00001F00: B2 22 22 B0 5A 42 24 B2 22 88 22 A7 31 30 34 30 |."".ZB$.".".1040|
00001F10: 00 32 27 BA 09 99 22 13 11 11 11 11 11 11 11 22 |.2'..."........"|
00001F20: 3B 3A 81 5A 54 B2 31 A4 4D 54 3A 99 22 2E 22 3B |;:.ZT.1.MT:.".";|
00001F30: 3A 82 00 45 27 C4 09 8B 5A 42 24 B3 B1 22 59 22 |:..E'...ZB$.."Y"|
00001F40: A7 32 34 37 30 00 74 27 CE 09 5A 4D B2 4D 54 3A |.2470.t'..ZM.MT:|
00001F50: 99 22 13 11 11 11 11 11 11 11 22 3B 3A 8D 35 31 |."........";:.51|
00001F60: 33 30 3A 46 42 24 28 31 39 29 B2 5A 42 24 3A 89 |30:FB$(19).ZB$:.|
00001F70: 32 34 34 30 00 A7 27 D8 09 8D 31 33 36 30 3A 99 |2440..'...1360:.|
00001F80: 22 12 59 4F 55 20 48 41 56 45 20 4E 4F 20 53 50 |".YOU HAVE NO SP|
00001F90: 41 43 45 20 4C 45 46 54 20 46 4F 52 20 43 4F 4D |ACE LEFT FOR COM|
00001FA0: 4D 45 4E 54 53 2E 22 00 BD 27 E2 09 A1 5A 43 24 |MENTS."..'...ZC$|
00001FB0: 3A 8B 5A 43 24 B2 22 22 A7 32 35 33 30 00 C7 27 |:.ZC$."".2530..'|
00001FC0: EC 09 89 31 30 34 30 00 FF 27 F6 09 8D 31 33 36 |...1040..'...136|
00001FD0: 30 3A 99 22 53 41 56 45 2D 12 41 52 45 20 59 4F |0:."SAVE-.ARE YO|
00001FE0: 55 20 53 55 52 45 92 20 28 59 20 4F 52 20 4E 29 |U SURE. (Y OR N)|
00001FF0: 20 3E 22 3B 3A 5A 4D B2 31 3A 8D 35 31 33 30 00 | >";:ZM.1:.5130.|
00002000: 12 28 00 0A 8B 5A 42 24 B3 B1 22 59 22 A7 31 30 |.(...ZB$.."Y".10|
00002010: 34 30 00 27 28 0A 0A 8D 33 39 37 30 3A 8D 32 35 |40.'(...3970:.25|
00002020: 38 30 3A 89 39 39 30 00 47 28 14 0A 49 24 28 46 |80:.990.G(..I$(F|
00002030: 29 B2 46 42 24 28 31 29 3A 41 24 28 46 29 B2 46 |).FB$(1):A$(F).F|
00002040: 42 24 28 32 29 3A 8E 00 53 28 15 0A 8B 46 4C B2 |B$(2):..S(...FL.|
00002050: 30 A7 8E 00 5F 28 16 0A 8D 32 35 38 35 3A 8E 00 |0..._(...2585:..|
00002060: 83 28 19 0A 46 4C B2 30 3A 9F 35 2C 38 2C 35 2C |.(..FL.0:.5,8,5,|
00002070: 22 40 30 3A 44 45 4D 4F 2E 49 4E 44 45 58 2C 53 |"@0:DEMO.INDEX,S|
00002080: 2C 57 22 00 90 28 1E 0A 81 49 B2 31 A4 4B AA 31 |,W"..(...I.1.K.1|
00002090: 00 B0 28 28 0A 98 35 2C 49 24 28 49 29 3B C7 28 |..((..5,I$(I);.(|
000020A0: 31 33 29 3B 41 24 28 49 29 3B C7 28 31 33 29 3B |13);A$(I);.(13);|
000020B0: 00 B9 28 32 0A 82 3A A0 35 00 BF 28 3C 0A 8E 00 |..(2..:.5..(<...|
000020C0: DD 28 46 0A 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.(F.. **********|
000020D0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 FB 28 |*************..(|
000020E0: 50 0A 8F 20 2A 20 20 46 49 4C 45 20 53 45 41 52 |P.. * FILE SEAR|
000020F0: 43 48 20 20 20 20 20 20 20 20 2A 00 19 29 5A 0A |CH *..)Z.|
00002100: 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |. **************|
00002110: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 37 29 64 0A 99 22 |*********.7)d.."|
00002120: 93 05 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 |................|
00002130: C6 C6 C6 C6 C6 C6 22 00 55 29 6E 0A 99 22 12 1F |......".U)n.."..|
00002140: 20 20 20 20 50 52 49 4E 54 20 41 4E 43 45 53 54 | PRINT ANCEST|
00002150: 4F 52 53 20 22 00 73 29 78 0A 99 22 05 C4 C4 C4 |ORS ".s)x.."....|
00002160: C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 |................|
00002170: C4 90 22 00 99 29 82 0A 99 22 13 11 11 11 11 11 |.."..)..."......|
00002180: 11 11 11 20 20 48 49 54 20 52 45 54 55 52 4E 20 |... HIT RETURN |
00002190: 46 4F 52 20 4D 45 4E 55 22 00 B0 29 8C 0A 8D 31 |FOR MENU"..)...1|
000021A0: 34 35 30 3A 8B 5A 42 24 B2 22 22 A7 20 37 35 30 |450:.ZB$."". 750|
000021B0: 00 C0 29 96 0A 8D 32 37 32 30 3A 89 32 37 36 30 |..)...2720:.2760|
000021C0: 00 EE 29 A0 0A 8D 31 33 36 30 3A 99 22 9D 53 43 |..)...1360:.".SC|
000021D0: 52 45 45 4E 20 4F 52 20 50 52 49 4E 54 45 52 20 |REEN OR PRINTER |
000021E0: 3F 20 28 53 20 4F 52 20 50 29 20 3E 22 3B 00 04 |? (S OR P) >";..|
000021F0: 2A AA 0A A1 59 59 24 3A 8B 59 59 24 B2 22 22 A7 |*...YY$:.YY$."".|
00002200: 32 37 33 30 00 20 2A B4 0A 8B 59 59 24 B3 B1 22 |2730. *...YY$.."|
00002210: 53 22 AF 59 59 24 B3 B1 22 50 22 A7 32 37 33 30 |S".YY$.."P".2730|
00002220: 00 2B 2A BE 0A 99 59 59 24 3A 8E 00 35 2A C8 0A |.+*...YY$:..5*..|
00002230: 8D 33 37 37 30 00 47 2A D2 0A 8B 59 59 24 B2 22 |.3770.G*...YY$."|
00002240: 50 22 A7 34 36 36 30 00 7F 2A DC 0A 99 22 4E 41 |P".4660..*..."NA|
00002250: 4D 45 20 20 20 20 20 20 20 20 20 20 20 20 20 3A |ME :|
00002260: 22 3B 46 42 24 28 31 29 3B 22 2C 22 3B 46 42 24 |";FB$(1);",";FB$|
00002270: 28 32 29 3B 22 20 28 23 22 3B 46 3B 22 29 22 00 |(2);" (#";F;")".|
00002280: A0 2A E6 0A 99 22 42 49 52 54 48 44 41 54 45 20 |.*..."BIRTHDATE |
00002290: 20 20 20 20 20 20 20 3A 22 3B 46 42 24 28 33 29 | :";FB$(3)|
000022A0: 00 C1 2A F0 0A 99 22 42 49 52 54 48 50 4C 41 43 |..*..."BIRTHPLAC|
000022B0: 45 20 20 20 20 20 20 20 3A 22 3B 46 42 24 28 34 |E :";FB$(4|
000022C0: 29 00 FE 2A FA 0A 99 22 46 41 54 48 45 52 27 53 |)..*..."FATHER'S|
000022D0: 20 4E 41 4D 45 20 20 20 20 3A 22 3B 46 42 24 28 | NAME :";FB$(|
000022E0: 35 29 3B 22 2C 22 3B 46 42 24 28 36 29 3B 22 20 |5);",";FB$(6);" |
000022F0: 28 23 22 3B 46 42 24 28 37 29 3B 22 29 22 00 3C |(#";FB$(7);")".<|
00002300: 2B 04 0B 99 22 4D 4F 54 48 45 52 27 53 20 4E 41 |+..."MOTHER'S NA|
00002310: 4D 45 20 20 20 20 3A 22 3B 46 42 24 28 38 29 3B |ME :";FB$(8);|
00002320: 22 2C 22 3B 46 42 24 28 39 29 3B 22 20 28 23 22 |",";FB$(9);" (#"|
00002330: 3B 46 42 24 28 31 30 29 3B 22 29 22 00 5E 2B 09 |;FB$(10);")".^+.|
00002340: 0B 99 22 44 45 41 54 48 20 44 41 54 45 20 20 20 |.."DEATH DATE |
00002350: 20 20 20 20 3A 22 3B 46 42 24 28 31 36 29 00 80 | :";FB$(16)..|
00002360: 2B 0B 0B 99 22 44 45 41 54 48 20 50 4C 41 43 45 |+..."DEATH PLACE|
00002370: 20 20 20 20 20 20 3A 22 3B 46 42 24 28 31 37 29 | :";FB$(17)|
00002380: 00 8E 2B 0E 0B 8B 58 B2 30 A7 32 39 36 30 00 B4 |..+...X.0.2960..|
00002390: 2B 13 0B 99 22 11 11 20 20 20 50 52 45 53 53 20 |+...".. PRESS |
000023A0: 41 4E 59 20 4B 45 59 20 54 4F 20 43 4F 4E 54 49 |ANY KEY TO CONTI|
000023B0: 4E 55 45 22 00 C8 2B 15 0B A1 41 24 3A 8B 41 24 |NUE"..+...A$:.A$|
000023C0: B2 22 22 A7 32 38 33 37 00 E2 2B 18 0B 81 49 B2 |."".2837..+...I.|
000023D0: 31 A4 58 3A 99 22 4D 41 52 52 49 41 47 45 23 22 |1.X:."MARRIAGE#"|
000023E0: 3B 49 00 1F 2C 22 0B 99 22 53 50 4F 55 53 45 27 |;I..,".."SPOUSE'|
000023F0: 53 20 4E 41 4D 45 20 20 20 20 3A 22 3B 4D 41 24 |S NAME :";MA$|
00002400: 28 49 29 3B 22 2C 22 3B 4D 42 24 28 49 29 3B 22 |(I);",";MB$(I);"|
00002410: 20 28 23 22 3B 4D 43 24 28 49 29 3B 22 29 22 00 | (#";MC$(I);")".|
00002420: 40 2C 2C 0B 99 22 4D 41 52 52 49 41 47 45 20 44 |@,,.."MARRIAGE D|
00002430: 41 54 45 20 20 20 20 3A 22 3B 4D 44 24 28 49 29 |ATE :";MD$(I)|
00002440: 00 61 2C 36 0B 99 22 4D 41 52 52 49 41 47 45 20 |.a,6.."MARRIAGE |
00002450: 50 4C 41 43 45 20 20 20 3A 22 3B 4D 45 24 28 49 |PLACE :";ME$(I|
00002460: 29 00 76 2C 5E 0B 8B C5 28 59 24 28 49 29 29 B2 |).v,^...(Y$(I)).|
00002470: 30 A7 32 39 36 30 00 88 2C 7C 0B 99 22 43 48 49 |0.2960..,|.."CHI|
00002480: 4C 44 52 45 4E 3A 20 22 00 A8 2C 86 0B 81 51 B2 |LDREN: "..,...Q.|
00002490: 31 A4 C5 28 59 24 28 49 29 29 3A 46 B2 C5 28 43 |1..(Y$(I)):F..(C|
000024A0: 42 24 28 49 2C 51 29 29 00 CC 2C 87 0B 99 51 3B |B$(I,Q))..,...Q;|
000024B0: 22 3A 22 3B 49 24 28 46 29 3B 22 2C 22 3B 41 24 |":";I$(F);",";A$|
000024C0: 28 46 29 3B A3 32 35 29 46 3A 82 51 00 F2 2C 88 |(F);.25)F:.Q..,.|
000024D0: 0B 99 22 11 11 20 20 20 50 52 45 53 53 20 41 4E |..".. PRESS AN|
000024E0: 59 20 4B 45 59 20 54 4F 20 43 4F 4E 54 49 4E 55 |Y KEY TO CONTINU|
000024F0: 45 22 00 06 2D 89 0B A1 41 24 3A 8B 41 24 B2 22 |E"..-...A$:.A$."|
00002500: 22 A7 32 39 35 33 00 0D 2D 8B 0B 82 49 00 28 2D |".2953..-...I.(-|
00002510: 90 0B 99 3A 99 22 43 4F 4D 4D 45 4E 54 53 20 22 |...:."COMMENTS "|
00002520: 3B 46 42 24 28 31 39 29 00 4E 2D 9A 0B 99 22 11 |;FB$(19).N-...".|
00002530: 11 20 20 20 50 52 45 53 53 20 41 4E 59 20 4B 45 |. PRESS ANY KE|
00002540: 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 00 62 |Y TO CONTINUE".b|
00002550: 2D A4 0B A1 41 24 3A 8B 41 24 B2 22 22 A7 32 39 |-...A$:.A$."".29|
00002560: 38 30 00 7F 2D AE 0B 99 22 2D 2D 2D 2D 2D 2D 2D |80..-..."-------|
00002570: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 |--------------".|
00002580: 89 2D B8 0B 89 32 36 35 30 00 A8 2D C2 0B 99 22 |.-...2650..-..."|
00002590: 93 11 05 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 |................|
000025A0: C6 C6 C6 C6 C6 C6 C6 22 00 C6 2D CC 0B 99 22 1F |......."..-...".|
000025B0: 12 20 20 49 4E 44 45 58 20 4F 46 20 4E 41 4D 45 |. INDEX OF NAME|
000025C0: 53 20 20 20 20 22 00 E4 2D D6 0B 99 22 05 C4 C4 |S "..-..."...|
000025D0: C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 |................|
000025E0: C4 C4 90 22 00 EE 2D E0 0B 8D 32 37 32 30 00 00 |..."..-...2720..|
000025F0: 2E EA 0B 8B 59 59 24 B2 22 50 22 A7 34 39 36 30 |....YY$."P".4960|
00002600: 00 0B 2E F4 0B 55 24 B2 22 2C 22 00 24 2E FE 0B |.....U$.",".$...|
00002610: 53 24 B2 22 20 20 20 20 20 20 20 20 20 20 20 20 |S$." |
00002620: 20 20 20 22 00 2C 2E 08 0C 58 B2 30 00 37 2E 12 | ".,...X.0.7..|
00002630: 0C 81 49 B2 31 A4 4B 00 56 2E 1C 0C 54 24 B2 C8 |..I.1.K.V...T$..|
00002640: 28 49 24 28 49 29 AA 55 24 AA 41 24 28 49 29 AA |(I$(I).U$.A$(I).|
00002650: 53 24 2C 31 35 29 00 66 2E 26 0C 8B 49 B3 31 30 |S$,15).f.&..I.10|
00002660: A7 99 22 20 22 3B 00 8B 2E 30 0C 8B 49 24 28 49 |.." ";...0..I$(I|
00002670: 29 B2 22 20 2F 22 A7 54 24 B2 22 2F 20 20 20 20 |)." /".T$."/ |
00002680: 20 20 20 20 20 20 20 20 20 20 22 00 AF 2E 3A 0C | "...:.|
00002690: 8B 49 24 28 49 29 B2 22 2F 22 A7 54 24 B2 22 2F |.I$(I)."/".T$."/|
000026A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | ".|
000026B0: B9 2E 44 0C 58 B2 58 AA 31 00 CB 2E 4E 0C 8B 58 |..D.X.X.1...N..X|
000026C0: B2 32 31 A7 99 22 13 11 11 11 22 00 DD 2E 58 0C |.21.."...."...X.|
000026D0: 8B 58 B1 32 30 A7 99 A3 31 39 29 49 3B 00 F2 2E |.X.20...19)I;...|
000026E0: 62 0C 8B 58 B1 32 30 AF 49 B1 39 39 A7 99 22 9D |b..X.20.I.99..".|
000026F0: 22 3B 00 06 2F 6C 0C 8B 58 B1 32 30 A7 99 54 24 |";../l..X.20..T$|
00002700: 3A 89 33 32 32 30 00 0E 2F 76 0C 99 49 3B 00 1E |:.3220../v..I;..|
00002710: 2F 80 0C 8B 49 B1 39 39 A7 99 22 9D 22 3B 00 26 |/...I.99..".";.&|
00002720: 2F 8A 0C 99 54 24 00 35 2F 94 0C 8B 58 B3 34 30 |/...T$.5/...X.40|
00002730: A7 33 32 36 30 00 3D 2F 9E 0C 58 B2 30 00 51 2F |.3260.=/..X.0.Q/|
00002740: A8 0C A1 58 24 3A 8B 58 24 B2 22 22 A7 33 32 34 |...X$:.X$."".324|
00002750: 30 00 5D 2F B2 0C 99 22 13 11 11 11 22 00 63 2F |0.]/..."....".c/|
00002760: BC 0C 82 00 77 2F C6 0C A1 58 24 3A 8B 58 24 B2 |....w/...X$:.X$.|
00002770: 22 22 A7 33 32 37 30 00 80 2F D0 0C 89 37 35 30 |"".3270../...750|
00002780: 00 9F 2F DA 0C 99 22 93 11 05 C6 C6 C6 C6 C6 C6 |../...".........|
00002790: C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 C6 22 00 |..............".|
000027A0: BD 2F E4 0C 99 22 1F 12 20 20 50 52 49 4E 54 20 |./...".. PRINT |
000027B0: 50 45 44 49 47 52 45 45 20 20 20 20 22 00 DB 2F |PEDIGREE "../|
000027C0: EE 0C 99 22 05 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 C4 |..."............|
000027D0: C4 C4 C4 C4 C4 C4 C4 C4 C4 90 22 00 01 30 F8 0C |.........."..0..|
000027E0: 99 22 13 11 11 11 11 11 11 11 11 20 20 48 49 54 |."......... HIT|
000027F0: 20 52 45 54 55 52 4E 20 46 4F 52 20 4D 45 4E 55 | RETURN FOR MENU|
00002800: 22 00 17 30 02 0D 8D 31 34 35 30 3A 8B 5A 42 24 |"..0...1450:.ZB$|
00002810: B2 22 22 A7 37 35 30 00 21 30 0C 0D 8D 33 37 37 |."".750.!0...377|
00002820: 30 00 4A 30 16 0D 99 22 93 11 1F 12 50 45 44 49 |0.J0..."....PEDI|
00002830: 47 52 45 45 20 4F 46 20 22 3B 46 42 24 28 31 29 |GREE OF ";FB$(1)|
00002840: 3B 55 24 3B 46 42 24 28 32 29 00 79 30 20 0D 99 |;U$;FB$(2).y0 ..|
00002850: 22 05 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |"...............|
00002860: B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 B7 |................|
00002870: B7 B7 B7 B7 B7 B7 B7 B7 22 00 9D 30 2A 0D 99 22 |........"..0*.."|
00002880: 13 11 11 11 11 11 11 11 11 22 3A 81 58 B2 31 A4 |.........":.X.1.|
00002890: 31 31 3A 99 A3 33 29 22 C2 9D 22 3A 82 00 BD 30 |11:..3)"..":...0|
000028A0: 34 0D 99 22 13 11 11 11 11 11 22 3A 81 58 B2 31 |4.."......":.X.1|
000028B0: A4 35 3A 99 A3 39 29 22 C2 9D 22 3A 82 00 DD 30 |.5:..9)"..":...0|
000028C0: 3E 0D 99 22 11 11 11 11 11 11 22 3A 81 58 B2 31 |>.."......":.X.1|
000028D0: A4 35 3A 99 A3 39 29 22 C2 9D 22 3A 82 00 0E 31 |.5:..9)"..":...1|
000028E0: 48 0D 99 22 12 1F 91 91 91 91 91 91 91 91 91 91 |H.."............|
000028F0: 22 46 42 24 28 31 29 3B 22 2C 22 3B 46 42 24 28 |"FB$(1);",";FB$(|
00002900: 32 29 3B 22 28 23 22 3B 46 3B 22 9D 29 22 00 1F |2);"(#";F;".)"..|
00002910: 31 52 0D 8B 58 24 B2 22 30 22 A7 33 34 33 30 00 |1R..X$."0".3430.|
00002920: 51 31 5C 0D 99 22 90 28 22 3B C8 28 4D 41 24 28 |Q1\..".(";.(MA$(|
00002930: 31 29 AA 55 24 AA 4D 42 24 28 31 29 2C 32 30 29 |1).U$.MB$(1),20)|
00002940: 3B 22 28 23 22 3B 4D 43 24 28 31 29 3B 22 29 29 |;"(#";MC$(1);"))|
00002950: 22 00 63 31 66 0D 99 22 13 11 11 11 11 11 11 11 |".c1f.."........|
00002960: 11 22 3B 00 74 31 70 0D 99 22 05 20 20 20 C0 C0 |.";.t1p..". ..|
00002970: C0 C0 22 3B 00 A4 31 7A 0D 99 22 90 22 3B C8 28 |..";..1z..".";.(|
00002980: 46 42 24 28 35 29 AA 55 24 AA 46 42 24 28 36 29 |FB$(5).U$.FB$(6)|
00002990: 2C 32 30 29 3B 22 28 23 22 3B 46 42 24 28 37 29 |,20);"(#";FB$(7)|
000029A0: 3B 22 29 22 00 B8 31 84 0D 99 22 11 11 11 11 11 |;")"..1...".....|
000029B0: 11 11 11 11 11 11 22 3B 00 C9 31 8E 0D 99 22 05 |......";..1...".|
000029C0: 20 20 20 C0 C0 C0 C0 22 3B 00 FA 31 98 0D 99 22 | ....";..1..."|
000029D0: 90 22 3B C8 28 46 42 24 28 38 29 AA 55 24 AA 46 |.";.(FB$(8).U$.F|
000029E0: 42 24 28 39 29 2C 32 30 29 3B 22 28 23 22 3B 46 |B$(9),20);"(#";F|
000029F0: 42 24 28 31 30 29 3B 22 29 22 00 16 32 A2 0D 46 |B$(10);")"..2..F|
00002A00: B2 C5 28 46 42 24 28 37 29 29 3A 46 50 24 B2 46 |..(FB$(7)):FP$.F|
00002A10: 42 24 28 31 30 29 00 20 32 AC 0D 8D 33 37 37 30 |B$(10). 2...3770|
00002A20: 00 62 32 B6 0D 99 22 13 11 11 11 11 11 22 3B A3 |.b2..."......";.|
00002A30: 39 29 22 05 C0 C0 22 3B 22 90 22 3B C8 28 46 42 |9)"...";".";.(FB|
00002A40: 24 28 35 29 AA 55 24 AA 46 42 24 28 36 29 2C 32 |$(5).U$.FB$(6),2|
00002A50: 30 29 3B 22 28 23 22 3B 46 42 24 28 37 29 3B 22 |0);"(#";FB$(7);"|
00002A60: 29 22 00 A0 32 C0 0D 99 22 11 11 11 11 22 3B A3 |)"..2..."....";.|
00002A70: 39 29 22 05 C0 C0 90 22 3B C8 28 46 42 24 28 38 |9)"....";.(FB$(8|
00002A80: 29 AA 55 24 AA 46 42 24 28 39 29 2C 32 30 29 3B |).U$.FB$(9),20);|
00002A90: 22 28 23 22 3B 46 42 24 28 31 30 29 3B 22 29 22 |"(#";FB$(10);")"|
00002AA0: 00 BB 32 CA 0D 46 41 24 B2 46 42 24 28 37 29 3A |..2..FA$.FB$(7):|
00002AB0: 46 43 24 B2 46 42 24 28 31 30 29 00 C8 32 D4 0D |FC$.FB$(10)..2..|
00002AC0: 46 B2 C5 28 46 50 24 29 00 D2 32 DE 0D 8D 33 37 |F..(FP$)..2...37|
00002AD0: 37 30 00 11 33 E8 0D 99 22 11 11 11 11 11 11 22 |70..3..."......"|
00002AE0: 3B A3 39 29 22 05 C3 C0 90 22 3B C8 28 46 42 24 |;.9)"....";.(FB$|
00002AF0: 28 35 29 AA 55 24 AA 46 42 24 28 36 29 2C 32 30 |(5).U$.FB$(6),20|
00002B00: 29 3B 22 28 23 22 3B 46 42 24 28 37 29 3B 22 29 |);"(#";FB$(7);")|
00002B10: 22 00 4F 33 F2 0D 99 22 11 11 11 11 22 3B A3 39 |".O3..."....";.9|
00002B20: 29 22 05 C0 C0 90 22 3B C8 28 46 42 24 28 38 29 |)"....";.(FB$(8)|
00002B30: AA 55 24 AA 46 42 24 28 39 29 2C 32 30 29 3B 22 |.U$.FB$(9),20);"|
00002B40: 28 23 22 3B 46 42 24 28 31 30 29 3B 22 29 22 00 |(#";FB$(10);")".|
00002B50: 6A 33 FC 0D 46 57 24 B2 46 42 24 28 37 29 3A 46 |j3..FW$.FB$(7):F|
00002B60: 56 24 B2 46 42 24 28 31 30 29 00 77 33 06 0E 46 |V$.FB$(10).w3..F|
00002B70: B2 C5 28 46 41 24 29 00 81 33 10 0E 8D 33 37 37 |..(FA$)..3...377|
00002B80: 30 00 BF 33 1A 0E 99 22 13 11 11 11 11 22 3B A3 |0..3...".....";.|
00002B90: 31 36 29 22 05 CF 90 22 3B C8 28 46 42 24 28 35 |16)"...";.(FB$(5|
00002BA0: 29 AA 55 24 AA 46 42 24 28 36 29 2C 31 36 29 3B |).U$.FB$(6),16);|
00002BB0: 22 28 23 22 3B 46 42 24 28 37 29 3B 22 29 22 00 |"(#";FB$(7);")".|
00002BC0: FA 33 24 0E 99 22 11 22 3B A3 31 36 29 22 05 CC |.3$..".";.16)"..|
00002BD0: 90 22 3B C8 28 46 42 24 28 38 29 AA 55 24 AA 46 |.";.(FB$(8).U$.F|
00002BE0: 42 24 28 39 29 2C 31 36 29 3B 22 28 23 22 3B 46 |B$(9),16);"(#";F|
00002BF0: 42 24 28 31 30 29 3B 22 29 22 00 24 34 2E 0E 46 |B$(10);")".$4..F|
00002C00: 58 24 B2 46 42 24 28 37 29 3A 46 59 24 B2 46 42 |X$.FB$(7):FY$.FB|
00002C10: 24 28 31 30 29 3A 46 B2 C5 28 46 43 24 29 3A 8D |$(10):F..(FC$):.|
00002C20: 33 37 37 30 00 5F 34 38 0E 99 22 11 11 22 3B A3 |3770._48.."..";.|
00002C30: 31 36 29 22 05 CF 90 22 3B C8 28 46 42 24 28 35 |16)"...";.(FB$(5|
00002C40: 29 AA 55 24 AA 46 42 24 28 36 29 2C 31 36 29 3B |).U$.FB$(6),16);|
00002C50: 22 28 23 22 3B 46 42 24 28 37 29 3B 22 29 22 00 |"(#";FB$(7);")".|
00002C60: 9A 34 42 0E 99 22 11 22 3B A3 31 36 29 22 05 CC |.4B..".";.16)"..|
00002C70: 90 22 3B C8 28 46 42 24 28 38 29 AA 55 24 AA 46 |.";.(FB$(8).U$.F|
00002C80: 42 24 28 39 29 2C 31 36 29 3B 22 28 23 22 3B 46 |B$(9),16);"(#";F|
00002C90: 42 24 28 31 30 29 3B 22 29 22 00 C4 34 4C 0E 46 |B$(10);")"..4L.F|
00002CA0: 54 24 B2 46 42 24 28 37 29 3A 46 50 24 B2 46 42 |T$.FB$(7):FP$.FB|
00002CB0: 24 28 31 30 29 3A 46 B2 C5 28 46 57 24 29 3A 8D |$(10):F..(FW$):.|
00002CC0: 33 37 37 30 00 01 35 56 0E 99 22 11 11 11 11 22 |3770..5V.."...."|
00002CD0: 3B A3 31 36 29 22 05 CF 90 22 3B C8 28 46 42 24 |;.16)"...";.(FB$|
00002CE0: 28 35 29 AA 55 24 AA 46 42 24 28 36 29 2C 31 36 |(5).U$.FB$(6),16|
00002CF0: 29 3B 22 28 23 22 3B 46 42 24 28 37 29 3B 22 29 |);"(#";FB$(7);")|
00002D00: 22 00 3C 35 60 0E 99 22 11 22 3B A3 31 36 29 22 |".<5`..".";.16)"|
00002D10: 05 CC 90 22 3B C8 28 46 42 24 28 38 29 AA 55 24 |...";.(FB$(8).U$|
00002D20: AA 46 42 24 28 39 29 2C 31 36 29 3B 22 28 23 22 |.FB$(9),16);"(#"|
00002D30: 3B 46 42 24 28 31 30 29 3B 22 29 22 00 4F 35 6A |;FB$(10);")".O5j|
00002D40: 0E 46 B2 C5 28 46 56 24 29 3A 8D 33 37 37 30 00 |.F..(FV$):.3770.|
00002D50: 8A 35 74 0E 99 22 11 11 22 3B A3 31 36 29 22 05 |.5t.."..";.16)".|
00002D60: CF 90 22 3B C8 28 46 42 24 28 35 29 AA 55 24 AA |..";.(FB$(5).U$.|
00002D70: 46 42 24 28 36 29 2C 31 36 29 3B 22 28 23 22 3B |FB$(6),16);"(#";|
00002D80: 46 42 24 28 37 29 3B 22 29 22 00 C5 35 7E 0E 99 |FB$(7);")"..5~..|
00002D90: 22 11 22 3B A3 31 36 29 22 05 CC 90 22 3B C8 28 |".";.16)"...";.(|
00002DA0: 46 42 24 28 38 29 AA 55 24 AA 46 42 24 28 39 29 |FB$(8).U$.FB$(9)|
00002DB0: 2C 31 36 29 3B 22 28 23 22 3B 46 42 24 28 31 30 |,16);"(#";FB$(10|
00002DC0: 29 3B 22 29 22 00 E9 35 88 0E 46 44 24 B2 46 42 |);")"..5..FD$.FB|
00002DD0: 24 28 37 29 3A 46 45 24 B2 46 42 24 28 31 30 29 |$(7):FE$.FB$(10)|
00002DE0: 3A 46 B2 C5 28 46 58 24 29 00 1B 36 92 0E 99 22 |:F..(FX$)..6..."|
00002DF0: 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00002E00: 11 11 11 11 11 11 11 11 11 20 20 12 20 48 49 54 |......... . HIT|
00002E10: 20 41 4E 59 20 4B 45 59 20 13 22 00 2F 36 9C 0E | ANY KEY ."./6..|
00002E20: A1 41 24 3A 8B 41 24 B2 22 22 A7 33 37 34 30 00 |.A$:.A$."".3740.|
00002E30: 38 36 A6 0E 89 37 35 30 00 42 36 B0 0E 97 56 2C |86...750.B6...V,|
00002E40: 39 30 00 60 36 BA 0E 8F 20 2A 2A 2A 2A 2A 2A 2A |90.`6... *******|
00002E50: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00002E60: 00 7E 36 C4 0E 8F 20 2A 20 46 44 44 20 42 4C 4F |.~6... * FDD BLO|
00002E70: 43 4B 20 52 45 41 44 20 20 20 20 20 20 2A 00 9C |CK READ *..|
00002E80: 36 CE 0E 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |6... ***********|
00002E90: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 B4 36 D3 |************..6.|
00002EA0: 0E 9F 31 35 2C 38 2C 31 35 3A 9F 32 2C 38 2C 32 |..15,8,15:.2,8,2|
00002EB0: 2C 22 23 22 00 BE 36 D8 0E 8D 34 32 36 30 00 D8 |,"#"..6...4260..|
00002EC0: 36 E2 0E 98 31 35 2C 22 42 2D 52 3A 22 3B 32 3B |6...15,"B-R:";2;|
00002ED0: 46 44 3B 46 54 3B 46 53 00 E2 36 EC 0E 8D 34 31 |FD;FT;FS..6...41|
00002EE0: 35 30 00 EF 36 F6 0E 81 46 49 B2 31 A4 31 30 00 |50..6...FI.1.10.|
00002EF0: 00 37 00 0F 84 32 2C 46 42 24 28 46 49 29 3A 82 |.7...2,FB$(FI):.|
00002F00: 00 1C 37 0A 0F 84 32 2C 58 24 3A 58 B2 C5 28 58 |..7...2,X$:X..(X|
00002F10: 24 29 3A 8B 58 B2 30 A7 33 39 33 30 00 27 37 14 |$):.X.0.3930.'7.|
00002F20: 0F 81 49 B2 31 A4 58 00 36 37 1E 0F 84 32 2C 4D |..I.1.X.67...2,M|
00002F30: 41 24 28 49 29 3A 00 45 37 28 0F 84 32 2C 4D 42 |A$(I):.E7(..2,MB|
00002F40: 24 28 49 29 3A 00 54 37 32 0F 84 32 2C 4D 43 24 |$(I):.T72..2,MC$|
00002F50: 28 49 29 3A 00 63 37 3C 0F 84 32 2C 4D 44 24 28 |(I):.c7<..2,MD$(|
00002F60: 49 29 3A 00 73 37 46 0F 84 32 2C 4D 45 24 28 49 |I):.s7F..2,ME$(I|
00002F70: 29 3A 82 00 90 37 5A 0F 81 46 49 B2 31 36 A4 31 |):...7Z..FI.16.1|
00002F80: 37 3A 84 32 2C 46 42 24 28 46 49 29 3A 82 46 49 |7:.2,FB$(FI):.FI|
00002F90: 00 9E 37 5B 0F 8B 58 B2 30 A7 33 39 35 30 00 B4 |..7[..X.0.3950..|
00002FA0: 37 5C 0F 81 49 B2 31 A4 58 3A 84 32 2C 59 24 28 |7\..I.1.X:.2,Y$(|
00002FB0: 49 29 3A 82 00 D4 37 5D 0F 81 49 B2 31 A4 58 3A |I):...7]..I.1.X:|
00002FC0: 59 B2 C5 28 59 24 28 49 29 29 3A 8B 59 B2 30 A7 |Y..(Y$(I)):.Y.0.|
00002FD0: 33 39 33 35 00 EF 37 5E 0F 81 49 49 B2 31 A4 59 |3935..7^..II.1.Y|
00002FE0: 3A 84 32 2C 43 42 24 28 49 2C 49 49 29 3A 82 00 |:.2,CB$(I,II):..|
00002FF0: F5 37 5F 0F 82 00 05 38 6E 0F 84 32 2C 46 42 24 |.7_....8n..2,FB$|
00003000: 28 31 39 29 3A 00 12 38 78 0F A0 32 3A A0 31 35 |(19):..8x..2:.15|
00003010: 3A 8E 00 30 38 82 0F 8F 20 2A 2A 2A 2A 2A 2A 2A |:..08... *******|
00003020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003030: 00 4E 38 8C 0F 8F 20 2A 20 46 44 44 20 42 4C 4F |.N8... * FDD BLO|
00003040: 43 4B 20 57 52 49 54 45 20 20 20 20 20 2A 00 6C |CK WRITE *.l|
00003050: 38 96 0F 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |8... ***********|
00003060: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 84 38 9B |************..8.|
00003070: 0F 9F 31 35 2C 38 2C 31 35 3A 9F 32 2C 38 2C 32 |..15,8,15:.2,8,2|
00003080: 2C 22 23 22 00 93 38 A0 0F 8D 34 32 36 30 3A 46 |,"#"..8...4260:F|
00003090: 4C B2 31 00 B4 38 AA 0F 81 46 49 B2 31 A4 31 30 |L.1..8...FI.1.10|
000030A0: 3A 98 32 2C 46 42 24 28 46 49 29 3B C7 28 31 33 |:.2,FB$(FI);.(13|
000030B0: 29 3B 3A 82 00 D7 38 B4 0F 98 32 2C 58 24 3B C7 |);:...8...2,X$;.|
000030C0: 28 31 33 29 3B 3A 58 B2 C5 28 58 24 29 3A 8B 58 |(13);:X..(X$):.X|
000030D0: B2 30 A7 34 30 38 30 00 F4 38 BE 0F 81 49 B2 31 |.0.4080..8...I.1|
000030E0: A4 58 3A 98 32 2C 4D 41 24 28 49 29 3B C7 28 31 |.X:.2,MA$(I);.(1|
000030F0: 33 29 3B 3A 00 0A 39 C8 0F 98 32 2C 4D 42 24 28 |3);:..9...2,MB$(|
00003100: 49 29 3B C7 28 31 33 29 3B 3A 00 20 39 D2 0F 98 |I);.(13);:. 9...|
00003110: 32 2C 4D 43 24 28 49 29 3B C7 28 31 33 29 3B 3A |2,MC$(I);.(13);:|
00003120: 00 36 39 DC 0F 98 32 2C 4D 44 24 28 49 29 3B C7 |.69...2,MD$(I);.|
00003130: 28 31 33 29 3B 3A 00 4D 39 E6 0F 98 32 2C 4D 45 |(13);:.M9...2,ME|
00003140: 24 28 49 29 3B C7 28 31 33 29 3B 3A 82 00 71 39 |$(I);.(13);:..q9|
00003150: F0 0F 81 46 49 B2 31 36 A4 31 37 3A 98 32 2C 46 |...FI.16.17:.2,F|
00003160: 42 24 28 46 49 29 3B C7 28 31 33 29 3B 3A 82 46 |B$(FI);.(13);:.F|
00003170: 49 00 80 39 F5 0F 8B 58 B2 30 A7 20 34 31 31 30 |I..9...X.0. 4110|
00003180: 00 9E 39 FA 0F 81 49 B2 31 A4 58 3A 98 32 2C 59 |..9...I.1.X:.2,Y|
00003190: 24 28 49 29 3B C7 28 31 33 29 3B 3A 82 49 00 BE |$(I);.(13);:.I..|
000031A0: 39 FF 0F 81 49 B2 31 A4 58 3A 59 B2 C5 28 59 24 |9...I.1.X:Y..(Y$|
000031B0: 28 49 29 29 3A 8B 59 B2 30 A7 34 31 30 35 00 E0 |(I)):.Y.0.4105..|
000031C0: 39 04 10 81 49 49 B2 31 A4 59 3A 98 32 2C 43 42 |9...II.1.Y:.2,CB|
000031D0: 24 28 49 2C 49 49 29 3B C7 28 31 33 29 3B 3A 82 |$(I,II);.(13);:.|
000031E0: 00 E6 39 09 10 82 00 FC 39 0E 10 98 32 2C 46 42 |..9.....9...2,FB|
000031F0: 24 28 31 39 29 3B C7 28 31 33 29 3B 00 12 3A 13 |$(19);.(13);..:.|
00003200: 10 98 31 35 2C 22 42 2D 41 22 2C 30 2C 46 54 2C |..15,"B-A",0,FT,|
00003210: 46 53 00 2C 3A 18 10 98 31 35 2C 22 42 2D 57 3A |FS.,:...15,"B-W:|
00003220: 22 3B 32 3B 46 44 3B 46 54 3B 46 53 00 36 3A 22 |";2;FD;FT;FS.6:"|
00003230: 10 8D 34 31 35 30 00 43 3A 2C 10 A0 32 3A A0 31 |..4150.C:,..2:.1|
00003240: 35 3A 8E 00 61 3A 36 10 8F 20 2A 2A 2A 2A 2A 2A |5:..a:6.. ******|
00003250: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003260: 2A 00 7F 3A 40 10 8F 20 2A 20 20 45 52 52 4F 52 |*..:@.. * ERROR|
00003270: 20 43 48 45 43 4B 20 20 20 20 20 20 20 20 2A 00 | CHECK *.|
00003280: 9D 3A 4A 10 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |.:J.. **********|
00003290: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 B2 3A |*************..:|
000032A0: 54 10 84 31 35 2C 45 4E 2C 45 4D 24 2C 45 54 2C |T..15,EN,EM$,ET,|
000032B0: 45 53 00 BE 3A 5E 10 8B 45 4E B2 30 A7 8E 00 E1 |ES..:^..EN.0....|
000032C0: 3A 68 10 99 22 93 45 52 52 4F 52 20 53 54 41 54 |:h..".ERROR STAT|
000032D0: 55 53 3A 22 3B 45 4E 3B 45 4D 24 3B 45 54 3B 45 |US:";EN;EM$;ET;E|
000032E0: 53 00 FF 3A 72 10 85 22 43 4F 4E 54 49 4E 55 45 |S..:r.."CONTINUE|
000032F0: 3F 22 3B 59 24 3A 8B 59 24 B2 22 59 22 A7 8E 00 |?";Y$:.Y$."Y"...|
00003300: 05 3B 7C 10 90 00 23 3B 86 10 8F 20 2A 2A 2A 2A |.;|...#;... ****|
00003310: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00003320: 2A 2A 2A 00 41 3B 90 10 8F 20 2A 20 53 45 54 20 |***.A;... * SET |
00003330: 54 52 41 43 4B 20 26 20 53 45 43 54 4F 52 20 20 |TRACK & SECTOR |
00003340: 2A 00 5F 3B 9A 10 8F 20 2A 2A 2A 2A 2A 2A 2A 2A |*._;... ********|
00003350: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 |***************.|
00003360: 80 3B A4 10 8B 46 B3 33 35 38 A7 46 31 B2 30 3A |.;...F.358.F1.0:|
00003370: 46 32 B2 32 32 3A 46 33 B2 31 3A 89 34 33 30 30 |F2.22:F3.1:.4300|
00003380: 00 AA 3B AE 10 8B 46 B1 33 35 37 AF 46 B3 34 37 |..;...F.357.F.47|
00003390: 32 A7 46 31 B2 33 35 37 3A 46 32 B2 32 30 3A 46 |2.F1.357:F2.20:F|
000033A0: 33 B2 31 39 3A 89 34 33 30 30 00 D4 3B B8 10 8B |3.19:.4300..;...|
000033B0: 46 B1 34 37 31 AF 46 B3 35 38 30 A7 46 31 B2 34 |F.471.F.580.F1.4|
000033C0: 37 31 3A 46 32 B2 31 39 3A 46 33 B2 32 35 3A 89 |71:F2.19:F3.25:.|
000033D0: 34 33 30 30 00 F2 3B C2 10 8B 46 B1 35 37 39 A7 |4300..;...F.579.|
000033E0: 46 31 B2 35 37 39 3A 46 32 B2 31 38 3A 46 33 B2 |F1.579:F2.18:F3.|
000033F0: 33 31 00 11 3C CC 10 46 54 B2 B5 28 28 28 46 AB |31..<..FT..(((F.|
00003400: 46 31 29 AB 31 29 AD 28 46 32 AB 31 29 29 AA 46 |F1).1).(F2.1)).F|
00003410: 33 00 32 3C D6 10 46 53 B2 46 AB 46 31 AB 28 46 |3.2<..FS.F.F1.(F|
00003420: 54 AB 46 33 29 AC 46 32 AA 28 46 54 AB 46 33 AB |T.F3).F2.(FT.F3.|
00003430: 31 29 00 38 3C E0 10 8E 00 42 3C EA 10 8D 33 34 |1).8<....B<...34|
00003440: 34 30 00 5A 3C F4 10 8F 2A 2A 53 45 41 52 43 48 |40.Z<...**SEARCH|
00003450: 20 42 59 20 4E 41 4D 45 2A 2A 00 7E 3C FE 10 99 | BY NAME**.~<...|
00003460: 22 93 11 11 22 3B A3 31 32 29 22 12 53 45 41 52 |"...";.12)".SEAR|
00003470: 43 48 49 4E 47 20 42 59 20 4E 41 4D 45 22 00 9D |CHING BY NAME"..|
00003480: 3C 08 11 99 22 11 11 11 53 55 52 4E 41 4D 45 20 |<..."...SURNAME |
00003490: 4F 46 20 50 45 52 53 4F 4E 3A 20 22 3B 00 A5 3C |OF PERSON: ";..<|
000034A0: 12 11 85 58 24 00 C8 3C 1C 11 99 22 47 49 56 45 |...X$..<..."GIVE|
000034B0: 4E 20 4E 41 4D 45 20 4F 46 20 50 45 52 53 4F 4E |N NAME OF PERSON|
000034C0: 3A 20 22 3B 3A 85 59 24 00 F7 3C 26 11 85 22 41 |: ";:.Y$..<&.."A|
000034D0: 52 45 20 59 4F 55 20 55 53 49 4E 47 20 41 20 50 |RE YOU USING A P|
000034E0: 52 49 4E 54 45 52 22 3B 54 24 3A 8B 54 24 B2 22 |RINTER";T$:.T$."|
000034F0: 59 22 A7 34 34 39 30 00 FD 3C 30 11 99 00 2B 3D |Y".4490..<0...+=|
00003500: 3A 11 99 22 12 4E 55 4D 42 45 52 22 3B A3 31 35 |:..".NUMBER";.15|
00003510: 29 22 53 55 52 4E 41 4D 45 22 3B A3 32 35 29 22 |)"SURNAME";.25)"|
00003520: 47 49 56 45 4E 20 4E 41 4D 45 22 00 36 3D 44 11 |GIVEN NAME".6=D.|
00003530: 81 49 B2 31 A4 4B 00 68 3D 4E 11 8B 49 24 28 49 |.I.1.K.h=N..I$(I|
00003540: 29 B2 58 24 AF 41 24 28 49 29 B2 59 24 A7 99 22 |).X$.A$(I).Y$.."|
00003550: 23 22 3B 49 3B A3 31 35 29 49 24 28 49 29 3B A3 |#";I;.15)I$(I);.|
00003560: 32 35 29 41 24 28 49 29 00 9A 3D 58 11 8B 49 24 |25)A$(I)..=X..I$|
00003570: 28 49 29 B2 58 24 AF 59 24 B2 22 41 4C 4C 22 A7 |(I).X$.Y$."ALL".|
00003580: 99 22 23 22 3B 49 3B A3 31 35 29 49 24 28 49 29 |."#";I;.15)I$(I)|
00003590: 3B A3 32 35 29 41 24 28 49 29 00 A1 3D 62 11 82 |;.25)A$(I)..=b..|
000035A0: 3A 00 C9 3D 6C 11 99 22 11 11 11 11 20 20 20 50 |:..=l..".... P|
000035B0: 52 45 53 53 20 41 4E 59 20 4B 45 59 20 54 4F 20 |RESS ANY KEY TO |
000035C0: 43 4F 4E 54 49 4E 55 45 22 00 DD 3D 76 11 A1 41 |CONTINUE"..=v..A|
000035D0: 24 3A 8B 41 24 B2 22 22 A7 34 34 37 30 00 E7 3D |$:.A$."".4470..=|
000035E0: 80 11 89 32 36 36 30 00 08 3E 8A 11 8F 2A 2A 50 |...2660..>...**P|
000035F0: 52 49 4E 54 4F 55 54 20 4F 46 20 4E 41 4D 45 20 |RINTOUT OF NAME |
00003600: 53 45 41 52 43 48 2A 2A 00 23 3E 94 11 41 41 24 |SEARCH**.#>..AA$|
00003610: B2 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |." |
00003620: 20 20 22 00 2C 3E 9E 11 9F 34 2C 34 00 5D 3E A8 | ".,>...4,4.]>.|
00003630: 11 98 34 2C C7 28 31 34 29 22 20 20 20 20 20 20 |..4,.(14)" |
00003640: 20 20 20 20 20 20 20 20 4E 41 4D 45 20 53 45 41 | NAME SEA|
00003650: 52 43 48 22 3A 98 34 2C C7 28 31 30 29 00 6A 3E |RCH":.4,.(10).j>|
00003660: B2 11 98 34 2C C7 28 31 35 29 00 9B 3E BC 11 98 |...4,.(15)..>...|
00003670: 34 2C 22 20 20 4E 55 4D 42 45 52 22 3B 41 41 24 |4," NUMBER";AA$|
00003680: 3B 22 53 55 52 4E 41 4D 45 22 3B 41 41 24 3B 22 |;"SURNAME";AA$;"|
00003690: 47 49 56 45 4E 20 4E 41 4D 45 22 00 B1 3E C6 11 |GIVEN NAME"..>..|
000036A0: 81 58 B2 31 A4 37 35 3A 98 34 2C 22 2D 22 3B 3A |.X.1.75:.4,"-";:|
000036B0: 82 00 B8 3E D0 11 98 34 00 C3 3E DA 11 81 49 B2 |...>...4..>...I.|
000036C0: 31 A4 4B 00 E9 3E E4 11 49 49 24 B2 C4 28 49 29 |1.K..>..II$..(I)|
000036D0: 3A 8B 49 B3 31 30 A7 49 49 24 B2 49 49 24 AA 22 |:.I.10.II$.II$."|
000036E0: 20 20 22 3A 89 34 36 30 30 00 00 3F EE 11 8B 49 | ":.4600..?...I|
000036F0: B3 31 30 30 A7 49 49 24 B2 49 49 24 AA 22 20 22 |.100.II$.II$." "|
00003700: 00 1C 3F F8 11 8B 49 24 28 49 29 B2 58 24 AF 59 |..?...I$(I).X$.Y|
00003710: 24 B2 22 41 4C 4C 22 A7 34 36 34 30 00 38 3F 02 |$."ALL".4640.8?.|
00003720: 12 8B 49 24 28 49 29 B2 58 24 AF 41 24 28 49 29 |..I$(I).X$.A$(I)|
00003730: B2 59 24 A7 34 36 33 30 00 44 3F 0C 12 82 3A 89 |.Y$.4630.D?...:.|
00003740: 34 36 35 30 00 72 3F 16 12 98 34 2C 22 20 20 20 |4650.r?...4," |
00003750: 23 22 3B 49 49 24 3B 41 41 24 3B 49 24 28 49 29 |#";II$;AA$;I$(I)|
00003760: 3B 41 41 24 3B 41 24 28 49 29 3A 82 3A 89 34 36 |;AA$;A$(I):.:.46|
00003770: 35 30 00 9A 3F 20 12 98 34 2C 22 20 20 20 23 22 |50..? ..4," #"|
00003780: 3B 49 49 24 3B 41 41 24 3B 49 24 28 49 29 3B 41 |;II$;AA$;I$(I);A|
00003790: 41 24 3B 41 24 28 49 29 3A 82 00 AA 3F 2A 12 98 |A$;A$(I):...?*..|
000037A0: 34 3A A0 34 3A 89 32 36 36 30 00 C9 3F 34 12 8F |4:.4:.2660..?4..|
000037B0: 20 2A 2A 20 50 52 49 4E 54 4F 55 54 20 4F 46 20 | ** PRINTOUT OF |
000037C0: 53 45 41 52 43 48 20 2A 2A 00 D2 3F 3E 12 9F 34 |SEARCH **..?>..4|
000037D0: 2C 34 00 FD 3F 48 12 98 34 2C C7 28 31 34 29 3B |,4..?H..4,.(14);|
000037E0: 22 20 20 20 20 20 20 20 20 20 22 3B 46 42 24 28 |" ";FB$(|
000037F0: 32 29 3B 22 20 22 3B 46 42 24 28 31 29 00 25 40 |2);" ";FB$(1).%@|
00003800: 52 12 98 34 2C C7 28 31 35 29 3A 81 54 B2 31 A4 |R..4,.(15):.T.1.|
00003810: 37 35 3A 98 34 2C 22 2D 22 3B 3A 82 3A 98 34 2C |75:.4,"-";:.:.4,|
00003820: C7 28 31 30 29 00 62 40 5C 12 98 34 2C 22 20 20 |.(10).b@\..4," |
00003830: 20 4E 41 4D 45 20 20 20 20 20 20 20 20 20 20 20 | NAME |
00003840: 20 20 3A 22 3B 46 42 24 28 31 29 3B 22 2C 22 3B | :";FB$(1);",";|
00003850: 46 42 24 28 32 29 3B 22 20 28 23 22 3B 46 3B 22 |FB$(2);" (#";F;"|
00003860: 29 22 00 88 40 66 12 98 34 2C 22 20 20 20 42 49 |)"..@f..4," BI|
00003870: 52 54 48 44 41 54 45 20 20 20 20 20 20 20 20 3A |RTHDATE :|
00003880: 22 3B 46 42 24 28 33 29 00 AE 40 70 12 98 34 2C |";FB$(3)..@p..4,|
00003890: 22 20 20 20 42 49 52 54 48 50 4C 41 43 45 20 20 |" BIRTHPLACE |
000038A0: 20 20 20 20 20 3A 22 3B 46 42 24 28 34 29 00 F0 | :";FB$(4)..|
000038B0: 40 7A 12 98 34 2C 22 20 20 20 46 41 54 48 45 52 |@z..4," FATHER|
000038C0: 27 53 20 4E 41 4D 45 20 20 20 20 3A 22 3B 46 42 |'S NAME :";FB|
000038D0: 24 28 35 29 3B 22 2C 22 3B 46 42 24 28 36 29 3B |$(5);",";FB$(6);|
000038E0: 22 20 28 23 22 3B 46 42 24 28 37 29 3B 22 29 22 |" (#";FB$(7);")"|
000038F0: 00 33 41 84 12 98 34 2C 22 20 20 20 4D 4F 54 48 |.3A...4," MOTH|
00003900: 45 52 27 53 20 4E 41 4D 45 20 20 20 20 3A 22 3B |ER'S NAME :";|
00003910: 46 42 24 28 38 29 3B 22 2C 22 3B 46 42 24 28 39 |FB$(8);",";FB$(9|
00003920: 29 3B 22 20 28 23 22 3B 46 42 24 28 31 30 29 3B |);" (#";FB$(10);|
00003930: 22 29 22 00 40 41 87 12 98 34 2C C7 28 31 30 29 |")".@A...4,.(10)|
00003940: 00 67 41 89 12 98 34 2C 22 20 20 20 44 45 41 54 |.gA...4," DEAT|
00003950: 48 20 44 41 54 45 20 20 20 20 20 20 20 3A 22 3B |H DATE :";|
00003960: 46 42 24 28 31 36 29 00 8E 41 8A 12 98 34 2C 22 |FB$(16)..A...4,"|
00003970: 20 20 20 44 45 41 54 48 20 50 4C 41 43 45 20 20 | DEATH PLACE |
00003980: 20 20 20 20 3A 22 3B 46 42 24 28 31 37 29 00 9C | :";FB$(17)..|
00003990: 41 8E 12 8B 58 B2 30 A7 34 39 33 30 00 A9 41 93 |A...X.0.4930..A.|
000039A0: 12 98 34 2C C7 28 31 30 29 00 C8 41 98 12 81 49 |..4,.(10)..A...I|
000039B0: B2 31 A4 58 3A 98 34 2C 22 20 20 20 4D 41 52 52 |.1.X:.4," MARR|
000039C0: 49 41 47 45 23 22 3B 49 00 0A 42 A2 12 98 34 2C |IAGE#";I..B...4,|
000039D0: 22 20 20 20 53 50 4F 55 53 45 27 53 20 4E 41 4D |" SPOUSE'S NAM|
000039E0: 45 20 20 20 20 3A 22 3B 4D 41 24 28 49 29 3B 22 |E :";MA$(I);"|
000039F0: 2C 22 3B 4D 42 24 28 49 29 3B 22 20 28 23 22 3B |,";MB$(I);" (#";|
00003A00: 4D 43 24 28 49 29 3B 22 29 22 00 30 42 AC 12 98 |MC$(I);")".0B...|
00003A10: 34 2C 22 20 20 20 4D 41 52 52 49 41 47 45 20 44 |4," MARRIAGE D|
00003A20: 41 54 45 20 20 20 20 3A 22 3B 4D 44 24 28 49 29 |ATE :";MD$(I)|
00003A30: 00 56 42 B6 12 98 34 2C 22 20 20 20 4D 41 52 52 |.VB...4," MARR|
00003A40: 49 41 47 45 20 50 4C 41 43 45 20 20 20 3A 22 3B |IAGE PLACE :";|
00003A50: 4D 45 24 28 49 29 00 63 42 DE 12 98 34 2C C7 28 |ME$(I).cB...4,.(|
00003A60: 31 30 29 00 78 42 E8 12 8B C5 28 59 24 28 49 29 |10).xB....(Y$(I)|
00003A70: 29 B2 30 A7 34 39 33 30 00 8F 42 F2 12 98 34 2C |).0.4930..B...4,|
00003A80: 22 20 20 20 43 48 49 4C 44 52 45 4E 3A 20 22 00 |" CHILDREN: ".|
00003A90: 9C 42 FC 12 98 34 2C C7 28 31 30 29 00 C5 42 06 |.B...4,.(10)..B.|
00003AA0: 13 41 41 24 B2 22 20 20 20 20 20 20 20 20 22 3A |.AA$." ":|
00003AB0: 42 42 24 B2 22 20 20 20 20 20 20 20 20 20 20 20 |BB$." |
00003AC0: 20 20 20 20 22 00 00 43 10 13 98 34 2C 41 41 24 | "..C...4,AA$|
00003AD0: 3B 22 20 53 55 52 4E 41 4D 45 22 3B 41 41 24 AA |;" SURNAME";AA$.|
00003AE0: 41 41 24 3B 22 47 49 56 45 4E 20 4E 41 4D 45 53 |AA$;"GIVEN NAMES|
00003AF0: 22 3B 41 41 24 3B 22 20 20 4E 55 4D 42 45 52 22 |";AA$;" NUMBER"|
00003B00: 00 3B 43 1A 13 98 34 2C 41 41 24 3B 22 20 2D 2D |.;C...4,AA$;" --|
00003B10: 2D 2D 2D 2D 2D 22 3B 41 41 24 AA 41 41 24 3B 22 |-----";AA$.AA$;"|
00003B20: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 3B 41 41 24 |-----------";AA$|
00003B30: 3B 22 20 20 2D 2D 2D 2D 2D 2D 22 00 5B 43 24 13 |;" ------".[C$.|
00003B40: 81 51 B2 31 A4 C5 28 59 24 28 49 29 29 3A 46 B2 |.Q.1..(Y$(I)):F.|
00003B50: C5 28 43 42 24 28 49 2C 51 29 29 00 9A 43 2E 13 |.(CB$(I,Q))..C..|
00003B60: 98 34 2C 22 20 20 22 3B 51 3B 22 20 20 20 20 22 |.4," ";Q;" "|
00003B70: 3B C8 28 49 24 28 46 29 AA 42 42 24 2C 31 34 29 |;.(I$(F).BB$,14)|
00003B80: 3B 41 41 24 3B C8 28 41 24 28 46 29 AA 42 42 24 |;AA$;.(A$(F).BB$|
00003B90: 2C 31 35 29 3B 41 41 24 3B 46 00 AB 43 38 13 82 |,15);AA$;F..C8..|
00003BA0: 3A 98 34 2C C7 28 31 30 29 3A 82 00 CA 43 42 13 |:.4,.(10):...CB.|
00003BB0: 98 34 2C 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.4,"------------|
00003BC0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 E9 43 4C 13 98 |---------"..CL..|
00003BD0: 34 2C 22 20 20 20 20 43 4F 4D 4D 45 4E 54 53 20 |4," COMMENTS |
00003BE0: 22 3B 46 42 24 28 31 39 29 00 F9 43 56 13 98 34 |";FB$(19)..CV..4|
00003BF0: 3A A0 34 3A 89 32 36 34 30 00 02 44 60 13 9F 34 |:.4:.2640..D`..4|
00003C00: 2C 34 00 37 44 6A 13 98 34 2C C7 28 31 34 29 3B |,4.7Dj..4,.(14);|
00003C10: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 |" I|
00003C20: 4E 44 45 58 20 4F 46 20 4E 41 4D 45 53 22 3A 98 |NDEX OF NAMES":.|
00003C30: 34 2C C7 28 31 35 29 00 50 44 74 13 81 54 B2 31 |4,.(15).PDt..T.1|
00003C40: A4 37 35 3A 98 34 2C 22 2D 22 3B 3A 82 3A 98 34 |.75:.4,"-";:.:.4|
00003C50: 00 5B 44 7E 13 55 24 B2 22 2C 22 00 86 44 88 13 |.[D~.U$.","..D..|
00003C60: 53 24 B2 22 20 20 20 20 20 20 20 20 20 20 20 20 |S$." |
00003C70: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003C80: 20 20 20 20 20 22 00 94 44 92 13 41 41 24 B2 22 | "..D..AA$."|
00003C90: 20 20 20 22 00 9C 44 9C 13 58 B2 30 00 A7 44 A6 | "..D..X.0..D.|
00003CA0: 13 81 49 B2 31 A4 4B 00 C6 44 B0 13 54 24 B2 C8 |..I.1.K..D..T$..|
00003CB0: 28 49 24 28 49 29 AA 55 24 AA 41 24 28 49 29 AA |(I$(I).U$.A$(I).|
00003CC0: 53 24 2C 33 30 29 00 EC 44 BA 13 49 49 24 B2 C4 |S$,30)..D..II$..|
00003CD0: 28 49 29 3A 8B 49 B3 31 30 A7 49 49 24 B2 49 49 |(I):.I.10.II$.II|
00003CE0: 24 AA 22 20 20 22 3A 89 35 30 37 30 00 03 45 C4 |$." ":.5070..E.|
00003CF0: 13 8B 49 B3 31 30 30 A7 49 49 24 B2 49 49 24 AA |..I.100.II$.II$.|
00003D00: 22 20 22 00 18 45 CE 13 8B 49 AD 32 B2 B5 28 49 |" "..E...I.2..(I|
00003D10: AD 32 29 A7 35 31 30 30 00 35 45 D8 13 98 34 2C |.2).5100.5E...4,|
00003D20: 22 20 22 3B 49 49 24 AA 22 20 22 3B 3A 98 34 2C |" ";II$." ";:.4,|
00003D30: 54 24 3B 3A 82 00 48 45 E2 13 98 34 2C C7 28 31 |T$;:..HE...4,.(1|
00003D40: 30 29 3A 89 35 31 32 30 00 62 45 EC 13 98 34 2C |0):.5120.bE...4,|
00003D50: 41 41 24 3B 49 49 24 AA 22 20 22 3B 3A 98 34 2C |AA$;II$." ";:.4,|
00003D60: 54 24 00 68 45 F6 13 82 00 77 45 00 14 98 34 3A |T$.hE....wE...4:|
00003D70: A0 34 3A 89 37 35 30 00 93 45 0A 14 5A 42 24 B2 |.4:.750..E..ZB$.|
00003D80: 22 22 3A 5A 41 24 B2 22 22 3A 5A 43 24 B2 22 12 |"":ZA$."":ZC$.".|
00003D90: 20 92 22 00 A1 45 14 14 99 5A 43 24 3B 22 9D 22 | ."..E...ZC$;"."|
00003DA0: 3B 00 AF 45 1E 14 81 5A 5A B2 31 20 A4 20 32 00 |;..E...ZZ.1 . 2.|
00003DB0: BF 45 28 14 81 20 5A 59 B2 31 20 A4 20 33 30 00 |.E(.. ZY.1 . 30.|
00003DC0: D7 45 32 14 A1 5A 41 24 3A 8B 5A 41 24 B2 22 22 |.E2..ZA$:.ZA$.""|
00003DD0: 20 A7 20 35 32 36 30 00 EC 45 37 14 8B 5A 41 24 | . 5260..E7..ZA$|
00003DE0: B2 22 2C 22 A7 5A 41 24 B2 22 2E 22 00 FA 45 3C |.",".ZA$."."..E<|
00003DF0: 14 5A 41 B2 C6 28 5A 41 24 29 00 12 46 46 14 8B |.ZA..(ZA$)..FF..|
00003E00: 5A 41 24 B2 22 88 22 AF C3 28 5A 42 24 29 B3 32 |ZA$."."..(ZB$).2|
00003E10: A7 8E 00 4A 46 50 14 8B 5A 41 B2 31 34 35 B0 5A |...JFP..ZA.145.Z|
00003E20: 41 B2 31 37 B0 5A 41 B2 31 34 37 B0 5A 41 B2 31 |A.17.ZA.147.ZA.1|
00003E30: 39 B0 5A 41 B2 31 35 37 B0 5A 41 B2 32 39 B0 5A |9.ZA.157.ZA.29.Z|
00003E40: 41 B2 31 34 38 A7 35 32 36 30 00 63 46 5A 14 8B |A.148.5260.cFZ..|
00003E50: 5A 41 B2 32 30 AF C3 28 5A 42 24 29 B2 30 A7 35 |ZA.20..(ZB$).0.5|
00003E60: 32 36 30 00 92 46 64 14 8B 5A 41 B2 32 30 A7 5A |260..Fd..ZA.20.Z|
00003E70: 42 24 B2 C8 28 5A 42 24 2C C3 28 5A 42 24 29 AB |B$..(ZB$,.(ZB$).|
00003E80: 31 29 3A 99 22 9D 20 20 9D 9D 22 3B 3A 89 35 32 |1):.". ..";:.52|
00003E90: 36 30 00 A5 46 6E 14 8B 20 5A 41 B2 31 33 A7 99 |60..Fn.. ZA.13..|
00003EA0: 22 20 22 3A 8E 00 BA 46 78 14 8B 20 C3 28 5A 42 |" ":...Fx.. .(ZB|
00003EB0: 24 29 B2 5A 4D A7 35 31 37 30 00 D8 46 82 14 5A |$).ZM.5170..F..Z|
00003EC0: 42 24 B2 5A 42 24 AA 5A 41 24 3A 99 5A 41 24 3B |B$.ZB$.ZA$:.ZA$;|
00003ED0: 5A 43 24 3B 22 9D 22 3B 00 E0 46 8C 14 82 5A 59 |ZC$;".";..F...ZY|
00003EE0: 00 EB 46 96 14 99 22 20 9D 22 3B 00 F3 46 A0 14 |..F..." .";..F..|
00003EF0: 82 5A 5A 00 FD 46 AA 14 89 35 31 34 30 00 19 47 |.ZZ..F...5140..G|
00003F00: B4 14 8F 20 2A 2A 2A 2A 2A 2A 20 45 44 49 54 49 |... ****** EDITI|
00003F10: 4E 47 20 49 4E 53 54 52 2E 00 42 47 BE 14 99 22 |NG INSTR..BG..."|
00003F20: 93 20 20 20 20 20 20 20 1F 12 20 45 44 49 54 49 |. .. EDITI|
00003F30: 4E 47 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 20 |NG INSTRUCTIONS |
00003F40: 90 22 00 6C 47 C8 14 99 22 11 45 4E 54 45 52 49 |.".lG...".ENTERI|
00003F50: 4E 47 20 44 41 54 41 20 3A 22 3A 99 22 C5 C5 C5 |NG DATA :":."...|
00003F60: C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 22 00 99 47 D2 |..........."..G.|
00003F70: 14 99 22 2D 54 48 45 20 43 55 52 53 4F 52 20 55 |.."-THE CURSOR U|
00003F80: 50 20 41 4E 44 20 44 4F 57 4E 20 4B 45 59 53 20 |P AND DOWN KEYS |
00003F90: 41 52 45 20 55 53 45 44 22 00 B2 47 DC 14 99 22 |ARE USED"..G..."|
00003FA0: 20 54 4F 20 50 49 43 4B 20 41 20 54 4F 50 49 43 | TO PICK A TOPIC|
00003FB0: 2E 22 00 DA 47 E6 14 99 22 11 2D 54 48 45 20 52 |."..G...".-THE R|
00003FC0: 45 54 55 52 4E 20 4B 45 59 20 4D 55 53 54 20 42 |ETURN KEY MUST B|
00003FD0: 45 20 50 52 45 53 53 45 44 22 00 05 48 F0 14 99 |E PRESSED"..H...|
00003FE0: 22 20 42 45 46 4F 52 45 20 49 4E 46 4F 52 4D 41 |" BEFORE INFORMA|
00003FF0: 54 49 4F 4E 20 43 41 4E 20 42 45 20 45 4E 54 45 |TION CAN BE ENTE|
00004000: 52 45 44 2E 22 00 31 48 FA 14 99 22 11 2D 41 20 |RED.".1H...".-A |
00004010: 46 4C 41 53 48 49 4E 47 20 43 55 52 53 4F 52 20 |FLASHING CURSOR |
00004020: 57 49 4C 4C 20 41 50 50 45 41 52 20 4F 4E 4C 59 |WILL APPEAR ONLY|
00004030: 22 00 5B 48 04 15 99 22 20 57 48 45 4E 20 54 48 |".[H..." WHEN TH|
00004040: 45 20 52 45 54 55 52 4E 20 4B 45 59 20 49 53 20 |E RETURN KEY IS |
00004050: 48 49 54 20 46 49 52 53 54 2E 22 00 84 48 0E 15 |HIT FIRST."..H..|
00004060: 99 22 11 46 55 4E 54 49 4F 4E 20 4B 45 59 53 20 |.".FUNTION KEYS |
00004070: 3A 22 3A 99 22 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 C5 |:":."...........|
00004080: C5 C5 C5 22 00 C9 48 18 15 99 22 46 31 20 2D 20 |..."..H..."F1 - |
00004090: 52 45 54 55 52 4E 53 20 54 4F 20 4D 41 49 4E 20 |RETURNS TO MAIN |
000040A0: 4D 45 4E 55 2E 20 22 3A 99 22 20 20 20 20 20 20 |MENU. ":." |
000040B0: 20 12 20 44 4F 45 53 20 4E 4F 54 20 53 41 56 45 | . DOES NOT SAVE|
000040C0: 20 44 41 54 41 20 21 20 22 00 F2 48 22 15 99 22 | DATA ! "..H".."|
000040D0: 46 33 20 2D 20 53 48 4F 57 53 20 54 48 49 53 20 |F3 - SHOWS THIS |
000040E0: 49 4E 53 54 52 55 43 54 49 4F 4E 20 50 41 47 45 |INSTRUCTION PAGE|
000040F0: 2E 22 00 1A 49 2C 15 99 22 46 37 20 2D 20 53 41 |."..I,.."F7 - SA|
00004100: 56 45 53 20 50 52 45 53 45 4E 54 20 44 41 54 41 |VES PRESENT DATA|
00004110: 20 54 4F 20 44 49 53 4B 2E 22 00 47 49 36 15 99 | TO DISK.".GI6..|
00004120: 22 46 37 20 2D 20 47 4F 45 53 20 54 4F 20 54 48 |"F7 - GOES TO TH|
00004130: 45 20 4E 45 58 54 20 50 41 47 45 2E 20 54 48 45 |E NEXT PAGE. THE|
00004140: 52 45 20 41 52 45 22 00 62 49 40 15 99 22 20 20 |RE ARE".bI@.." |
00004150: 20 20 20 20 20 54 48 52 45 45 20 50 41 47 45 53 | THREE PAGES|
00004160: 3A 22 00 83 49 4A 15 99 22 20 20 20 20 20 20 20 |:"..IJ.." |
00004170: 20 20 31 2E 20 47 45 4E 45 52 41 4C 20 44 41 54 | 1. GENERAL DAT|
00004180: 41 2E 22 00 B2 49 54 15 99 22 20 20 20 20 20 20 |A."..IT.." |
00004190: 20 20 20 32 2E 20 4D 41 52 52 49 41 47 45 20 41 | 2. MARRIAGE A|
000041A0: 4E 44 20 43 48 49 4C 44 52 45 4E 20 44 41 54 41 |ND CHILDREN DATA|
000041B0: 2E 22 00 CF 49 5E 15 99 22 20 20 20 20 20 20 20 |."..I^.." |
000041C0: 20 20 33 2E 20 43 4F 4D 4D 45 4E 54 53 2E 22 00 | 3. COMMENTS.".|
000041D0: F5 49 68 15 99 22 20 20 20 12 20 48 49 54 20 41 |.Ih.." . HIT A|
000041E0: 4E 59 20 4B 45 59 20 54 4F 20 43 4F 4E 54 49 4E |NY KEY TO CONTIN|
000041F0: 55 45 20 13 22 00 09 4A 72 15 A1 41 24 3A 8B 41 |UE ."..Jr..A$:.A|
00004200: 24 B2 22 22 A7 35 34 39 30 00 0F 4A 7C 15 8E 00 |$."".5490..J|...|
00004210: 34 4A 86 15 8F 2A 2A 2A 2A 2A 2A 20 4C 4F 41 44 |4J...****** LOAD|
00004220: 20 50 52 49 4E 54 20 50 45 44 49 47 52 45 45 20 | PRINT PEDIGREE |
00004230: 2A 2A 2A 2A 00 3E 4A 8B 15 8D 32 35 38 30 00 67 |****.>J...2580.g|
00004240: 4A 90 15 99 22 93 20 20 20 20 20 20 12 1F 20 4C |J...". .. L|
00004250: 4F 41 44 20 50 45 44 49 47 52 45 45 20 50 52 4F |OAD PEDIGREE PRO|
00004260: 47 52 41 4D 20 90 22 00 92 4A 9A 15 99 22 11 11 |GRAM ."..J..."..|
00004270: 11 11 20 20 20 20 50 4C 41 43 45 20 50 52 4F 47 |.. PLACE PROG|
00004280: 52 41 4D 20 44 49 53 4B 20 49 4E 20 44 52 49 56 |RAM DISK IN DRIV|
00004290: 45 22 00 B4 4A A4 15 99 22 11 20 20 20 20 20 20 |E"..J...". |
000042A0: 20 20 20 20 41 4E 44 20 48 49 54 20 52 45 54 55 | AND HIT RETU|
000042B0: 52 4E 2E 22 00 D2 4A AE 15 A1 41 24 3A 8B 41 24 |RN."..J...A$:.A$|
000042C0: B2 22 22 B0 41 24 B3 B1 C7 28 31 33 29 A7 35 35 |."".A$...(13).55|
000042D0: 35 30 00 0C 4B B8 15 99 22 93 11 11 11 11 11 11 |50..K...".......|
000042E0: 11 11 11 11 11 11 11 11 11 20 20 20 12 20 50 4C |......... . PL|
000042F0: 45 41 53 45 20 57 41 49 54 2D 20 4C 4F 41 44 49 |EASE WAIT- LOADI|
00004300: 4E 47 20 50 52 4F 47 52 41 4D 20 22 00 3B 4B C2 |NG PROGRAM ".;K.|
00004310: 15 99 C7 28 31 37 29 C7 28 31 39 29 22 9B 4C 4F |...(17).(19)".LO|
00004320: 41 44 22 C7 28 33 34 29 22 50 45 44 49 47 52 45 |AD".(34)"PEDIGRE|
00004330: 45 22 C7 28 33 34 29 22 2C 38 22 00 53 4B CC 15 |E".(34)",8".SK..|
00004340: 99 3A 99 3A 99 3A 99 3A 99 22 52 55 4E 22 C7 28 |.:.:.:.:."RUN".(|
00004350: 31 39 29 00 7B 4B D6 15 97 31 39 38 2C 34 3A 97 |19).{K...198,4:.|
00004360: 36 33 31 2C 31 39 3A 81 42 B2 31 A4 33 3A 97 36 |631,19:.B.1.3:.6|
00004370: 33 31 AA 42 2C 31 33 3A 82 3A 80 00 97 4B 58 1B |31.B,13:.:...KX.|
00004380: 99 22 93 11 11 11 12 20 53 55 52 4E 41 4D 45 20 |."..... SURNAME |
00004390: 53 45 41 52 43 48 22 00 C0 4B 62 1B 99 22 11 11 |SEARCH"..Kb.."..|
000043A0: 11 53 43 52 45 45 4E 20 4F 52 20 50 52 49 4E 54 |.SCREEN OR PRINT|
000043B0: 45 52 3F 20 28 53 20 4F 52 20 50 29 20 3E 22 3B |ER? (S OR P) >";|
000043C0: 00 D6 4B 6C 1B A1 58 58 24 3A 8B 58 58 24 B2 22 |..Kl..XX$:.XX$."|
000043D0: 22 A7 37 30 32 30 00 F2 4B 76 1B 8B 58 58 24 B3 |".7020..Kv..XX$.|
000043E0: B1 22 53 22 AF 58 58 24 B3 B1 22 50 22 A7 37 30 |."S".XX$.."P".70|
000043F0: 32 30 00 FB 4B 80 1B 99 58 58 24 00 0D 4C 8A 1B |20..K...XX$..L..|
00004400: 8B 58 58 24 B2 22 50 22 A7 38 30 30 30 00 3D 4C |.XX$."P".8000.=L|
00004410: 94 1B 99 22 93 11 12 4E 55 4D 42 45 52 22 3B A3 |..."...NUMBER";.|
00004420: 31 30 29 22 53 55 52 4E 41 4D 45 22 3B A3 32 32 |10)"SURNAME";.22|
00004430: 29 22 47 49 56 45 4E 20 4E 41 4D 45 22 00 43 4C |)"GIVEN NAME".CL|
00004440: 99 1B 99 00 4E 4C 9E 1B 81 49 B2 31 A4 4B 00 84 |....NL...I.1.K..|
00004450: 4C A8 1B 8B 20 C8 28 49 24 28 49 29 2C 35 29 B2 |L... .(I$(I),5).|
00004460: C8 28 5A 42 24 2C 35 29 A7 20 99 22 23 22 3B 49 |.(ZB$,5). ."#";I|
00004470: 3B A3 31 30 29 49 24 28 49 29 3B A3 32 32 29 41 |;.10)I$(I);.22)A|
00004480: 24 28 49 29 00 8A 4C B2 1B 82 00 B8 4C BC 1B 99 |$(I)..L.....L...|
00004490: 3A 99 22 1D 1D 1D 1D 1D 12 20 20 20 50 52 45 53 |:."...... PRES|
000044A0: 53 20 41 4E 59 20 4B 45 59 20 54 4F 20 43 4F 4E |S ANY KEY TO CON|
000044B0: 54 49 4E 55 45 20 20 22 00 CE 4C C1 1B A1 58 58 |TINUE "..L...XX|
000044C0: 24 3A 8B 58 58 24 B2 22 22 A7 37 31 30 35 00 D7 |$:.XX$."".7105..|
000044D0: 4C C6 1B 89 37 35 30 00 00 4D 40 1F 9F 34 2C 34 |L...750..M@..4,4|
000044E0: 3A 98 34 2C C7 28 31 34 29 3B 22 20 20 20 20 20 |:.4,.(14);" |
000044F0: 20 20 20 20 4E 41 4D 45 20 53 45 41 52 43 48 22 | NAME SEARCH"|
00004500: 00 11 4D 43 1F 98 34 2C 22 A0 22 3B C7 28 31 35 |..MC..4,".";.(15|
00004510: 29 00 2A 4D 45 1F 41 41 24 B2 22 20 20 20 20 20 |).*ME.AA$." |
00004520: 20 20 20 20 20 20 20 20 20 22 00 59 4D 4A 1F 98 | ".YMJ..|
00004530: 34 2C 22 4E 55 4D 42 45 52 22 3B 41 41 24 3B 22 |4,"NUMBER";AA$;"|
00004540: 53 55 52 4E 41 4D 45 22 3B 41 41 24 3B 22 47 49 |SURNAME";AA$;"GI|
00004550: 56 45 4E 20 4E 41 4D 45 22 00 6F 4D 54 1F 81 58 |VEN NAME".oMT..X|
00004560: B2 31 A4 37 35 3A 98 34 2C 22 2D 22 3B 3A 82 00 |.1.75:.4,"-";:..|
00004570: 76 4D 5E 1F 98 34 00 81 4D 68 1F 81 49 B2 31 A4 |vM^..4..Mh..I.1.|
00004580: 4B 00 A7 4D 72 1F 49 49 24 B2 C4 28 49 29 3A 8B |K..Mr.II$..(I):.|
00004590: 49 B3 31 30 A7 49 49 24 B2 49 49 24 AA 22 20 20 |I.10.II$.II$." |
000045A0: 22 3A 89 38 30 37 30 00 BE 4D 7C 1F 8B 49 B3 31 |":.8070..M|..I.1|
000045B0: 30 30 A7 49 49 24 B2 49 49 24 AA 22 20 22 00 DE |00.II$.II$." "..|
000045C0: 4D 86 1F 8B 20 C8 28 49 24 28 49 29 2C 35 29 B2 |M... .(I$(I),5).|
000045D0: C8 28 5A 42 24 2C 35 29 A7 20 38 30 39 30 00 E8 |.(ZB$,5). 8090..|
000045E0: 4D 90 1F 89 38 31 30 30 00 0C 4E 9A 1F 98 34 2C |M...8100..N...4,|
000045F0: 22 20 23 22 3B 49 49 24 3B 41 41 24 3B 49 24 28 |" #";II$;AA$;I$(|
00004600: 49 29 3B 41 41 24 3B 41 24 28 49 29 00 12 4E A4 |I);AA$;A$(I)..N.|
00004610: 1F 82 00 21 4E AE 1F 98 34 3A A0 34 3A 89 37 35 |...!N...4:.4:.75|
00004620: 30 00 27 4E 34 21 8F 00 44 4E 3E 21 8F 2A 2A 2A |0.'N4!..DN>!.***|
00004630: 2A 2A 2A 20 4C 4F 41 44 20 43 4F 56 45 52 20 20 |*** LOAD COVER |
00004640: 2A 2A 2A 2A 00 6A 4E 48 21 99 22 93 20 20 20 20 |****.jNH!.". |
00004650: 20 20 12 1F 20 4C 4F 41 44 20 43 4F 56 45 52 20 | .. LOAD COVER |
00004660: 50 52 4F 47 52 41 4D 20 90 22 00 8C 4E 5C 21 99 |PROGRAM ."..N\!.|
00004670: 22 11 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |". |
00004680: 48 49 54 20 52 45 54 55 52 4E 2E 22 00 AA 4E 66 |HIT RETURN."..Nf|
00004690: 21 A1 41 24 3A 8B 41 24 B2 22 22 B0 41 24 B3 B1 |!.A$:.A$."".A$..|
000046A0: C7 28 31 33 29 A7 38 35 35 30 00 E4 4E 70 21 99 |.(13).8550..Np!.|
000046B0: 22 93 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |"...............|
000046C0: 11 20 20 20 12 20 50 4C 45 41 53 45 20 57 41 49 |. . PLEASE WAI|
000046D0: 54 2D 20 4C 4F 41 44 49 4E 47 20 50 52 4F 47 52 |T- LOADING PROGR|
000046E0: 41 4D 20 22 00 10 4F 7A 21 99 C7 28 31 37 29 C7 |AM "..Oz!..(17).|
000046F0: 28 31 39 29 22 9B 4C 4F 41 44 22 C7 28 33 34 29 |(19)".LOAD".(34)|
00004700: 22 43 4F 56 45 52 22 C7 28 33 34 29 22 2C 38 22 |"COVER".(34)",8"|
00004710: 00 28 4F 84 21 99 3A 99 3A 99 3A 99 3A 99 22 52 |.(O.!.:.:.:.:."R|
00004720: 55 4E 22 C7 28 31 39 29 00 50 4F 8E 21 97 31 39 |UN".(19).PO.!.19|
00004730: 38 2C 34 3A 97 36 33 31 2C 31 39 3A 81 42 B2 31 |8,4:.631,19:.B.1|
00004740: A4 33 3A 97 36 33 31 AA 42 2C 31 33 3A 82 3A 80 |.3:.631.B,13:.:.|
00004750: 00 00 00 |... |
..!.... *************************.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"......".. IF THIS WERE THE
"......".. FAMILY TREE PROGRAM "...
...".. YOU WOULD BE ASKED ".#....".
. TO REMOVE THE PROGRAM ".F....".. DI
SK AND REPLACE IT ".I....".. WITH A
DATA DISK. "...B..".DDDDDDDDDDDDDDD
DDD"......"... TO START PRESS 'S'"......
P$:.P$.."S".490.T...."...FFFFFFFFFFFFFFF
FFF"......".. SETTING UP INDEX "......".
DDDDDDDDDDDDDDDDDD"......".".9.&..".IS T
HIS DISK INDEXED? .Y..";.L.0..O$:.O$.""
.560.A.:..F(O$).13.O$."Y".Z.D..O$.."Y".O
$.."N".560...N..O$.F.X..".THE LARGEST FI
LE NUMBER ? ......";:ZM.3:.5130:K.
E(ZB$)...B..K.0.K.664.."..";:.600...L..O
$."Y".680...V..O$.."N".550.6....". WAIT
":.I.1.K.D
...."..............."I;:I$(I)." /":A$(I)
."/"......" "I$(I);" ";A$(I);" ":...
...I$(K.1)."END":A$(K.1)."END":.750.I...
.5,8,5,"0:DEMO.INDEX,S,R"......I.1.K:.5,
I$(I),A$(I):.I$(I)."END".741.<.P..".....
....PLEASE WAIT! ....."I;I$(I);" ";A
$(I);" ".F....I: 5.H....II.I
.K:A$(II)."/":I$(II)."/"......".........
PLEASE WAIT! ....."II;I$(II);" ";A$(
II);" "......II: 5:.670......"..
.FFFFFFFFFFFFFFFFFFFF"......".. ME
NU "......".DDDDDDDDDDDDDDDDDDDD"
.!....".".I...." .A. CREATE GENEALOGI
CAL DATA".P. ..". .B. EDIT GENEALOGIC
AL DATA"...*..". .C. DELETE DATA"...4
..". .D. SEARCH FOR ANCESTORS".T.>.."
. .E. INDEX OF ANCESTORS"...H..". .F
. PEDIGREE CHART-SCREEN".#.R..". .G.
PEDIGREE PROGRAM-PRINTER".8.\..". .Q.
QUIT".W.F.."..SELECT A LETTER .?..";.
J.P..A$:.A$."".880...Z..O.1.8:.A$..J("AB
CDEFGQ",O,1)... ....".";A$;"..";.L....O.
950,990,1000,2630,3010,3290,5510,930.U..
..750..... 15: 5: 2......"....RETURN TO
THE COVER? (Y OR N)"......Z$:.Z$."".936.
0....Z$."Y".8500.6.....A.... 750.A....
*************************...... * CREA
TE EDIT DELETE *...J.. ****************
*********...T.LB$."CREATE":LB.0:.1010.W.
..LB$."EDIT":LB.1:.1010.....LB$."DELETE"
:LB.2.0....ZC.1.19:FB$(ZC).".":.:X$.".":
F$.".":X.0:.ZC.1.10:Y$(ZC).".":..Y....ZD
.1.10:.ZC.1.20:CB$(ZD,ZC).".":.:.......Z
C.1.3:MA$(ZC).".":MB$(ZC).".":MC$(ZC).".
":MD$(ZC).".":ME$(ZC).".".....Y$.".":Y.0
:.ZC.....TT$."":.". ..";LB$;" GENEAL
OGY FILE"......"....F1-MENU F3-HELP F5
-SAVE F7-NEXT PAGE".9.$.DN$."..........
................".B....LB.1. .ZC.1.11:.1
330:.ZC:LB.0:.1380...8..LB.2. .ZC.1.11:.
1330:.ZC:.1380...B..1310.H.L..H(DN$,8);"
NAME :.";:TT$.FB$(1).",".FB$(2):.1240:.
...V..H(DN$,7);"NUMBER:.......";F$:....`
..H(DN$,10);"BORN :.";BL$;BW$;FB$(3):..
B.J..H(DN$,11);"BPLACE:.";BL$;BW$;FB$(4)
:..N.T..H(DN$,12);"DIED :.";BL$;BW$;FB$
(16):....~..H(DN$,13);"DPLACE:.";BL$;BW$
;FB$(17)......". FATHER
":.......H(DN$,16);"NAME :.";:TT$.FB$(5
).",".FB$(6):.1240:.......H(DN$,18);"NUM
BER:.......";FB$(7).?....:."
MOTHER":..X....H(DN$,21);"NAME :.
";:TT$.FB$(8).",".FB$(9):.1240:.......H(
DN$,23);"NUMBER:.";"......";FB$(10):....
D..H(DN$,25);" NUMBER OF MARRIAGES : .";
"....";X$;".":....N.. ****** DISPLAY BLA
NKING SUBRTN.0.X.BL$."..................
...............".P...BW$."..............
...................":.BL$;" ";BL$;
......BW$;".......";BW$;......C(TT$).34.
.TT$:.1290.O....H(TT$,33);" ";J(TT
$,34,C(TT$).33).....TT$."":.......******
* DISPLAY REFRESH.!....ZC.1.11:.1330:.ZC
:ZC.1:.".";:.1330.+.(..1660.L.2..ZC . 11
10,1100,1120,1130,1140,1150,1170,1180,12
00,1210,1220.R.<.....F.. ********* BLANK
COMMAND LINE...P..".....
";...Z.." ":."..>";:....D..145
0:.ZB$."".750...N..LB..2.1300.:.X..ZC.1.
11:.1330:.ZC:.1360.O....".DELETE-ARE YOU
SURE? (YES OR NO)";:ZM.3:.5130......ZB$
."".ZB$."NO".750......ZB$.."YES"..1360:.
"YES OR NO":.ZC.1.2000:.ZC:.1400......ZD
.1.10:.ZC.1.20:CB$(ZD,ZC).".":.:.. . ..Z
C.1.19:FB$(ZC).".":.ZC:X.0:Y.0:.3970:.25
80:.1000.R....1360:.".ENTER NAME OR NUMB
ER >";:ZM.60:.5130.G.... ZB$.""..2581:..
{.... E(ZB$).K.1450...H..SI.1.E(ZB$)..0.
1640...M..I(ZB$,3)."ALL". .7000...R.. E(
ZB$)..0.F.E(ZB$):.3770:F$.D(F):.1360:.15
25......ZC.1.C(ZB$):. J(ZB$,ZC,1).".". 1
530.J....ZC:.1360:.". ENTER LIKE THIS: .
LASTNAME. , .GIVEN NAMES.".C....ZC.1.200
0:.ZC:.1450.Z...F$.I(F$,C(F$).1):......T
K$.H(ZB$,ZC.1):TJ$.I(ZB$,C(ZB$).ZC).I...
.H(TJ$,1)." ".TJ$.I(TJ$,C(TJ$).1).....CZ
.0:.ZC.1.K:.A$(ZC).TJ$.I$(ZC).TK$.CZ.CZ.
1:CY(CZ).ZC......ZC.B."..CZ.0..1350:."..
THAT PERSON IS NOT ON FILE.":.1520._.,..
SI.1.ZB$.D(CY(1)):.1640...6..CZ.1. F.CY(
1):.3770:F$.D(F):.1360:.1525.G.@..1360:.
"THERE ARE";CZ;".. THEIR #:";:.ZC.1.CZ:.
CY(ZC);.Q.J..ZC:....T..ZC$:.ZC$."".1620.
..^..1450.1.H.SI.0:CB$(NF,ZG).ZB$:TN$(ZG
).H(A$(E(ZB$)).",".I$(E(ZB$)),33).=.R..1
360:..S.|..ZC$:.ZC$."".1660.]....1330.~.
...ZC$.".".ZC.ZC.1:.ZC.12.ZC.1......ZC$.
".".ZC.ZC.1:.ZC.0.ZC.11......".";:.1330.
G....ZC$."."..2581:.750......ZC$.".". .5
310:.1040...B..ZC$.".". 1890...L..ZC$.".
".2550...V.. F(ZC$).13 .1770.&....1660.E
....1360:.ZC.2.ZC.7.ZC.9.1830.Z....ZC.1.
ZM.3:.5130:R$.F$:.1881:F.E(R$):F$.R$:.18
80......ZC.11.ZM.2:.5130:R$.X$:.1881:X.E
(R$):X$.R$:.1825.....ZD.E(J("00000304161
700070010",ZC.2.1,2))......ZC.2.ZC.7.ZM.
33:.5130:R$.FB$(ZD):.1881:FB$(ZD).R$:.18
80.K...ZM.3:.5130:R$.FB$(ZD):.1881:FB$(Z
D).R$:.1880.`.!..1330:ZC.0:.1880...&..".
SURNAME >";:ZM.66:.5130:SS$.ZB$:.1360.E.
0..".GIVEN NAMES >";:ZM.66.C(SS$):.5130:
SG$.ZB$:.1360...5..SS$."".SG$."".1880...
:..ZC.2.FB$(1).SS$:FB$(2).SG$...D..ZC.7.
FB$(5).SS$:FB$(6).SG$.=.N..ZC.9.FB$(8).S
S$:FB$(9).SG$.A.X..1360:.1330:ZC.ZC.1:."
.";:.1670.O.Y..ZB$.""...|.Z.R$.ZB$:....B
..E(X$).0. 2410...L.NF.0:ZC.0...V.NF.NF.
1:.NF.E(X$).2410.....Y.E(Y$(NF)):.Y.11.U
.Y:P.14:G.0......Y.10.U.10:P.14:G.0.6...
.". ..FAMILY #";NF;". OF ";H(FB$(2),11
);" ";H(FB$(1),11);".".F....".F1-MENU F
3-HELP F5-SAVE F7-NEXT PAGE"......"...
SPOUSE"...... 2110...
...H(DN$,8);"NUMBER:.......";MC$(NF):...
.F..H(DN$,9);"NAME :.";:TT$.MA$(NF).","
.MB$(NF):.1240:..$ P..H(DN$,11);"MDATE :
.";BL$;BW$;MD$(NF):..P Z..H(DN$,12);"MPL
ACE:.";BL$;BW$;ME$(NF):... ...H(DN$,13);
"# OF CHILDREN:.....";Y$(NF):Y.E(Y$(NF))
.. ...Y.0.... ..." CHIL
DREN".. ...Y.10..H(DN$,25);" . FOR MORE
CHILDREN PRESS F8 ..".. ..../!...H(DN$,
P.ZG);D(ZG);":.";CB$(NF,ZG);.6);BL$;BW$;
TN$(ZG).5! ...Q!*..ZC.5.ZG.ZC.5.G:.2070:
..V!4.. ZC .1980,1990,2000,2010,2020:...
!>..ZC.1.5:.2090:.ZC:.Y.0. 2140..!H..ZG.
G.1.U.G..!M.TN$(ZG).H(A$(E(CB$(NF,ZG))).
" ".I$(E(CB$(NF,ZG))),33)..!R..2070:..."
\.ZC.1:.".";:.1980.."F..ZC$:.ZC$."".2150
.#"P.. 2090.E"Z..ZC$.".".ZC.ZC.1:.ZC.5.U
.ZC.1.G"...ZC$.".".ZC.ZC.1:.ZC.0.ZC.5.U.
W"...".";:.2090.."...ZC$.".". .2581:.750
.."...ZC$.".". .5310:. 1940.."...ZC$."."
. 1910.Q"...ZC$.".". 2550.."...ZC$.".".Y
.10.2270.."J..F(ZC$).13. 2300..#T..2150.
%#...G.10.G.0:P.14:U.10:.1940.D#...G.0.G
.10:P.4:U.Y.10:.1940.J#....A#... 1350:.Z
C.5. 2390..#...ZC. 2340,2320,2350,2360,2
380..#...".SURNAME >";:ZM.66:.5130:R$.MA
$(NF):.1881:MA$(NF).R$.H#...1360..$...".
GIVEN NAMES >";:ZM.66.C(MA$(NF)):.5130:R
$.MB$(NF)..$...1881:MB$(NF).R$:.2370.M$$
.ZM.3:.5130:R$.MC$(NF):.1881:MC$(NF).R$:
.2370.$..ZM.33:.5130:R$.MD$(NF):.1881:M
D$(NF).R$:.2370..$8.ZM.33:.5130:R$.ME$(N
F):.1881:ME$(NF).R$.O$B..1360:.2100:ZC.Z
C.1:.".";:.2160..%L.ZM.2:.5130:R$.Y$(NF)
:.1881:Y$(NF).R$:Y.E(Y$(NF)):ZC.1:.1920.
;%V.ZG.ZC.5.G:SI.1:.1450:.2090:.ZC.5.U.2
370.J%`.ZC.0:.2370..%J..". ..COMMENTS
: ";H(FB$(2),11);" ";H(FB$(1),11);"."..
%T.MT.0:.ZT.1.10:MT.MT.C(FB$(ZT)):..K%U.
MT.MT.C(FB$(16).FB$(17)).15.Z%V..X.0. 24
30..&W..ZT.1.X:MT.MT.C(MA$(ZT).MB$(ZT).M
C$(ZT).MD$(ZT).ME$(ZT)).5.X.3.5&X.MT.MT.
4.E(Y$(ZT)):..O&~.MT.256.MT:.MT.1. 2520.
.&..."...THERE ARE";MT;" SPACES LEFT FOR
COMMENTS."..&..."........";:.ZT.1.MT:."
.";:...&..."........";FB$(19)..&...1360:
."ADD COMMENTS? (Y OR N) >";:ZM.2:.5130.
.'...ZB$."N".ZB$."".ZB$.".".1040.2'...".
.......";:.ZT.1.MT:.".";:..E'D..ZB$.."Y"
.2470.T'N.ZM.MT:."........";:.5130:FB$(1
9).ZB$:.2440..'X..1360:.".YOU HAVE NO SP
ACE LEFT FOR COMMENTS."..'...ZC$:.ZC$.""
.2530.G'...1040..'...1360:."SAVE-.ARE YO
U SURE. (Y OR N) >";:ZM.1:.5130..(...ZB$
.."Y".1040.'(...3970:.2580:.990.G(..I$(F
).FB$(1):A$(F).FB$(2):..S(...FL.0..._(..
.2585:...(..FL.0:.5,8,5,"@0:DEMO.INDEX,S
,W"..(...I.1.K.1..((..5,I$(I);G(13);A$(I
);G(13);..(2..: 5..(<....(F.. **********
*************..(P.. * FILE SEARCH
*..)Z.. ***********************.7)D.."
..FFFFFFFFFFFFFFFFFFFF".U)N..".. PRIN
T ANCESTORS ".S)X..".DDDDDDDDDDDDDDDDDDD
D."..)..."......... HIT RETURN FOR MENU
"..)...1450:.ZB$."". 750..)...2720:.2760
..) ..1360:.".SCREEN OR PRINTER ? (S OR
P) >";..*...YY$:.YY$."".2730. *...YY$.."
S".YY$.."P".2730.+*...YY$:..5*H..3770.G*
R..YY$."P".4660.*..."NAME :
";FB$(1);",";FB$(2);" (#";F;")". *..."BI
RTHDATE :";FB$(3).A*..."BIRTHPLAC
E :";FB$(4)..*..."FATHER'S NAME
:";FB$(5);",";FB$(6);" (#";FB$(7);")".<
+..."MOTHER'S NAME :";FB$(8);",";FB$(
9);" (#";FB$(10);")".^+..."DEATH DATE
:";FB$(16)..+..."DEATH PLACE :"
;FB$(17)..+...X.0.2960..+...".. PRESS
ANY KEY TO CONTINUE".H+...A$:.A$."".2837
..+...I.1.X:."MARRIAGE#";I..,".."SPOUSE'
S NAME :";MA$(I);",";MB$(I);" (#";MC$
(I);")".@,,.."MARRIAGE DATE :";MD$(I)
.A,6.."MARRIAGE PLACE :";ME$(I).V,^..E
(Y$(I)).0.2960..,|.."CHILDREN: "..,...Q.
1.E(Y$(I)):F.E(CB$(I,Q)).L,...Q;":";I$(F
);",";A$(F);.25)F:.Q..,...".. PRESS AN
Y KEY TO CONTINUE"..-...A$:.A$."".2953..
-...I.(-...:."COMMENTS ";FB$(19).N-...".
. PRESS ANY KEY TO CONTINUE".B-...A$:.
A$."".2980.-..."---------------------".
.-...2650..-B.."...FFFFFFFFFFFFFFFFFFFF"
.F-L..".. INDEX OF NAMES "..-V..".DD
DDDDDDDDDDDDDDDDDD."..-...2720......YY$.
"P".4960.....U$.",".$...S$."
".,...X.0.7....I.1.K.V...T$.H(I$(I).U
$.A$(I).S$,15).F.&..I.10.." ";...0..I$(I
)." /".T$."/ "...:..I$(I)."
/".T$."/ "...D.X.X.1.K.N..X
.21.."...."...X..X.20...19)I;...B..X.20.
I.99..".";../L..X.20..T$:.3220../V..I;..
/...I.99..".";.&/...T$.5/...X.40.3260.=/
..X.0.Q/...X$:.X$."".3240.]/..."....".C/
....W/F..X$:.X$."".3270../P..750../Z..".
..FFFFFFFFFFFFFFFFFFFF"../...".. PRINT
PEDIGREE "../...".DDDDDDDDDDDDDDDDDDD
D."..0..."......... HIT RETURN FOR MENU
"..0...1450:.ZB$."".750.!0...3770.J0..."
....PEDIGREE OF ";FB$(1);U$;FB$(2).Y0 ..
".......................................
"..0*..".........":.X.1.11:..3)"B.":...0
4.."......":.X.1.5:..9)"B.":...0>.."....
..":.X.1.5:..9)"B.":...1H.."............
"FB$(1);",";FB$(2);"(#";F;".)"..1R..X$."
0".3430.Q1\..".(";H(MA$(1).U$.MB$(1),20)
;"(#";MC$(1);"))".C1F..".........";.T1P.
.". ....";..1Z..".";H(FB$(5).U$.FB$(6)
,20);"(#";FB$(7);")"..1..."...........";
.I1...". ....";..1...".";H(FB$(8).U$.F
B$(9),20);"(#";FB$(10);")"..2..F.E(FB$(7
)):FP$.FB$(10). 2...3770.B2..."......";.
9)"...";".";H(FB$(5).U$.FB$(6),20);"(#";
FB$(7);")". 2..."....";.9)"....";H(FB$(8
).U$.FB$(9),20);"(#";FB$(10);")"..2J.FA$
.FB$(7):FC$.FB$(10).H2T.F.E(FP$).R2...37
70..3..."......";.9)".C..";H(FB$(5).U$.F
B$(6),20);"(#";FB$(7);")".O3..."....";.9
)"....";H(FB$(8).U$.FB$(9),20);"(#";FB$(
10);")".J3..FW$.FB$(7):FV$.FB$(10).W3..F
.E(FA$)..3...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);")".$4..FX$.FB$(7):FY$.FB
$(10):F.E(FC$):.3770._48.."..";.16)".O."
;H(FB$(5).U$.FB$(6),16);"(#";FB$(7);")".
.4B..".";.16)".L.";H(FB$(8).U$.FB$(9),16
);"(#";FB$(10);")".D4L.FT$.FB$(7):FP$.FB
$(10):F.E(FW$):.3770..5V.."....";.16)".O
.";H(FB$(5).U$.FB$(6),16);"(#";FB$(7);")
".<5`..".";.16)".L.";H(FB$(8).U$.FB$(9),
16);"(#";FB$(10);")".O5J.F.E(FV$):.3770.
.5T.."..";.16)".O.";H(FB$(5).U$.FB$(6),1
6);"(#";FB$(7);")".E5~..".";.16)".L.";H(
FB$(8).U$.FB$(9),16);"(#";FB$(10);")"..5
..FD$.FB$(7):FE$.FB$(10):F.E(FX$)..6..."
......................... . HIT ANY KEY
."./6...A$:.A$."".3740.86...750.B6...V,
90.`6... ***********************.~6D.. *
FDD BLOCK READ *..6N.. ***********
************..6S..15,8,15:.2,8,2,"#"..6X
..4260.X6...15,"B-R:";2;FD;FT;FS..6...41
50..6...FI.1.10..7...2,FB$(FI):...7...2,
X$:X.E(X$):.X.0.3930.'7...I.1.X.67...2,M
A$(I):.E7(..2,MB$(I):.T72..2,MC$(I):.C7<
..2,MD$(I):.S7F..2,ME$(I):...7Z..FI.16.1
7:.2,FB$(FI):.FI..7[..X.0.3950..7\..I.1.
X:.2,Y$(I):..T7]..I.1.X:Y.E(Y$(I)):.Y.0.
3935..7^..II.1.Y:.2,CB$(I,II):...7_....8
N..2,FB$(19):..8X. 2: 15:..08... *******
****************.N8... * FDD BLOCK WRITE
*.L8... ***********************..8.
..15,8,15:.2,8,2,"#"..8 ..4260:FL.1..8..
.FI.1.10:.2,FB$(FI);G(13);:..W8...2,X$;G
(13);:X.E(X$):.X.0.4080..8...I.1.X:.2,MA
$(I);G(13);:..9H..2,MB$(I);G(13);:. 9R..
2,MC$(I);G(13);:.69...2,MD$(I);G(13);:.M
9...2,ME$(I);G(13);:..Q9...FI.16.17:.2,F
B$(FI);G(13);:.FI..9...X.0. 4110..9...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.....9...2,FB$(19);G(13);..:.
..15,"B-A",0,FT,FS.,:...15,"B-W:";2;FD;F
T;FS.6:"..4150.C:,. 2: 15:..A:6.. ******
*****************.:@.. * ERROR CHECK
*..:J.. ***********************..:
T..15,EN,EM$,ET,ES..:^..EN.0....:H..".ER
ROR STATUS:";EN;EM$;ET;ES..:R.."CONTINUE
?";Y$:.Y$."Y"....;|...#;... ************
***********.A;... * SET TRACK & SECTOR
*._;... ***********************..;...F.3
58.F1.0:F2.22:F3.1:.4300..;...F.357.F.47
2.F1.357:F2.20:F3.19:.4300.T;...F.471.F.
580.F1.471:F2.19:F3.25:.4300..;B..F.579.
F1.579:F2.18:F3.31..<L.FT..(((F.F1).1).(
F2.1)).F3.2<V.FS.F.F1.(FT.F3).F2.(FT.F3.
1).8<....B<...3440.Z<...**SEARCH BY NAME
**.~<..."...";.12)".SEARCHING BY NAME"..
<..."...SURNAME OF PERSON: ";..<...X$.H<
..."GIVEN NAME OF PERSON: ";:.Y$..<&.."A
RE YOU USING A PRINTER";T$:.T$."Y".4490.
.<0...+=:..".NUMBER";.15)"SURNAME";.25)"
GIVEN NAME".6=D..I.1.K.H=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)..=B..:.I=L..".... PRESS ANY KEY TO
CONTINUE"..=V..A$:.A$."".4470..=...2660.
.>...**PRINTOUT OF NAME SEARCH**.#>..AA$
." ".,>...4,4.]>...4,G(14
)" NAME SEARCH":.4,G(10).J>
...4,G(15)..>...4," NUMBER";AA$;"SURNAM
E";AA$;"GIVEN NAME"..>F..X.1.75:.4,"-";:
...>P..4.C>Z..I.1.K..>..II$.D(I):.I.10.I
I$.II$." ":.4600..?...I.100.II$.II$." "
..?...I$(I).X$.Y$."ALL".4640.8?...I$(I).
X$.A$(I).Y$.4630.D?...:.4650.R?...4,"
#";II$;AA$;I$(I);AA$;A$(I):.:.4650..? ..
4," #";II$;AA$;I$(I);AA$;A$(I):...?*..
4: 4:.2660.I?4.. ** PRINTOUT OF SEARCH *
*.R?>..4,4..?H..4,G(14);" ";FB$(
2);" ";FB$(1).%@R..4,G(15):.T.1.75:.4,"-
";:.:.4,G(10).B@\..4," NAME
:";FB$(1);",";FB$(2);" (#";F;")"..@F..
4," BIRTHDATE :";FB$(3)..@P..4,
" BIRTHPLACE :";FB$(4)..@Z..4,"
FATHER'S NAME :";FB$(5);",";FB$(6);
" (#";FB$(7);")".3A...4," MOTHER'S NAM
E :";FB$(8);",";FB$(9);" (#";FB$(10);
")".@A...4,G(10).GA...4," DEATH DATE
:";FB$(16)..A...4," DEATH PLACE
:";FB$(17)..A...X.0.4930..A...4,G(10
).HA...I.1.X:.4," MARRIAGE#";I..B...4,
" SPOUSE'S NAME :";MA$(I);",";MB$(I
);" (#";MC$(I);")".0B...4," MARRIAGE D
ATE :";MD$(I).VB...4," MARRIAGE PLA
CE :";ME$(I).CB...4,G(10).XB...E(Y$(I)
).0.4930..B...4," CHILDREN: "..B...4,G
(10).EB..AA$." ":BB$."
"..C...4,AA$;" SURNAME";AA$.AA$;"GIV
EN NAMES";AA$;" NUMBER".;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..C8..:.4,G(10):..JCB.
.4,"---------------------"..CL..4," C
OMMENTS ";FB$(19)..CV..4: 4:.2640..D`..4
,4.7DJ..4,G(14);" INDEX OF
NAMES":.4,G(15).PDT..T.1.75:.4,"-";:.:.4
.[D~.U$.","..D..S$."
"..D..AA$." "..D..X.0..D.
..I.1.K.FD..T$.H(I$(I).U$.A$(I).S$,30)..
D..II$.D(I):.I.10.II$.II$." ":.5070..ED
..I.100.II$.II$." "..EN..I.2..(I.2).5100
.5EX..4," ";II$." ";:.4,T$;:..HE...4,G(1
0):.5120.BE...4,AA$;II$." ";:.4,T$.HE...
.WE...4: 4:.750..E..ZB$."":ZA$."":ZC$.".
."..E...ZC$;".";..E...ZZ.1 . 2..E(.. ZY
.1 . 30.WE2..ZA$:.ZA$."" . 5260..E7..ZA$
.",".ZA$."."..E<.ZA.F(ZA$)..FF..ZA$.".".
C(ZB$).2...JFP..ZA.145.ZA.17.ZA.147.ZA.1
9.ZA.157.ZA.29.ZA.148.5260.CFZ..ZA.20.C(
ZB$).0.5260..FD..ZA.20.ZB$.H(ZB$,C(ZB$).
1):.". ..";:.5260..FN.. ZA.13.." ":...F
X.. C(ZB$).ZM.5170.XF..ZB$.ZB$.ZA$:.ZA$;
ZC$;".";..F...ZY..F..." .";..F ..ZZ..F..
.5140..G... ****** EDITING INSTR..BG..."
. .. EDITING INSTRUCTIONS .".LGH..
".ENTERING DATA :":."EEEEEEEEEEEEEE"..GR
.."-THE CURSOR UP AND DOWN KEYS ARE USED
"..G..." TO PICK A TOPIC.".ZG...".-THE R
ETURN KEY MUST BE PRESSED"..H..." BEFORE
INFORMATION CAN BE ENTERED.".1H...".-A
FLASHING CURSOR WILL APPEAR ONLY".[H..."
WHEN THE RETURN KEY IS HIT FIRST."..H..
.".FUNTION KEYS :":."EEEEEEEEEEEEEE".IH.
.."F1 - RETURNS TO MAIN MENU. ":."
. DOES NOT SAVE DATA ! "..H".."F3 - SHO
WS THIS INSTRUCTION PAGE."..I,.."F7 - SA
VES PRESENT DATA TO DISK.".GI6.."F7 - GO
ES TO THE NEXT PAGE. THERE ARE".BI@.."
THREE PAGES:"..IJ.." 1. GEN
ERAL DATA."..IT.." 2. MARRIAGE A
ND CHILDREN DATA.".OI^.." 3. COM
MENTS."..IH.." . HIT ANY KEY TO CONTIN
UE ."..JR..A$:.A$."".5490..J|...4J...***
*** LOAD PRINT PEDIGREE ****.>J...2580.G
J...". .. LOAD PEDIGREE PROGRAM .".
.J...".... PLACE PROGRAM DISK IN DRIV
E"..J...". AND HIT RETURN.".RJ.
..A$:.A$."".A$..G(13).5550..K...".......
......... . PLEASE WAIT- LOADING PROGR
AM ".;KB..G(17)G(19)".LOAD"G(34)"PEDIGRE
E"G(34)",8".SKL..:.:.:.:."RUN"G(19).{KV.
.198,4:.631,19:.B.1.3:.631.B,13:.:...KX.
."..... SURNAME SEARCH"..KB.."...SCREEN
OR PRINTER? (S OR P) >";.VKL..XX$:.XX$."
".7020..KV..XX$.."S".XX$.."P".7020..K...
XX$..L...XX$."P".8000.=L..."...NUMBER";.
10)"SURNAME";.22)"GIVEN NAME".CL....NL..
.I.1.K..L... H(I$(I),5).H(ZB$,5). ."#";I
;.10)I$(I);.22)A$(I)..L.....L...:.".....
. PRESS ANY KEY TO CONTINUE ".NLA..XX
$:.XX$."".7105.WLF..750..M@..4,4:.4,G(14
);" NAME SEARCH"..MC..4," ";G(15
).*ME.AA$." ".YMJ..4,"NUMBE
R";AA$;"SURNAME";AA$;"GIVEN NAME".OMT..X
.1.75:.4,"-";:..VM^..4..MH..I.1.K..MR.II
$.D(I):.I.10.II$.II$." ":.8070..M|..I.1
00.II$.II$." "..M... H(I$(I),5).H(ZB$,5)
. 8090..M...8100..N...4," #";II$;AA$;I$(
I);AA$;A$(I)..N....!N...4: 4:.750.'N4!..
DN>!.****** LOAD COVER ****.JNH!.".
.. LOAD COVER PROGRAM ."..N\!.".
HIT RETURN."..NF!.A$:.A$."".A$..
G(13).8550..NP!."................ . PL
EASE WAIT- LOADING PROGRAM "..OZ!.G(17)G
(19)".LOAD"G(34)"COVER"G(34)",8".(O.!.:.
:.:.:."RUN"G(19).PO.!.198,4:.631,19:.B.1
.3:.631.B,13:.:....
> CLICK IMAGE PREVIEW FOR FULL MODAL