8L2C)pJJJJ IH(ȱH:=IH[H`@HcH  $ +   I/H`JLNGȄBȄF aK  haaFF  mJm# KKJ UJ )J ۈ) ;J3ȱJFȱJGJKaȄM  aaNNJFLGJL LLG ASTARTUP$#   / XXύX?klmnÍoL) "6L'?"(0`6708" = ***)<%PASS2 0 !0 &PRODOS }<0 ! STARTUP0 !y!FRWHERE -CONFIGURATION }0 !0 >TAGSZ0 !*(%LINKS 0 !0 *LINKS.MENU0 !0 (PAFRMAIN> y0 !/ (PAFRMIDL 0 !0 (PAFRSTRT 0 !0 TEMP0 ' ,BASIC.SYSTEM(0 ! 9/EXTRA.VARIABLES_0 !@|* %FPEND$0 !0 &FPMAIN(:6p0 !/ &FPMIDLa0 !0 'FPSTARTr? &PRODOS `DaElH$?EGvѶK+`L HHLy XP LM ŠϠĠӠS)*+,+`F)) (*=GJFjJJA QE'+ '== `@ STSP8QSS8 m P o R(8RJJH !h穖tp% ;"Z/݀>">"' 1" 7"5).莀/ ;" " 6" >" 1"6"$ "g"" !"""""IzL j>>m>` _m8injkiljo풼i>?Ek?>Q>> L> \/ e>>?́?ޱ>ȥpnG @p;G=po:Q>>>̀ `` \> ̀ `e>>?́?>?Emn(>e>ȱ>e?>Q>ؠ> ie>>?`|;}=:<~:<=;`||m};>:8o>oȑ>ppȑ>> :op`G DKJپھ pHJh` D!hgt}~p `~t}p8n~ni}tpi~~tso8pinii>j?k̈́>~|p|Ii||̈́ l - `>i>L8933LΞAAJL ةޘг uv $ 8LƞaЌ>?@`>?@`B8` K  춼LK ҟ ҟ ( KK`HJJJJ8`HK)` #hhL𚾤3 @LtJ)s@J b  l`a?sa?,E30ɍФ3 E3HD F3 Ʉ%h3 bM E  lLthɍLL3`3,A0s0% Ipn DpnI:L ؅303پھ p H־Ǿh۰8L־Jjjjɾ)Ⱦ8 ѱ OLӜ ĤLLX>(F`־ؾپھ׾` bɄ KDEF vLl v lL bKɍKL?` w  vLl@$݅3`(l8L3LX>(Ƀ,`3,G0]ɾ g` H`پ_پ p _پ׾`>( p۾m׾) W)ʩ@`ɾ>(O puȾ ɾ-O ]c־Jjjj `O>0O l PODEF޾ p ޾ p($ذ v (0 ( L?ԦʚLeةީa s  lL b,FLg,DL,C0$3 >@ Ɉ 3ɾꩈL(3ɾ;Ƀ B94 l% bʽ  ՚,S` H EH06172839h` v97L75v^a ?/( va?LLLɍ$?`?a ɍɥAH93827160hH46576879h`,C bL ɍ b w,S0 @ lLޭBYL 8!9 詍` "  à4"/pŠϠŠà͠ӠàԠŬh,PIN'ҍIxy /L6Ix y JpnoF /= plm /w)!,ZJYH)h****)  md8幙`\H[< h  /( 载쳼󩭙L/id /`H) hJJJJ ɺi` M  ` ת.8 `O`S  AI-L9 ᪰B C VWS`޾Lp h־Ҿ,G0^W)TP) ecfdپھ׾ؾӾ p$c d pccddީ 8`ȾɾʾNfne}ȾȾI>Ie f`8` P־ǾҾ,G0C f=W)_``\"׾پӾؾھ pD`־ǾY׾ؾOW)ݩȾɾʾ pD`8`W)CB) 5W) =)W)@! pZ}ȾȾ󰹩 p` ־ǾҾ,G 8`׾ؾ f p vۥs׾tؾE` /ȥqȥr TAL51hh jhhV"  ީ j ީ ލ .`HH jhh1 \AopȱLㅄ1 \A D`oH r .HHȱHH g LPFLLcCDHDH H!HLgE A } A }$%0ҩ A 8(LD$0PLD \A6;)hh ޥHH {h* mhH KAh cڍ TA`op`L#Dh KA/F F rаirLCLC/q ɽ ɿ 0ALAhh AH A g RPQh PQj%PsQtPQ PQijLrBLԥPiQjP Q st 0AL eLVF` 꺽  \A  KA ' TA 8 uvL׊i , A BLPFhh !" 0AL+A,Aso/Atpꍉ`L_FLAL0= ijklmn op` `$ ` KA8Læ TA`-Ihh AL{BhhLEFɬ6hhh A L~EF1! 78LئFL LBstopɣɤɬ @J Ӎé㮊8s_tB' A ? /) 0ȱ =` ȩF  e ȱ e 8e/ 0A_F(A)A ө_F<=_R>?BC8 Í st ijLLwLLL) `8` ԠŬLLʮq$6,⨁ K6, VtI=v!gNVt Vt  lg~TV     T[fouu~ՠٯ* PWN*]ĿNTz @n6VC/+A>@I5gN Oz @n[Dz @nd0,~z @`$仫@v$⩔,C[B?I>孓`仫6VtCicQĿUKqtVt Nֵ#ح#׮2}q :IC@@ -!S    !C- !ABELSDFRV@@ !$(19@EüϠž(+@ABCDEFGHIKLMNPSsƬƀ#(ZZV4G_0=( A P FjL\5p-e9ABSAVERIFYBLOADELETEBYECATALOGOPENWRITEXECREATEFRESTORENAMEBRUNLOCKCHAIN#FLUSHREADPOSITIONOMONPR#PREFIXCLOSEAPPEND6D(!쫂8 ( 8о(־Ǿ,G 8`_`W)H־Jjjjh p̭ fLᶢǾ ת..8 ۭ (8mȾȾmɾɾʾiʾ` Lpl8l:/,sHHHHHH hhhhhh) HH , ޥ  LeAL\A 0# wE 8ompn8L8s寅t尅LE A$2$P ": ,i = CLrH h J CLrܥLFH /Inp"8eop opqrqrh`0 wEhоMލLLmALTF  LJ klnm<ŁћȱeȱeעkL x8` ћL*L ȥʆȑ $Phihi9FPMAIN, VER 1.0. COPYRIGHT (C) 1992, QUINSEPT INC.PMD(A)A(AZ)ZZ 9100VY0:3260:AF$" GEDCOM FILE NAME":FL1AF$"FILE NAME FOR SUBMISSION"AF$AF$" ( Example: /DISKNAME/FILENAME ): "3320:9200:CZ103285) ES.MENU" N910"NOT";::" to send your diskettes to QUINSEPT!!!!!!>*";:690c (4)"PR#3":(4)"-LINKS.MENU" ER(222):EL(218)256(219): B Z79:Z$"-":2380: L I1Z:Z$;::: PA980 SA:"Error # "ER" at line "EL".";:EL16000910 ZA(4)"-LINK Family History Department":" Data Control Section, 5T " 50 East North Temple Street":" Salt Lake City, Utah 84250":2370@ :::"*Q>>>ńŅ D `` >ń Ņ D `e>>?ņ?>?Emn'>e>ȱ>e?>Q>ڠ> ie>>?`; =:<:<=;`Łi ;>:8o>oȑ>ppȑ>> :op`/opqr/ hoȥqoȥroLG o8/oppiojpMޭLP ` LJ p " npL ptso8pinii>j?kʼn3pIiŁʼn % l `>i>?Ek?0hhpo ``L  ijlkћћ8iL  LJ nɿp  L" 00*/ oLàH/V / op ȱ а iL Ȋ V ^e]eR mn殤ƕƮ8m因n圑bȱhhћȊћLCL ȥ V e^eʅʥʆd _ ee`^de *& edeeƙ`p(o" H " hR0:(4)"RENAME"S$AS$","S$AS$:ER635~ 870:AS$" already exists. ":"OK to overwrite file? ";:T$"N":694:YN$"Y"25 #(4)"DELETE"S$AS$ ((4)"CLOSE"S$AS$ -510 23375:900:MR0 CZ0:XP0:850:6:2370 NF$"":NM$"":NL$"":"Tr')*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_"872:(4)"OPEN"S$AS$:FO1:?(4)"OPEN"S$"MRIN,L8":T(4)"OPEN"LT$:x872:(4)"OPEN"S$"MREC":FO2:VE$"Descendants":3800:CZ1ı P1P11:P2Q(24)İ450!401:QX$SV$(P1):IN(SV$(P1)):IN0P1P2IGQ(20)1JXJX1:XX1Q((P2):P2P1ı_P1P2ĺ::"**OVERFLOW - NOT ENOUGH SPACE ALLOCATED FOR LIST":960:20000e20:1:"Now collecting record numbers...";:Z44:Z$" ":2380:XX1Q(24):SV$(XX)"0":XX:280:LI:A$(T$,1):(A$,1)CZ$CZ1:A$""(7)IG$:P2P21:P2Q(24)İ450)4559F$"N"414N(RC$(8))0430XX1(RC$(8)):(MI$(1,XX))0QX$MI$(1,XX):1652XX(RC$(9))0414XX1(RC$(9)):C$(XX)""(C$(XX))0QX$C$(XX):1652XX:414ZQ(24):P2MD:BW$QX$:Z$"/":600:IGZ:IG((QX$,IG1))1:IG$"/"(IG)pIN(QX$):XIN:X0P1P2IGQ(20)İ495:1652:FM0:7620:RC$(6)""(RC$(6))0420SV$(P2)RC$(6)IG$:P2P21:P2Q(24)İ450455:RC$(7)""(RC$(7))0426 SV$(P2)RC$P1Q(24)P11+FL1F$"Y":20:1:"Include immediate family members: parents, children, spouse(s)? ";:T$"Y":694:F$YN$:VE$"Ancestors":3800:CZ1ıP1P11:P2Q(24)IGQ(20)İ450401:QX$SV$(P1):QX$"0"IGQ(20)İ495,1)Q$(5)380)@KKKK1:IIJJ0370=JKK360,350,340_TN1$(NA$(W),II1,JJII):370^N2$(NA$(W),II1,JJII):370hN4$(NA$(W),JJII)rJJII1:KK3II1|:JJII0N3$(NA$(W),JJII)KK2N1$N2$:N2$N3$:N3$""WBB:RIN,R"XZ:SV$:800:IN(SV$):INPVPVIN:ZX0:1250KXZ:804:512:20:1:" Now sorting record numbers...";:Z$" ":Z44:2380:,BBW:WWPA(0)1JJ(NA$(W)):KK0:N1$"":N2$"":N3$"":N4$"":JJ04006II(NA$(W))11:(NA$(W),II13:(SV$):800\JXJX1:19:1:Z20:Z$" ":2380:19:1:"Next number? ";:500:CZ1ıSV$A$:(SV$)0JXJX1:280:SV(SV$):SV8İ613:(SV$):800NL$NL$A$:3205:2757285:PV0:4000:850:BG0:2220:970:XZ1JX:(4)"READ"S$"MNF$""266/ W$N1$:Z$NF$:600:Z0270> XXZ:7620H 1250RXZ:LC1:NL$"Number List: ":JX1:3204:2875:"Transfer records by Number List"::"First number? ";:500:CZ1ıNL$NL$A$",":SV$A$:(SV$)0ıSV(SV$):SV8İ6I255" :JA$(A$,J1):256D "End number? ";:500:CZ1ıu 850:BG0:2220:U2(A$):U2U1ĭA$""U2U1 970:LO0:XZU1U2:CZ0:XXZ:INX:WXZ:2600:FP1GP1270 300:NL$""262 NL$N2$270 NM$""264 NM$N3$270(T$,1):5)"--Married name: ";:LI:NM$(T$,1)::NF$NL$NM$""İ249N 9350:2875:20:1:2365:"Start number? ";:500:CZ1ı U1(A$):U11A$""U11:RN$"=1 will be used to start":255 J0:I1(A$):(A$,I,1)","(A$,I,1)"-"JI:9124 OP1OP6Ģ17:39:690:OP(YN$)64:243^ 870:OP249,272,246,405,530,700:240 2875::"Transfer records having all the following name parts in common:":5)"--Last name at birth: ";:LI:NL$(T$,1)H 5)"--First name(s): ";:LI:NF$ansfer Records by:"::" A) Number range":" B) Number list":" C) Name set":" D) Ancestors of individual":" E) Descendants of individual":" F) List from Disk" :::"CHOICE";::" (A-F/"RT$" to final processing)? ";:690:OP(YN$)64: OP5124):SV$(XX)"0":XX:280:Z"W$QX$:Z$"/":600:IGZ:IG((QX$,IG1))1:IG$"/"(IG)#1652:XIN:FM0:7620:RC$(9)""(RC$(9))0570%XX1(RC$(9)):C$(XX)""(C$(XX))0552'SV$(P2)C$(XX)IG$:P2P21:P2Q(24)İ450(455:XX :F$"N"544?(RC$(8))0580WAXX1(RC$(8)):(MI$(1,XX))0QX$MI$(1,XX):1652_CXXDRC$(6)""(RC$(6))0QX$RC$(6):1652FRC$(7)""(RC$(7))0QX$RC$(7):1652N544XZ0:R(Z$):R1R(W$)ıZY1(W$)(Z$)1:(W$,Y,R360$&9"1 MOTH":"2 NAME "RC$(6)R&P800:DE$RC$(3):RC$(3)""RC$(4)""1375l&Q(RC$(3),1)"L"1371&SVE$"1 DEAT":830:RC$(3)""RC$(3)"D"1370&TDE$RC$(3):1600:RC$(4)""1375&ZVE$"2 PLAC "RC$(4):830:1375 '[RC$(4)""VE$"1 LVG":""13207%DE$RC$(1):1600:BD$DE$:RC$(2)""1330U%(VE$"2 PLAC "RC$(2):830t%2610:A(RC$(7)):A01335%3A(RC$(7)):A0ĺ"1 FATH @I"A"@":1335%4"1 FATH":"2 NAME "RC$(7)%7A(RC$(6)):A01360&8A(RC$(6)):A0ĺ"1 MOTH @I"A"@":1285$YN$"Y"'$RC$(SX)SX$:1286X$RC$(SX)""VE$"1 SEX "RC$(SX):830:1300b$3150w$VE$"1 SEX "SX$$ SX0RC$(SX)SX$:8100$9000$SX0SX$RC$(SX):RC$(SX)""$BD$" ":RC$(1)""RC$(2)""1330 %VE$"1 BIRT":830:RC$(1)"SX$"M":ITNM#E#XIN:7620:SX$"F"SX$"M"YN$"Y":1281a#NC(RC$(9)):NC01285#IT1NC:X(C$(IT)):X01277#7620:IS(RC$(6)):INISSX$"F":ITNC:1277#IS(RC$(7)):INISSX$"M":ITNC$XIN:7620::SX$"F"SX$"M"1SURN "SU$:SU$""'"IL1ĺ"1 ID "INA"800:RC$(11)""1265k"610:"1 CHAN":800:DE$RC$(11):1600{"SX01283"(RC$(8))0SX01273"IT1(RC$(8)):X(MI$(1,IT)):X01270"7620:SX$RC$(SX):SX$"M"SX$"F":ITNM:1270#SX$"FE (UNKNOWN) //"ı!INTP:F30Ĺ34,3:I(37)1:"Discard record for "RN$"="IN"- "FS$" "LN$" "TI$"? ";:T$"N":694:AW$YN$::34,0:I:2365:AW$"N"ı!VE$"0 @I"(IN)"@ INDI":830:INTP:VP0!610:VN$:TI$""ĺ"1 TITL "TI$"SU$""ĺ"1 212367 SU$(SU$,Z1):(SU$,1)" "SU$(SU$,2)k W$TI$:Z$Q$(4):600:Z2Z$"^":600:Z21240~ TI$(TI$,Z1) VN$"1 NAME "FS$"/"LN$"/": OP7:FM0:XIN:7620:ZX1ı 1220:TPIN:RRRR1:RR20İ2240:RR1!F40VN$"1 NAM"1 NAME (UNKNOWN) //":,DS$SR$1240`W$LN$:Z$Q$(4):600:Z2Z$"^":600:Z21232sLN$(LN$,Z1)W$FS$:Z$Q$(4):600:Z2Z$"^":600:Z21234FS$(FS$,Z1):(FS$,1)" "FS$(FS$,2) W$SU$:Z$Q$(4):600:Z2Z$"^":600:Z-FPEND"A34,0:850:16:"Restarting..":6780:(4)"-FPMIDL"i"Press any key when ready";:690:4:5:"Working...":4:1:ER(222):EL(218)256(219):WIN:2600:NA$NA$(WPA(0)):300:FS$N1$:LN$N2$:SU$N3$:TI$N4$:(NA$)4VN$S$#DFO2ĺ(4)"CLOSE"S$"MREC")E3R::?f16720EgQh14000Wia5270vOP6İ512:OP6|AY49402000:OP0:805:516:(4)"APPEND"S$"MREC":"0 TRLR":805:980034,0:F51İ810::(12):820 6780:(4)":500:CZ1İ750:20000&LT$A$:A(4)"CLOSE"LT$:804:M (4):h$(4)"CLOSE"S$"MRIN":{%(4)"CLOSE":*F5ĺ(4)"PR#"Q(3):(9)"80N";:PGPG1:PG60İ5250+4F5ĺ(4)"PR#3"5>610:VE$:800:CFO1ĺ(4)"CLOSE"S$A70514:910B614:LI:VE$(T$,1):JX(VE$):I12:LI:fI1JX:LI:LI:A$(T$,1):800A(A$):A8İ613:(A$):800I:750:280:::"Can't find file "LT$:"Please specify full path name.":15:17:" "15:17C:YN$:16368,0:YN$:YN$"a"YN$"z"YN$((YN$)32)Ij:T$(8);:692:YN$CZ$940}YN$V$YN$T$850:15:"LIST FILE NAME? ";500:CZ1İ750:A$""Ė15:17:701LT$A$:735(4)"RENAME"LT$","LT$:8)Z$ZY:Y255\:AbAYAY1:872:FO1ĺ(4)"WRITE"S$AS$`cFO2ĺ(4)"WRITE"S$"MREC"fdeVYVY1:(4)"WRITE"S$"MRIN,R"VY:f(4)"READ"LT$:YN$"":A(16384):A127YN$(A128):16368,0:" "(8);:692:YN$CZ$940830:1375!'\VE$RC$(4):2140X'_NX$FS$" "LN$" "TI$:(NX$,1)" "NX$(NX$,2)k'`F50ĢRR3:1'b810:IN;9((IN)))(BD$,16)16((BD$,16)))(DE$,17)17((DE$,17)))NX$:820'dQ(44)11480'fXX1Q(44)'gRC$(XX11)""1400(iU2$(XX)""İ3100:1400@(j610:"1 "U1$(XX)" "RC$(XX11):800T(xXX:RC$(SX)SX$k((RC$(10))01499(FG$FH$:F21W$RC$(10):Z$Q$(4):600:AZZ:Z0FG$(RC$(10),Z1)(NU1(RC$(10)):A$(FG$,NU,1):A$"Y"A$"y"A$"1"A$EX$(NU):7950D)IN:7620:(SX$"M")11770,176016VG1:1780:6VG2[6XM1NM:VG2I1$MI$(1,XM)s6VG1I2$MI$(1,XM)61800:VPVRİ610:"1 FAMS @F"VR"@":800:VPVR6XM:62115:VB$I2$"/"I1$:1500:VF0MRMR1:VD$(MR)VB$:VRMR 7 MRVXVF0150:XIN:7620:RC$(SX)SX$:SX$""İ8100L59000:(SX$"M")11770,1760b5NC(RC$(9)):IC0z5ICIC1:ICNC17305SX$(C$(IC),1):(SX$)1(SX$)917435X(C$(IC)):7620:IN(RC$(6))SX$"F":17505IN(RC$(7))17435SX$"M""6X7704RC$(9)""1740A4XM1NM:X(MI$(1,XM)):X0XMNMt4XM:7620:SX$RC$(SX):XIN:7620:SX$"M"17704SX$"F"17604WIN:2600:FY$NA$(WPA(0)):W$FY$:Z$Q$(5):600:AA$"":Z1AA$(FY$,Z1)4W$LN$:Z$AA$:600:AZ:A01770+53FM$"":DS$SR$ıC3W$DE$:Z$Q$(4):600:Z1DE$"":FM$W$:m3Z2Z$"^":600:Z1DE$"":FM$W$:3Z1FM$(DE$,Z):DE$(DE$,Z1)33NM(RC$(8)):I2IN:I1IN:I2$(IN):I1$(IN):NM1ı3SX$RC$(SX)3SX$"M"17604SX$"F"1(QX$,(QX$)1):1654L2wW$QX$:Z$Q$(4):600:Z0Z$"^":600:Z01658j2xQX$"":Z1QX$(W$,Z1)2zJXJX1:SV(QX$):SV8İ613:(QX$):800:5:25:" ":5:25:JX,QX$2{2|(DE$)8DE$("????????",8(DE$))DE$2~1606:3TP$""ı:1_I1(TP$):(TP$,I,1)"?"A$A$"0":1633O1`A$A$(TP$,I,1)^1a:TP$A$:1h(DE$,1)" "DE$(DE$,2):16401i1tW$QX$:Z$"/":600:XSZ:XS0QX$"":XS1QX$(W$,XS1)1u(QX$,1)" "QX$(QX$,2):16532v(QX$,1)" "QX$:1624)0TW$DE$:Z$"/":600:Z01624\0UTP$(DE$,Z):T1$TP$:DE$"":Z1DE$(W$,Z1)}0V(DE$)8DE$DE$TP$:16240W1604:VE$DE$:DE$"D"(VE$,4)T1$(VE$,4)0X1625:0YDE$""DE$" "İ1640:VE$"2 DATE "DE$FM$:8300Z 1^A$""::DE$TP$:/O3700:J1624G/PDT$DE$:2400:DE$DT$:(YY$)01624/QD$(DE$,6):D$"CIRCA "DE$(DE$,7):1660:DE$"ABT "DE$:1624/RD$"AFTER "DE$(DE$,7):1660:DE$"AFT "DE$:16240SD$(DE$,5):D$"BEF."DE$(DE$,6):1660:DE$"BEF "DE$"1"Y$"2"Y$"3"İ1625 .E^.FD$(DE$,1):(D$)0D$"0"D$"?"D$"D"D$"E"1609x.GDE$"????????"1610.HDE$"UNKNOWN":1625:.I(DE$)0İ1615:.JTP$(DE$,5,4)(DE$,1,4):Q(25)1TP$(TP$,4)(TP$,7,2)(TP$,5,2) /L1630:1540" "Y$"*"Y$"+"Y$"I"Y$DE$:DE$"":(Y$)1DE$(Y$,(Y$)1):1601-BY$(DE$,1):Y$" "Y$"I"Y$">"Y$"<"Y$"+"Y$"*"DE$(DE$,2)-C1690:(((DE$,4))0((DE$,2))0)(DE$)8İ1615:.D1606:Y$(DE$,2):Y$" "Y$(DE$,1):Y$" "Y$ARRIAGES ***",$15:12:"Processing time for subsequent marriages will be longer."::16)"All marriage information will be transferred.",,19:12:960:850:XIN:7620:VF0:MR0:RR0:2220:,@A$DE$:10300:DE$A$I-AY$(DE$,1):Y$">"Y$"<"Y$:MH0MH$" ":DY$" ":15608+(DY$)0DY$" "P+MH$MT$(MH(MH13))+TP$DY$" "MH$" "(TP$,1,4):(TP$,1)"0"TP$" "(TP$,2)++"FX1:3000:2000:NM$"":OFOFVX:I1VX:VD$(I)"":I:VF0VROF,#3204:12:25:"*** OVER 1000 M'*1537:ER6ĺ(4)"DELETE"S$"TXXX"-*O*980:1537:ER5ER616720}*ER6İ1538:(4)"WRITE"S$"TXXX":1:1537*1538:1539:*(4)"CLOSE"S$"TXXX":*(4)"OPEN"S$"TXXX":*(4)"READ"S$"TXXX":!+MH((TP$,5,2)):DY$(TP$,7,2)NU:AZ0DS$SR$A$RC$(10):RC$(10)"":AZ1RC$(10)(A$,AZ1)W)4215:10600:)VF0:I1MR:VB$VD$(I)VF1:VRI:IMR)I:FX0VF1VRVROF:)ER0:1530)I1:1538)1539:LI:AA$(T$,1):AA$VB$II1:ER01515*VF1:VRI1570:7VF0VRVROF"7s70I2(RC$(6)):I1(RC$(7)):I2$RC$(6):I1$RC$(7):1800:610:"1 FAMC @F"VR"@"~75800:7I1019627W$I1$:Z$" ":600:KFZ:KF0ı7NA$(I1$,KF1)7W$NA$:600:KFZ:KF0LN$NA$:KF1:19648NA$(NA$,KF1):195608WI1:2600:WPA(0)1İ1980:|8NA$NA$(WPA(0)):W$NA$:Z$Q$(5):600:KFZ:LN$"":KF1LN$(NA$,KF1)8IC1NC:(C$(IC))019698KF019698W(C$(IC)):2600:WPA(0)1İ1980:1969%9AA$NA$(WPA(0)):W$AA$:Z$LN$:600:ZY$::Ff DX$"AF"DX$"P."DX$"PO"DT$"AFT "YY$:eFg (DT$)4DX$"??"DT$" "YY$:Fi 10500:A(DT$):A11DT$(" ",11A)DT$Fj Ft YY$"":F GP0:BB1:I1MP:WH(I,0)1ĭWWH(I,0)WWH(I,0)NDBBI:IMPG :BB0(DT$,1)"<"DT$(DT$,2)AEa DX$(DT$,2):YY$(DT$,4):2420QEb (YY$)0ıEc (DT$,1)"+"(DT$,1)"-"YY$(DT$,5):YY$(YY$,4):Ed DX$"--"DX$"C."DX$"CI"DX$"CA"DX$"AB"DT$"ABT "YY$:Fe DX$"BE"DX$"B."DX$"PR"DT$"BEF "Y3:DF5ĴFW2215,2210"DJD(C$(IC),1)" "C$(IC)(C$(IC),2)D(C$(IC),1)" "C$(IC)(C$(IC),(C$(IC))1):2231DDF5Ĺ34,3:::34,0:4DD= Z79:Z$" ":2380:DB Z79:Z$"-":2380:DL I1Z:Z$;:::E` (DT$,1)">")(MN$(1),12):I1$(I1$,29):I2$(I2$,25):A$(IXOF):A$8(A$))I1$29(I1$))I2$25(I2$))DE$:820oCC(I1$)0I1$"-C(I2$)0I2$"-CC2370:5200:2370:PGPG3:D2370:RN$7)"Birth Date"6)"Death Date"7)"Name":2370:PGPG ADDR "; B^Z1ĺ(VE$,Z1);bB_:VE$(VE$,Z1):W$VE$:600:Z0VE$""ĺ"2 PHON "VE$:2145B`VE$""ĺ"2 CONT ";:2142Ba800:B2207B(I1$,1)" "I1$(I1$,2):2201B(I2$,1)" "I2$(I2$,2):2202BF50ĢRR4:1iC810:MN$(1I(I2$)0(I2$)0A$I2$:10300:I2$A$1ALVAM(CD$,1)" "CD$(CD$,2):2125AN(CD$,1)" "CD$(CD$,(CD$)1):2126AOAR(MI$(1,IM),1)" "MI$(1,IM)(MI$(1,IM),2):2130ASA\610:W$VE$:Z$";":600:Z0ĺ"1 DWEL "VE$:2145 B]"1:(4)"CLOSE"S$"MREC":510:(4)"APPEND"S$AS$:V@C(I1$,1)" "I1$(I1$,2):2115{@D(I2$,1)" "I2$(I2$,2):2116@F(I1$,1)" "I1$(I1$,(I1$)1):2118@G(I2$,1)" "I2$(I2$,(I2$)1):2119@H(I1$)0(I1$)0A$I1$:10300:I1$A$+A800? JZ?IM1/?MI$(1,IM)I2$2015N?IMIM1:IMNMİ2200:2080X?2063s?I20I10NM12080?JZ1NC:(C$(JZ))0İ610:"1 CHIL @I"((C$(JZ)))"@":800?JZ? RRRR1:RR19İ2240:RR01@%MN$(1)" ":MN$(2)" ":MN$(3)" ":IXE$,Z1)9>D$(VE$,1):D$"0"((D$)1(D$)9)2054X>"2 DATE "VE$:VV$""2057j>"2 TEMP "VV$> 800:2200:2070> XI1:7620:NM(RC$(8)):NC(RC$(9)):NM1İ2950:2062? JZ1NC:CD$C$(JZ):2125:(CD$)0İ610:"1 CHIL @I"((CD$))"@":1):MN$(3)(MN$(3),Z)I=W$MN$(3):Z$";":600:Z0M2$(MN$(3),Z1)e=Z1ĺ"1 "(MN$(3),Z1)x=VE$M2$:VV$""=W$M2$:Z$";":600:Z0MN$(3)M1$(M2$,Z):VE$"":Z1VE$(M2$,Z1) >W$VE$:Z$"/":600:Z0VV$(VE$,Z1):VE$"":Z1VE$(V)20201<610:"1 MARR":800:DE$MN$(1):1600P<MN$(2)""MN$(2)" "2040<610:"2 PLAC "MN$(2):800:MN$(3)""MN$(3)" "İ3925<610:MN$(3)""MN$(3)" "2057<W$MN$(3):Z$"SLGS":600:Z02057<M1$"":M2$""=Z1M1$(MN$(3),Z(RC$(9)):NC0IM1:20126;I10IM1:1990:2012m;NN1NC:CI$(NN)C$(NN):NN:IM1:11000:XI2:7620;2130:MI$(1,IM)I1$2015;IMIM1:(IMNM)12012,2057<I13:MN$(I)MI$(I1,IM)::DE$" ":(MN$(1)""MN$(1)" ")(MN$(2)""MN$(2)" "" ":IIX:W$VD$(I):Z$"/":600:JZ:I2$"":J1I2$(VD$(I),J1):I1$(VD$(I),J1):I2(I2$):I1(I1$):610:"0 @F"IOF"@ FAM":2115:(I1$)0ĺ"1 HUSB @I"I1$"@:(I2$)0ĺ"1 WIFE @I"I2$"@:800:IM1:I202058;XI2:7620:NM(RC$(8)):NC0İ2230:610:"1 CHIL @I"W"@":800/9IC:~9"Insufficient information to identify "C$(IC)" as child of next marriage"99NM0İ195099FW2:(4)"CLOSE"S$AS$:516:(4)"APPEND"S$"MREC":800B:RR0:850:5270:2220:970:IX1MR:DE$ıG Q(67)1GP1:G 8650:8660:ZN$"":ZF$"":34,14:35,18:850:14:34,0:35,24:Q$(29)"Please place disk number ";((W1)ND)1" into any drive";:PD0ĺ" except "PD;G ::960:YN$CZ$YN$"N"GP1:2580:G 18000:2500-H ZX1:OP1OP3OP7XZ((XZ1)ND)NDND1:WXZ:XW:ZX03H MH( FP0:IP0:B11:W0ıeH2 PA(0)WWCT(0)ıHZ 2500:GP1PA(0)W:CT(0)W:H\ FSBBİ8650H_ 2910Hd FS0ZN$WH$(BB)"NAMELIST."(WH(BB,4)):(4)"OPEN"ZN$",L"Q(36)Q(14)Q(38):FSBBLIi Oİ610:"2 CONT "VE$:4310=V610:"1 NOTE "VE$:CT1:4310jV4370:ER6(ER5CT0)ĺ(4)"DELETE"FL$pVV980:4370:ER6(ER5CT0)İ4360:(4)"WRITE"FL$:1:4370V4360:4365:V(4)"OPEN"FL$:V (4)"READ"FL$:W(4)"CLOSE"FL$::IIID:I14060 U:4040VUwINTP:(RC$(8))0(RC$(9))0İ1700:XTP:7620U(RC$(6))0(RC$(7))0İ1840:XTP:7620UF71ıU870:CT0:FL$G$RN$(X)Q$(2):4370:ER0:4360U4350U4365:LI:ER04330VVE$(T$,1):CT0T800:ID(ID2):ID1ıkT23:1403,59:"Sort countdown="((ID)(2).01)" ":JJJXID:M1JJ:IMTIIIID:(4)"READ"S$"MRIN,R"II:V1:(4)"READ"S$"MRIN,R"I:V2UV1V2ĺ(4)"WRITE"S$"MRIN,R"I:V1:(4)"WRITE"S$"MRIN,R"II:V2:AV1:V1V2:V2A"":3928,SVJ1MN$(3)(MN$(3),2):3925WSWVE$(MN$(3),J1):MN$(3)(MN$(3),J1)SXVE$"D"VE$"N"VE$"Y"VE$"M"ıSYVE$"M"VE$"NSZVE$"D"VE$"YS[610:"1 DIV "VE$:800:SJX2ıSID2SIDID2:IDJX4020TIDID14:OP513845?ROP0OP2Ģ20:39:690:OP(YN$)64:3820NROP13800}R:"Number of generations? ";:500:CZ1ıRQ(20)(A$):3810R403:492:JX0:BG0:SV$(1)IS$"/0":IG0:P10:P22: SUW$MN$(3):Z$"/":600:JZ:J0VE$MN$(3):MN$(3)"IS$""3800MQ3204:IN(IS$):1220:10:20::VE$" of "FS$" "LN$" "TI$Q15:1:"Change option:"::" A) Individual (Now "FS$" "LN$")":" B) Number of generations (Now "Q(20)")":::"CHOICE:";::" (A-B/"RT$" to continue)?) ";:690ROP(YN$)6 "GT$(3)+P9 GT$(5)""ĺ"1 PHON "GT$(5)6P> 800:RPtJ0:K(DE$):K7K9ıPyA$(DE$,K6,3):I112:A$MT$(I)JI:I12P~:JıPA$" ":K9A$(DE$,2)PDE$A$MT$(J)(DE$,K3):P:"Start Number: ";:500:CZ1ıQIS$A$:IS$"0Z0ıO* AS$(AS$,L)"GED":O, 13:1403,(AF$):AS$:kO/ 610:"0 HEAD":"1 SOUR "SR$:"2 VERS "VR$O1 "1 DEST "DS$:800:3280:610:"1 FILE "AS$:"0 @S1@ SUBM":GT$(1)""ĺ"1 NAME "GT$(1)O3 GT$(2)""ĺ"1 ADDR "GT$(2) P5 GT$(3)""ĺ"2 CONT$:N 16720_N (4)"CLOSE"S$AS$:OF0:13:1:2365:13:1:AF$;:LI:AS$(T$,1):3350::uN (AS$,1)CZ$940N AS$""Ģ13:1:AF$;:LI:AS$(T$,1):3350N A$AS$:10300:AS$A$:W$A$:Z$".":600:LZ:L0AS$AS$".GED":3372O% Z$".GED":600:M PM 850:11::"GEDCOM FILE SPECIFICATION AND HEADER TRANSFER"::2370:M MH((DZ$,Q(25)21,2)):DY$(DZ$,(1Q(25))21,2):TP$(DZ$,5,4):1542:610:"1 DATE "TP$:800:N 980:ER6ĺ(4)"OPEN"S$AS$:(4)"WRITE"S$AS$:"Junk":(4)"CLOSE"S$AS"2 "U2$(XQ)" "RC$(XQ11):8001L/ RC$(XQ11)"";L0 XQ:LN 34,3:I(37)1:" Sex of "FS$" "LN$" (M/F/?)";:690::34,0:SX$YN$:I:2365:L 680:YN$CZ$ĭFM020000L L 850:14:2370:M 5LC:1:NL$:NL$NL$",":(NL$)70NL$"":LCLC1I2$RC$(6)İ610:"1 CHIL @I"X"@":8001K JZ:qK 1537:1538:(4)"APPEND"S$"TXXX":I1VX:VD$(I):I:800:K 610:"1 "U1$(XX):800:XQXXQ(44):U1$(XQ)U1$(XX)3120K& RC$(XQ11)""3120K' U2$(XQ)"DATE"DE$RC$(XQ11):1600:3119L. 610:(36)Jx 870:qJ; FL1Ģ1:4:"Remember to include immediate family members (parents, children, and spouses)J< 18:1:2365:16:1:J^ 8650:7040:(4)"OPEN"ZN$",L"Q(36)Q(14)Q(38):(4)"READ"ZN$",R"OB:FSBB:'K JZ1NC:X(C$(JZ)):X0İ7620:B((WWH(BB,0)1)Q(36))1:(4)"READ"ZN$",R"OB:A:A:PA(IP)(OB1)Q(36)In II1:IQ(36)IP1:LI:NA$(I)(T$,1):NA$(I)""ĭ(NA$(I))34II2:NA$(I)(NA$(I),2)Js II1Q(36)(IP1):LI:NA$(I)(T$,II)::(4):PA(IP)PA(IP)WH(BB,0):CT(IP)PA(IP)Q4WP"MRIN Husband"22)"Wife"23)"MRIN Date":GWPG2ĺ:(12)`WPG0:FW2215,2210:xWF5İ810:5250:820~WWDA0:LB0:A$""ıWNI(A$)11:(A$,I,1)Q$(4)LBI:I0WX:LB1A$(A$,LB1)W]LB1A$""WbA(A$):X|6790:CZĀX~6799X(4)"PREFIX,S"WH(BB,2)",D"WH(BB,3):(4)"PREFIX":PF$:A$ME$(WH(BB,1)):(A$,(PF$))PF$PF$A$:(4)"PREFIX"PF$XXCZ0:BB1:I1MP:WH(I,0)3BBI:IMPX:BB0ı YBBQ(29):ME(BB,1)0ĺ:"Can't find program disk";:)fQ$S$WH$(L):9500:9350:@fT$I1MP:WH(I,0)3LI:IMPOfY$:L0L1Uf^$lf$34,15:::34,0:f$K0:I1MP:WH(I,0)0ĭWH(I,1)WH(L,1)K1f$:KĭQ(75WH(L,1))200000CZ1:1g$15:1:2365:15:"OK to use drive "WH(L,1)" ("WH$(L)") fo55e1$L0CZ92954e6$CZ0:Q(67)0İ9300:9297Je8$Q(8)1L1:9297e;$16:1:"Use which drive (1-"Q(8)") for the GEDCOM file? ";:500:CZ940e@$A(A$):A1AQ(8)9275eE$I1MP:AWH(I,1)LI:IMPeJ$:L1L1fO$ME(WH(L,1),1)0PDWH(L,1d $AS$(AS$,J1):I1MP:WH$(I)A$WH$(I)B$LI:IMPId$:L09295d$I1MP:(WH$(I),(B$))B$LMP1:WH$(L)A$:WH(L,1)WH(I,1):IMPd$:L09295d"$OP1d'$CZ0:L0:IOPMP:WH(I,0)1LI:OPI1:IMPe,$:L0Q(67)0İ9400:CZĭOPMP92"s":B$" are "`c#850:14:"Press any key when your disk"A$B$"in the drive"A$;:692:18100:c#PD0:CZ0:L0:S$"":(AS$,1)"/"9250c#J0:K0:I(AS$)11:(AS$,I,1)"/"9220c#J0JIc#I1KId$:A$(AS$,J):B$"":K0B$(AS$,K)9!NT0āI1NT:AA(EX$(I)):8b\!AA204MGCNNT:Zb!FS0:ZN$""ĺ(4)"CLOSE"ZN$`b!b!FF0:ZF$""ĺ(4)"CLOSE"ZF$b!b(#SX$"M"SX$"F"İ830b-#b#Q(67)1ıc#A$(Q(67)):J0:I1(A$):JJ((A$,I,1))::A$"":B$" is ":J1A$,0):I110:RC$(I)::MG0āI1MG:J14:MI$(J,I)::Ual CN0āI1CN:C$(I):qa NT0āI1NT:EX$(I):a I1120:RC$(I)::800:870:a A0:I120:AA(RC$(I))::MG0āI1MG:J14:AA(MI$(J,I))::a4!CN0āI1CN:AA(C$(I)): bR - Record "X" is"AQ(16)"characters longer than the maximum record length.":"SEX FIELD NOT SAVED":|`WX:2500:GP1ı`FFBBİ8660`7000` FF0ZF$WH$(BB)"FAMILY."(WH(BB,4)):(4)"OPEN"ZF$",L"Q(16):FFBB:a (4)"WRITE"ZF$",R"XWH(BBe_3200:MG(RC$(8)):CN(RC$(9)):NT(RC$(10)):20:1403,46:",-----------------------------,";_22:1403,46:"`-----------------------------'";_21:1403,46:"| Saving record for "RN$"="X;9((X))(RN$))"|";:23:1::8440:JR08180f`"Q(19):J14:MI$(J,I)"":::I1Q(18):C$(I)""::I1Q(17):EX$(I)""::I120:RC$(I)""::MG0:CN0:NT0:}^A$""ı^610:(A$,1)Q$(4)(A$,1)"^"ĺ"1 NOTE "A$:7975^""1 NOTE !SOURCE":"2 CONT "(A$,2)^'800:_Q(26)0RC$(11)DZ$A$RC$(I):7850:RC$(I)A$Y]:MG0āI1MG:J14:A$MI$(J,I):7850:MI$(J,I)A$::]CN0āI1CN:A$C$(I):7850:C$(I)A$:]]A$""ı]A0:K(A$)11:(A$,K,1)Q$(4)AK:K1]:A1ı]A1A$"":]A$(A$,A1):p^I11MG:J14:LI:MI$(J,I)(T$,II)::d\<A$RC$(9):5700:CNA:CN0āI1CN:LI:C$(I)(T$,II):\ZA$RC$(10):5700:NTA:NT0āI1NT:LI:EX$(I)(T$,II):\_I1120:LI:RC$(I)(T$,II):\d800:870:7800:XPX:\xDS$SR$ı]}I120:I10000O[FF0ZF$WH$(BB)"FAMILY."(WH(BB,4)):(4)"OPEN"ZF$",L"Q(16):FFBBp[(4)"READ"ZF$",R"XWH(BB,0)[II1:LI:RC$(1)(T$,1):RC$(1)""ĭ(RC$(1))34II2:RC$(1)(RC$(1),2)[I210:LI:RC$(I)(T$,II):(\A$RC$(8):5700:MGA:MG0āI22):A6ME(WH(BB,1),1)016720wZ"Load data disk number "WH(BB,4)" into drive "WH(BB,1)". ";:960:YN$CZ$20000}ZZ850:14::"PLEASE WAIT";::"..."::14);:ZFP0:B12:3200:XPXıZ7900:WX:2500:GP1ıZFFBBİ8660[7692:CZ1:wY850:9::Q$(29)"Please place LINKS program disk into drive "BB:::960:YN$CZ$ĺ(4)"PR#3":CZ1:Y18000:6790YWH(BB,0)1:20000YX8660:7040:(4)"OPEN"ZF$",L"Q(16):(4)"READ"ZF$",R"XWH(BB,0):FFBB:"ZFP1:216,0:A(2r the GEDCOM file? ";:T$"Y":694:YN$"N"CZ17g$dg%G$"":I1MP:WH(I,0)2G$WH$(I):IMPtg!%:G$""ıg&%17:1:"No text directory found. Bypassing text files. OK to continue? ";:T$"Y":694:T$"N"20000g+%F70:-hH&850:14:"...Adding marriage records to GEDCOM file...":2370vhM&(4)"OPEN"S$"TXXX":(4)"APPEND"S$"TXXX":805:(4)"DELETE"S$"TXXX"hO&(4)"OPEN"S$"MRIN":(4)"APPEND"S$"MRIN":805:(4)"DELETE"S$"MRIN":9880hR&516:510:(4)"APPEND"S$AS$:800:8709i\&(4)"READ"SFCvG(4)"CLOSE"PF$"FRWHERE":216,0:A(222):A5A616720v"G(4)"OPEN"PF$"FRWHERE":(4)"WRITE"PF$"FRWHERE":1:1:ME$(Q1):(4)"CLOSE"PF$"FRWHERE":(4)"OPEN"PF$"FRWHERE":(4)"READ"PF$"FRWHERE":wJG(4)"CLOSE"WH$(MP)"FILE.NUMB":216,0:A(2ll cause erroneous results.";:690:940guFMP1ĺ"No disk drives could be read successfully.";:690ruF870:uF7100:"Checking disks":18000:I0Q(37)1:CT(I)0:uFJ0:I1MP:WH(I,0)1JJ1uF:J0ĺ"No data disks loaded.":BB15000:vWH(MP,2)ME(Q1,2):WH(MP,3)ME(Q1,3):WH(MP,4):WH(MP,0)(WH(MP,4)1)ND:tF(4)"CLOSE"WH$(MP)"FILE.NUMB":IINDĺ"Data in drive "Q1", directory "WH$(MP)" doesn't match the CONFIGURATION file.":CC1tFJJ1MPMP1tF18035)uFCCĺ:"Continuing wiH(MP,0)3:L1WH(MP,0)L5s}FL0ĺ(4):18035AsF18250sFA:II:(4)"OPEN"WH$(MP)"FILE.NUMB":(4)"READ"WH$(MP)"FILE.NUMB":JJ:JJ118065sFKKMP:WH(MP,4):WH(MP,0)(WH(MP,4)1)ND:JJ218065JtFP2JJ:MPMP1:WH$(MP)WH$(KK):WH(MP,1)Q1::WH$(MP)ME$(Q1)RrxF(4)"READ"PF$"FRWHERE":L:WH$(MP):WH$(MP)""WH$(MP)PF$ryF(WH$(MP),1)"/"WH$(MP)PF$(Q5)WH$(MP)rzFJ1:I2(WH$(MP)):(WH$(MP),I,1)"/"JI1:I255r{F:(WH$(MP),(PF$(Q5)))PF$(Q5)WH$(MP)PF$(Q5)(WH$(MP),J)s|FW1),(PF$))PF$PF$PF$(ME$(Q1),J):18027=qjFPF$ME$(Q1)fqkF(4)"PREFIX"PF$:ME$(Q1)PF$:18200qlF(4)"OPEN"PF$"FRWHERE":(4)"READ"PF$"FRWHERE"qnFQ2:(4):Q30qsFQ3Q31:Q3Q218015ruFMPMP1:WH(MP,1)Q1:WH(MP,2)ME(Q1,2):WH(MP,3)ME(Q1,3)IX":PF$:Q5Q51:PF$(Q5)PF$:J0:I0Q5:PF$(I)PF$JJ1peF:J1CC1:"There are two disks with the same name in your drives.":18080pfF(ME$(Q1),1)"/"PF$PF$ME$(Q1):18027phFJ1:I2(ME$(Q1)):(ME$(Q1),I,1)"/"JI1:I255-qiF:(ME$(QEL7795240oZA912EoPFCC0:MQ0:MPMQ:Q41(MQ1):Q51:PF$""boUFQ10:Q4Q41:Q4018080woZFQ40MQ1MQMPo_F(4)"CLOSE"PF$"FRWHERE":Q1Q11:Q1Q(8)18005oaFME(Q1,1)Q418015ocF18280 to accept the value assigned by FAMILY LINKS."  :"Submitter's Name: ";:LI:GT$(1)(T$,1):GT$(1)""FL13262 850:14:3290:32404 "Address Line 1: ";:LI:GT$(2)(T$,1)V GT$(2)""ĭFL1Ģ18:1:3262 "Address Line 2: ";:LI:GT$(3)(T$,1) GT$(3)""ĭFL1Ģ19:1:3265 "Address Line 3: ";:LI:GT$(4)(T$,1) "Home Telephone: ";:LI:GT$(5)(T$,1) .YN$V$Ģ21:20::"You must make a choice...":12010y$.I(YN$)64:I1ID1ĺ:"Invalid choice... ":12010$/DS$D1$(I):I1FL1$/:F70$/DS$"ANSTFILE"DS$"AFCD"DS$"IGI"12095$&/850:10:1:2360%+/11:1:"Please choose supp((A$,I,1)):A96A123AA32:#P(B$B$(A)::A$B$:X#.850:6:2360:FL112095#.7:1:"Please choose the destination for your GEDCOM file:"::I1D1:5)(64I)") "D2$(I):#.21:1::"CHOICE";::" (A-"(64D1)")? ";:690:YN$CZ$200008$"":(VE$)2LB$(VE$,(VE$)2)?"sU1$(XQ)U1$(KI):3960:Z"xTY1U2$(XQ)"DATE":u"zU2$(XQ)"MISC":TY1ı"}W$LB$:JJ0:II16:Z$OT$(II):600:Z0U2$(XQ)Z$:JJ1:II6":JJ0Z$"TP":600:Z0U2$(XQ)OT$(6)"!#<(B$"":I1(A$):A(TY$,1)):3960:3950:P10ı2!SU1$(P1)U1$(XQ)!UVE$Q$(P111):TY$(VE$,2):PT((VE$,1)):TY((TY$,1)):LB$"":(VE$)2LB$(VE$,(VE$)2)!WXQP1:3960:PT0P1PT:3923!X!nG(XQ)0ı#"pXQG(XQ):VE$Q$(QQ11):TY((VE$,(VE$)1,1)):LB$(KI)""U2$(KI)(U2$(KI)" ",4)- :J NL54:LG$"COM"NL31: NI153:LB$GL$(NI)LG$(GL$(NI),3)NLNI:NI53 :NL54ı NI153:W$LB$:Z$GL$(NI):600:Z0W$LG$:600 Z0NLNI:NI53 :!<XQKI:TY((TY$,1)):P1(L):3760 OP2İ3600:3740v:22::"Enter the GEDCOM tag to use for field "LB$": ";:LI:A$(T$,1):22:2365A$""A$GL$(NL)10300:(A$)4A$(A$,4)U1$(KI)A$:A$"SEX"SXKI11NL24İ3900% U1$(KI)(U1$(KI)" ",4):U2$876:22(B$)):#OP0İ321015:1:"Change option:"::" A) Replace GEDCOM tag (Now "GL$(NL)") ":" B) View GEDCOM tags and descriptions":::"CHOICE";::" (A-B/"RT$" to continue)? ";:690OP(YN$)64:OX2OX0:3204 OP51A$GL$(NKI1Q(44)"U1$(KI)""3790aX$Q$(KI11):TY$(X$,2):LB$"":(X$)2LB$(X$,(X$)2)qLG$(X$,3)3800:OP0OP2İ3204B$(LB$,20)13:1:875:GL$(NL);:876:" is the GEDCOM tag selected to match your user label ";:875:B$;:nue... ";:690 53204:1:1/8J13:3680BV(4)"CLOSE":M`I1Jyb(4)"READGTTAGS":LI:VE$(T$,1):(4)dVE$fI:tQ(44)1ıyI19:G(9)0::KI1Q(44):A$Q$(KI11):10300:Q$(KI11)A$:I((A$,1)):G(I)KI: ~OP0:OX0::3450:3456:I15:GT$(I):+a 3460:Gz (4)"OPEN GTSUB.HDR":c (4)"READ GTSUB.HDR": (4)"WRITE GTSUB.HDR": (4)"CLOSE GTSUB.HDR":OX2:850:(4)"CLOSE"(4)"OPENGTTAGS"J23:3680335)"--- Press any key to conti3420: 1:1::3290:G* 805:3450:3456:I15:GT$(I)::805M4 H ER(222):EL(218)256(219):ER6ER516720J ER5İ3460M ER6(ER5XX1)İ3450:3456:"A":3460:ER6ĦO 3450:3455:R 16720W 3240:3420:\ 3460";:690:OP(YN$)64:) OP513350B OP1OP5Ģ21:3337 13OP:22:I140:" ";::13OP:22:LI:GT$(OP)(T$,1):21:1:3337 FL03370 GT$(1)""İ3360:OP1:3339 GT$(2)""İ3360:OP2:3339 GT$(3)""İ3360:OP3:3339  "Change Header item:":B "A) Submitter's Name: "GT$(1)e "B) Address Line 1: "GT$(2) "C) Address Line 2: "GT$(3) "D) Address Line 3: "GT$(4) "E) Home Telephone: "GT$(5):: :"CHOICE";::" (A-E/"RT$" to continue)? ::\ :"You MUST enter at least a name and two address lines for this submission"::g 3400 ER0:(4)"RENAME GTSUB.HDR,GTSUB.HDR":ER6İ3410: 3460:870:3450:3455 XX15:LI:GT$(XX)(T$,1):ER0XX5 XX:3460:ER0İ3410:lemental text file option:"}%0/13:" A) Transfer supplemental text files":" B) Bypass any supplemental text files"%2/16::"CHOICE";::" (A-B)? ";:690:YN$C2$20000%4/YN$V$Ģ21:20:"You must make a choice...":120826&6/F7(YN$)64:F71F72Ģ21:20:"Invalid choice... ":12082o&?/850:10:"Preparing GEDCOM file - Destination: "DS$}&D/11:2360&I/&PA980:805&SA:"Error # "ER" at line "EL".";:EL900020000& N20BL$(I1)::C(#JAN,FEB,MAR,APR,MAY,JUN,JUL,AUG,SEP,OCT,NOV,DEC2#ADOP,BAPL,BAPM,BARM,BASM,BIC,BLES,BLSL,BURI,CENS,CHR,CONF,CONL<#EMIG,ENDL,EXCO,FCOM,GRAD,IMMI,NATU,RETI,SLGC,SLGSF#AGE,ID,NUMB,PHON,REFNP#ALIA,ANCE,COMM,DESC,EDUC,EMPL,EXTD,i MP0:MQ0:I1Q(8):ME(I,0)Q(75I):ME$(I)Q$(40I):J23:ME(I,J)Q(47J(I1)2):::A$(Q(67)) (A$)Q(8)A$"0"A$:8405 (A$)Q(8)A$(A$,Q(8)) I1Q(8):ME(I,1)((A$,Q(8)I1,1))1: 4!BL$(0)" ":I15:BL$(I)BL$(I1)ȁI1MP:WH(I,0)3BBI:IMP-:BB0ıpBBQ(29):ME(BB,1)0ĺ:"Can't find program disk";:690:CZ1:850:9::Q$(29)"Please place LINKS program disk into drive "BB:::960:YN$CZ$ĺ(4)"PR#3":CZ1:18000:6790WH(BB,0)1:20000 drive."D:"Do you wish to continue (y/N)? ";:690:YN$"Y"ı[(4)"-LINKS.MENU"k|6790:CZĀv~6799(4)"PREFIX,S"WH(BB,2)",D"WH(BB,3):(4)"PREFIX":PF$:A$ME$(WH(BB,1)):(A$,(PF$))PF$PF$A$:(4)"PREFIX"PF$CZ0:BB1:RATION"9I184:Q(I)::I150:LI:Q$(I)(T$,1):J(4)"CLOSE"hCZ$Q$(22):RT$""T$(Q(67)):(T$)Q(8)Q(67)((T$,Q(8)))pQ(8)1Q(67)1Q(76)190000ı z850:10:"This program may not work properly with just one189,0,2,41,127,141,5,192I 157,0,2,141,4,192,224,0,208,237,141,8,192g 104,133,55,104,133,54,96 NDQ(16)Q(14)Q(38)Q(36):ND(Q(68)(Q(15)18)(Q(36)Q(14)Q(38)))ND:ND(NDQ(36))Q(36): 870 (4)"OPENCONFIGURATION":(4)"READCONFIGU J:LI768* I0J1:A:LII,A::2 84f 165,54,72,165,55,72,169,83,133,54,169,3,133,55 162,0,32,117,253,141,9,192,160,2,138,141,5,192,145,105,141,4,192,200,169,0,141,5,192 145,105,141,4,192,200,169,2,141,5,192,145,105,141,4,192,202,(17):FH$FH$"1":: 4000:8400:18000:FW1:PG0:AY0S 6780:(4)"-FPMIDL" :YN$:16368,0:YN$:YN$"a"YN$"z"YN$((YN$)32)  R:: f16720 g "Press any key when ready";:690: ER(222):EL(218)256(219):154:GL$(I):IR D1:D1$(D1),D2$(D1):D1$(0)(D1):I1D1:D1$(I):D2$(I):o OT$(6):I16:OT$(I): VX1000:Q(24)1000VXQ(24) #VD$(VX) (12500 dIR0:I(Q$(28)):RN$(Q$(28),((I))1,I):SR$"FAMROOTS":VR$"4.0" nFH$"":I1Qqstuvwxyz{|}PF$(Q(8))* MT$(12):I112:MT$(I):H CI$(Q(18)),U1$(9),U2$(9) C$(Q(18)),EX$(Q(17)),MI$(4,Q(19)),RC$(21),PA(Q(37)),CT(Q(37)),G(12),NA$(Q(36)Q(37)),MN(5),MN$(3),SV$(Q(24)),LD(9):I0Q(37):PA(I)0:CT(I)0::NA$(0)Q$(5)Q$(5)Q$(5) SX0:I:FPSTART, VER 1.0. COPYRIGHT (C) 1992, QUINSEPT INC.e:T$"":(4)"CLOSE":(4)"PR#3":2500 FF$"":FT$"":CX(3):BG1:MR$(5),Q(84),Q$(60),GL$(54),BL$(5):V$(13):5000:6000:AS$"":LT$"":8500 ME(Q(8),3),ME$(Q(8)),WH(Q(31),4),WH$(Q(31)),HEAL,HEIR,HEIL,ILLE,MILI,MISCdZ#NAMR,OCCU,PENS,PERS,POVE,PROB,RELI,RESI,SEX,WILL,WITN,SOUR,ADDId#10,AFCD,"Ancestral Files CD-ROM",EFT,"Everyone's Family Tree",FAMROOTS,"Family Roots(tm)",FAMTIES,"Family Ties",FTM,"Family Tree Maker",FTPRINTU,"Family Tree Print Utility"i#GENGAP,"Generation Gap",IGI,"IGI(c) CD-ROM",PAF 2.2,"Personal Ancestral File (R)",ROOTSIII,"Roots III(tm)"#PLAC,CEME,PARI,SHIP,RESI,TEMP0DZ$"":A(49040):N(49041):AN0DZ$Q$(3):0K(N2):IA(A32)32:J(NK2~ BAPM Baptism ENDL Endowment LDS BARM Bar Mitzvah EXCO Excommunication BASM Bas Mitzvah FCOM First Communion BIC Born in the Covenant GRAD Graduation GEDCOM TAGS Events TAG DESCRIPTION TAG DESCRIPTION ADOP Adoption CONL Confirmation LDS BAPL Baptism LDS EMIG Emigration AD"WH$(MP)"FILE.NUMB":^hG:"Please insert a disk into drive "Q1". ";:960:YN$CZ$20000drG{ N(4)"-LINKS.MENU":(4)"OPEN"PF$"FRWHERE":(4)"READ"PF$"FRWHERE":xJG(4)"CLOSE"WH$(MP)"FILE.NUMB":216,0:A(222):A5A616720TG(4)"OPEN"WH$(MP)"FILE.NUMB":(4)"WRITE"WH$(MP)"FILE.NUMB":0:(4)"CLOSE"WH$(MP)"FILE.NUMB":(4)"OPEN"WH$(MP)"FILE.NUMB":(4)"REneous results.";:690:20000\FMP1ĺ"No disk drives could be read successfully.";:690gF870:G(4)"CLOSE"PF$"FRWHERE":216,0:A(222):A5A6167204"G(4)"OPEN"PF$"FRWHERE":(4)"WRITE"PF$"FRWHERE":1:1:ME$(Q1):(4)"CLOSE"PF$"FRWHERE"1,2):WH(MP,3)ME(Q1,3):WH(MP,4):WH(MP,0)(WH(MP,4)1)ND:F(4)"CLOSE"WH$(MP)"FILE.NUMB":IINDĺ"Data in drive "Q1", directory "WH$(MP)" doesn't match the CONFIGURATION file.":CC1FJJ1MPMP1F18035FCCĺ:"Continuing will cause erro1WH(MP,0)L(}FL0ĺ(4):180354F18250FA:II:(4)"OPEN"WH$(MP)"FILE.NUMB":(4)"READ"WH$(MP)"FILE.NUMB":JJ:JJ118065FKKMP:WH(MP,4):WH(MP,0)(WH(MP,4)1)ND:JJ218065=FP2JJ:MPMP1:WH$(MP)WH$(KK):WH(MP,1)Q1:WH(MP,2)ME(QQ1)ExF(4)"READ"PF$"FRWHERE":L:WH$(MP):WH$(MP)""WH$(MP)PF$tyF(WH$(MP),1)"/"WH$(MP)PF$(Q5)WH$(MP)zFJ1:I2(WH$(MP)):(WH$(MP),I,1)"/"JI1:I255{F:(WH$(MP),(PF$(Q5)))PF$(Q5)WH$(MP)PF$(Q5)(WH$(MP),J)|FWH(MP,0)3:LF$PF$PF$(ME$(Q1),J):180270jFPF$ME$(Q1)YkF(4)"PREFIX"PF$:ME$(Q1)PF$:18200lF(4)"OPEN"PF$"FRWHERE":(4)"READ"PF$"FRWHERE"nFQ2:(4):Q30sFQ3Q31:Q3Q218015uFMPMP1:WH(MP,1)Q1:WH(MP,2)ME(Q1,2):WH(MP,3)ME(Q1,3):WH$(MP)ME$(51:PF$(Q5)PF$:J0:I0Q5:PF$(I)PF$JJ1eF:J1CC1:"There are two disks with the same name in your drives.":18080fF(ME$(Q1),1)"/"PF$PF$ME$(Q1):18027hFJ1:I2(ME$(Q1)):(ME$(Q1),I,1)"/"JI1:I255 iF:(ME$(Q1),(PF$))P;:690:200008PFCC0:MPMQ:Q41(MQ1):Q51:PF$""UUFQ10:Q4Q41:Q4018080jZFQ40MQ1MQMP_F(4)"CLOSE"PF$"FRWHERE":Q1Q11:Q1Q(8)18005aFME(Q1,1)Q418015cF18280/dF(4)"PREFIX,S"ME(Q1,2)",D"ME(Q1,3):(4)"PREFIX":PF$:Q5Q4)"CLOSE":"Error # "ER" occurred at program line "EL".";:690:20000ZA"You need either to:":"A) Save the CONFIGURATION on this disk, or"dA"B) Copy the FAMILY LINKS programs to your FAMILY ROOTS or LINEAGES disk"nA:"Can't continue for now...")8(A32):J1J12J0B0A$(I):B$(K):(A$)2A$"0"A$Y0(B$)2B$"0"B${0VE$Q$(6):(VE$)19VE$"19"0B$(VE$,2)B$:VE$(J):(VE$)2VE$"0"VE$0Q(25)1DZ$A$VE$B$:1DZ$VE$A$B$:GPA980:ER6EL5000EL5099ĺ( BLES Blessing IMMI Immigration BLSL Blessing LDS NATU Naturalization BURI Burial RETI Retirement CENS Census SLGC Sealing Child CHR Christ4320*Q(25)YN$V1$:V1$V2$:V2$YN$:4500:4400AA$(V1$,1):(AA$"A"AA$"Z")(AA$"a"AA$"z")İ4700:440046000FL44102(V1$)1(V1$)12ĺ"THE MONTH IS OUT OF VALID RANGE."3(V2$)1(V2$)31ĺ"THE DAY IS OUT OF V Z2ZZ1:(A$)Z24410G AA$(A$,(A$)Z2):Z0:7840:Z04410[ Z10Z204300v BB$" "BB$"/":4216 BB$"/"BB$"-":4216 4410 Z1Z214410FL1:V1$(A$,Z11):V2$(A$,Z11,Z2Z11):V3$(A$,(A$)Z2):BB$"/"BB$"-"3,54,96  12^ & "Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec"p h(A$)44215 wZ10:Z20:BB$" " xAA$A$:Z0:7840:Z04250 zZ1(A$)Z14250 |Z1Z:AA$(A$,(A$)Z):Z0:7840:Z04250 Z1(A$)4250133,55b 162,0,32,117,253,141,9,192,160,2,138,141,5,192,145,105,141,4,192,200,169,0,141,5,192 145,105,141,4,192,200,169,2,141,5,192,145,105,141,4,192,202,189,0,2,41,127,141,5,192 157,0,2,141,4,192,224,0,208,237,141,8,192 104,133,55,104,13:: 18,F A M I L Y L I N K S,,VERSION 1.0D,,,"QUINSEPT, INC.",P.O. BOX 216,"LEXINGTON, MA 02173",,,,(617) 641-2930,(800) 637-7668,,,,,COPYRIGHT (C) 1992 J:LI768 I0J1:A:LII,A:: 84 165,54,72,165,55,72,169,83,133,54,169,3, :4:J:I1J:A$:(79(A$))2:I1Ğ7 A$::Q 3B(16384):16368,0 4A(16384):(AB)(A32A13)Ĺ16368,0:100 5II1:I50052 d2500:12500 7100:14)"LOADING NEXT MODULE" (4)"-LINKS.MENU" YN$:16368,0: RPRODOS VER 1.0 FAMILY LINKS. QUINSEPT, INC., P.O. BOX 216, LEXINGTON, MASS. 02173. COPYRIGHT (C) 1992, ALL RIGHTS RESERVED.:X(0):X50000ĺ(4)"-EXTRA.VARIABLES":T$"":25532,0:33,40:34,0:35,24:16368,05100:(4)"PR#3"+ Witness gion HEIR Heir RESI Residence HEIL Heir LDS SEX Sex ILLE Illegitimate SOUR Source MILI Military WILL Will MISC Miscellaneous WITN escendant PENS Pension EDUC Education PERS Personal EMPL Employment POVE Poverty EXTD Extended Relative PROB Probate HEAL Health RELI Relierence Number NUMB Number GEDCOM TAGS TAG DESCRIPTION TAG DESCRIPTION ALIA Alias NAMR Religious Name ANCE Ancestor OCCU Occupation DESC Dening SLGS Sealing Spouse CONF Confirmation Number AGE Age PHON Phone ID Identification REFN RefALID RANGE."15Q(25)YN$V1$:V1$V2$:V2$YN$D9A$V1$V2$V3$J:q(V1$)2(V2$)2(V1$)4FL0:(V1$)24525(V1$)0V1$"??":4525(V1$)10V1$"0"V1$4530:(V2$)24550(V2$)0V2$"??":4550(V2$)10V2$"0"V2$#(V3$)4ıO(V3$)2(V3$)0V3$(Q$(6),2)V3$:qI14(V3$):V3$"?"V3$::(V1$)2(V3$)4FL0:YN$V1$:V1$V2$:V2$YN$:4700:\((V2$)2((V2$)3(V2$,1)","))(V3$)4(V3$)2FL0:^I(V3$)GP1F5F11# ?F4F1F41:F51E ?16360::H$(F4,F3);::16310d ?34,0:YN$V$YN$(64F4)j ? ?(25):F5F2:4: PA"Error # "(222)" at line "(218)256(219)". Please see manual.";:692:20000 N10t"! ?34,F21:I1F1:IGPĺ_ ?(64I)") "H$(I,F3)::(25):4::H$(1,F3);::F41:F51 ?692:A(YN$):A8A21A10A1116345 ?16360:H$(F4,F3); ?I(A8A11)(A21A10) ?F4F4I:F5F5I:F5GPF5GPI ?F41F4F1:F5F1:F10::"PLEASE WAIT";::"..."::14)"Loading next module"A H (#4 2#"Translate GEDCOM to FAMILY ROOTS records","Translate FAMILY ROOTS records to GEDCOM" <#"Remove dangling pointers from a GEDCOM file" F#DATA "Prescan a GEDCOM file" Z#"Qui(4)"-FPSTART"% (4)"-PAFRSTRT"7 (4)"-PASS2"A 237P (4)"BYE"] "BYE": ,A$"FAMILY LINKS GEDCOM UTILITY":(79(A$))2);::A$:: YN$:16368,0:YN$"a"YN$"z"YN$((YN$)32)  R:: f16720 g; 850:1=LINKS.MENU, VER 1.0. COPYRIGHT (C) 1992, QUINSEPT INC._ ::870:(4)"PR#3":V$(13)F1:H$(F1,0):I1F1:H$(I,0):d850:300:5:F24:F30:GP9:16300nYN$(27)İ850:C(YN$)64:C1CF11007100:C210,200,220,230 I8::N1:I((A$,1,2)):J((A$,3,2)):K((A$,7)):Q(25)XI:IJ:JXj1K100KK(K100)100149040,(J8(J8))32I:49041,K2(J8).1 N:Q(13)A$(DY$,Q(13),Q(21))\0DY$(DY$,Q(11),Q(12)Q(11)1):Q(13)DY$DY$"/"Q$(3)v0Q(13)DY$DY$"/"A$0Q(25)DY$(DY$,4,3)(DY$,1,3)(DY$,Q(21))0(4)"PR#"Q(43)1A$DY$:4200:(A$)8ı  1I18:(A$,I,1)"0"(A$,I,1)"9"(BB$))ZI!II1:I07900'C0(49040)(49041)10ır0MT:MT$(MT):I1MT:MT$(I)::Q(5)125050Q(30)DY$Q$(3):125500850::"WHAT IS TODAY'S DATE? ";:LI:DY$T$:125500(4)"IN#"Q(5):(4)"PR#"Q(5):Q$(7);:DY$:(4)"IN#0"E ON THE":"PROGRAM DISK. PLEASE RUN THE 'MANAGER'":"PROGRAM.": "ERROR # "(222)" AT LINE "(218)256(219)".":"PLEASE SEE DOS MANUAL.":850:I17::::"PLEASE WAIT";::"....":Z0:A(AA$)(BB$):A0ıIA1 BB$(AA$,I,L0V1$(L):L10V1$"0"V1$/4530::5900LQ(84),Q$(50)(4)"OPENCONFIGURATION":(4)"READCONFIGURATION":I184:Q(I)::I16:Q$(I)::(4)"CLOSE"216,0: A(222):A5A6A85920D"THERE IS NO CONFIGURATION FIL:I48I57ĭI63FL0::a(V2$,1)","V2$(V2$,2)UfJ3:(V1$)3J(V1$)kA$"":I1J:B$(V1$,I,1):(B$)95I1B$((B$)32)mI1(B$)96B$((B$)32)pA$A$B$::L0:I112:(A$,J)(MT$(I),J)LI:I12z:L0V1$"??"#;PAFRMAIN, VER 1.0. COPYRIGHT (C) 1992, QUINSEPT INC.P9100:9950:850f3350:850:3300(4)"RENAME"S$AS$","S$AS$892:893:894:260:870:F5PG0:280:9600:290150200(ER1TY$"EOF"1202(LV0)129,30B x892TY$"DEAT"410[ST$(VE$,3,4):ST$"DATE"İ960:RC$(3)DE$:150:ST$(VE$,3,4)pST$"PLAC"322VU$(VE$,8):Y2$"":MM7:785TY$"FATH"415RV$""İ1845:RC$(7)FC$:322952:TY$"NAME"LV2RC$(7)VU$:322 TY$"M$(6)(ZIN):320(TY$"BIRT"394kST$(VE$,3,4):ST$"DATE"İ960:RC$(1)DE$:150:ST$(VE$,3,4)ST$"PLAC"322VU$(VE$,8):Y2$"":MM9:785TY$"DWEL"TY$"ADDR"399RC$(3)""RC$(3)"L"RC$(4)""RC$(4)RV$:3400:32:320jTY$"FAMI"375gnW$(VE$,8):Z$"@":600:NXZ7(Z0):NX0MR0:NX8MR((W$,NX8))po320qTY$"FAMS"TY$"FAMC"320uTY$"LVG"1100vRC$(3)"L":320wTY$"PARE"TY$"FAMC"385yTY$"FAMC"320zZ((VE$,8)):RC)(W$,Z1)" "NM$(2):343\XJ12:A$NM$(J):250:NM$(J)A$::N20NM$(3)(VE$,N21)e[320\W$VE$:Z$"TRLR":600:Z0120]^TY$"TITL"369_NM$(3)(VE$,8,20):320cMV$VE$:150:TY$"SIBL"362eZ((VE$,8)):RC$(7)(ZIN)$(1)(W$,Z1)" "NM$(1))TNX0344tUW$(VE$,NX1):Z$"/":600:N2ZNX(Z0):N20NM$(2)(VE$,NX1):343VNM$(2)"":N2NX1NM$(2)(VE$,NX1,N2NX1):F61A$NM$(2):10300:NM$(2)A$WW$NM$(2):Z$"_":600:Z0NM$(2)(W$,Z1):Z1NM$(2:Z0P211900/KP21(P21):P21321,480DOTY$"NAME"350cPF62A$VE$:10300:VE$A$QW$(VE$,8):Z$"/":600:NXZ7(Z0):NX0NM$(1)W$:339RNM$(1)"":NX8NM$(1)(VE$,8,NX8)SW$NM$(1):Z$"_":600:Z0NM$(1)(W$,Z1):Z1NM4I((VE$,4,ID4))#>IDIIN??XID:Q(26)RC$(11)AE$M@LV0330VA150mBA$VE$:250:VE$A$CLV((VE$,2)):230:RV$XU$:LV1320DA$TY$:250:TY$A$ETY$"CHEC"İ150:LV((VE$,2)):230:P21:480F335J348:Z$"FAM":600(9)"80N";:PGPG1:PG60İ9600& 8 "F5ĺG$"PR#3"> #d ,7900::ST$"":TY$"HEAD"İ900:s 9PF1İ930 :TY$"SUBM"530 ;W$VE$:Z$"INDI":600:Z0ĴPF1610,1900 <NT0:W$(VE$,4):600:IDZ3(Z0):PF1İ1800:IDIXIN:319=I0:IDG$: G$"OPEN"TX$:M 269:8700:TX$WH$(TX)RN$(M)Q$(2):264:b G$"APPEND"TX$:u G$"READ"TX$: G$"CLOSE"TX$: J5:KI(A$):K1ı (BL$(J))KĺBL$(J);:KK(BL$(J)):272 JJ1:J1272  F5ĺG$"PR#"Q(3):$,1)" "TY$(TY$,2):231a W$TY$:Z$" ":600:Z0XU$(TY$,Z1):TY$"":Z1TY$(W$,Z1) (XU$,1)" "XU$(XU$,2):235 (Y$,1)" "Y$(Y$,2):240 (A$,1)" "ĭ(A$)1A$(A$,(A$)1):250 (A$,1)" "A$""  . AY2ĭ(VE$,1)(10)AZ2:VE$(VE$,2)F VE$"0 TRLR"ER1Q 870:k 190:892:893:894: ER(222):EL(218)256(219): LV((VE$,2)):230:TY$"HEAD"İ900: TY$"EOF"ı LV0300 XU$"":TY$(VE$,3) (TY0:850:18:SR$" GEDCOM TRANSFER TO FAMILY ROOTS COMPLETE":2360W 280:(12):290w 890:FF0:FS0:10470:8650 6780:G$"-LINKS.MENU" ER0:180 AYAY1:894:LI:VE$(T$,AZ):260:ER5İ6200:ER150 AY1ĭ(VE$,1)"0"VE$"0 HEAD"OTH"420-RV$""İ1845:RC$(6)FC$:322W952:TY$"NAME"LV2RC$(6)VU$:322lTY$"NMAR"430N30:SR$DS$320RC$(8)RV$:N30:322TY$"NCHI"444SR$DS$320RC$(9)RV$:NR0:952TY$"CHIL"322SR$DS$3206NRNR1:RV$VU$:RV$""İ1845:C$(NR)FC$:443[950:TY$"NAME"LV3C$(NR)VU$i950:434~TY$"MARR"467SR$DS$320N3N31:952LV2322TY$"SPOU"455RV$VU$:RV$""İ1845:MI$(1,N3)FC$:454950:TY$ch it to one of your User Labels?|":4:19:"`";:2385:"'"$:2360:"Number User Label Correspondence":2360$XX$"- No Correspondence (saved as note)"$9:1:" 0 "XX$:" "RT$" "XX$:*%MM1Q(44):MM,:A$TY$:250:TY$A$A#MM1Q(44):UD$(MM)TY$IEMM:MMQ(44)Z#MM:IE0MMIE:750t#700:IE0MMIE:750#850:19:",";:Z$"-":Z44:2385:",":2:19:"|Information has been received labeled '"TY$"'":2:1403,63:"|"=$3:19:"|Can you matYN$CZ$130"^"A$TY$:250:TY$A$:MM1Q(44):A$Q$(MM11):MN(A$):(TY$)MN710"TY$(A$,(TY$))IEMM:MMQ(44)":"IE0:RL0730"MM1RL:RJ$(MM)TY$IE1:MMRL":IE1510#MM1Q(44):A$UD$(MM):250:UD$(MM)A$:MM1000!2420:10005!A((VE$,I))IN:A$(A):j!YN$"":A(16384):A127YN$(A128):16368,0p!!:" "(8);:692:YN$CZ$130!!:YN$:16368,0:YN$:YN$"a"YN$"z"YN$((YN$)32)!!:T$(8);:692:YN$V$YN$T$"TE"İ1660:960:ME$DE$:150:ST$(VE$,3,4)N ST$"PLAC"MP$(VE$,8):615c TY$"SEAL"670 ST$(VE$,3,4):ST$"DATE"615 960:MU$MU$"/"DE$:150:ST$(VE$,3,4):ST$"TEMP"MU$MU$"/"(VE$,8):615 ((VE$,2))1620!TY$"MARR"qST$"CHEC"ST$"":TY$"CHEC":1000cu150:TY$"HUSB"I8:675:HIA:HI$A$:(A0)11000,615{TY$"WIFE"I8:675:WIA:WI$A$:(A0)11000,615TY$"CHIL"I9:675:C1A:C1$A$:(A0)11000,615TY$"MARR"656, ST$(VE$,3,4):ST$"DA(VE$,4):600:MR0:Z0MR(W$)@g150:((VE$,2))01000OhER1120iA$VE$:250:VE$A$:LV((VE$,2)):230:LV01000jLV1615lTY$"CHEC"1000mTY$"DIVO"625nA$(VE$,8):MS$"D":A$"N"MS$"M"oMU$MU$"/"MS$:615'$"DELETE"TX$:WF0:8100:5D190:269:264:267:TXZ0:R(Z$):R1R(W$)ıZY1(W$)R1:(W$,Y,R)Z$ZY:Y255\:bW$VE$:Z$"FAMI":600:HI$" ":WI$" ":C1$" ":ME$" ":MP$" ":MU$"":DE$" ":HI0:WI0:C10:DT$" "cZ040#dW$67:550:&ER0:CT0:5803'CTQ(17)1555g(CTCT1:267:LI:TX$(CT)(T$,1):260:ER0551s)CTCT1+269:NTCTQ(17)WF0:-LN0:I1CT:LNLN(TX$(I))1:0LNAQ(16)WF0:5I1CT:NTNT1:EX$(NT)TX$(I)::RC$(10)(NT):G2İ266:YV$:269$LV1320,322GYV$YV$";"(VE$,3):LV2513b950:(LV1)1513,515 "*";:Z$" ":Z71:2380:: TY$"CHAN"508ST$(VE$,3,4):ST$"DATE"406960:RC$(11)DE$:320950:LV0314530 !MID:265:2RR1:WF1İ545|8400:1:"Discard record for "RN$"="ID" - "NM$(1)" "NM$(2)" "NM$(3)"? ";:T$"N":694:YN$"Y"ıYN$CZ$İ3202YN$(5)F30:8400:482TY$"AFN "RV$AL$720MID:265:YV$(MV$,3):952:WF1LV(3):487FNA$(WPA(0))SU$Q$(5)NM$(1)Q$(5)NM$(2)Q$(5)NM$(3)cPT(0)1:1151:XID:8100I22(RN$)((X)):15:1403,I:I78I:A$(": "NM$(1)" "NM$(2)" "NM$(3),I):A$;:270:"|";17:NM$(1)" ":NM$(2)" ":NM$(3)" ":SU$"":RR8)3950:LV2RC$(4)RC$(4)"/"(VE$,8):470<322QTY$"SURN"525bSU$RV$:322pF31500ID1ĭF5İ280:" [ERROR: Invalid record number = "ID"]":290ID1ı :WID:2600:SU$""NA$(WPA(0))NM$(2)Q$(5)NM$(1)Q$(5)NM$"NAME"LV3455%MI$(1,N3)VU$3950:449[TY$"DATE"İ960:MI$(2,N3)DE$:452pTY$"PLAC"465MI$(3,N3)VU$:452TY$"REMA"ĴLV1320,322,452MI$(4,N3)VU$:321TY$"RESI"472RC$(3)""RC$(3)"L"RC$(4)(VE$,(Q$(MM11),(Q$(MM11))2),,UD$(MM):MMw%:2360::"Enter Number of User Label corresponding to '"TY$"': ";:690%(YN$)0RLRL1:RJ$(RL)TY$:850:510%YN(YN$):YNQ(44)738%850:MM(YN$):UD$(MM)TY$&Y$"":W$(MV$,3):Z$" ":600:Z0Y$(W$,Z1),&240:840:Y$""İ845?&952:LV2800T&TY$"DATE"765z&Y3$"1"İ960:RC$(11MM)DE$:762&805&950:LV2800&840&(Y2$)0MM(Y2$):786&W$Q$(MM11):Z$"PLAC":600:(TY$Z$Z0)(TY$Z$Z0)7862'W"1102$4s(TY$"CHEC")1323,480B4t(VU$,7)"!SOURCE"1142]4u950:TY$"CONT"1138n4vVX$(VE$,8)4w950:TY$"CONT"VU$" "VX$:11324x(VX$)(VE$)239VU$VX$:11464yVX$VX$";"(VE$,8):11434z1120:CZ11141,11154F5ı+5 3Y320.3[WF1:266:VU$:260:950:1105g3`CZ0:J(RC$(10))1:Q(17)JMID:265:2440:CZ1:3eRC$(10)(J):EX$(J)Q$(4)(VU$,2):3l1120:CZ11153o952:TY$"NOTE"(VU$,1)"!"11403qTY$"CONT"VU$(VE$,8):1160:11324rTY$"NOTE1)'2JLW$LB$Q$(5)WN$Q$(5)WT$:<2LTY$"NOTE"355X2M952:(VU$,1)"!"1140k2NMID:265:9522Q(TY$"NOTE"(VU$,1)"!")TY$"CONT"11152RTY$"NOTE"(VU$,1)"!"11402S269:TY$"CHEC"4802VPF03222WLV03233XWF1İ5452FG0:23001@XWI:810081BLV((VE$,2)):8400:j1CZ0:Z$Q$(5):Y1(LW$):(LW$,Y,1)Z$ZZ1w1D:Z3ı1FW$LW$:600:LW$(LW$,Z1):W$LW$:600:WN$"":Z1WN$(LW$,Z1)2HLB$(LW$,Z1):W$LB$:600:WT$(LB$,Z1):LB$"":Z1LB$(W$,ZI1025:8100:NS01023)0 HI01060>0 XHI:7620:305001600:SD$WI$:1610:XHI:8100:WHI:2600:LN$NA$(WPA(0)):HN$LN$0(LN$)1W$LN$:Z$Q$(5):600:LN$"":Z1LN$(LN$,Z1)0$WI010900%XWI:7620:30501&1600:SD$HI$:1610:F: "DT$:20)"Marriage Place: "MP$::NH0:C101035/NHNH1:CI(NH)C1:XC1:I1013:7620:NS(RC$(7)):RC$(6)WI$:RC$(7)HI$:8100:I1013/NS01035/NHNH1:NHQ(18)İ9900:10350CI(NH)NS:XNS:C1NS:7620:NS(RC$(7)):RC$(6)WI$:RC$(7)HI$:,4)(TM$,1,9):D$(TM$,14,1):995:973X.W$DE$:Z$"00":600:Z1DE$"??"(DE$,3).W$DE$:600:Z3DE$(DE$,2)"??"(DE$,5).W$DE$:Z$"0000":600:Z5DE$(DE$,4)"????"(DE$,9).6/1:1:"PROCESSING FAMILY "MR::20)"Marriage Date$"bef. "DE$:0-D$"F"DE$"after "DE$:X-(DE$)4(DE$)0DE$"????"DE$:-DE$(VE$,8):F5İ280:" [ERROR IN DATE: "DE$"]":290--DE$(DE$,2):TM$DE$:Q(25)0DE$(DE$,9)(TM$,12,2)(TM$,10,2)(DE$,14)).TM$DE$:DE$(TM$,10)8981,PF1962,4200:?,(DE$,1)"N"DE$(DE$,2):U,(DE$,1)"D"986,Q(25)0DE$(DE$,4)(DE$,7,2)(DE$,5,2)(DE$,9),TM$DE$:DE$(TM$,5,4)(TM$,1,4):995:D$(TM$,9,1),D$""ı,D$"A"DE$"circa "DE$:-D$"B"DE0 +LV2TY$"VERS"VS$VU$&+9+TY$"@S1@"ıJ+950:LV0ı+(LV1TY$"STAL")(LV2TY$"NAME"TY$"NUMB")933+IRIR1:IR20933++150:952:+A$VE$:250:VE$A$+LV((VE$,2)):230:VU$XU$: ,DE$(VE$,8):(DE$r"*SR$"":IR00*950:TY$"CHEC"İ950:?*LV2915d*TY$"SOUR"TY$"DEST"P21:902p*LV0ı*IRIR1:IR20902**TY$"SOUR"906*VU$"PAF"PF1:P21*SR$VU$*950:LV1927*TY$"DATE"921+AE$VU$:995M11),2):Y2$(Y1$,1):Y3$(Y1$,1):T)MRC$(11MM)""RC$(11MM)RC$(11MM)";"s)ORC$(11MM)RC$(11MM)Y$:})R::)f16720)g)zG$"CLOSE":)|G$"CLOSE"S$AS$:)}G$"OPEN"S$AS$:)~G$"READ"S$AS$:*7100:"Checking GEDCOM heade2):Y3((Y1$,1)):Y2((Q$(MM11),1)):Y31İ960:RC$(MM11)DE$:Y(5Y20MMY2:810(7II1Q(44):((Q$(II11),1))MMIEII:IIQ(44)(9:IE0MMIE:810(?RC$(11MM)""RC$(11MM)RC$(11MM)";"(ARC$(11MM)RC$(11MM)VU$:&)HY1$(Q$(M$VU$:Z$":":600:TY$"MISC"Z0VU$(VU$,Z2)`'RC$(MM11)""RC$(MM11)RC$(MM11)";"'A$"":TY$"BIRT"TY$"DEAT"TY$"MISC"A$TY$" "'RC$(MM11)RC$(MM11)A$VU$'950:LV1755' (LV0)1320,322'%IE0D(*Y1$(Q$(MM11),BD$BL$(2):(RC$(1))3BD$(RC$(1),4)W5DD$BL$(2):(RC$(3))3DD$(RC$(3),4)5N1$(ID)" "NM$(1)" "NM$(2)" ":Z(N1$):280:N1$;(Z62)(62Z));BD$"-"DD$:290:5(VU$,1)"!"VU$" "VU$5>6HI$" ":WI$" ":C1$" ":ME$" ":MP$" ":MU$"":HI0:WI0:C10:NH0:DE$" ":MD$" ":MM$"":LN$""G61506VU$"":A$VE$:250:VE$A$:LV((VE$,2)):230:RV$XU$:LV014006LV113036TY$"HUSB"13206 1840:FI0HIFIIN:HI$(HI):13037"HI$AL$:HI(HI$):HI0HI(HI$)ȥ18350D$LMAC1000:J21000:269:1838:1839`D&J2J21:LI:AA$(T$,1):AA$AL$ER01830pD'ER0FIJ2D(1837:870:D+190:1837:1838:1839:D-G$"CLOSE"TX$:D.G$"OPEN"TX$:D/G$"READ"TX$: E0W$(RV$,2):Z$"@":600:AL$"":Z0ALE"SR$"AFCD"F70IX(AL$):((IX))(AL$)ID0ıDCIXAC:C269:8700:TX$WH$(TX)"TXXX":1838:G$"APPEND"TX$:AL$:1837:CXI0:FI0:AC0ıCLMAC:AC1000LM1000CJ21LM:AL$AF$(J2)FIJ2:J2ACC J2:FI0AC1000ıD"ER0:20:RC$(MM)""IG1!BMM:UBW$(VE$,4):Z$"@":600:AL$"":Z0AL$(W$,Z)B XI((AL$,2)):SR$"ANSTFILE"SR$"AFCD"SR$"IGI"F71XI0İ1820:1803B FIXIB FI0IXFI:B ACAC1:AC1000İ1810:1807BAF$(AC)AL$8CSR$"ANSTFIDE$(DE$,5,4)(DE$,4)PAXX$(DT$,2):XX$"ci"XX$"af"XX$"be"DE$DT$:rA(DE$)8(DE$)0DT$DE$:AMH((DE$,1,2)):DY$(DE$,3,2)ADT$DY$" "MT$(MH)" "(DE$,5,4):AA$"":AIG0:WX:2600:(NA$(XPA(0)))4IG1:BMM1I$(4,NM)MU$:p@@NM(RC$(8))1:RC$(8)(NM):NC(RC$(9))NH:IR(RC$(9)):3100:RC$(9)"":NC0RC$(9)(NC)v@E@J1510:IRNHQ(18)3101@OI1NH:C$(IRI)(CI(NH1I)):I:@|DE$(VE$,8):1690@}A$DE$:VT(A$):870A(DE$)8(A$)0$,4):(YC$)(YY$)(YC$)(YY$)1560?TM$SD$:SD$MI$(1,I):MI$(1,I)TM$:TM$ME$:ME$MI$(2,I):MI$(2,I)TM$:TM$MP$:MP$MI$(3,I):MI$(3,I)TM$:TM$MU$:MU$MI$(4,I):MI$(4,I)TM$:INM1:FG1?I:FG11520@,MI$(1,NM)SD$:MI$(2,NM)ME$:MI$(3,NM)MP$:M(VE$,4)"INDI"320%>XID:300=>8100:2000:8100:S>MU$"/Y/"MU$"Di>MU$"/N/"MU$"Mx>NM21580>FG0:I1NM1:(MI$(2,I))01560>(MI$(2,I))3YY$(MI$(2,I),4):(YY$)01560>(MI$(2,I))41560(?(ME$)3YC$(MEW$LN$:Z$Q$(5):600:LN$"":Z1LN$(W$,Z1)D=XWI:X01475f=7620:(RC$(8))Q(19)13053=IB3:1750:IG0WI0:1475=1600:SD$HI$:1510:IRNHQ(18)3101=I1NH:C$(IRI)CX$(I):I:F20LN$""FG1:2300=XWI:1480>8400:Place: "MP$::HI01450A<}XHI:7620:(RC$(8))Q(19)13053a<IB4:1750:IG0HI0:1450k<1600<SD$WI$:1510:IRNHQ(18)3101<I1NH:C$(IRI)CI$(I):CX$(I)CI$(I):I<XHI:1480:WHI:2600:LN$NA$(WPA(0)):HN$LN$:(LN$)314501=""MU$MU$" "RV$O;p2490:TY$"DATE"DE$(VE$,8):MU$MU$";"DE$:2490_;rLV21304;sTY$"TEMP"MU$MU$"/"(VE$,8):1303;u2420:1960:1304MMIE:2200!9FTM$(VE$,3)G9H2490:LV1TM$TM$";"RV$:1352t9WMC1:265:266:TM$:269:265:550:13049Y8100:13049ZTY$"MARR"13809[2490:LV213049\TY$"DATE"İ960:ME$DE$:MD$RV$:1371:_TY$"PLAC"ĺ"ERROR: ",VE$:RV$" IN:C1$(C1)>86NHNH1:CI$(NH)C1$:CX$(NH)C1$:C101303i87XC1:7620:IB2:1750:IG0C10:130388WI$" "RC$(6)WI$89HI$" "RC$(7)HI$8:2490:LV213698;IE0:MM1Q(44):UD$(MM)TY$IEMM:MMQ(44)9<MM:IE0İ700:IE01350IN:HI$(HI)7%1303.7(TY$"WIFE"1330W7)1840:FI0WIFIIN:WI$(WI):13037*WI$AL$:WI(WI$):WI0WI(WI$)IN:WI$(WI)7,130372TY$"CHIL"1370731840:FI0C1FIIN:C1$(C1):133474C1$AL$:C1(C1$):C10130385C1(C1$)L$(W$,Z)E218015E5(RV$,1)" "RV$(RV$,2)NE61840:FC$(IXIN):cEbG$"APPEND"TX$:ElSR$DS$((VS$,1))3120EmW$VE$:Z$"FAM":600:Z01300En269:8700:TX$WH$(TX)"SOURCEFL.TXT":G$"OPEN"TX$Eo(TY$,2)"@S"1920UFqW$(VE$,4):Z$"@":600:NXZ3(Z0):NX0A$(VE$,NX1):VU$A$:NX5VU$(VE$,5,NX5)A$iFr1890:VU$:260Fs524:1:15:"SOURCE FILE BEING TRANSFERRED":950:LV01901Fv1890:TY$" "VU$:260:950:LV01910F{G$"CLOSE"TX$:314=G1890:VE$:260:1$:"STATUS : "MU$:260:NH13065{T ILNH11:CD$" ":CI(IL)0WCI(IL):2600:CD$NA$(WPA(0)):WW$CD$:3163:CD$WW$T 266:CI(IL),CD$:260:ILT 269:PF1XHI1450T 40T Q(18)NCıU 3150:MX:265:266:"CHILDREN OF MARRIAGE OF "HN$8):FSBB:+S (RC$(8))Q(19)XHI1038JS (RC$(8))Q(19)XWI1062]S 2450:F4040oS WI0LW$" "S HI0HN$" "S 3150:MX:265:WW$HN$:3163:HN$WW$:WW$LW$:3163:LW$WW$#T 266:"MARRIAGE OF "HN$" AND "LW$:"DATE : "ME$:"PLACE : "MPA(IP)PA(IP)((W1)ND)ND:CT(IP)PA(IP)Q(36):870:8650:R A$Q$(5)Q$(5)Q$(5):IQ(36)IP1Q(36)(IP1):NA$(I)A$::RT LI:A$(T$,1):R^ 2930:G$"READ"ZN$",R"R:Rh 2930:G$"WRITE"ZN$",R"R: Sr 8650:7040:G$"OPEN"ZN$",L"Q(36)Q(14)Q(3 2910$Qd LWH(BB,4):8670:FSBBQi R((WWH(BB,0)1)Q(36))1:G$"READ"ZN$",R"R:A:A:PA(IP)(R1)Q(36):II1:IQ(36)IP1:LI:NA$(I)(T$,1)Qn NA$(I)""ĭ(NA$(I))34II2:NA$(I)(NA$(I),2)Qs II1Q(36)(IP1):LI:NA$(I)(T$,II)::G$>Rx P any drive";:PD0ĺ" except "PD;RP :"(Hit 'C' to try to create it instead)"mP :2400:YN$CZ$20000P YN$"C"GP1:P 18000:9320:2500P( IP0:W0ıP2 PA(0)WWCT(0)ıPZ 10470:2500:GP1WA0İ5000:2650P[ WA0İ2695:2680 Q_(VE$,3,4):RV$(VE$,8):eO WA0:GP0:BB1:I1MP:WH(I,0)1ĭWWH(I,0)WWH(I,0)NDBBI:IMPsO :BB0ıO WA(IB1):Q(67)1WA0GP1:#P 8660:ZF$"":34,17:35,21:850:34,0:35,24:18:Q$(29)"Please place disk number ";((W1)ND)1" intoF5İ280:" [OVERFLOW - NOTES BEING TRANSFERRED TO TEXT FILE FOR "RN$"="I"]":290YN dN F5ıN 280:" [ERROR: NO SPACE FOR MARRIAGE FOR "RN$"="X;:F40ĺ" - DATA MOVED TO TEXT FILE";N "]":290:O 150:A$VE$:250:VE$A$:LV((VE$,2)):TY$ NA$(WPA(0))LN$Q$(5)WN$Q$(5)LB$Q$(5)WT$:PT(0)1:VM8 Z79:Z$"=":2380::pM= Z79:Z$" ":2380::ML I1Z:Z$;::MQ I1Z:Z$;::M` "Press any key when ready";:692:Mt F5İ280:" [UNRECOGNIZED FIELD TYPE: "TY$"]":290Mu SN 1091.L WN$"":WT$"":LB$"":(LW$)32325iL W$LW$:Z$Q$(5):600:LPZ1:LB$"":Z1LB$(LW$,Z1)~L FG1ĭLB$LN$ıL WN$(LW$,LP):WT$WN$:(WN$)2WN$"":WT$"":2325L W$WN$:600:WN$"":Z1WN$(W$,Z1)L W$WT$:600:WT$(WT$,Z1) if no changes)";:690:AS(YN$)64:AS51AS16AS139507s:%AS16AS51ĺ:9575Kt?%)200000CZ1:r$15:1:2365:15:"OK to use drive "WH(L,1)" ("WH$(L)") for the GEDCOM file? ";:T$"Y":694:YN$"N"CZ1r$r%NT09565r!%850:8440s#%1:1:AQ(16)ĺ"Record "X" is "AQ(16)" characters longer than the maximum record length.75$qE$I1MP:AWH(I,1)LI:IMP3qJ$:L1L1SqO$ME(WH(L,1),1)0PDWH(L,1)aqQ$S$WH$(L)mqR$9320:qT$I1MP:WH(I,0)3LI:IMPqY$:L0L1q^$qh$34,15:::34,0:q$K0:I1MP:WH(I,0)0ĭWH(I,1)WH(L,1)K1r$:KĭQ(75WH(L,1)L0:IOPMP:WH(I,0)1LI:OPI1:IMPTp,$:L0Q(67)0İ9400:CZĭOPMP9255fp1$L0CZ9295p6$CZ0:Q(67)0İ9300:9297p8$Q(8)1L1:9297p;$16:1:"Use which drive (1-"Q(8)") for the GEDCOM file? ";:500:CZ130q@$A(A$):A1AQ(8)92:9320:8700o#Q(67)1ımo#850:14:"Press any key when your disk"A$B$"in the drive"A$;:690:18000:o#PD0:CZ0:L0:S$"":(AS$,1)"/"9250o#J0:I(AS$)11:(AS$,I,1)"/"JI:I1o$:S$(AS$,J):AS$(AS$,J1):9298o"$OP1*p'$CZ0:(16):/n!TX0:I1MP:WH(I,0)2TXI:IMP;n":TXıin"I1MP:WH(I,0)1ĭME(WH(I,1),1)0TXIun":TXın"TXMP:Q(67)TX1:n ":18:Q$(29)"Please insert a TEXT disk into any drive";:PD0ĺ" except "PD;n":2400:YN$CZ$ıo"180001NT:AA(EX$(I))::m\!AA204MGCNNT:AQ(16)JR1@mp!`m!FS0:ZN$""ĺG$"CLOSE"ZN$fm!m!FF0:ZF$""ĺG$"CLOSE"ZF$m!m!ZN$WH$(BB)"NAMELIST."(L):G$"OPEN"ZN$",L"Q(36)Q(14)Q(38):n!ZF$WH$(BB)"FAMILY."(L):G$"OPEN"ZF$",L"QNT:EX$(I):2l I1120:RC$(I)::260:870:]l 35,12:850:35,24:34,18:850:34,0:l MG(RC$(8)):CN(RC$(9)):NT(RC$(10)):JR0:A0:I120:AA(RC$(I))::MG0āI1MG:J14:AA(MI$(J,I))::l4!CN0āI1CN:AA(C$(I)):mR!NT0āIк:8440:JR081801kF4İ9500:850:CZ81007kEkWX:2500WkFFBBİ8660bk7000k FF0LWH(BB,4):8680:FFBBk G$"WRITE"ZF$",R"XWH(BB,0):I110:RC$(I)::MG0āI1MG:J14:MI$(J,I)::kl CN0āI1CN:C$(I):l NT0āI1Q(19):J14:MI$(J,I)"":::I1Q(18):C$(I)""::I1Q(17):EX$(I)""::I120:RC$(I)""::WF0:MG0:CN0:NT0:j3200:CZ0:j15:1:"| Saving record for RN=";:A$"":I55:270:"|":14:","(DH$,77)",":16:"`"(DH$,77)"'"k15:24:X;:17:A$RC$(8):5700:MGA:MG0āI1MG:J14:LI:MI$(J,I)(T$,II)::i<A$RC$(9):5700:CNA:CN0āI1CN:LI:C$(I)(T$,II):iZA$RC$(10):5700:NTA:NT0āI1NT:LI:EX$(I)(T$,II):i_I1120:LI:RC$(I)(T$,II):id260:870:XPX:vjI1WA0ıhFFBBİ8660&h7000GhFF0LWH(BB,4):8680:FFBBfhG$"READ"ZF$",R"XWH(BB,0)hII1:LI:RC$(1)(T$,1):RC$(1)""ĭ(RC$(1))34II2:RC$(1)(RC$(1),2)hIB1WA0ĺG$"CLOSE"ZF$:FF0:870:hI210:LI:RC$(I)(T$,II):GiA(222):A6ME(WH(BB,1),1)016720g290:"Load data disk number "WH(BB,4)" into drive "WH(BB,1)". ";:2400:YN$CZ$20000gg850:14::"PLEASE WAIT";::"..."::14);:gXPXıg7900:X1ıgWX:2500:GP1WA0İ5000:7625 h12):u%2360:RN$" NAME"54)"born-died":2360::PG3:u&:"Number of children exceed the maximum set in CONFIGURATION. Excess children":"can't be stored. See FAMILY ROOTS or LINEAGES manual to change parameter.":2400:850: v&A$AE$:LT$"":4201:AE$A$:v<(A$""ıdvF(B$A$:A$"":I1(B$):A((B$,I,1)):A96A123A$A$(A32):10320yvK(A31A$A$(A)vP(:v(PT(IP)0ı w(PT(IP)0:R((PA(IP))):IQ(36)IP1Q(36)(IP1):RR(NA$(I))::RRQ(36):RR((R)):RQ(36)Q(14)Q(38T$ YN$CZ$940 / %(4)"CLOSE":9 R::E f16720K gW mIN0Ğ] nt (4)"-LINKS.MENU" ER(222):EL(218)256(219): 8 Z79:Z$"=":2380: B DH$: L I1Z:Z$;::: 850:FF0:FS0:FY0:FZ0:FQ0:112 :"T;PAFRMIDL, VER 1.0. COPYRIGHT (C) 1992, QUINSEPT INC._2870:2740:850:RR0:3260:PF0z9100:(4)"-PAFRMAIN"" "(8);:692:YN$CZ$940:YN$:16368,0:YN$:YN$"a"YN$"z"YN$((YN$)32) T$(8);:692:YN$V$YN$:19910M130 N199005A616720TGG$"OPEN"WH$(MP)"FILE.NUMB":G$"WRITE"WH$(MP)"FILE.NUMB":0:G$"CLOSE"WH$(MP)"FILE.NUMB":G$"OPEN"WH$(MP)"FILE.NUMB":G$"READ"WH$(MP)"FILE.NUMB":hG:"Please insert a disk into drive "Q1". ";:2400:YN$CZ$20000rGM19950 MF870:GGG$"CLOSE"PF$"FRWHERE":216,0:A(222):A5A616720"GG$"OPEN"PF$"FRWHERE":G$"WRITE"PF$"FRWHERE":1:1:ME$(Q1):G$"CLOSE"PF$"FRWHERE":G$"OPEN"PF$"FRWHERE":G$"READ"PF$"FRWHERE":JGG$"CLOSE"WH$(MP)"FILE.NUMB":216,0:A(222):AUMB":IINDĺ"Data in drive "Q1", directory "WH$(MP)" doesn't match the CONFIGURATION file.":CC1v~FJJ1MPMP1~F18035~FCCĺ:"Continuing will cause erroneous results.";:692:130FMP1ĺ"No disk drives could be read successfully.";:692 NUMB":G$"READ"WH$(MP)"FILE.NUMB":JJ:JJ118065l}FKKMP:WH(MP,4):WH(MP,0)(WH(MP,4)1)ND:JJ218065}FP2JJ:MPMP1:WH$(MP)WH$(KK):WH(MP,1)Q1:WH(MP,2)ME(Q1,2):WH(MP,3)ME(Q1,3):WH(MP,4):WH(MP,0)(WH(MP,4)1)ND:d~FG$"CLOSE"WH$(MP)"FILE.N,1)"/"WH$(MP)PF$(Q5)WH$(MP)Z|zFJ1:I2(WH$(MP)):(WH$(MP),I,1)"/"JI1:I255|{F:(WH$(MP),(PF$(Q5)))PF$(Q5)WH$(MP)PF$(Q5)(WH$(MP),J)||FWH(MP,0)3:L1WH(MP,0)L|}FL0ĺG$:18035|F182503}FA:II:G$"OPEN"WH$(MP)"FILE.$:ME$(Q1)PF$:18200T{lFG$"OPEN"PF$"FRWHERE":G$"READ"PF$"FRWHERE":Q2:G$:Q30m{sFQ3Q31:Q3Q218015{uFMPMP1:WH(MP,1)Q1:WH(MP,2)ME(Q1,2):WH(MP,3)ME(Q1,3):WH$(MP)ME$(Q1):G$"READ"PF$"FRWHERE":L:WH$(MP):WH$(MP)""WH$(MP)PF$"|yF(WH$(MP)There are two disks with the same name in your drives.":18080nzfF(ME$(Q1),1)"/"PF$PF$ME$(Q1):18027zhFJ1:I2(ME$(Q1)):(ME$(Q1),I,1)"/"JI1:I255ziF:(ME$(Q1),(PF$))PF$PF$PF$(ME$(Q1),J):18027zjFPF$ME$(Q1){kFG$"PREFIX"PFFQ10:Q4Q41:Q40180800yZFQ40MQ1MQMPby_FG$"CLOSE"PF$"FRWHERE":Q1Q11:Q1Q(8)18005zyaFME(Q1,1)Q418015ycF18280ydFG$"PREFIX,S"ME(Q1,2)",D"ME(Q1,3):G$"PREFIX":PF$:Q5Q51:PF$(Q5)PF$:J0:I0Q5:PF$(I)PF$JJ1@zeF:J1CC1:"gh space for changed names with "RN$"'s between "X91" and "X9Q(36)"."x)"Continue GEDCOM import? ";:T$"Y":694:YN$"N"130x)xPA190:"Error # "ER" at line "EL". Please see manual.";:692:20000xPFCC0:MQ0:MPMQ:Q41(MQ1):Q51:PF$"yU)10500(w(X1W:WPA(IP)1:2500:WX13w(2920Nw(LWH(BB,4):8670:FSBBw(R((PA(IP)WH(BB,0))Q(36))1:G$"WRITE"ZN$",R"R:PA(IP)WH(BB,0):R:IQ(36)IP1Q(36)(IP1):NA$(I)::260w(870:8650:Ix)18:1:X9(PA(IP)Q(36))Q(36):"Not enouRANSLATE GEDCOM TO FAMILY ROOTS RECORDS"::2370 IN0:F21:A2$"YES":F30:A3$"NO":F41:A4$"YES":F50:A5$"NO":F61:A6$"YES":F70:A7$"NO" 2776:2778:2780:2782:2784:2785 2786:AS51İ2950: AS0IN1:AS2790,2795,2799,2802,2793,2$(9)% MT$(12):I012:MT$(I): CI$(Q(18)),CI(Q(18)),CX$(Q(18)),UD$(Q(44)),RJ$(100),BD(Q(18)),AF$(2000):AC0:RL0:IB1/ C$(Q(18)),EX$(Q(17)),MI$(4,Q(19)),RC$(21),PA(Q(37)),CT(Q(37)),G(12),NA$(Q(36)Q(37)),MN(5),MN$(3),SV$(Q(24)),LD(9):I0Q(3;PAFRSTRT, VER 1.0. COPYRIGHT (C) 1992, QUINSEPT INC.f:T$"":(4)"CLOSE":(4)"PR#3":2500 870:FF$"":FT$"":CX(3):BG1:NM$(3),Q(84),Q$(60),BL$(5):V$(13):5000:6000:AS$"":LT$"":8500 ME(Q(8),3),ME$(Q(8)),WH(Q(31),4),WH$(Q(31)),PF1:(A$,1)CZ$20000& IN0IN0, #A$(Q(67)):J0:I1(A$):JJ((A$,I,1))::A$"":B$" is ":J1A$"s":B$" are "#PA980:805SA:"Error # "ER" at line "EL".";:EL9000200008J19500J:19100,L50 N19000 old records are off-"o "set by that number -1. Thus, if you specify the NEXT RN as 6001, by subtracting" "6000 from your FAMILY ROOTS RN numbers, you can find your GEDCOM record number.":2360 :"NEXT "RN$" NUMBER: ";:LI:A$(T$,1):IN(A$)rds, you need to"j "decide which FAMILY ROOTS record (RN) you want to correspond to your old GEDCOM" "RIN = 1. If you select '1', records transferred by FAMILY LINKS are identified" "as RN instead of RIN. If you specify a larger number, all4:"shorten text fields before the data in the record is transferred.":W F60ıj 850:14:2370 "Put entire name in capital letters? ";:T$"N":694:YN$"Y"F62 850: "Before GEDCOM records can be translated into FAMILY ROOTS reco1:4:"You will be asked at each record if you want to discard it.":h 2870:1:4:"Records overflowing space allocated for them will be discarded.":r 2870:1:4:"When a record overflows the space allocated for it, you will be allowed to"Kw 2: has pointers to parents, spouses, or" 3:4:"children, the program will assign numbers to these people before the next" 4:4:"record is transferred.":6 35,8::35,24:@ 2870:1:4:"All records will be transferred.":GT 5:5:2870:ncoming records will be assigned "RN$" numbers corresponding to individual"s 2:4:"GEDCOM record numbers.": 2870:1:4:"Incoming records will be assigned "RN$" numbers as references are encountered."( 2:4:"If the first individual's record F31:A3$"YES":2900:2778:F F40F41:A4$"YES":2930:2780:f F40:A4$"NO":2920:2780: 2870:F50F51:A5$"YES":2782: F50:A5$"NO":2782: F71F70:A7$"NO":2815:2785: F71:A7$"YES":2820:2785:M 2870:1:4:"I:1::"CHOICE";::" (A-F/"RT$" to continue)? ";:690:AS(YN$)64V YN$CZ$940\ } F20F21:A2$"YES":2776: F20:A2$"NO":2776: 2870:F60F61:A6$"YES":2784: F60:A6$"NO":2784: F31F30:A3$"NO":2880:2778: [Now ";:877:A4$;::"] ":` 18:1:" D) Print "RN$" log [Now ";:877:A5$;::"] ": 19:1:" E) Save surnames in capital letters [Now ";:877:A6$;::"] ": 20:1:" F) Renumber incoming data [Now ";:877:A7$;::"] ":E 22805 2765 13:1:"Select Option:"::" A) Put married last name in wife's name field [Now ";:877:A2$;::"] ": 16:1:" B) Selected record transfer [Now ";:877:A3$;::"] ": 17:1:" C) Attempt recovery of overflow records7):PA(I)0:CT(I)0::NA$(0)Q$(5)Q$(5)Q$(5)H IQ(17):I100I100a #TX$(I),LB$(4Q(44))t (12500:AE$DZ$ 2I14:LB$(I)::Q(44)0100 <I5Q(44)4:LB$(I)"":A$Q$(I7):(A$)2LB$(I)(A$,(A$)2) F( dIR0:I(Q$(28)):RN$(Q$(28)ILE.NUMB":(4)"READ"WH$(MP)"FILE.NUMB":JJ:JJ118065rFKKMP:WH(MP,4):WH(MP,0)(WH(MP,4)1)ND:JJ218065FP2JJ:MPMP1:WH$(MP)WH$(KK):WH(MP,1)Q1:WH(MP,2)ME(Q1,2):WH(MP,3)ME(Q1,3):WH(MP,4):WH(MP,0)(WH(MP,4)1)ND:lF(4)"CLOSE"WH$(MP,1)"/"WH$(MP)PF$(Q5)WH$(MP)ZzFJ1:I2(WH$(MP)):(WH$(MP),I,1)"/"JI1:I255{F:(WH$(MP),(PF$(Q5)))PF$(Q5)WH$(MP)PF$(Q5)(WH$(MP),J)|FWH(MP,0)3:L1WH(MP,0)L}FL0ĺ(4):18035F182509FA:II:(4)"OPEN"WH$(MP)"F18200;lF(4)"OPEN"PF$"FRWHERE":(4)"READ"PF$"FRWHERE"NnFQ2:(4):Q30gsFQ3Q31:Q3Q218015uFMPMP1:WH(MP,1)Q1:WH(MP,2)ME(Q1,2):WH(MP,3)ME(Q1,3):WH$(MP)ME$(Q1)xF(4)"READ"PF$"FRWHERE":L:WH$(MP):WH$(MP)""WH$(MP)PF$"yF(WH$(MP)s with the same name in your drives.":18080\fF(ME$(Q1),1)"/"PF$PF$ME$(Q1):18027hFJ1:I2(ME$(Q1)):(ME$(Q1),I,1)"/"JI1:I255iF:(ME$(Q1),(PF$))PF$PF$PF$(ME$(Q1),J):18027jFPF$ME$(Q1)kF(4)"PREFIX"PF$:ME$(Q1)PF$:0ZFQ40MQ1MQMPL_F(4)"CLOSE"PF$"FRWHERE":Q1Q11:Q1Q(8)18005daFME(Q1,1)Q418015pcF18280dF(4)"PREFIX,S"ME(Q1,2)",D"ME(Q1,3):(4)"PREFIX":PF$:Q5Q51:PF$(Q5)PF$:J0:I0Q5:PF$(I)PF$JJ1.eF:J1CC1:"There are two diskQ$(3):H0K(N2):IA(A32)32:J(NK2)8(A32):J1J12J0k0DZ$(I)" "MT$(J)" "(K):PA980:(4)"CLOSE":"Error # "ER" occurred at program line "EL".";:690:20000PFCC0:MPMQ:Q41(MQ1):Q51:PF$""UFQ10:Q4Q41:Q401808" ":I15:BL$(I)BL$(I1)BL$(I1)::DH$"":I179:DH$DH$"-"::(#???,"Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec"<#BIRTH DATE,BIRTH PLACE,DEATH DATE/'LIVING',DIED/LIVING AT 0DZ$"":A(49040):N(49041):AN0DZ$6790WH(BB,0)1:20000 MP0:MQ0:I1Q(8):ME(I,0)Q(75I):ME$(I)Q$(40I):J23:ME(I,J)Q(47J(I1)2):::A$(Q(67)) (A$)Q(8)A$"0"A$:8405 (A$)Q(8)A$(A$,Q(8)) I1Q(8):ME(I,1)((A$,Q(8)I1,1))1: F4!BL$(0)X"PF$ :CZ0:BB1:I1MP:WH(I,0)3BBI:IMPH:BB0ıBBQ(29):ME(BB,1)0ĺ:"Can't find program disk";:690:CZ1:850:9::Q$(29)"Please place LINKS program disk into drive "BB:::960:YN$CZ$ĺ(4)"PR#3":CZ1:18000:work properly with just one drive."_:"Do you wish to continue (y/N)? ";:690:YN$"Y"ıv(4)"-LINKS.MENU"|6790:CZĀ~6799(4)"PREFIX,S"WH(BB,2)",D"WH(BB,3):(4)"PREFIX":PF$:A$ME$(WH(BB,1)):(A$,(PF$))PF$PF$A$:(4)"PREFIGURATION":(4)"READCONFIGURATION"TI184:Q(I)::I150:LI:Q$(I)(T$,1):e(4)"CLOSE"CZ$Q$(22):RT$""T$(Q(67)):(T$)Q(8)Q(67)((T$,Q(8)))pQ(8)1Q(67)1Q(76)190000ı%z850:10:"This program may not 9,2,141,5,192,145,105,141,4,192,202,189,0,2,41,127,141,5,192m 157,0,2,141,4,192,224,0,208,237,141,8,192 104,133,55,104,133,54,96 NDQ(16)Q(14)Q(38)Q(36):ND(Q(68)(Q(15)18)(Q(36)Q(14)Q(38)))ND:ND(NDQ(36))Q(36):$(4)"OPENCONFIER(222):EL(218)256(219):2 J:LI768N I0J1:A:LII,A::V 84 165,54,72,165,55,72,169,83,133,54,169,3,133,55 162,0,32,117,253,141,9,192,160,2,138,141,5,192,145,105,141,4,192,200,169,0,141,5,192> 145,105,141,4,192,200,16,((I))1,I):DS$"FAMROOTS":VR$"4.0"\ 4000:8400:18000:TX$"TEMP":G$(4):AZ1:AY0w 6780:(4)"-PAFRMIDL" :YN$:16368,0:YN$:YN$"a"YN$"z"YN$((YN$)32)  R:: f16720 g "Press any key when ready";:690:$ )"FILE.NUMB":IINDĺ"Data in drive "Q1", directory "WH$(MP)" doesn't match the CONFIGURATION file.":CC1~FJJ1MPMP1F18035FCCĺ:"Continuing will cause erroneous results.";:690:20000 FMP1ĺ"No disk drives could be read successfully.";:690F870:SG(4)"CLOSE"PF$"FRWHERE":216,0:A(222):A5A616720"G(4)"OPEN"PF$"FRWHERE":(4)"WRITE"PF$"FRWHERE":1:1:ME$(Q1):(4)"CLOSE"PF$"FRWHERE":(4)"OPEN"PF$"FRWHERE":(4)"READ"PF$"FRWHERE":&JG(4)"CLOSE"WH$(MP)"FILE.NU ":WH 806:13:1:2365:13:1:AN$;:500:36:13:37:AS$::`870(4)"OPENCONFIGURATION":(4)"READCONFIGURATION"I184:Q(I)::I150:LI:A$(T$,1):I22CZ$A$:805RT$""UW$VE$:Z$"4,192,202,189,0,2,41,127,141,5,192T 157,0,2,141,4,192,224,0,208,237,141,8,192s 104,133,55,104,133,54,96 900:ER616720 805:3300:3400: (4)"OPEN"AS$: "Can't find file "AS$". Please specify full path name.":13:37:" :: J:LI7680 I0J1:A:LII,A::9 84n 165,54,72,165,55,72,169,83,133,54,169,3,133,55 162,0,32,117,253,141,9,192,160,2,138,141,5,192,145,105,141,4,192,200,169,0,141,5,192$ 145,105,141,4,192,200,169,2,141,5,192,145,105,141,"a"YN$"z"YN$((YN$)32)& 2 (4):E %(4)"CLOSE":[ &(4)"CLOSE"AS$:e R::q f16720w g ER(222):EL(218)256(219): 1:1403,63:RC;:3::RCRC1: 8 Z79:Z$"=":2380: = Z79:Z$" ":2380:L I1Z:Z$;:(4)"READ"AQ$:4 v(VE$,1)" "VE$(VE$,2):630_ w(VE$,1)" "VE$(VE$,(VE$)1):631e z {(TY$,1)" "TY$(TY$,2):635 |(TY$,1)" "TY$(TY$,(TY$)1):636  :" "(8);:692:YN$CZ$130  :YN$:16368,0:YN$:YN$NKS.MENU" 216,0:160, (4)"-BYE"2 V LI:A$(T$,1):(A$,1)CZ$130\ { XZ0:R(Z$):R1R(W$)ı ZY1(W$)R1:(W$,Y,R)Z$ZY:Y255 \: bIQ1ĺ(4)"WRITE"AQ$: c(4)"WRITE"AS$: dIQ1ĺ(4)"READ"AS$: e '9 2AN$"NAME FOR CORRECTED GEDCOM FILE: ":TP$AS$ 715:1:2365:15:1:AN$;:500:36:AP$AS$:AS$TP$:AP$".GED"55 8 850:"*** Thank you for using our software ***":"Copyright (c) 1991 by Quinsept, Inc.":I15000::150 (4)"-LIAN$"NAME OF GEDCOM FILE TO BE ANALYZED: "= 3400:3280X (4)"RENAME"AS$","AS$` 50 850:"Your patience is required....":2360:7000 $10300:AS$A$:W$AS$:Z$".":600:LZ:L0AS$AS$".GED": %Z$".GED":600:Z0AS$(AS$,L)"GED"0PRODOS PASS2, VER 1.0, COPYRIGHT (C) 1991:T$"":(4)"PR#3":805:2500:MX4000:Q(84),AF$(MX):5000:8900:(4)"PREFIX":T$ I3:14 J0:II1:I718 JJ1:J211 (4)"PREFIX,S"I",D"J12(4)"PREFIX"T$, 850:RC0:CZ$20000rG NMB":216,0:A(222):A5A616720TG(4)"OPEN"WH$(MP)"FILE.NUMB":(4)"WRITE"WH$(MP)"FILE.NUMB":0:(4)"CLOSE"WH$(MP)"FILE.NUMB":(4)"OPEN"WH$(MP)"FILE.NUMB":(4)"READ"WH$(MP)"FILE.NUMB": hG:"Please insert a disk into drive "Q1". ";:960:YN$@":600:AL$(W$,Z1):W$AL$:600:AL$(AL$,Z1):XX((AL$,2)):6820:FI0IXFI:tACAC1:ACMXİ6810:6808AF$(AC)AL$IXAC:6815:6816:6818:AL$:6815:(4)"CLOSE TXXX":(4)"OPEN TXXX":(4)"READ TXXX":(4)"APPEND TXXX":(XX0:FI0:AC0ı?LTAC:ACMXLTMXeJX1LT:AL$AF$(JX)FIJX:JXAC|JX:FI0ACMXıLTACMX:JXMX:68506816:6817:ER0LI:AA$(T$,1):ER06840JXJX1:AA$AL$6830FIJX6815:9 %Щ ߩx"L! )L! 8'  )ɀ)4,- U JNT) x"Lv"w" ( !` a"M)Fi/ e"3 k"L !Cb" %n"o" (#M8( % ) L'"p"q" (\4, )7(P0  ( @p 8  x"!b"i"0 ~&i"0 %r"s" (,) &Սt"u" ( %L'")0I0hx H( +(B$):A((B$,I,1)):A96A123A$A$(A32):10320LK(A31A$A$(A)TP(:bPA900:805UA:"Error # "ER" at program line "EL".";:692:20000M19950M:19910M130 N805:19900TY$"TRLR"CZ1:7340jW$VE$:Z$"@":600:AL$(VE$,Z1):W$AL$:600:AL$"":Z1AL$(W$,Z1)XX((AL$,2)):6820:"850:14:"Please place disk(s) in the drive(s).":"Press any key when ready";:690:<(A$""ı7F(B$A$:A$"":I1340&XV$""İ610:VE$:800:7340r7400:FI0RLRL1:12:11:Z$(RL):8(Z$))Z$" Pointers discarded."FI0İ610:VE$:8007340AG$AS$:W$AS$:Z$".":600:AS$(AS$,Z)"GED"W$AP$:Z$".":600:AP$(AP$,Z)"GED"7230::LV((VE$,(VE$)1)):LV0LV2İ610:VE$:800:7380X7230:LV1TY$"FATH"7350rLV1TY$"MOTH"7350LV2TY$"SPOU"7350TY$"CHIL"7350LV1TY$"HUSB"7350LV1TY$"WIFE"7350TY$"TRLR"CZ1:610:VE$:800:7(RLPL):8(Z$))Z$" Records discarded.":805:RL01:1:"Your patience is required. Searching for dangling pointers....":23607370:AS$AP$ĺ(4)"DELETE"AG$IQ2:AS$AP$:(4)"OPEN"AQ$:(4)"OPEN"AS$:RC0:69006950:CZ1ı8950Z$" Records preserved.":73206IQ1:6950:CZ1ıb950:LV((VE$,2)):(LV0)17318,7322yIQ1:6950:CZ1ı950630:LV((VE$,2)):7230:RV$XV$:635LV0XV$"INDI"7310610:VE$:800:TY$"TRLR"LV07320611:11:Z$$,Z1):TY$""&@Z1TY$(W$,Z1)KC(XV$,1)" "XV$(XV$,2):7235QDW$VE$:Z$"INDI":600:Z0İ610:VE$:800:7320RLRL1:W$(VE$,4):Z$"INDI":600:IDZ4(Z0):6800:IDIXFI0PLPL1:610:VE$:800:10:11:Z$(PL):8(Z$))805:(4)"DELETE"AQ$:(4)"OPEN TXXX":805:(4)"DELETE TXXX"15:10:" GEDCOM file correction completed.":2360:805:130 CZ0:LV((VE$,2)):7230:TY$"EOF"CZ1:0LV073001>XV$"":TY$(VE$,3):W$TY$:Z$" ":600:Z0XV$(TYZ$".":600:Z0AS$(AS$,Z)"GED]Z0İ850:"Remove disk from drive and replace with "AS$::"Then press any key to continue.";:690`3280bA7$AS$:3295:(4)"OPEN"AQ$gCZ0:IQ1:6950:CZ17030l950:15:1:2365:7200:CZ07015Av00:ER516720)6815:6816:6817:?900:ER516720]IQ1ĺ:806:3295:612:(4)"CLOSE"AQ$:(4)"OPEN"AQ$:612:&6900+ER0:612:LI:VE$(T$,1):800:ER0CZ10$XAC0:RL0:PL0:AQ$"GTTFIL":W$AS$:Z$".GED":600:Z0l"m" h" iL X%;"L8"ΠΠҠ`y""""""*$ Fk%YeQP!/RB}QBiBB}\ ĉFEL/#> ț6  O-`J,~@~@}J@` ߩ%S @ ~`E hhhߺ0 h ߐ( ߐ ߐ ߐ  0 HϭߍLпllllhh@ihAiH(ؠȱ@JJJJq@)@Yvȱ@Hȱ@Ah@y@cYe J) LL LJiB LJ) >xhHHHHL(  ްƠx@BEOD  ް(`( C)CJJJlBآ <B*IBGF08Lé'+8H <,``h(`@ڍL3<>=?<>CAB@?A` 1 L  <>`ڢF]PL8i m L   6< L  BLRAM' hLDLHB-9F 3"aɿ LLB Nϰ H  @h( L Lj  @`eLJCAB@=?.<ʆ>,=?BC8 é&'112``* G** c*` v* G* c*`hh8`8`***`}*`e`H)hJJ*0JJ)` (< ( < *? ( < (? ( < (? ( <*? * **? *? *? ( < *? ( <ȱȱȱȱ0]cȱeem*ȱ*ȱ**ȱ**ȱ* )* * )L(`L?* *Ll) ) L( )Ll)8e` ,$`ee` < @( )m((.(( M(i  ``) |'(j21 z& {&!` ({&z&(i({&(( CBDFGE (r&$ 3(,}&r& … 3(ŅL&JJJJ`Ϡ'8`r&h)hr')L&18|&"m11 2H22h2舌|&|&12H)M0 h10200I20h2 (`LE%12 `_'"L  <8# ȱ)ɀ  )( ` (Xp0`ŠӠֱҭԠŠҬî̠ӠĮʎ1|&… (n}&Dž (\%Tz&Lc()8= (J 8'z&'{& 3((ʎ1|&|&|&3223 `%YYZLYLYLY뿭` 8!@8` %MNЩUMߩ  L 5   8 0 8  `0 / X& & +&&7&P^& S ɘL   V7 L ' 0% '8 Jm ʈ0  0ŠϠĠ͢Š͠͠ϠŠŠϠĠخ͠ ͍B B(8. ) ɘ"    L=#=#&ŠϠĠԠŠ ԩ m# m# J Qڨ)̰m] нȱ ̀𩠙 i F >hh8` Qx")T'P) ɺiL; )?     ~ `l@Hȱ@IױHXATȱH ɯȩ׍̒5H)/@a)_ .0 :A[8@`,뎒׮Б` L` @>S)I38Mdeם`K8`@Nȱ@O@ rIiNȽבN)/ȩ/N`@[ WHJjjjhA ,'KI؍0JH) ) )Ю ЪGdF $ ᭔ع+ؠ 2H  :h8` 䮅ٽ ٬ؠ@` ( L )8`)i п` H h)N$%FإG`BH PFإG`,H hHB؅F  ؅GxDE؍00C ް(`(8` vL'J  6"L vH  6 9ؙ` @ P8`K8`B8` L؈SJJJJحqIL/FHGI ҭJjHIHB>IؙJJ W: ELyHIHI`JKJK`FHIG ( Ȣ؝؈JL)eKM`)` J zJ͟ $0 ΎJFJL8`JGBJ P ؑ@`M8`8@ؐʈI묆)z8zz Ly LةC8`؍)@ i)z8zyJ ^ ؅F Lo) +%J(a *FإGؐ.` *JHIH ۩ ٰz{`JJJJ;i v묅͚ vٍ0  `H8` `ٍyٍiB0H0FG h0`FG `ϩBxED0C ް(`(8`{ `ٽJJJJ`H͐hn)NjNjNjN. CH͐ v;٭ *Nۙ۰ڙک `Z8` C# (`{ .{ .{ .{8۰*Jzܝ٭(ܝ`)َ 8ʈ` 0ٝ)i `8`R ꍐz{ vNمFمG < ΐ0 FGL鮅0 ٭{٭zٽ8`H8`  ,z { 8` z E8`1ݾ00 Y 0ʩ 谼 谷`12)1`0`Ȏi 0U`)8`ά` W xG 0A)H ܝʈh٭0٭)ܝ٭*ܝ٥F٥G٭'ȱHά`Ύ8EeHI |SB:0M ٙKٙIFNGʈ d献`8m0`,0H hi PȽάhٍ0GF8yאFG  $0 G01܅I `P܍QR d8D`F` ]lH)HFȍNHGO $%܍&܍!ܢ8* J8` L ܝ>)I 'ܝ:`F8iRFPGQ`F܅IH3H ( )O 밨G%܈D" T)Ii)܍R*܍E'ܮ( 4 䭐 $H %HFFHGHG 됬`R8`)` EHS` #Q'܅IHHSSЍS@`8 ` ͍% ΍Q8`ʈ@qȱ@cȱ@mopfNxOyS)5SI0ܢܽ iP'E* 7deFG (GH Lv܅IR mEIH` tq qM0PQ ESHNFOG 밳NN` G8`F@ 0 > LK8`: ;I8`FHGH hGhF܌ բFܽܕF芝ܝ 밶:; <܅I m=IHHyHȘI Lܝ` @c@ k@Ю׍S)mיSi 뎅`C8` @ r3N@) G莱 ⭮i`0 Y; 뮅ٝ٘ 0 W,0 .H hȑNWȮّNW8`ٍّNά0N LL L r L 2 "pJ덣 )@፦NJOK 2iKK΢΢ IJΣ JФ̭JjHFIH HIGxKE ް((H hH h8`8@ȭ@L2쬆8NNO 8 ؍JL`R΢ʱLN1MOMEKP/MEK΢L7L-M O,p莡eNNO(`JNKOL 2/ "P L8 y WؑJ`L@ȱ@ `@Nȱ@OLKL`BLL ެެެެެެެެެެެެެެެ(C)APPLE'83xLLM Mh@8nЍLޭ 0J @,,LN !"#$Ԡ͠ˠĠԠҠ(c)1983-1987 ApplehꭋILhH),Nx8 (8` ԍ`@ABe 2U,,CnZ1IJK,-NOPQRSuHUSTON!' @  K cXXK تKo`V8`no` , on cI9XX`)HJJJh`OeNeO࿰ c9XАO`@ȭ@` ON INJKO`Hх 밽܅F݅G ` c* Z% L`L뮴HH hFhG܍ݍ 8 `FHGH  hGhF`ݹܙ݊`@Bɼ>K@J5 c9X(N    ܮ `J HH hh` 0 @ L/L Z`̸Yܝ ݝ0̸ȩFG   0` ܅F݅G ` c Zͬ LȹL@ȅH@IL,0` G וֹ= YH.q)N 0 >deS)@LP8` D᮴ ֩SGHG v L䬅yٙ٭yٙ٩`K CEdFeG 6%&ȹP8` i` %ם0 B %)( ȹ`8m8m@8` G8`F Pq)@N8`S)@J טyרםSS)׍Sde 밑 Ȣ؝I؈ 2h(8H ( h(8Hh(`ؑ@`@ȱ@ ` B@8ZS d鮅ٍٍٍsHٍr8fhgSJJJJS)S@` %I -q) 0@S)N8` @LL =@ ؝~@~ݞ@ʈL2 KIJHȢݞ)Jn 8 θ ؍ ؍ DH8 ع)ꭵJJJJ )߹0 )p )@ ) ȩ ؝L0NO 방 PQNOFG 嬆؍f؍g؝h ؝c zS) zS )حM͚ v`H@h`h``N8`  ) 1⬆iع `  عiعi` )؍0CGHFHBFG ުhFhG`@4͔ L @Ai ׭2` . :#ع؍0 Y讅)`.@+ i 8` L ؊ PLE΢ʱNLMOMEKP%MEK΢L$ O, PeNNO 2(` C  7 2JzHI{HI؊ }LE  *` A Hz ع H{ ؙ؊ؠIhHIhH } `؝}zIzؐ` f~ؽ؝z f % f؝~z؈` ` H  Ph)N@ 1; L  2$ )bJ Y ) H 4hL )  )حJjI{HIzHP׽8H  ): e: y8鰕:Jjjj<)yאi8i;i(*=>hPם8`;Zx3QZYXXWV[HEVhEhH)IWHPHHHAHHHLaVEWLӿ ֽ ְ& .Vӈ  JJJJH 8h Ei 8EX`'8`jӍWӥC)p> pӥCYӍY 轊( ( ӈBV ( ӭp0 \BkJ ՠ@iӦ> Ӑi'j:ZH i@ioZZH h ѐȭnWǥBJ Ӱ8XӦ>` Ր+>xM19950xM:19910$xM9404x N805:19900  1008(4)"RENAMECONFIGURATION,CONFIGURATION"J(4)"-LINKS"d:"You must save your FAMILY ROOTS or":"LINEAGES Configuration file onto this"n"disk before booting it."x0h)ύh0HHHH " ׍hhhhhhh .hh8`JIMJAYKERRY&MIKEFby LҠؠӠ΢ϠԩҠŠƠԠԠŠӢɯϠҠůȠԠĠ  ɈL :Lɍ)ې)ɮ۰ɺH h 'L  ġLL ̹L)'L ȳL O'F ʻ ̹(((L $ʩ $$ $L `ީ % K@D E  / XʩXύX X %   % ɍRH hɛɘɉɈ $ Ld :Ldې)ɮ۰ɺ' Ld  : X ( % ɛ$ɘɉ 8V%֌&8V֌֠)HV)hH)hHIhդD?DRIDQD)҅; ?JDQD]ՎՎՎ`MY pӭY)p  ӭp`C)`BFGV 8``8LխӅ:HhHh Ո թ թ ՘VYҪҦ>:Y)Ң`;R?AJ;<ȰY)Ң`Y?)Ң`ȐҰ ;HhHh=Ң`Hh `Hh`DEiȍ0֌1֍ZԍsԍԍԍԥDEԌ8TԌ8WpԌqԠ 7I꽌ɪ꽌ɭ蠪:љVE:8`]ѾV]H)]ѾV]ҙ)]ѾT]ҙ)] >8hUD` ԝY`> Hh݌(`HCJJJJ)*h`0($ p,&"op8`kkV꽌ɪɖxlӽ*kӽ-kәmMlӈ 꽌ɪ`8` *L o % ԽYӍZӭoӝY 3Ѡ шNZ`rZLkӭZӍq8r7IZӐiZkӐk 8 ѹs ӭq ѹ| kн Z)*>>` @ $(,048<@DHLPTX\`dh 0ުlptx| 1 -1 /TEMP/ 0 1 0 0 0 0 0 0 0 1 0 0 16.5 1 4 1 0 0 1 0 16.5 1 0 0 0 0 0 10 1 0 0 0 1 0 1 0 0 16.5 0 0 0 0 0 0 0 1 1 1 1 0 0 0 1 0 0 1 10 0 0 1 0 1 1 0 0 1 0 1 0 0 1 100 0 0 5 10 0 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 OCCUPATION00 RELIGION00 MILITARY00 OFFICIANT00 WITNESSES00 CAUSE00 INTERRED00 CEMETERY00  ACLGFMNOHPQIRSTJK ACGF ACLGFMNOHPQIRSTJ ACLGFMNOHPQIRSTJ 2ID0  ASDFG | ACGF 0 1 1 1 1 1 1 1 1 0 0 0 0 0 1 7 1 1 10 0 0 0 0 0 0 0 0 10 0 55 0 02 24 1 3.7 0 32 8 2 1 2 0 0 0 28 495 512 10 25 7 15 4 79 8 125 1 0 25 536870912 1 1 30 10 16.5 16.5 0 25 5 53 0 0 2 10 3 9 0 0 0 66 6 1 6 2 7 1 7 2 4 1 4 2 0 55 0 0 0 0 11 256 0 0 1 0 0 1 50 140000 140000 140 140 140 140 0 0 0 1995 ^ % 19   Q SEX0