' +JJJJ ?\>m0M='+l> /+l  H d@hLҦ L~ L  ﵪ*i BB䵊嵰`72µ- i ư&( Rp s P  LLʬLoō 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`NG8`0($ p,&" ۿ ۿڿL흍ٿ vLQ  !"#$%&'()*+,-./0123456789:;<=>?  ( 9 +"  "*  (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0).).*#!.*'!.8)(#/-)(#/-,,eb)++$ h( ,!!"@h !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`HH ᥠ L\HIHHHHhHH݌hHhHh݌H6 VDP (FD Z $0x8x D- ܸDD# H8`?F Vk *f???0xF Hh D#-FFF8` D ܸx D - ܸx8`-0ݩ?ʥD FFF`   LDcpq` [` ~  L IH  /JJJJ"L뷩 ᷩ췩 ɛ LDLSAVBPILOCUNLOCIBPIBPIB`Ӝsqu`".Q`pNФbptťܥm2<(-Py0\|e<6e< ~ vL~ JJJJj귍hI  aUL@ kU8  L  ^R(jQ0l^l\  OÌȌ`W ԧ H h@ [_ /QSIR4b_L`LLLL`ª`LQL߼YLeLXLeLee ўQ0 L&RE;BY; Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L׭Lܫ &RL &QL d L4 We)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ\L \ şL_ NLjHv 3h`0h8` [L NС õ`A@` ŵL]Lõ`  \ 濭0 ş  Q ^\lZl^\8  ş Lȟ`fhjõĵ@OAP`u@`@&`QR`F Ls  @DAF@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@ ,\Z[PRR3\ɄSɊ"RQJ(0Fw6. ^-%p 㩠RP.Q I* P\L˵B̵C8pB߮Z\ @ յյ\BIR Z-^ Jp\IZLLӜv  Ӡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J LsL Q(`贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / şFD B / / ]ƴS0Jȴ ȴ)  紅D贅F B ƴ  / 0L Ν `ND8HFFhDh N ş`, ŵBѵ`, ѵB8`  XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`LzĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`` ᥠ hh`ĵµ`ڿ8.ڿ.ۿ`êL`õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH x(`# d£àĠz# u` @@A` @A@  B C BBCLCLf4BL ީLhh`LLN7ɿLݍҭ -A@@i@@@i@AAݣ@ݢΩDDLeA@@lL /?@Hɷ@#@h@!ɵ@ɥͰi+hɝi@@/8e@@DAA͈@̈DDL܇@BA݅C@BAC濽տ`xxlt]iVȿQkKRE;BY;LꍁlL<ԍL WLHr7s8 LH HLݍ ,,(`l8 LH e UL׉ LH LH,, sL,,, t鍁` H `Le HL H LL H QL H Llש B\ȹ'ȹ' (LRANGWRITE PROEND DATFILE NOT FOUNVOLUMI/O ERDISK FULLOCKESYNTANO BUFFETYPE MISMATCTOO LARGNOT DIREC q`QrU`)`\N|Lي80ʭ) $% B橠 B  ` L߭ɍ_LةحW`8& 9ʩ8`WL () ~ۭ N N L,H whLZ؍^؍_`$,,L`hhhL٭0 ,0L,Ƀɛɍ8ɠnɻɺ: n(8l mnحuIn Lw8n {۠u  {ۥgh,,0۬ۍ،؍La8 L߭ u ب H بh,8m l بNۘHج,8۰h Z wةͼH h بLZ8Ѕυ Z0 Z LڭٍَٺHץ9ɾIn0 hH )? @(I7n׽Nשn I-- h+( ,,0 ,Hّ(ho Lލ ׭,0 )?( Ɉoɀ@MםH Ihh0 Lڊʰڍ,עLڍhhیڬ<۠x )ڠ8۬ڰ(HH `ȹ0,Ȍ ɍ  ɠ )?, @, LB LƠ LLւ&LݩLL#B B!P`L[1::ME1:219:Q1(E%(N)):E%(N)O11001:O1āG1O1:E%(N)E%(N)S(G)::Q10E%(N)E%(N)Q1>\NG2:A(N)0G40E%(N)1O30:E%(N)(E%(N)):106?]M$" ESC:NAME LIST RETURN:PARTIAL GENOGRAM":19:23:O224=UA$(N,G)A$(G2,0):A$(N,O2)I1$:A(N)A(N)1==V337s=WQ9:B12:89:A27İ15:P3S(I):P3333:JP3:338=XA(G2)E4MS%:219:E%(N)R(N):A(N)A(N)1=YE4A(G2):324/>ZGTF1:A$(G2,G)""::TT1:UU1:B13:M$" ESC:BACK RETURN:SAVE INF%C%)F1K$"TOO MANY CHILDREN!":16:23:334mU12:Q2:B11:89:A27İ15:316Q9?U11:Q3:B11:89:A27İ15:318d9@D4(A$(G2,T))9AQ4:B13:89:A27İ15:3199BO1(I$):O1D4E%(G2)R(G2)9CO1346:I0:R%O14T1:R%F1K$"TOO MANY MATES!":16:23:321:DII1:IO1363A30:371&87X71X103E1M:244/88297989381u8:O10:Q20:380:U3:T0:Q0:H20:B11:89:A27A(N)0:8;UU1::34,5:6:A$(G2,T)""A$(G2,T)E$((G%(G2)))8<Q1:B13:89:A27İ15:34,0:3139=L1G%(G2)(3(I$"M")2(I$"F")1)('7,X(P$)128:G(X21)(X8):G0304C7-PPG:YF(L)1:PYP0P7.P0PYY7/29770G(X47)(X10)(X13)(X11):G030971LLG:LL((L1)1)(L2)3:F(L)030572E3L(L)73240:M0G3G35:30774G3275X32X27E1M: 86XT3T1:T1T1Q(I)::Z3,Y1T3,Y1%6'6(F3W1:E3X1:V:V:G32:38:D$(4):D$:H$(A4):146:24:1:B1$;:33:"?:HELP";:1:2406)F3E(L,P,0):E3L(L):ME(L,P,1):2196*B4:U1(G%(N)):4U1F34,E38:C4(C4):C42986+P$"":"KYBD",P$:P$""2985!Q(I)(62O(I,I))M5":G(140(O(0,0)O(1,1)1)):I01:GQ(I)Q(I)Gb5#Q(I)I2Q(I)I25$:I101:P(I),Y25P(I),U3:G(I)02955%T1P(I)O(I,0)Q(I):Z3T1:K1H(I):P1M(I,K):V1Q(I)(H(I)1):G(I)P1Z1L31:V1V36&S1Y1:R1Y2:63:"4J30L$L$" D."54X0X(X):97:L$L$P$]4L$""D1:T1139:R172:V1W3:794L0:I01:J01:O(I,J)0:::P(0)210:P(1)70:R1Y2:I01:G(I)02904J1H(I):(M(I,J))G(I)O(I,0)J1:O(I,1)H(I)J4 :O(I,I)0Q(I)I2:290X0L$L$" D."-3X(X):X1İ97:L$L$P$O3L$""R1136:V1W3:D1:79f3X3K3::T1K3:K303:(G(0)0G(1)0)2963N362813S3T3:T3210S32103R3,U3S3,U3:T1139:R156:L$"":I30XI3:97:L$"M."P$4XJ3:J30L$L$" S.0K3X3I2`2X3,W3K3,W3:S1W3:T1K3:R1V3:P3C(I,0):Z1P31:V1K3X3:63:Z10:C(I,0)02722T1X3I22:L2:K1C(I,0):T1T1I2:P1C(I,K):S1W3:R1Y3:V1I2:63:2T1(K3X3)2:L$"":J(I)0XJ(I):97:L$"M."P$2XK(I):X0L$L$" S."310:S3270:I2((S3R3)(N31)):T1R3I2:267Y1 R370:S3210:I2((S3R3))N3:T1R3I221 J1L3:L1:P1I(J):V1I2:T1T1I2:T3T1:S1U3:R1V3:H3P1O1ēT1,V35T1,W3:X3T1:V1V31 63:H3P1O10278 2 I1O1:P1B(I):L1:K3X3C(I,0)I2:C(I,0)(I)):230:N(0)(A$(N,2)):N(1)(A$(N,3)):N(0)0N(1)0265e0M(N(0)):230:XN(1):96:T02650TT2:H(I)(A$(N,T)):H(I)2H(I)1:2650J1H(I):TT1:190:M(I,J)M:,1 :28,0:62454:36:Q22:Q30:J%1:N3L3M3:G02:F(G)0::N35R3L3(A$(N,T)):L32L31:TT1:257e/"DELETE",I(0):I(L3):S0:I1L3:TT1:190:I(I)M:MH3S1}/:S0L31:I(1)H3/TT1:P$A$(N,T):J3(P$):J30(P$,1)"D"J3J31/P$"D"J31/P$"S"J31/Q%0:I01:G(I)0265>0M(G.TT1:P$A$(N,T):K(I)(P$):K(I)0(P$,1)"D"K(I)K(I)1S.P$"D"K(I)1f.P$"S"K(I)1l..T2:190:G(0)M:T3:190:G(1)M:J01:M(J,1)G(J)::G(1)0G(0)0260.M(G(0)):230:XG(1):96:T0260#/TT1:I3(A$(N,T)):TT1:,K(0),C(0):38:G1150020O1(P3P3O1)5İ370p-F(2),E(2,30,1),B(O1),J(O1),K(O1),C(O1,P3):O10252:I1O1-TT1:190:B(I)M:TT1:J(I)(A$(N,T)):TT1:C(I,0)(A$(N,T)):C(I,0)0M3M31:248-M3M3C(I,0):J1C(I,0):TT1:190:C(I,J)M:?16E325)31:L0L1:,(E(L,P,0)F3)G3ME(L,P,1):O,PP1:PF(L)ıX,241/-:37:Q21::H3E11:I30:J30:J01:G(J)0:H(J)1::K30:L31:O10:M30:N30:M(H3):230:I(1)H3:O3H3:G2N:T4:O1B(N):P3C(N):"DELETE",F(0),E(0),B(0),J(0)%1)H%1:E1B:EBH%1:EOEOJ+MBE:11:D$;"PR#1":(37)12Ģ13:x+4:D$;"PR#0":"KYBD",H1$:H1$(155)ME+:V:V++E(L,F(L),0)T14:E(L,F(L),1)M:F(L)F(L)1:F(L)30F(L)30+,M0:P0:L(E30E39)1(E38E317)2(E3A$(N,0)(M1):E%(N)0G%(N)099:m*380:M$N$O$"PRINT":19:10:"TURN ON PRINTER.":20:Y27237 +M$" ESC:STOP":19:10:"PRINTING... ":13:33,40:34,12:35,17:D$;"PR#1":"THE ";A1$;" FAMILY NAMES -- RECORD DATE: "::D$;"PR#0":B(K1D316)ND3:N1M:NG2222:32:MN1:B%(N)M:MOıP)113:A%(R,N%)N:228)5::5:V$;(K%);".NA,R";R:"INPUT",F$(N):"INPUT",G$(N):G%(N):E%(N):D$)381))"ERR":381)D$:5:W$;(K%);".NA,L32":226)219:A$(N,0)""ı)*1O (193(B30ıV(B30āGC3F1B3:A$(G2,G)A$(G2,GB3):A$(G2,GB3)""::i(F1B3C31ı(GF1C31B31:A$(G2,G)A$(G2,GB3):A$(G2,GB3)""::(M1MON0:(14:I%2NA%(R,I%):MB%(N)ı(M%İ27:Nı)D3D31:D3D10:"GO TO NAME # ";P$:X(P$):X1XO191:E1X:191`'Z(Y21)(Y10)(Y8)(Y11):Z0210'UM:1:3);:MMZ:MZ2M1'M1MZ2'197'Z(Y78)(Y66):Z0198'E1D(M):E1E1ZP%:E1O(X2P%1)OE1O'E1OE1M(E11E";W2;" PAGES";"&UM:1:"-->";]&20:Y13200:N0M:MD(M):219:G%(N)ĢUN0::3::i&MN0:Vz&Y27ġ:364&Y43İ184:191:191&Y45İ186:191&Y80İ232:191&Y63A31:371:1916'Y35ė:M$" RETURN:PREVIOUS NAME":19:%Q21:29:ME1:C%F%:219:C%F%191:P(R(P%.1)):J2RPP%:PP1:O%O%W2(OP%):W2W2(W2OP%):X2D(1):Z2P%:X2Z2OZ2OX21%M%0:MX2X2Z21:219::M%1:4:MX2X2Z21:3::MJ2:MZ2MZ2&19:W21Ė26:(H%P%)(F%1)P;" OF "ENTER NAMES AND RELATIONSHIPS:"$20::" SELECT NAME WITH ARROW & PRESS RETURN ":" --> ARROW DOWN";26);"N:NEXT PAGE ":" <-- ARROW UP"26);"B:BACK PAGE ":" +:ADD NAME";26);"-:DELETE NAME ":N$;" ?:HELP P:PRINT NAMES ";::16368,0KD(M):11:"DELETING ";::J$:::"ARE YOU SURE? (Y/N)":20:Y89189_#O1O0:P21:365#219:34:F$(N)" ":111:MOOO1:MO:219:G%(N)0187#E1M:#M(A$(N,T))((A$(N,T),1)"*").5:!$U3:34,0:35,24:F%0193:380:38:3:6:F$(N)F$:G$(N)G$:I$(M1)G1$:110:14:I%2A%(R,I%)NQ"OO%183:O%OW""Q20:380:MD(M):219:G%(N)0O1OM1:8:"ENTER NEW NAME FOR # ";M"Q0:U10:H$""::10:U10:B11:" NAME";14)::C1:15:T1:154:E1M:OO%:H#:10:M0M:M1O:219:F$F$(N)G$G$(N)SM:MOF!:MN0:ON2:SMS179}!U1:J$(S):K$"NAME FOUND AS # "J$:16:M0:158!U1K$"(M)ALE (F)EMALE ":22:Y27157:U1(Y70)2(Y77):U10179!MO1:222:OM:G%(N)U11:E%(N)0="WM1:U:C1:A27167:J$I$:158B G$(I$,M1S):I$(I$,S1):8:F$I$:T$G$ Y0:MTK$"A DIFFERENT PERSON? (Y/N)":22:Y27157:Y78Y89172 T0Y78İ219:181 S0:B1:K$"SEARCH FOR NAME? (Y/N)":22:Y27157:Y89179 N2O:OO%OO%*!NI$):MOİ12:157;11:W:U:H:J$;:6:I$(M1)G1$:ML10I$H$:[A27155y(I$,1)"-"I$"-":C1:M1(I$):BM1:R$",":24:S1SM1BSR$" ":24:S1SB171 K$"USE FIRST AND LAST NAME":U1:16:U:J$"":WM1:42::K11B13İ18:J$H$:158&18LM(H$):U:10:G%(N)0J$"":M0iU:W:C1:40:8:B13ı(I$)0L1I$"-"G1$"":(I$,1)"*"G1$"*":I$(I$,2):Q4ČV:J$I$:158(I$)ĭ(I$,1)" "I$(I$,2):161(I$)1165M(LD1$(H$,((R2))1):U2(R2K2):T2R2U2K2:C1$(U2(T20)):T2151V2(T232):T2T2V232:XV2:153:E1$P$:T2151XT2:153:F1$P$B1$E1$"/"F1$"/"C1$:D1$""B1$B1$" "D1$P$(X):P$P$(" ",(P$)):W(0)1R20I$"-":cQ9ĢU:W11:"S OR D":20:Y27134:Y68Y83144:D1$(Y):U:W11:H:D1$R2R2(R2100)1900:R2J2(R2(J20))K2:I$(R2)D1$:D1$"":E1$" ":F1$E1$:C1$"":R2(H$):R2(H$)0H$"-"B1$H$:R2B1$" / /":,(I$)12R20:J20:147:B1$B1$I$:1429J2R232sU:W2:"/";:J$(B1$,4):K12:40:A27134:T2(I$)T231((R22)R22)(R27.5)(R27)(R22)ČV:139J2J2T2U:W5:"/";:J$(B1$,7):K13:40:R2(I$):A27134:C1$I$ES,D";D2:D$;"APPEND FILES":D$;"WRITE FILES":A1$;".";F%:Y$G381Ma"ERR":Y0:130|146:J20:W(0)1:18U:W:C1:J$B1$:K11:40:R2(I$):A27(A13L10)I$H$:(I$)ĭI$"-"((I$)65A47)ıR20ĖW:" / ";:1421&{D%(N%)K%āG1H%:A%(G,N%)0:6|D%(N%)K%:G}"ERR":381i~(R1MO)O0İ128:Y89121U6:H0W:W1:K$"WRONG DISK!":C1:16:P21::WH0:117U6:1:C1:"STARTING NEW ";A1$;" FILE DISK? (Y/N)":20:132=Y89ĺD$;"OPENFILU1::U<s:Y$:N%N%(FD2):I%N%:FD2D%(N%)F%119JtQ2ė:U9{uU1:D%N%1:384:Y27P22Oİ17:P22:117vP21:Y27366w125xK%F%:5:Z$;(K%);",D";N%1yW$;(K%);",L150,D";N%1:W$;(K%);".NA,L32":381zQ22İ36:))B21:G2M2:B2B2(A$(N,G))1:B2150A$(N,G)"":K$"DATA NOT SAVED":16:109_lA$(N,G)lm:A(N)0|nF$(N)""ıoD$:113:5:X$;(K%);".NA,R";R:R0ıpF$(N):G$(N):G%(N):E%(N):D$:q14:F%K%ırP20:M%1:U16āG16:F2:UкV$;(K%);",R";R:A$(N,1)E$((G%(N))):M2:G2M21:"INPUT",A$(N,G)JeTf381^gD$:oh"ERR":381iD$:5:W$;(K%);",L150":M20102:O2M21:101jY3:ZF1:P$"":30:M2F1:XM2X1Rk113:4::X$;(K%);",R";R:B20:M21:B2((M21"1](I$,1)"-"(I$)0I$"-":U:W:I$;:C1W^H$I$A(G2)A(G2)1:A$(G2,T)I$v_:TT1:H20:J$""::38:`Y1:ZF1:P$(X):30:TX:aJ2(XK2):J2J2(J2XK2):J21901P$(J2):bP$((J2),2):cU$:L2:113:M20:104Dd5:LX7:80 VU$:(UD):A2287;WA2:B2E2ĺL$;:1::wXDD(D0):UD:(L$,1,B2):A2:DD1:UD:(L$,B21):YUU1:U22U22:F2ZH$A$(G2,T):U:1::C1:Q$(Q);:H20ĺ" ";H2;[14):15:B1154,133,154:K10:A2795\I$""I$"-V(0)1:J$X$:17:H$M$:J11:S:V:A1:27:F{77:D$:E$(F)""ı|R$;(J%);".NA,R";F:E$(F):F$(F):E%(F):K%(F):D$:}D$:77:3:R$;(J%);".LOC,R";F:0:D$:~22635,24:J%0130:225:S3:"ENTER INFO [ESP. WHERE INCOMPLETE (!)]:"" / /":TsU$(M$,((B2))1):H2(B2D2):C2B2H2D2:T$(H2(C20)):C2118tI2(C232):C2C2I232:XI2:121:V$K$:C2118uXC2:121:W$K$vN$V$"/"W$"/"T$wU$""N$N$" - "U$xA21:yK$(X):K$K$(" ",(K$)):.z(F20F2G2)(A$(3),1)"D"111:" (AGE AT RECORD: "(((G2E2)D2))")":ynB2E2ĺ" (AGE: "(((B2E2)D2))")";o:pB2(M$):U$"":V$" ":W$V$:T$"":Q3ĭ(M$,1,1)"D"N$"D":U$(M$,5):119qB2(M$)0M$"-"N$M$: rB2N$0:B2(L$):B2ĭ(L$,1,1)" "L$(L$,2):79`PC2(V17):L$(L$,1,C22):E2(L$):E22D1ısQD2ĭE2B2ıRB2E2:E2C2B2(E22.6)SA2WT171:UR18:A2W(B22)TA21A21:V1V17(1A2):80ULXA2B241:LX0A241B2:V1V1U1T1,R1FE%(N)175-GT1271ME175JHB(N)0(Z1B(N)1)75kIXC(N)0:Z1XC(N)(Z11)zJ7XT1,R1KZ10:E%(N)178:D1:219:L$F$(N)LI$L$:R$" ":B(I$):24:S1L$(L$,1,S1):76M79ND2:L$((M)):79:,OA21:I1:C1:41>42o?M(P1):Q1(R1S1):M(M)ĭME1āGS1Q1(R15Q1)4Q1:T1,GT1,G1::M(M):65@T1,S1T1,R15Q1AP10MOıB219:U1(G%(N)):U11U12ıCV11575D238:V11575 EU1T1,R1:E1MW1T14:X1R18:4J$(I$,1)J$:I$(I$,1,(I$)1):A$;:(I$)K142?8A851]9(A7A14)OO1ġ::::A22J%İ36:20:37:34,5:35,23:H1:42;A12ĭB11G(0)1:G(T$)39ĺ" ";T$;:G:J$" "T$<A20ĭB12J$"":C1:42 =A27J$S$:I$"":K1J1:K10:J$"":53G1B1153:Q9ĭL10(A68A83)K10:C1:J$"":53`2(A47A58)A3252k3V:424M11(K13)3ĴA32K13B1251:I$I$J$:5L1L11:A$;:I$I$A$:J$(J$,2):K11ĭ(I$)12B12ĖI1:" /";:H:64237A8(I$)J$:J1K1+)H1:I1:J$;:B116:I1:L103*A$p+A(A$):M1(I$):A13(A27M1)(A47B12)I$I$J$:,A21A$(J$,1,1):(A$)43:A$" ":43-A3255:(0)38ČV:42.K1051/Q1Ĵ(A70A77)M1151:530A45M1K11ČC:F$(N)"":G$(N)"":G%(N)0:E%(N)0:B%(N)0:14:I%2A%(R,I%)0E # $16297,0:16302,0:16304,0:16300,0:4,144:5,8:6,1:7,1:54,0:55,8:1002: %:54,0:55,3:1002: &"GARB",G1,1000:G1350ı '370: (I$"":H1(37)1:I1(0)1:S$1)R$SG:G1  ; N0:G1D1:MB%(G)NG:GD1C :b 3::35,19:C1:35,24:: X0:GYZ(ZY):P$A$(N,G)XG:GZ : M(A$(N,0)):M035:M(M):MOA(N)E%(N)E%(N)(E%(N)0):106 !ME1ı? "G0F1:A$(N,G)"":M$(B1)N$(O$,1(B12))"NEXT":T0M$(M$,1,26)V 24:1::M$;40)::35,23:1:j P$"":16368,0 "KYBD",P$:P$""21:Y(P$)128:YY32(Y96): U1:W:C1::K$;::20: TT1:QQ1:UU(U6Q0): S0:B26:GB11:(I$,G,"G$(N): K$"TOO HIGH":16/ M0:J$H$:r F%(M(H%.1))1:RM(F%1)H%:I%2(D%(0)F%)2(D%(1)F%): TT2:QQ2:UU1(U6Q0): V:W:H::K$;::A112000::W:H: K$"WARNING! ESC MAY LEAD TO LOST INFO."::W1:16:2 M$:219:HE M;".";M10);:F$(N);" ";G$(N);:E%(N)1G%(N)ĺ" (!)";M : M0MO(0)((M))37ĺ"("M")";:(0)39(H$,1)"*"ĺ"*"; H: (I$)ĭ(I$,1)" "I$(I$,1,(I$)1):8 M013 M(M):M0MOİ219:J$F$(N)" KC6:F1:366(175)256(176)46:"SPLIT",0:"SPLIT",1:"RESET",99:E$(3): M,F,-:G13:E$(G):: NAME,SEX (M OR F),MOTHER,FATHER,# OF MATES,MATE #,MARRIAGE DATE,# OF CHILDREN,CHILD #,(S)EP./(D)IV.:Q$(9):II09:Q$(II)::350 5                         AGE DATE,# OF CHILDREN,CHILD #,SEP./DIVORCE:E10Q%9:O$(E1)::H0209:G1:77:P$;(J%);".NA,R0,B1"q)207x)H)221)HČT:221)F%J%:169:W1G%:HW1W1H)E$(W1),F$(W1),K%(W1),E%(W1),A%(W1))35,24:34,0 *126:A27220:K:S150:A$(C1),B$(S1),Y$(O2),B%(O2):B(C3)(C3)G%(C31):J2B(968):HB(971):D%(V11)(970):J21J2HJ21g)O$(Q%9): " NAME",SEX (M OR F),BIRTH DATE,DEATH DATE,OCCUPATION,LOCATION(CITY),COMMENT/EVENT,MOTHER,FATHER,# OF MATES,MATE #,MARRI:NEXT":A(C3)(F%1)G%(P1)O%C3:I%200:Q%5:G%(974):O%(973):O250:D$;"OPEN NAMEDATE":D$;"READ NAMEDATE":"INPUT",A1$:G2:D:C:V1:S2:B1$:C1$q(300:Q$D$"OPEN"A1$:P$D$"READ"A1$:R$D$"WRITE"A1$:C1$D$"CLOSE":S$D$"VERIFY"A1$:C117INFORMATION":17:20:Y27İ12:193@&4::O10Y20:GJ2:76s&J$" ESC:NAME LIST RETURN:NEXT FILE":17:20&A%(F)0:4::&D$(4):Z2998:A1958:T1052:A3856:D2440:W868:B31002:(975)T380'3::Z$" ESC:BACK":X$Z$" RETURN)):123%189%V2R1M%QQ%1:M12:55:A27İ12:RV2193:N10:189%RC1I$"LAST ITEM!":V15:S1:13:1:S1:A1:197%M$A$(R):W2R1:G$"-"ĴM$""197:X21:3700:RW2:SS1:QQ1:193%193#&RR1:SS1:M13:J$(X$,19)"SAVE ;"PR#0":T:T$!$D$:2267$T20:Uİ225:U1$GJ2:3::R1:Q0:P10::O$(Q);9);::9:" ";H$::34,(37):S5:A$(R)C$((E%(F)))$QQ1:QQ%192:M13(Q2Q3):55:A27İ12:Q1189:200%Q1ĭK1E%(F)((G$"F")2(G$"M"))(E%(F#I1T2:RR1:O$O$(Q%5)(I):M$B$(R):M11:50:RR1:O$O$(Q%6):M$B$(R):M12:50:RR1:O$O$(Q%7):M$B$(R):M13:50:U2(M$):U20183:J1U2#RR1:O$O$(Q%8)(J):M$B$(R):M11:50:#RR1:O$O$(Q%9):M$B$(R):M12:50: $A%(J2)0:D$R0:M11:M$(J21):O$O$(0):50:M1:11:B10177:M12:L1B11:QQ%1:LQ%QLq"O$O$(Q):M$A$(L):50:"B1(Q2Q1)H$"":O$"NO DATA.":M10:53"Q20Q10184"RR1:O$O$(Q%R1):M11:M$B$(R):50:R3179"T2(M$):T201842G:C!E11W1:E$(E1)"":F$(E1)"":E%(E1)0:K%(E1)0:A%(E1)0:g!B(F%1)G%1:EBG%1:EHEHr!P%0:!"KYBD",K$:(K$)155KE:A14:185!Q10:J2G:D$:Q267:R2B1Q1!D$;"PR#1":NR260M66N:11:NO:M6:11:175!M2:11U"UT",F$:D$:226B G$E$" "F$"("(G)")":P2P21:P2O2P20[ Y$(P2)G$:B%(P2)G: Y0:P%0X12169::C%0:10:"CHANGING TO DISK # ";F%::"WILL CANCEL SELECTIONS ON DISK # ";J%::"DO IT ANYWAY? (Y/N)"!20:Y78Y89167:Y78GT0:J:226 "ERR":226?D$:Q$;(J%);".NA,L32":D$:{G$"":22:F%J%İ151:G$E$(F)" "F$(F)"("(G)")":E10E1E11:B%(E1)GG$Y$(E1):B%(E1)0E1O216077:156 3::D$:P$;(J%);".NA,R";F:"INPUT",E$:"INPGM2G1+Z(Y78)(Y66):Z0134ZJ2A(G):J2J2ZO%:J2H(L2O%1)HJ2HiJ2HJ2GxJ21J2H130G1GHı77:E$(F)""ı1563::D$:P$;(J%);".NA,R";F:"INPUT",E$(F):"INPUT",F$(F):E%(F):K%(F):D$1:GN0:130nY35ė:J$" RETURN:PREVIOUS NAME":17:10:"GO TO NAME # ";K$:X(K$):X1XH126:J2X:126Y33N0G:23:GBE:151:A%(F)A%(F)(E%(F)0)::GN0:P%1:130Z(Y21)(Y10)(Y8)(Y11):Z0146SG:1:3);:GGZ:G1GM2%1)P;:" OF ";K2;" PAGES";?SG:1:"-->";:20:Y13137zN0G:GA(G):22:E%(F)A%(F)A%(F):3:P%1:GN0:134GN0Y27ġ:220Y80Y112X12:Y32X11: Y65Y97N0G:23:N2N2:GBE:151:A%(F)N2(E%(F)0)::P%:16368,0ZA0:Y0:23:GJ2:C%J%:151:C%J%126:T0G:P(F(O%.1)):Y1FPO%:PP1K2(HO%):K2K2(K2HO%):L2A(1):M2O%:L2M2HM2HL214:GL2L2M21:151::4:D$:GL2L2M21:3::GY1:GM2GM219:K21Ė26:(G%O%)(F19:::" SELECT NAMES WITH ARROW & PRESS RETURN":" --> ARROW DOWN A:ALL N:NEXT PAGE ":" <-- ARROW UP ESC:BACK B:BACK PAGE ":40)::40) 23:2::"AFTER SELECTIONS ARE COMPLETE:";39)::2:"SPACE:ENTER FILES P:PRINT FILES";:HIS PERSON'S FILE G -- DRAW THIS PERSON'S GENOGRAM ESC -- BACK TO NAME LIST":19:" L -- CHANGE LABELS ON GENOGRAM":" P -- PRINT GENOGRAM":F$" RETURN:CONTINUE":8:9:20:d5 :22:::E2(W$)15:L%(39E2)2:L%);"THE ";W$;" FAMILY ALUN MENU2,S";A;",D";C3 :22:268:5::" HELP ":::"CURSOR MOVEMENT:":13:"WITH CURSOR ON ANY FIGURE:":18:"OTHER COMMANDS:":8:" --> RIGHT":" <-- LEFT":" RETURN UP (UP ARROW)":" / DOWN (DOWN ARROW)"4 14:" SPACE -- SHOW TUH%(F)F$" "S$" "T$:8:9:R27260:7:TC2::F$T$:8:9Y235,24:J21:20:g2UH%:2582L20::EK1:6:968,E%1:969,H:970,D%(D21):EL1:6:971,E%1:972,H2::U$:2642D%(C1)0L22652L20:D%C:E%0:2723 :D$;"RF$"NO INFORMATION ON "Z$:7:259Y1268:F$T$:8:35,23:5:U0H%(F):U0I$Z$:254x1I$A$(F,U):(I$)1000İ861QU:UY%QY%11:1:Q$(Q);15);::16:(I$)25ĺ(I$,1,25);:I$(I$,26):16:(I$)25ĺ(1,25)1I$:U0ĺ/2(37)22(M%)".NA,R0,B1"0243"0L1,0262=0L1ČM:262T0M2F%:M2L1M2L1b0A%(M2,1)n0:269034,0:35,240XK1:Q%0:104:Q%1:K1E:R272610:EK1:145:J20:249"1:22:J20::24:136:C4H%(F):Z$C$(F)" "E$(F):C4Ģ10:A$(W,B1),H%(W),K%(W),A(5),B(3,20),G(20),J(1,20),C$(W),E$(W),I%(W),U%(2,30,1),D(2),I(1),H(1),J%(W),B$(50),B%(W),Q$(6),P$(1,4),Y$(2),P%(1):Y$(1):Y$(2):U06:Q$(U)::U01:P%(U):K20P%(U)1:P$(U,K2)::P$(0,2U)Q$(4U):0L10245:E1:76:M$;"READNAMEDATE":"INPUT",W$:T1:C:A:D2:S2:R$:U$:R%(D21):N$D$"OPEN"W$:M$D$"READ"W$:X$D$"WRITE"W$:O$D$"VERIFY"W$:K(1),M(1,1),E(1),O(1),N(1),F(1),X%(1).Q(B4)(B4)F%(B41):K1Q(968):L1Q(971):D%(D21)(970):K11K1L1K11/CK":T$" RETURN:CONTINUE":U$D$"CLOSE":V$(27):O%200:Y%5:F%(974):T%(973):N%1:W30:B118:A(B4)((J%(B4))100):B(B4)((J%(B4))1A(B4)100)(A(B4)0):P(B4)(J%(B4))1:C(B4)(E%1)F%(R21)T%B4:"SHAPE",E.D$;"OPENNAMEDATE":D$;ILY GENOGRAM":::(9);"G":::0,D$;"PR#0"<,20::,D$(4):Y13:Y232:P364:Q396:R3128:T3160:Z1440:C1:D21:L(0)4:L(1)12:L(2)20:X32077:Y32051:Z3998:T958:M1052:V3856:Z1440:N868:A41002:(975)M380-:3:22:S$"ESC:BA , l^ưȭ氩L8ˍ`6" ީ; = l݅ , LJERRERR.RMhhߚHH 0:, jݪ + , ޥۤ jݪ +`^_:ʽe^^e__l^" ަư8^_氠^LQ^P^i^_^Ѹ "^eP^_eQ_ ȱ^8e^^_ CONTINUE":U1ĺZ$;25):%.20::6.,N%(V11):?RESETRESET ONERR.RM^_<= 抠&<<i"=iLo cLgKYBDKYBD.RM , ,0 `, $Lԅ !  = {ڭ !`?INPUTSTRING INPUT.RM  "ERR":54915::::D$"PR#0":E3(222):E399E3255211c-10:"ERROR!":E39ĺ:"DISK FULL."x-U10::232:211-T::9::A1:"INSERT ";:F%0ĺ"MASTER DISK B":231-A1$;" FILE DISK # ";F%-:"IN DRIVE # ";D%:.:"PRESS RETURN TO2:971,F%1:972,F%,::C1$:223<,D%(D1)0U1224T,U10:F%0:D%D:229l,D$;"RUN MENU2,D";D,:54,0:55,3:1002::D119(A1$):L%(39D1)2:L%);A1$;" FAMILY INFORMATION";40)::" RECORD DATE:";B1$;28):"FILE DISK:";J%;40):::;-4:11:10);"THE ";A1$;" FAMILY INFORMATION -- RECORD DATE: ";B1$:NN1:D$;"PR#0"s+KK1:KEN20:D3(0):211+X11UĢ3:A1+GK:22:A%(F)0217:J2G:61:X1186,171:Y27A27211:217,U10:GJ2:22:968,F%1:969,F:970,D%(V11):GH:2B1:23:*X12217:225z*J$(X$,1,9):17:"PRINT RELATIONAL INFORMATION? (Y/N)":20:Y27211:Q2(Y89):W10:N1*J$(X$,1,19)"PRINT":17:"TURN ON PRINTER.":20:Y27214R+J$" ESC:STOP":17:"PRINTING...":34,12:35,17:13:D$;"PR#1":M2100+24:33:" ";:P21:96:R27234}+268:F$" "S$" RETURN:PRINT":8:10:"TURN ON PRINTER.":9:R27234+1:20:23::D$;"PR#1"::::R76ĺ:(9);"GDR":233!,E2(C$(K1))(E$(K1)):(40(E219)2));C$(K1);" ";E$(K1);"'S FAMLLU:LL((L1)1)(L2)3:D(L)02185*G2L(L)Q*140:E0A3A320:220Z*A38*X76X108P20:96::D3(X1X1):X1X1:D3166:20*X71X103K1E:145*X27K1E:*X80X112İ229:208*X32İ251:210*X63İ266+:G1F2:J1G28:1:H$C$(F):D2:47V)V3:N1(I%(F)):4N1Z2,G28:W3(W3):W3211v)K$"":"KYBD",K$:K$""211)X(K$)128:U(X21)(X8):U0217)PPU:BD(L)1:PBP0)P0PB)210)U(X47)(X10)(X13)(X11):U0222)*V%1(X%(I)1M1P3K(F1Y1:J1Y2:28:O3G1:G1G1O(I)::U3,Y1O3,Y1Q(t(24:24:1:R$;:33:"?:HELP";(M:M:A38:F2O14:Z2O1:G2P1:D30:D$(4):1::D$:140:E1ı#)16368,0:Z2U%(L,P,0):G2L(L):EU%(L,P,1):124:M1K%(F):M1M1152:200'O(I)(62M(I,I))T':U(140(M(0,0)M(1,1)1)):I01:UO(I)O(I)Ui'O(I)I2O(I)I2':I101:X%(I)0207'V10:N(I),Y25N(I),P3:E(I)0207(G1N(I)M(I,0)O(I):U3G1:K1X%(I):H1J(I,K):M1O(I)(X%(I)1):E(I)H1Q1:G1139:J172:M1T3:47l&L0:I01:J01:M(I,J)0::X%(I)0::N(0)210:N(1)70:J1Y2:I01:E(I)0200&KF(I)11:EJ(I,K):5:GT1X%(I)K:K1&:X%(I)0200&J1X%(I):(J(I,J))E(I)M(I,0)J1:M(I,1)X%(I)J':M(I,I)0O(I)I3:G30 %%%(E(0)0E(1)0)2083%K36189L%N3O3:O3210N3210r%T1E3ēM3,P3N3,P3:G1139:J156%H$"":T1E3E30XE3:56:H$"M."G$%F3T1194:F30XF3:56:H$H$" S."G$%F30X(F3):56:H$H$" D."G$&H$""D10:K1W%:G1G1I2:H1B(I,K):F1R3:J1T3:M1I2:28:j$G1(G3S3)2:H$"":H(I)0XH(I):56:H$"M."G$~$(I(I))T1183$I(I)0XI(I):56:H$H$" S."G$$I(I)0X(I(I)):56:H$H$" D."G$$H$""J1136:M1T3:D1:47%S3G3::G1G1P3#28:B3H1S%185C#I1S%:V10:L1:W%0:B(I,0)176r#KB(I,0)11:EB(I,K):5:GT1W%K:K1x##G3S3W%I2:W%G3S3I2#H1A(I):S3,R3G3,R3:F1R3:G1G3:J1Q3:L3W%:Q1L31:M1G3S3:28:Q10:W%1795$G1S3I22:L2:V1:G1M3I2:168;"M370:N3210:I2((N3M3))K3:G1M3I22i"V%0:JH311:EG(J):5:GT1V%J:J1":V%186:V10:J1V%:L1:H1G(J):M1I2"G1G1I2:O3G1:F1P3:J1Q3:S%0:II311:H(I)T1S%I:I1#:B3H1S%ēG1,Q35G1,R3:S3G1:MB$(1)):K(1)(B$(2)):K(0)0K(1)0165O!E(K(0)):67:XK(1):14:V0165{!VV2:F(I)(B$(V)):F(I)2F(I)1:165!J1F(I):VV1:103:J(I,J)E:!"28,0:62454:J21:20:K3H3J3:U02:D(U)0::K35M310:N3270:I2((N3M3)(K31))60@ VV1:E3(B$(V)):VV1:H3(B$(V)):H32H31:VV1:159 "DELETE",G(0):G(H3):S0:I1H3:VV1:103:G(I)E:EB3S1 :S0H31:G(1)B3 VV1:F3(B$(V)):F30(B$(V),1)"D"F3F31 I01:E(I)0165)!E(E(I)):67:K(0)()):B(I,0)0J3J31:152LJ3J3B(I,0):J1B(I,0):VV1:103:B(I,J)E:VV1:I(I)(B$(V)):I(I)0(B$(V),1)"D"I(I)I(I)1V1:103:E(0)E:V2:103:E(1)E:J01:J(J,1)E(J)::E(1)0E(0)0160 E(E(0)):67:XE(1):14:V013:124:I3A(F):L3B(F):"DELETE",K%(0),D(0),U%(0),A(0),H(0),I(0),B(0):"GARB",A1:A1(1000M22I320I3L35L35)25K%(M2),D(2),U%(2,30,1),A(I3),H(I3),I(I3),B(I3,L3):I30154:I1I3VV1:103:A(I)E:VV1:H(I)(B$(V)):VV1:B(I,0)(B$(VL)ı 142P:22::J20:EK1:124:J%(F)0F$"NO DATA ENTERED!":10:7:uB3K11:B3C3ĴD3166:20:209E30:F30:J01:E(J)0:F(J)1::G30:H31:I30:J30:K30:E(B3):D$:67:G(1)B3:C3B3:5:23:GT1Ģ10:F$"NOT BORN YET!":7:yV24:A$(F,0)""ı+A$(F,0)(E1):59:kU%(L,D(L),0)G1:U%(L,D(L),1)E:D(L)D(L)1:D(L)30D(L)30qP0:L(G20G29)1(G28G217)2(G216G225)31:X2ıD(L)L1:P0:E0:(U%(L,P,0)Z2)A3EU%(L,P,1):PP1:PD(1:W2WW21,FW2:N0E:B%(F)018:EN0I24:76:A%(H,R%)F:134oJ2123:5::M$;(M%);".NA,R";H"INPUT",C$(F):"INPUT",E$(F):I%(F):J%(F):D$269J2121:B%(F)E:"ERR":269D$:5:N$;(M%);".NA,L32":1321:1:3);:EEZ:E1EV2'uEV2E10v110MwZ(R78)(R66):Z0111xK1C(E):K1K1ZT%:K1L1(U2T%1)L1K1L1yK1L1K1EzK11K1L1{106|F0:E1EL1ı}6:G%2FA%(H,G%):(E)(B%(F))ı~Q%İ12:Fı W2W2G2E:1:"-->";Jo9:R13113:N0E:EC(E):124:I%(F)ĢG2N0::4::VpEN0:MjqR27EC(E):rR35ė:F$" RETURN:PREVIOUS NAME":8:10:"GO TO NAME # ";G$:X(G$):X1XL1104:K1X:104sZ(R21)(R10)(R8)(R11):Z0119tG2E%104:G$"":R1:R2(H(T%.1)):H2HR2T%:R2R21xkT2(L1T%):T2T2(T2L1T%):U2C(1):V2T%:U2V2L1V2L1U21lQ%0:EU2U2V21:124::5:EU2U2V21:4::EH2:EV2EV2mQ%1:20:T21Ė26:(F%T%)(E%1)R2;" OF ";T2;" PAGES";n:E%0106:268:"SELECT PRIMARY PERSON FOR GENOGRAM:"i21::" SELECT NAME WITH ARROW & PRESS RETURN ":" --> ARROW DOWN N:NEXT PAGE";40)::" <-- ARROW UP B:BACK PAGE";40)::" ESC:BACK";40)::16368,02j11:EK1:C%E%:124:C%E-- ARROW UP";40)::XX11UaQ2X2:1:"-->";:9:R13ĢQ2X2:5::P$(P2,X)::abR27ıcZ(R21)(R10)(R8)(R11):Z0101dQ2X2:1:3);:XXZ:XP%(P2)X1eX1XP%(P2)f97gE(B$(V)).5((B$(V),1)"*"):6hG24:24(D132):D1D1O232:D1950^I$(D1)"/"I$F_I$(O2)"/"I$:`:22:D$:268:5:P$(P2,0):U1P%(P2)::5:P$(P2,U)::Q26P2:22::" SELECT ";P$(P2,P%(P2)1);" WITH ARROW & PRESS RETURN";40)::" --> ARROW DOWN ESC:BACK";40)::" H%(F):H%(F)8H%(F)8?U1H%(F):"INPUT",A$(F,U)@A269BJ2121:D$:CEN%ıDK21Y:B$(K2)""::Y0:N%E:18:A2F2(E22)14A21A21:M1M17(1A2):49_5LXA2E241:LX0A241E2:M1M1LX7:496J$:(G2D):A2:E2C2ĺH$;:1::7DD(D0):G2D:(H$,1,E2):A2:DD1:G2D:(H$,E21):8L$"-*"L$"" 9H2(XZ1):H2H2(H2XZ1):H21901+GT1H$(((T1G)Z1))<,R1GĭX1(H$)(M142)İ47H-X10ıe.U11:H$A$(F,X13):47:n/A200(H$)ĭ(H$,1,1)" "H$(H$,2):481B2(M17):H$(H$,1,B22):C2(H$):C22ı2E2C2:C2B2E2(C22.6)3A2F2G171:G2J1&XB(F)0:Q1XB(F)(Q11).'7XG1,J1z(Q10:R10:I$A$(F,3):S1(I$):(I$,1)"D"(S1S1T1)ĕ2N1G1,J1:R11)D1:H$C$(F):Z0:16:47:G(A$(F,2)):U10:G0GV126:V1G:W1E:E1G1*D2:X1046:R1ĴS1145:XS1:56:H$"D."G$:44I1:G1,UG1,U1::E(E):302 G1,F1G1,J15I1D H10EL1ıX 124:I%(F)0ıs 138:K%(F)M1:M115ı !136:N1(I%(F)):N11N12ı "N1G1,J1:Fı #K1EO1G1:P1J18:4N1G1,J1 $G1271EK140 %A(F)0(Q1A(F)1)40"GARB",A1,1000:A11000ıZ "DELETE",A$(0),H%(0),B%(0):"GARB":A$(W,B1),H%(W),B%(W):n C1G:87:D1ı 0:E1,F11E1,F116:G1,F11G1,F116:3:U(G1E1)2:E1,F116U,F1G1,F116: E(H1):I1(J1F1):E(E)ĭEK1āUF1I1(J15I1)45:80:L27171-%K23Y16:80:L27170?%29:A27168M%110:168%S10::JP2:5:968,A%1:969,K:970,D%(T11):JJ1:5:971,A%1:972,K%:181%D%(D1)0S1182%S10:D%D:A%0:187%P$:D$;"RUN MENU2,S";C;",D";D~&::QA,R0,B1":166$J1 $1791$J1ČF:178;$184x$JP2:5:34,0:35,24::Y10:K20:G12:80:K2X:L27178$D$:15:Y11:80:L27168:J2X$K23Y12:80:L27170$K22Y13:80:L27168$K21Y14:80:L27171%K22Y1,INCLUDE FUTURE MARRIAGES WHEN KNOWN,EXCLUDE FUTURE MARRIAGES# 2,"",INCLUDE THOSE NOT YET DECEASED,EXCLUDE THOSE NOT YET DECEASED:N%(6),V$(6,3),O%(6),O$(3):H03:O$(H)::H06:N%(H):C10N%(H):V$(H,C1):::J10168$J1:67:M$;(H%);".NSPLAY OPTION:",SCREEN,PRINT: 2,"AS OF THE RECORD DATE:",INCLUDE THOSE DECEASED,EXCLUDE THOSE DECEASED=#K%(T11): 2,"",INCLUDE THOSE SEPARATED/DIVORCED,EXCLUDE THOSE SEPARATED/DIVORCED, 2,"",INCLUDE THOSE YET UNBORN,EXCLUDE THOSE YET UNBORN, 2,""2):JANUARY,FEBRUARY,MARCH,APRIL,MAY,JUNE,JULY,AUGUST,SEPTEMBER,OCTOBER,NOVEMBER,DECEMBER:II112:T$(II):f" ANNIVERSARIES,BIRTHDAYS,MARRIAGES,DEATHS,3,"WHICH WOULD YOU LIKE TO LIST:",BIRTHDAYS,MARRIAGE ANNIVERSARIES,DEATH ANNIVERSARIES: 2,"WHICH DIC:T1:N2:Y$::D$:O$D$"OPEN"X$:M$D$"READ"X$:P$D$"CLOSE":Q$D$"VERIFY"X$:P$:G(O2)(O2)B%(O21):P2G(968):J1G(971):D%(T11)(970)l!A(O2)O2(O2V1)V1:F%60:A$(F%):C(0),B%(0,2),B(0),C%(0),E%(0),D(0),E(0),J$(0),Q%(2),F(0):T$(12Q%(0)2:Q%(1)1:"SORT",B%(1,0)B%(T,0)Q%(0);F:D$(4):R1998:G958:F198:H21:N114:M125:H1868:H$" ESC:BACK RETURN:":(975)F380 V1440:J%200:R%5:B%(974)::D$;"OPEN NAMEDATE":D$;"READ NAMEDATE":"INPUT",X$:L2:D:M21E1E12PJ21M2ĭP%20ITİ15:6::M20:L27153:P%22144:150^J21ĺ:J22į"KYBD",W$:W$(155)IT:J22ĺ(4);"PR#0":F:FJ21M26IT:150I20ıF:3:G:9:::"SORTING EVENTS"::T2157(D."R$:E(A1)1D(A1)2D(A1)E(A1)143:D(A1)L2I$I$" -- AGE AT DEATH: "(((D(A1)E(A1))V1)):143I$I$" -- "(((D(A1)L2)V1))" YEARS TO DEATH"I$I$")":J22ĺ20);S$;15(S$));I$:146P%(37)(I$)23:P%22147S$;:47:WWL2İ78:I$I$" -- SEP/DIV: "U$:143YK2(K2)143:WL2:D(A1)1D(A1)WWD(A1)sD(U)1D(U)WWD(U)WB(A1)141:U1((WB(A1))V1):I$I$" --":A(W)A(B(A1))I$I$" LAST"I$I$" ANNIVERSARY: "(U1):143jK23149:I$I$"I$" ("R$" -- ":WD(A1):W0WL2I$I$"AGE AT RECORD: "(((L2E(A1))V1)):143qWD(A1):W0I$I$"D."W1İ78:I$I$U$143K22141:I$I$" (M."R$:B(A1)L2I$I$" -- "(((B(A1)L2)V1))" YRS TO MARRIAGE":143(WF(A1):(6)2L2B(A1))149>}J22E155D166E1:16:E10:D16:16g~I$(B(A1)):75:I$J$(A1):K22130E%(A1)0C%(A1)E%(A1)14911:U0(O%(2)2D(U))149I$I$" AND "J$(U)K21135:E(A1)L2WE(A1):78:I$I$" (B."U$:143UI$1:J0:I1T:A1B%(I,2):C%(A1)BC%(A1)Q149Ow(C(A1))K2B%(I,1)0149xxK23ĴO%(2)2D(A1)0D(A1)L2149yK22ĭO%(3)2C(A1)(C(A1))F(A1)L2149zK21ĭO%(4)2L2E(A1)149{K22ĭO%(5)2L2B(A1)149|K23ĭE(A1)L2(O%TES FOUND!":3:StJ21118:B$H$"PRINT":8:9::"TURN PRINTER ON.":6:L27ıu:10:"PRINTING...":B$" ESC:STOP":8:3:D$:13:34,12:35,17:D$;"PR#1":E10:D12:16:20);"THE ";X$;" FAMILY ";O$(K2);" -- RECORD DATE: ";Y$:E1E11:D12:16/vSRE DATES!":3:JE:G21m:nBB0QQ0T1:I20:106FoI2114pB0B:Q0Q:I21::JBQ:I21:52:96:"KYBD",W$:W$(155)Q0J:JQ:QQ0q:34,0:15:154r183:J21B$" ESC:MENU RETURN:CONTINUE":8:3::34,3:35,23sT0B$"NO DA(H$)16:} EB%(F):6:U0H%(F):A$(F,U)""::C$(F)"":E$(F)"":I%(F)0:J%(F)0:H%(F)0:B%(F)0:K%(F)0:G%2A%(H,G%)0  16297,0:16302,0:16304,0:16300,0 4,144:5,8:6,1:7,1:54,0:55,8:1002:  54,0:55,3:1002: (Z1):DO1İ87:I%(E)0Q%(F)1:G%(F)G%(K)1:H%(F)H%(K)21pZ1(B$(2)):Z10D(Z1):DO1İ87:I%(E)0Q%(F)1:G%(F)G%(K)1:H%(F)H%(K)2qG%(K)GGG%(K)r110s34,0:130't10:1:"INCLUDE INFORMATION ON ANCESTORS? (Y/N)":J$P):24:Q%(W),G%(W),H%(W),A$(W,5),B%(W):V0::87:Q%(F)1:G%(F)1:H%(F)1:::10:"THE ANCESTORS...":V$C$(E)" "E$(E):K0nKK1:24:Q%(K)0KWT300115AoDB%(K):FK:5:12:V1:"READING ";A$(F,4);" ";A$(F,5);"'S FILE...":36:Z1(B$(1)):Z10DW11):L1H(968):O1H(971):D%(E11)(970):L11L1O1L11jeO10106:D1:45::L$;(J%);".NA,R0,B1"tf104|gO1h9015iO1ČR:125jO1E%G1O1k:131l34,0:35,24:60:O27124{mG0:"DEL",Q%(0),G%(0),H%(0),A$(0),B%(0^Ѹ "^eP^_eQ_ ȱ^8e^^_ , l^ưȭ氩L8ˍ` + (.Q.0.уȱ.у```0./ ꥃL8. K"ȱ.^ȱ._$J0 ^ЫK`  +._.^. L^_:ʽe^^e__l^" ަư8^_氠^LQ^P^i^_'ĕнеȱаȱ+-&Пȱ&8+hh8FD:GE;:i:;i;F;f:;`8F:E?>@?A@e:BAe;C \.E*0* 1A;!@:8@:@A;AEƥ@D>i>?i?8<>=?L, e&.'i/.)*ȱ.IiՅJ)L-+ .H.h$1+`,,,0 B``LvL HH 1-ȱ.ȱ/ g RDE$1 Ю ީ КД g RG.ІF/GEFD$1 ީ I0 &ŔÄH 0:, jݪ + , ޥۤ jݪ +`gKYBDKYBD.RM , ,0 `, $Lԅ !  = {ڭ !`SORTARRAY SORT.RM^ ^iȥ_ixA@ ./CBHH$1H+H1)΅menυnΥ88ΰϥݥްܘΥ8ΰݥްB@݅8ۅΥޅ܅ϠϥmnΥm8ۅmn܅n٥e8҅ݥӅA@ȑA@ cCB cߩ RMePQQȑ`JERRERR.RMhhߚHnБPNmOnJʊ*@@ՑԑJ#LУ M@ABCBFCGD@ EALߩ cDE RPҥQӥD@EA@8D٥AEکLD8@٥EAکLߩ c٥ RPQ܆ۥB٥Cڠeȱe$L0[mnem(M@A@A cߩ JX cED RPeMԥQiՠ8ۥePeQemNne܅ONoOp MLԐWФ0WONΥOϥmnΥΥΘѥQP.]ХNmnБPPQm8e^,_i-e^^__`REDIMARRAY REDIM.RM , (:yz J g RP@QA RJP@Q@ kLԥJ*iDeȱeѠ ߥJ?в^_^ȱ^^eȱ^e(ي0ȱ^ ie^^_ +Ŕnпmлзj+;*8o勅oȑppȑoм( h c`^0vȱ^qȱ^lȱ^oȱ^p\̖Njʘݖ.,/-  " ީ; = l݅ , LGARBGARBAGE MAN.RM 6h j݅H ! g R8ompnPQ hhLc X^i_ir^^i \^Hȑ^^h^stopjmn+U^_ +Rij^_ +kl9::"INSERT ";:A%0ĺ"MASTER DISK B":189G'X$;" FILE DISK # ";A%a':"IN DRIVE # ";D%:':"PRESS RETURN TO CONTINUE":S1ĺ"ESC:BACK";25):'6::?RESETRESET ONERR.RM^_<= 抠&<<i"=iLo cL?INPUTSTRING INPUT.RM2(O$(K2)):K1(X$)Q28:L%(39K1)21:L%);X$;" FAMILY ";O$(K2);40)::" RECORD DATE:";Y$;28);"FILE DISK:";A%;40):::&"ERR":54915::::D$:A1(222):A199A1255168&F:10:"ERROR!":A19ĺ:"DISK FULL!"&:S10:190:168,'F::~:uD$(4):T440:Q1998:L1958:C868:B1059:G%(974):P$" ESC:BACK RETURN:":V$"FILES":(975)B380D11:J12:H16:I16:A11:B(W)W1W8:C(R1)(R1)G%(R11):L$D$"OPEN":Y$D$"READ":W$D$"WRITE":X$D$"CLOSE":T$D$"DELETE"972,WHG%:968,0:P1W:969,0:147,u123kvS$;"FILES,S"I1",D";J1:L$;"FILES":L$;"FILES":O10:Y$;V$wO1O11:U$(O1):O111119x162yO110āDO1110:U$(D)"":zX$:{(222)8169|"ERR":120}D1O1:U$(D)""ĺU$(D)M$(2,W):3:C$(P$,9):4:5:"RESET ONLY IF THE TOTAL NUMBER OF NAMES IS IN ERROR:":16::B::"WARNING! RESETTING NUMBER OF NAMES CAN CAUSE LOSS OF INFORMATION"::L4:10:"TOTAL NUMBER OF NAMES: ";:J$(P1):11:W(H$):H$""147"tH(WG%):971,H:$P$"INITIALIZE":4:5:"INSERT DISK TO BE INITIALIZED IN DRIVE ";J1":":10:"PRESS RETURN TO INITIALIZE.":16:B::"WARNING! EVERYTHING ON THE DISK WILL BE ERASED."::6:E13147r:10::"INITIALIZING..."::D$;"INIT FILES,S"I1",D";J1:147sB$L$;V$:W$;V$:125l162(mD$:X$n:10:B:"DONE! THERE MAY BE ";F$;" FILES ON OTHER DISKS TO DELETE! ":N10:167:W0:116oB$M$(2,W):3:L1:5:"WHICH CHARACTER FOR PRINTING CHART:";:C13:54:Y27147p967,W:147qB$M$(2,W):3:C:95^T$;F$;(F%)_978`T$;F$;(F%);".DATA"Aa99YbT$;F$;(F%);".LOC"cc101}dT$;F$;(F%);".PLACE"e103fT$;F$;(F%);".ADD"g162h117:D1O1:U$(D)F$"."(F%)U$(D)"":W1i:W0110j108kT$;V$:m<=h=h" ENTER OR CHANGE INFORMATION,DISPLAY OR PRINT INFORMATION, CHANGE THE RECORD DATE,SEE LIST OF FAMILIES ON DISK,WORK ON A DIFFERENT FAMILY,USE UTILITIES FOR FAMILY FILES,CHANGEG1);40)::159::5:"NOTE:TO BEGIN A NEW PERSON'S FILE, YOU MUST FIRST ENTER THE NAME IN THE REGISTRY.":9:"WHICH INFORMATION WOULD YOU LIKE TO ENTER OR CHANGE:":10:C10:54:E27147 222,1:1516!158::7);L$(G1);40)::159::5:1S AND EVENTS ARE CALCULATED IN RELATION TO THIS DATE."10:"NEW RECORD DATE: ";:28:L0:A27R0147:S1RF11:40:A1$K$S1R:147:10:"SO LONG!":::"PRESS RETURN TO REBOOT ESC:BACK";23)::6:E1314764166 158::7);L$(SC:NO CHANGE";40)::9::"NEW FAMILY NAME: ";:J$"":11:A27H$""R$H$147gF11:R$H$:W0:1166L2:B$L$(G1):3:5:"(CURRENT RECORD DATE: ";::A1$;::")"::23:" ENTER DATE AS MONTH/DAY/YEAR";40)::" ESC:NO CHANGE";40)::15::"ALL AGE:S$D$"VERIFY":130d1002:::L$;"NAMEDATE":Y$;"NAMEDATE":R$:S1:Z$R$:D1:H1:J1:I1:A1$n162X$:D$::T11:B1$R$:143OL1:B$L$(G1):3:5:"(CURRENT FAMILY NAME: ";::R$;::")"::23:" ENTER NAME AND PRESS RETURN";40)::" E9)K169:G$O$" RETURN:PRINT":9:10:"TURN ON PRINTER.":4:J27126N%(K11,0)0:KBE:"KYBD",E$:E$(155)KE:1427:N%(K11,F)014229:A$(2)""142#9::U:"PRINTING...":13::34,12:35,17:33,40:D$:D$;"PR#1":T1);B$((T1):J$(T1):14:A27126:T1(H$)G$O$" ENTER #":9:11:"SKIP HOW MANY LINES BETWEEN EACH LABEL: "25);:J$(U1):14:A27128:U1(H$)F$"INCLUDE COUNTRY":143:J27129:V1(J89)F$"INCLUDE TELEPHONE NUMBERS":143:J27130:W1(J8G2:114zR1İ43U{13:G$" ESC:NAME LIST RETURN:NEXT NAME":9:4:J27KS1f|N%(K11,F)0x}:35,24:109~63:J27ıT2:J63İ165:126%169:G$O$" ENTER #":9:5:"ENTER MAILING LIST PARAMETERS:":8:"LEFT MARGIN:";25):J$IP/POST ",1(G6)9,9)VtP%(G):1::P$(G);":";10)::" ";:J$A$(G):K12ĺJ$:114|u14:A27GG2:G0114:KE:124vA14İ89:113w10:H$A$(G)A$(G)H$:R11x114 yH15:K11G$(Q$,1,19)"SAVE INFORMATION":9:4:J27G$Q$:9:GK11,0)0:169:35,23:KBE:7:N%(K11,F)0125lpG$Q$:9:3::M:R10:29:A%(K)0K12İ89:J27109q12:3:T1:::P$(0);":";10)::" ";:3:::G1::P$(1);":";10)::" ";A$(1):rGG1:GW121sG5G6ĢP%(G)1:1::("STATE/ Z4:J78J89104:J78KT0:L1T0:[i"DEL",B$(0),C$(0),B%(0),A%(0):Q1į"DEL",N%(0)jB(E%1)F%1:EBF%1:EG1EG1kS1EB1:"GARB":B$(S1),C$(S1),B%(S1),A%(S1):Q1ĆN%(2,S1)lO%0:m35,24:63:J27ınJ63İ165:1091oN%(;(G%);".ADD,R";F:A%(F):170(bD$:9c"ERR":170UdL$;(G%);".NA,L32":96fe"ERR":170fL$;(G%);".ADD,L";I%:gQ1O%0105::10:C%0:"CHANGING TO DISK # ";E%::"WILL CANCEL SELECTIONS ON DISK # ";G%::"DO IT ANYWAY? (Y/N)"&h ADDRESS? GIVE NAME # ":9:10:28:J$"":14:A2789:H$""92:X(H$):X1XG1ČL:90[N0K:KX:Q11:29:KN0:93:R11:Q10\35,24:]47:B$(F)""ı^99_4::K$;(G%);".NA,R";F:"INPUT",B$(F):"INPUT",C$(F):B%(F)`101aK$TZ(J78)(J66):Z070LUL1A(X):L1L1ZM%:L1G1(O1M%1)G1L1G1\VL1G1L1XlWL11L1G1tX65Y169:G$O$:9:9::"DOES ";::3::::"HAVE THE SAME ADDRESS"::"AS ONE ALREADY ENTERED? (Y/N)":4:J89ıXZ9::T2:M:"WHOSE12:N0K:KBE:93:B%(F)A%(F)ON%(K11,F)1=N:KN0:65OJ35ė:G$" RETURN:PREVIOUS NAME":9:10:"GO TO NAME # ";E$:X(E$):X1XG163:L1X:63PZ(J21)(J10)(J8)(J11):Z084QHX:1:3);:XXZ:X1XP1RXP1X1S69(F)0)ČL:69EHO%1:HX:5:N%(K11,F)N%(K11,F):N%(K11,F)1ĞPI5:70oJJ63J32J27L1A(X):KJ6577:O%1:N%(K11,0)N%(K11,0):12:N0K:KBE:93:B%(F)(K11A%(F))N%(K11,F)N%(K11,0)L:KN0:65.MJ33K1179:O%1:G1M%):O1A(1):P1M%:O1P1G1P1G1O11lCKO1O1P11:93::H3:4:KO1O1P11:93:5:N%(K11,F)ĞD5:16368,0:::XM1:19:N11Ė26:(F%M%)(E%1)P;" OF ";N1;" PAGES";EHX:1:"-->";F4:J1374 GKA(X):7:B%(F)0(K11A%ROW UP ESC:BACK B:BACK PAGE ":40)::33);"?:HELP ";::23:2:"AFTER SELECTIONS ARE COMPLETE:":2:"SPACE:";(L$(K1),1,5(K12));" FILES";32)AJ0:I10:12:KL1:C%G%:93:T0K:C%G%63:P(F(M%.1)):M1FPM%:PP1*BN1(G1M%):N1N1(N1(J21)(J10)(J8)(J11):Z061G<HX2:1:3);:XXZ:XJ1X1U=X1XJ1]>57?:G%065:169:3:1:"SELECT NAMES TO ";L$(K1);":"@20::" SELECT NAMES WITH ARROW & PRESS RETURN":" --> ARROW DOWN A:ALL N:NEXT PAGE ":" <-- AR0:169:5::L$(0)::X1J1:5:L$(X):::X1:H6:22::"SELECT OPTION WITH ARROW & PRESS RETURN":" --> ARROW DOWN";8);"ESC:BACK";40)::" <-- ARROW UP";40)::XK1:16368,09HX2:1:"-->";:4:J13ĢHX2:5::L$(X):::J27ġ:160#;Z1):K%J%:DH1D%(J%)E%51<2D%J%1:173:F11:J27161E3544G%E%:5:N$;(G%);".NA,D";J%1:L$;(G%);".DATA,L";H%:L$;(G%);".NA,L32":L$;(G%);".ADD,L";I%:1705D%(J%)G%:6"ERR":1707F11:14:F$"WRONG DISK!":8::508I1$:C$(155)IR6!:K22ĺ(18):(4);"PR#0":D:DE!K21L26K!X!IR:169d!J20ı!D:10::"SORTING HISTORY"::R2176!S%(0)2:S%(1)1:"SORT",A(1,0)A(R,0)S%(0)!D:I"D$(4):R1998:L958:D198:M21:N112:M127:ED(V)G$G$" (AGE AT RECORD: "(((I1D(V))W1))")"_ K22ĺ10);Y$;15(Y$));G$::165 R%(37)(G$)27:R%22166 Y$;:58:L21 C1C12 K21L2ĭR%20IRİ19:6::L20:J27172:R%22163:169 K21ĺ:!K22į"KYBD",C"161HD(V)0A(I,1)D(V)G$G$" (AGE "(((A(I,1)D(V))W1))")"jE%(V)0161:C%(V)E%(V)168{15:S0168G$G$" AND "O$(S):D(S)0A(Y,1)D(S)G$G$" (AGE "(((A(Y,1)D(S))W1))")"7 G$G$J$(V):(J$(V),3)" IS"Q%(V)1I1CORD DATE: ";Z$:C1C11:B12:20UG0::I1R:VA(I,2):C%(V)B(1)C%(V)C(1)168K22C160B166C1:20:C10:B16:20A(I,1)0A(I,1)(B(2)(B(2)W1(B(2)W1))W1)(A(I,1)C(2)C(2))168G$(A(I,1)):97:Y$G$:G$O$(V):(J$(V),3)" IS8:35,231R1B$"NO DATES IN HISTORY!":3:{K21153:B$" RETURN:CONTINUE":8:10:"TURN ON PRINTER.":6:J27ı B$" ESC:STOP":8:10:"PRINTING... ":13:34,12:35,17:D$:D$;"PR#1":C10:B12:20:10);"THE ";X$;"'S FAMILY HISTORY -- REK)C(K)B$"IMPROPER RANGE!":3:143RB(1)B0C(1)E0R1:I20:J20:137:G20^J2149E0C(1):B0B(1):J20:::GB0E0:J21:63:D$:123:W$"":"KYBD",W$:W$(155)C(1)G:GE0:E0C(1)::19::173 192:K21Ĺ34,4:B$N$"CONTINUE":"REDIM",O$(R):"REDIM",D(R):"REDIM",Q%(R):P%R:A(R,1)(A$(M)):A(R,2)R:C%(R)G:J$(R)J$:E%(R)E2:O$(R)O$:D(R)B2:Q%(R)A2:L$"":K1:H25:37:A27ıB(K)1C(K)H1B(K)C(K)B$"IMPROPER RANGE!":3:141K2:37:A27141$B(K)C(K)B($" DIVORCE":E2C2:137 E20&?F1O1:A$(F)""::IG2ı19:A11000B$"NO MEMORY LEFT FOR MORE DATES!":12:4:C(1)G:GE0:E0C(1):G21:S10::199:RR1:RP%į"REDIM",A(R,2):"REDIM",C%(R):"REDIM",J$(R):"REDIM",E%(R)~:Oİ9:J$" - EVENT: "H$:H$""İ137I:MP13:D2(A$(M)):D21136T1D2:MM1:C2(A$(M))1:MM1:13:OJ$" MARRY":E2C2:137:E20MM1:F2(A$(M)):MMF21:13:O01359:(H$,1)"S"J$" SEPARATE":E2C2:137(H$,1)"D"JRR":193'zD$:T$;(H%);".NA,L32":B{A20:B20:C20:O10ıj|A2(A$(3)):A2(A$(M),1)"D"A21}M2:9:B2(A$(2)):H$""H$"IN "H$~13:OJ$" IS BORN "H$:137M3:13:Oİ9:J$" DIES. CAUSE OF DEATH: "H$:137&MM1P1:13J27ĴZ112700::187@qZ(J21)(J10)(J8)(J11):Z0109erD1X2:1:3);:XXZ:XN%X1ssX1XN%|t110uP$"":Q$"":F%0:I%0:G1GH1ıv121w77:R$;(H%);".NA,R";H:"INPUT",P$:"INPUT",Q$:F%:I%:193xD$: y"E1:47:K$;(G%);".NA,R0,B1"%"152-"G17"161H"G1ČL:161R"170y"E%G%:106:(222)1K11:X1:158"170"34,0:35,24:33,40:56:K1X"X109,109,126"156 #F10:KL1:7:968,E%1:969,F:970,D%(H11):KG1:7:971,E%W8:P$(W),A$(W),P%(W):NAME,0,LOCATION,0,ADDRESS,8,ADDRESS,10,CITY,12,PROVINCE,15,CODE,18,COUNTRY,20,PHONE,22:V0W:P$(V):P%(V)::"WOULD YOU LIKE TO:",ENTER ADDRESSES,REVIEW ADDRESSES,PRINT OUT MAILING LIST "J13:I0J1:L$(I)::G10155:KкD$;"OPEN NAMEDATE":D$;"READ NAMEDATE":"INPUT",T$:B2:D:C:H1:C2:U$:L$D$"OPEN"T$:K$D$"READ"T$:M$D$"WRITE"T$:V$D$"CLOSE":N$D$"VERIFY"T$:V$ J%(H11):B(A2)(A2)F%(A21):L1B(968):G1B(971):D%(H11)(970):L11L1G1L11!"? (Y/N)":U:4:J27144D$(4):X1998:M958:L1052:Y1856:Z1440:U868:R$(1)"F":S$(1)"N":O$" ESC:BACK":Q$O$" RETURN:NEXT":(975)L380 K12:F%(974):M%(973):Q%5:H%200:I%96:T110:U12:A(A2)(E%1)F%(P1)M%A2::F);" ";C$(F):A$(2)""ĺT1);A$(2)>A$(3)""ĺT1);A$(3)}T1);A$(4);", ";A$(5);" ";A$(6):V1A$(7)""ĺT1);A$(7)W1A$(8)""ĺT1);A$(8)U1āA11U1::D$;"PR#0":L:LN%(K11,F)0::34,0:35,24:126G$O$:9:15:F$;z#    !׭"IJ ĭè ȭù͠в.Ӡ Ӳ'ٲ,   ŠӲįˠ ˠ "ӠٲMϲ*"ϲ:ٲ,Բղ%```0./ ꥃL8. K"ȱ.^ȱ._$J0 ^ЫK`  +._.^. LGARBGARBAGE MAN.RM 6h j݅H ! g R8ompnPQ hhLc X^i_ir^^i \^Hȑ^+hh8FD:GE;:i:;i;F;f:;`8F:E?>@?A@e:BAe;C \.E*0* 1A;!@:8@:@A;AEƥ@D>i>?i?8<>=?L, e&.'i/.)*ȱ.IiՅJ)+ (.Q.0.уȱ.у1+`,,,0 B``LvL HH 1-ȱ.ȱ/ g RDE$1 Ю ީ КД g RG.ІF/GEFD$1 ީ I0 &ŔÄ'ĕнеȱаȱ+-&Пȱ&8 jݪ +`gKYBDKYBD.RM , ,0 `, $Lԅ !  = {ڭ !`SORTARRAY SORT.RM^ ^iȥ_ixA@ ./CBHH$1H+H1)L-+ .H.h$ݥްܘΥ8ΰݥްB@݅8ۅΥޅ܅ϠϥmnΥm8ۅmn܅n٥e8҅ݥӅA@ȑA@ cCB cߩ RMePQQȑ`JERRERR.RMhhߚHH 0:, jݪ + , ޥۤՑԑJ#LУ M@ABCBFCGD@ EALߩ cDE RPҥQӥD@EA@8D٥AEکLD8@٥EAکLߩ c٥ RPQ܆ۥB٥Cڠeȱe$L0[mnem΅menυnΥ88ΰϥX cED RPeMԥQiՠ8ۥePeQemNne܅ONoOp MLԐWФ0WONΥOϥmnΥΥΘѥQP.]ХNmnБPPQmnБPNmOnJʊ*@@REDIMARRAY REDIM.RM , (:yz J g RP@QA RJP@Q@ kLԥJ*iDeȱeѠ ߥJ(M@A@A cߩ J198'X$;" FILE DISK # ";A%9':"IN DRIVE # ";D%:n':"PRESS RETURN TO CONTINUE":S1ĺ(A1$,2);25)y'6::?RESETRESET ONERR.RM^_<= 抠&<<i"=iLo cL?INPUTSTRING INPUT.RM  " ީ; = l݅ , LORTANT FAMILY EVENTS";40)::" RECORD DATE:";Z$;28);"FILE DISK:";A%;40):::&"ERR":54915::::D$;"PR#0":V(222):V99V255185&D:10:"ERROR!":V9ĺ:"DISK FULL."&S10::199:185'D::9::L:"INSERT ";:A%0ĺ"MASTER DISK B":5L%S10::GP2:5:968,A%1:969,H:970,D%(T11):GH1:5:971,A%1:972,Hc%1002::C1$:190z%D%(C1)0S1191%S10:D%C:A%0:196%D$;"RUN MENU2,S";B;",D";CP&:K1(X$)11:L%(39K1)21::L%);"THE ";X$;" HISTORY";40)::9);"IMP$N%2:F(0),V$(0,3),O%(0),M$(2),E$(2),B(2),C(2):N03:V$(0,N)::F12:M$(F):E$(F)::C(2)1:H10185:G1:77:R$;(H%);".NA,R0,B1"$183$H1$188$H1ČD:188$:D$:193%GP2:5:34,0:35,24:"GARB":Z10:108:K2X:141:18X$:E(O2)(O2)B%(O21):P2E(968):H1E(971):D%(T11)(970)#K%(T11):T%68:A$(T%),J$(0),A(0,2),C%(0),E%(0),O$(0),S%(2),D(0),Q%(0):"WHICH DISPLAY OPTION:",SCREEN,PRINT,MAIN MENU,NAME," ENTER NAME NUMBER",DATE," ENTER DATE AS MONTH/DAY/YEAR"868:A1$" ESC:BACK ":N$A1$" RETURN:":B1$" ":(975)D380B#W1440:J%200:G%5:B%(974)::D$;"OPEN NAMEDATE":D$;"READ NAMEDATE":"INPUT",X$:I1:C:B:T1:N2:Z$:D$;"CLOSE":T$D$"OPEN"X$:R$D$"READ"X$:C1$D$"CLOSE":U$D$"VERIFY";:E%0ĺ"MASTER DISK B":27586W$;" FILE DISK # ";E%R6:"IN DRIVE # ";D%:6:"PRESS RETURN TO CONTINUE":L2ĺS$;25):69::J2İ206+AMPRESTORE AMPERSAND.RMưȱ`?RESETRESET ONERR.RM^_<= 抠&<<i"=iBUM";40)::9);"COMPREHENSIVE GENOGRAM";40)::" RECORD DATE:";R$;28);"FILE DISK:";E%;40):::5 "ERR":54915:22:::D4(222):D499247510:M:"ERROR!":D49ĺ:"DISK FULL."5L20::J20:276:2475M::J2İ2269::T:"INSERT ""B$"RIGHT <--"B$"LEFT RETURN UP (UP ARROW) / "B$"DOWN (DOWN ARROW)"4Fu" WITH CURSOR ON ANY FIGURE: SPACE -- ENTER THISODn34,0:35,24::Y$:3686DoD%(F1)0P2369RDpP20:F%0:10:D%F:384lDq:D$;"RUN MENU2,D";FDrN0M:W0N:N1D1:32::MN0:14:NW0:DsB$" ":C$"CTRL-":P$" -- "::37:380:4::" HELP ":::A3377Et"THIS VERIFICATION GE"CAUSE:";:16'gQ2ğ:"PLACE:";:16VhV11::"- ";:A1:H$U$:J14:27:A2788siN10:U$G$:U$"-"U$""jB20G$"D - "U$:kB2B2(B2100)1900:B2Y1(B2(Y10))D2:G$(B2)U$:lE2(A$(2)):F2(A$(3)):E2B2ĺ:LmQ2ĴG2E2(N$,4):Z1H$""?`S:V2:"/";:J12:27:A2788:C2(G$)xaC231((B22)B22)(B27.5)(B27)(B22)ČT:95bY1Y1C2cH$(N$,7):Z1H$""dS:V5:"/";:J13:27:B2(G$):A2788:T$G$eB20G$"-": fN11:V11:A1:Q3ğ::17:S:V:A1:Z1((M$)0(M$)1):H$N$:J11:27:A20:B2(G$):A27(A13K10)G$M$:nYG$"D"Q3102Z(G$)ĭG$"-"((G$)63A47)ı[Z1(B2A47)ČA1\B20ĖV:" / ";:99]B212B20:Y10:114:N$N$G$:99^Y1B232_H$(J%);".LOC,L4":226bSW1āE11W1:E$(E1)"":F$(E1)"":E%(E1)0:K%(E1)0:A%(E1)A%(E1)(X12):rTD%(N%)J%:U"ERR":226V14:H0V:V1:I$"WRONG DISK!":13::VH0:U11:80W112:V(0)1:J$" (MONTH/DAY/YEAR) ESC:BACK RETURN:NEXT"ZXY103:M22:F%J%ı+NU10:166:Y7877kOM%1::D$;"CLOSE":N%N%(DV1):H%N%:DV1D%(N%)F%81PD%N%1:229:Y27U11:221Q85RJ%F%:4:S$;(J%);",D";N%1:Q$;(J%);",L150,D";N%1:Q$;(J%);".NA,L32":Q$;(J%);".DATA,L";I%:Q$;E1)""::R11Q1:T1(B$(R1)):T10G(T1):158:B$(R1)G$CI:{J"ERR":D$:Q$;(J%);".DATA,L";I%:E165:E1B1:64K"ERR":D$:Q$;(J%);",L150":Q1071:R1Q1:70L24:R$;(J%);".DATA,R";F:B1:E11B1:A$(E1)::D$:O10:E%(F)(E%(F)):121C1:A$(E1)""::B10:151:E%(F)1ıI>P$;(J%);".DATA,R";F:E10:74j?B1:E11B1:"INPUT",A$(E1)p@zA226BD$:CQ10:K%(F)0R11:72D75EP$;(J%);",R";F:Q1:R11Q1:"INPUT",B$(R1)FG226;HD$:E1R1S1:B$(""M$(M$,1,24):M12(M$)0M$(M$,1,17)s81::S:O$(Q);:14(O$(Q)));::16:M1122,87,122:J10:A27609G$""G$"-":(G$,1)"-"(G$)0G$"-":S:V:G$;:A1;M$G$O1O11:A$(R)G$:R5İ125<:RR1:P10:H$""::%=E1M13H$"":A1:29%.A14ġ:::M/A27H$L$:G$"":H1:A1:J1I1:28U029g1A1:H$"":412M11R0G(M$):83M12İ112:H$N$4M13(M11R0)H$M$5NN1:10);O$;15(O$));H$;:M12İ108:6:,7M$A$(R):SS1:M$441:(A47A58)A3240% 'T:29R (L11(J13)2ĴA32J1239:G$G$H$: )K1K11:A$;:G$G$A$:H$(H$,2):J11(G$)12ĖH1:" /";:A1: *29 +A8(G$)H$(G$,1)H$:G$(G$,1,(G$)1):A$;:(G$)0J129 ,A839-A20ĭJ14$(H$,1,1):(A$)30:A$" ":30= A3243:(0)38ČT:29J !J1039l "Q1ĴA70A7739:J10:41 #A45L10(J11J14)J10:49 $M1341:Q3ĭL11A68J11J10:49 %Q5K10A64ĭJ11J14J14:((M$)(M$)2)N1149 &J1A. SOME WAS NOT SAVED.":V1:13::A$(E1)""M A$(E1)""B1E11:E1C1:F11^ D1D1F1:: G$"":G1(37)1:H1(0)1:L$H$:I1J1 G1:H1:H$;:G1:H1:K10 A$ A(A$):L1(G$):A13(A27L1)(A47J14M12)G$G$H$:6: A21A 35,23::" K$"":16368,0W "KYBD",K$:K$""21:Y(K$)128:YY32(Y96): F%(G(G%.1))1:FG(F%1)G%:H%2(D%(0)F%)2(D%(1)F%): 3::35,19:A1:35,24:+ B1C1:D10:E11C1:F1(A$(E1))1:D1F1I%ė:10:I$"TOO MUCH DAT010B G(G):G0GHİ151:H$E$(F)" "F$(F)"("(G)")":R G0:H$"":i L1M:NN1::: RR2:QQ2:SS2: T::UĖV:W:15 V:A1 I$;: L12000:: 35,23:24::UĖ1:A1:J$;40) UĖ1:J$;40):9::W9(C6:D1:221r(175)256(176)46:(4);"MAXFILES4":24576:"RESET",99:C$(2):C$(1)"M":C$(2)"F":20122:5:A%(F)ĞG;".";G10);E$(F);" ";F$(F);:E%(F)0ĺ" (!)";::G$""(G$,1)" "G$(G$,1,(G$)1):6 G               F:413 "A11:X:"INPUT",E$:A$(A1)""A$(A1)E$O #A12W:"INPUT",A$(A1)U $_ %170{ &:D$:"GARB",B1,2000: '"ERR":170 (L$;(G%);".DATA,L";H%:D$:32 )"ERR":170 *:L$;(G%);".ADD,L";I%:A1137:A1W:36. +3:D$:47:MA27J$I$:H$"":R:U:150 G2ĭT1A14ı8 16^ V1W:A$(V)""::93:B%(F)133 4::K$;(G%);".DATA,R";F:V0:A$(1)"":39 Y:"INPUT",E$:"INPUT",E$:"INPUT",E$:"INPUT",E$:"INPUT",A$(1) 170 !4::D$:K$;(G%);".ADD,R";S)H$H$J$:: A21A$(J$,1,1):(A$)17:A$" ":17T A3223:(0)3821_ L:16~ T2ĭA32(A48A57)20 A$;:H$H$A$:J$(J$,2):16 A8(H$)J$(H$,1)J$:H$(H$,1,(H$)1):A$;:16 A820 A20J$"":U:16 # L:1:M::F$::N12000::@ 24::1:G$;40)::1:p H$""ĭ(H$,1)" "H$(H$,1,(H$)1):10v 3::35,19:M:35,24: 23:M: H$"":Q(37)1:R(0)1:I$J$ Q:R:J$;:Q:R A$ A(A$):S(H$):A13(A27%;(175)256(176)46:(4);"MAXFILES4":C6:D1:161P"RESET",99:145hB$(F);" ";C$(F);:E$"":"KYBD",E$:E$""4:J(E$)128:JJ32(J96):K;".";K10);:3:A%(F)0B%(F)ĺ" (!)";:: E%(K(F%.1))1:FK(E%1)F%:             ^LQ^P^i^_^Ѹ "^eP^_eQ_ ȱ^8e^^_ , l^ưȭ氩L8ˍ`"t *q,*ȥ+q,+.ȩ捤Ș ͈DELETEARRAY DELETE.RM , ,";CU6:L27ıqVL13ĢG1X2:5::V$(Y1,X)::O%(Y1)X:WZ(L21)(L10)(L8)(L11):Z085XG1X2:1:3);:XXZ:XN%(Y1)X1YX1XN%(Y1)Z84[K$"":L$"":G%0:I%0:J1JJ"NU1(WV1):U1WV1U1U111OU$(U1):cPL1:16368,0:183:G15:5:Y12ĺV$(2,0):82qQV$(Y1,0)R7:X1N%(Y1):5:V$(Y1,X):::XO%(Y1):X1X1S22::"SELECT OPTION WITH ARROW & PRESS RETURN":" --> ARROW DOWN ESC:BACK";O$;(H%);".NA,L32":O$;(H%);".DATA,L";J%:184EH:D%(K%)H%:D$:VI"ERR":184JS11:14:1:B$"WRONG DISK!":4::69KR$"":S$"":N(I$):A(N)0ıLU1(NV1):R$(U1):W1NU1V1:X1(W132):S$T$(X1):W1W1X132:W1S$S$" "(W1)M;J%:H57:HP1:56A184SB"ERR":D$:O$;(H%);",L150":Q1061:C1Q11:60cC5:A%H%ıDS10::P$:K%K%(DT1):M%K%:DT1D%(K%)A%70EG11:D%K%1:187:L27S11:179F73/GH%A%:2:Q$;(H%);",D";K%1:O$;(H%);",L150":"6M$;(H%);".DATA,R";K:H0:63@7P1:H13:"INPUT",A$(H)F8b9P13:Q10:I%061:65|:M$;(H%);",R";K:65;Q1:HP11:C10Q11:"INPUT",A$(HC1)<=N$:184>D$:O1Q1P1:R1:?184@"ERR":D$:O$;(H%);".DATA,L"K1(I$).0L1NM1:L1K1ĖN1:(I$,N,K1);:a1X((I$,L1,1)):X32X40NL1L1L11:49s2NL1L1NM13N1:(I$,N,L1N):NL1(X32):484H0F%:A$(H)""::O10:91:G%0ı510:H1:J$K$" "L$:"READING ";J$;"'S FILE...":G%057$):A2730 %WJ1ČF:36+ &A72WJ1: 'W0QWQH (W0WJ1 )I10:QW:43:B1QJ1BQĢ8::B$"IMPROPER RANGE!":4:29 *35,24: +WC$(W):46 ,W0G17C$"LOWEST" -W0G19C$"HIGHEST" .G1I1:21:C$;40):/N1::"BEGINNING NAME:";:21:17:W(F$):A27ı: A76W1K WJ1ČF:30Z !W0BWBg "W0W1x #BW:I10:43 $G19:E$" H:HIGHEST NAME NUMBER":B$H$"DEFAULT":7:G1:1:G:"ENDING NAME:";:I12:WQ:::5);"DEFAULT:":43:G1:21:17:W(F1):A$;:18, A8(F$)G$F$G$:A$;:17< A8A27:N A27F$""ıd A27ĖF1:H1:17l 18 183:5:1:"ENTER RANGE OF NAMES:", G17:E$" L:LOWEST NAME NUMBER":B$H$"DEFAULT":7:G1:1:G:WB:I12:::8);"DEFAULT:";:43:G1:1: F$"":G$"":F1(0)1% A$_ A(A$):AA(A96)36:A13(G17A76)(G19A72)ı A21A$(G$,1,1):(A$)19:A$" ":19 A3223:A32ĭA48A57ČF:18 A$;:F$F$A$:G$(G$,2):18 A8(F$)1G$(F$,1)G$:F$(F$,(F$)0):/ 35,24:24::1:G:B$;40)::35,21:O M0:N(A$(O)):A(N)0M1U i PI10:P1P1} RI10:RTRT U0:VPR:B%(V,1)B%(I,1)YB%(V,2):C%(A1)E%(Y)C%(Y)E%(A1)VR:UY : "GARB",B1,2000: C11D1:E1E11::n*C6:D1:179>(175)256(176)46:"RESET",99:158H:10hF:G::B$::H12000::A%(J(B%.1))1:KJ(A%1)B%:C$"":"KYBD",C$:C$""6:L(C$)128:LL32(L96): 35,24:22::1:" ENTER NAME NUMBER";40)::E$;4                      ),Q%(0),G%(0),H%(0),A$(0,5),B%(0)::D$;"OPEN NAMEDATE":D$;"READ NAMEDATE":"INPUT",R$:X1:C:B:E1:Y1:S$:T$<d300:L$D$"READ"R$:U$D$"WRITE"R$:T$D$"CLOSE":O$D$"VERIFY"R$:F%5:M%200:B$(2),F(30),B(30),G(30),A(30),D%(1):H(W1)(W1)E%(:"KYBD",Q$:Q$(155)LS1$`:|aD$(4):T1998:S958:R1052:U1856:I1440:V1868:P$" ESC:BACK":(975)R380bH$(95):I$(124):(967)2I$(47)qcE%(974):P%(973):G1E%:W200:E(W1)(A%1)E%(P1)P%W1:C$(0),E$(0),K%(0),I%(0\IQR1:B(I)2(I1)::IR1Q1:F(I)F(I1)2::G(R1)1:IR11Q1:G(I)G(I1)F(I1)2::I03:A(I)0:D(I)5::S1B(R1)F(R1):L1S1:H0R1Q:LG(QH)A(H)B(QH)94](LG(QH))A(H)F(QH)İ9:A(H)A(H)1:D(H)0:25:C(H)F:95^15_:.NA,R";E:"INPUT",C$(E):"INPUT",E$(E):I%(E):K%(E):D$BS131HTYU"ERR":131yVD$:N$;(J%);".NA,L32":83WF0:D1DO1ıXU1V:B%(U)DFU:UVY:FıZ80:VV1:VWV1[FV:B%(F)D:27:A$(F,4)C$(E):A$(F,5)E$(E):(O10)(O8)(O11):Z075?HF1D:1:3);:DDZ:D1DQ1MIDQ1D1UJ66qKZ(O78)(O66):Z067LL1E(D):L1L1ZP%:L1O1(P1P%1)O1L1O1ML1O1L1DNL11L1O1O62P45:C$(E)""ıQ858R5:D$:L$;(J%);"(E%P%)(A%1)P;:" OF ";N1;" PAGES";;BF1D:1:"-->";zC7:O1369:F1D:N0D:DE(D):4:I%(E)068::3:L1D:DN0D:REO27ıFO35ė:J$" RETURN:PREVIOUS NAME":13:10:"GO TO NAME # ";G$:X(G$):X1XO160:L1X:60GZ(O21):" ";P$;40)::16368,0h>14:A0:G$"":O1:DL1:C%J%:80:J%C%60:P(E(P%.1)):M1EPP%:PP1?N1(O1P%):N1N1(N1O1P%):P1E(1):Q1P%:P1Q1O1Q1O1P11@DP1P1Q11:80::5:DP1P1Q11:3::DM1:DQ1DQ1&A20:N11Ė25::M$(J1)"/"M$*;M$(K1)"/"M$:m<35,24:F14:J%062:130:"SELECT DESCENDANT TO PRINT CHART:"=21::" SELECT NAME WITH ARROW & PRESS RETURN";40):::" --> ARROW DOWN";7);"N:NEXT PAGE";40)::" <-- ARROW UP";9);"B:BACK PAGE";40):(G1),E$(G1),K%(G1),I%(G1):D%(N%)J%:63"ERR":131\4D11:14:J$"WRONG DISK!":11:47p5A1(M$):A1ı6G$"":A1ı7G$(M$,((A1))1):H1(A1I1):J1A1H1I1:J10H1H118M$(H1)" "G$:J10ı9K1(J132):J1J1K132:J1059J%ıD .D10::D$;"CLOSE":N%N%(CE1):O%N%:CE1D%(N%)A%48k /F11:D%N%1:134:O27D11:125t 051 1J%A%:O$;(J%);",D";N%1:N$;(J%);",L150":N$;(J%);".NA,L32":N$;(J%);".DATA,L";M%:131%2"DEL",C$(0),E$(0),I%(0),K%(0):24:C$ $45:B10:B$(1)"":B$(2)"":K%(E)0ı1 %44U &5:L$;(J%);",R";E:B1:B12ıq 'C112:"INPUT",B$(C1)w ( )131 *D$: +"ERR":D$:N$;(J%);".DATA,L";M%:U34:UY:33 ,"ERR":D$:N$;(J%);",L150":B1041:C1B1:40 -4:A%U:UW :4 U05:A$(F,U)""::Y0:I%(E)1ıb 5:D$:L$;(J%);".DATA,R";E:J0:U0:43 Y:G$:U03:M$"":"INPUT",M$:M$""M$"-"33 U0İ53:A1M$"B."M$ U1İ53:A1M$"D."M$ A$(F,J)M$:JJ1 ! "131 #D$:((A(H)2)B(QH)1K$"":17& K$I$E D(H)0FC(H):5:K$K$F$R F%423b D(H)1İ12r D(H)2İ12 D(H)3İ12 D(H)4İ12 D(H)D(H)1:K$(K$,1,20):K$;20(K$));: "GARB",T,5000: F0:U1V:G%(U)QHĭH%(U)A(H)F8:O(G$)128:OO32(O96):O A(H)2(A(H)2)B(QH)1āJ120:H$;:::i I$;:J119:H$;:: R:1::S:J$::J12000:: FC(H):K$K$A$(F,D(H)1): 35,24::24:1:J$;40)::35,22:1: 4::35,20:S:35,24: A(H)2B6:C1:125=(175)256(176)46:"RESET",99:97m5:80:D;".";D10);C$(E);" ";E$(E);:::A%(D(E%.1))1:ED(A%1)E%:F$"":B%(F)ıF$A$(F,4)" "A$(F,5)"("(B%(F))")":G$"":16368,0 "KYBD",G$:G$""            :F11:151jX4:L1:4:10:"DELETING ";F$;::" FILE DISK # ";E%::"ARE YOU SURE? (Y/N)":6:E89147tY162ZF%E%:D%J1:N11:164:E27147:92[:S$;F$;(F%);".NA,S"I1",D";J1:93\14:L1:E$"WRONG DISK!":5:89]T$;F$;(F%);".NA" DISK:":10:J$"":11:H$""A2780:F$H$T4:L1:4:5:"ENTER FILE DISK # AND PRESS RETURN:"::"(ENTER '1' FOR INITIAL FILE DISK)":E%E%F%UE%E%1V9::"FILE DISK # ";:J$(E%):11:E%(H$):E%0A27147 W:W3R$F$:C11:W7:M11:6::147MPB$M$(2,W):3:L1:C$(P$,9):4:Q$"DELETE":W3Q$"TRANSFER"Q10:1:"DO YOU WANT TO "Q$" THE ":R$;:" FAMILY FILES FROM DISK? (Y/N)":6:E27147RL1:E89F$R$:84*S5:L1:4:5:"ENTER NAME OF FAMILY YOU WANT TO "Q$" FROM$L$(G1):3:C$P$"CONTINUE":4:10:"SHOWS FAMILY FILES ON DISK IN DRIVE # ";J1:6:E27147N117:10:C:4:125:63261,96:49058,0:49054:49058,181:63261,32:K1(70)256(68):C%K1494100:C%100C%100 O::"FREE SPACE LEFT ON DISK: ";C%;"%":D1W:XFC$P$"DEFAULT":4:16:N$" FILES DRIVE (1-2)":PJ1:E12:63:A2768:J1W:nGB11:D1J1B12HC$P$"SAVE":4:6:E2770I:147JB$L$(G1):3:5:"WOULD YOU LIKE TO:":5:C12:54:E27147KW113,80,80,111,115L74]MBF11:^BB$L$(G1):3:C$P$"DEFAULT":4:5:"PRESS NUMBER OR RETURN TO CHOOSE THE DEFAULT:"C9:1:N$"DISK CONTROLLER CARD SLOT (1-7, USUALLY 6)":PH1:E11:63:A27147:H1W:I1H1D13:N$"MASTER DRIVE (1-2, USUALLY 1)":PD1:E12:63:A2767)::A%(C1)W:#:E27A%(C1)W:L;Z(E21)(E10)(E8)(E11):Z057s<OW2:1:3);:WWZ:WA(C1)W1=W1WA(C1)>56?1:N$;34);P;"";:O$:A(O$):A27A13WP:@W((O$)):W1(E11W7)(E12W2)ČB:WP:63AO$::W2:5:M$(C1,W):C12W5ğ:5:"(ERROR ROUTINE ONLY!)":7:21:::" MOVE ARROW TO CHOICE AND PRESS RETURN ":" --> ARROW DOWN ESC:BACK";40)::" <-- ARROW UP";40)::WA%(C1):W0W18OW2:1:"-->";96:E13ĢOW2:5::M$(C1,W3)(5W)(W2):1:"-->";:6:Y(G$)128:Y13ĢO(2W)(W3)(5W)(W2):5::L$(W)::A1W:o1Y27ġ:1372Z(Y21)(Y10)(Y8)(Y11):Z0523O(2W)(W3)(5W)(W2):1:3);:WWZ:WXW14W1WX548<6O(37)1:W1A(C1):OV)"/"K$ . /O(37)1:1:W1X:5:O(2W)(W3)(5W)(W2):L$(W)::WA1::19:29:"( NOW: ";B1;" )":20:::" MOVE ARROW TO CHOICE AND PRESS RETURN ":" --> ARROW DOWN ESC:QUIT ";40)::" <-- ARROW UP";40)::16368,0^0O(2W)(WR7)(R2)ČB:32 "NNS% #J$""J $O:Q6:M3:11:R(H$):A2728U %R0ıi &R100R1900R 'RN(R(N0))T: (R0K$"": )U(RT):SRUT:S0UU1 *K$(U):S046 +V(S32):SSV32:S045 ,K$(S)"/"K$ -K$( A27H$""ı- A27J$H$J$:H$"":125 13q N0:O10:Q18:O:Q:J$" / /":M1:11:R(H$):A27ı R0ĴA4735: R12ĖQ:" ";:J$(R):36 NR32 O:Q3:J$" /":M2:11:A2728:S(H$) !S31((R2)R2)(R7.5)(3222:L1(H$)15ČB:13? L221:A32ĭA48A57ČB:13s L321:(H$)1(M3)2A$"/":A3214:B:13 M1ĭ(H$A$)12H$H$A$: A$;:H$H$A$:J$(J$,2):13 A8(H$)J$(H$,1)J$:H$(H$,1,(H$)1):A$;:13 A8ČB:13(H$,F,1)" "H$(H$,F1):7? (H$,1,1)" "H$(H$,2):7E h H$"":G(37)1:K(0)1:I$J$ G:K:C:J$;:G:K A$ A(A$):A13(L2A47)H$H$J$:7: A21A$(J$,1,1):(A$)14:A$" ":14 A96AA32:A$(A) AI#!(175)256(176)46:1726"RESET",99:127a::((39(B$))21));B$;40):::~24:1::C$;40)::1::B:C:1:E$::D12000::G$"":"KYBD",G$:G$""6:E(G$)128:EE32(E96):F(H$):F0H$" "H$"":                 S)H$H$J$:: A21A$(J$,1,1):(A$)17:A$" ":17T A3223:(0)3821_ L:16~ T2ĭA32(A48A57)20 A$;:H$H$A$:J$(J$,2):16 A8(H$)J$(H$,1)J$:H$(H$,1,(H$)1):A$;:16 A820 A20J$"":U:16 # L:1:M::F$::N12000::@ 24::1:G$;40)::1:p H$""ĭ(H$,1)" "H$(H$,1,(H$)1):10v 3::35,19:M:35,24: 23:M: H$"":Q(37)1:R(0)1:I$J$ Q:R:J$;:Q:R A$ A(A$):S(H$):A13(A27$;(175)256(176)46:(4);"MAXFILES4":C6:D1:161P"RESET",99:145hB$(F);" ";C$(F);:E$"":"KYBD",E$:E$""4:J(E$)128:JJ32(J96):K;".";K10);:3:A%(F)0B%(F)ĺ" (!)";:: E%(K(F%.1))1:FK(E%1)F%:`9\ ^Ѹ "^eP^_eQ_ ȱ^8e^^_ , l^ưȭ氩L8ˍ`XvR=<=n ARROW DOWN ESC:BACK";40)::" <-- ARROW UP";40)::XO%(Z1):X1X1nD1X2:1:"-->";:6:J13112oD1X2:5:V$(Z1,X)::O%(Z1)X:pATE"cC$"D"C$"DIVORCE"0dC$"UK"C$""HeM3C$"CAUSE:"C$rfX1(J1W1):V1J1X1W1:V10X1X11gG$(X1)" "C$:V10107hY1(V132):V1V1Y132:V10106iG$(V1)"/"G$jG$(Y1)"/"G$klD15:16368,0m:12785:V1(I$)HZV131((U12)U12)(U17.5)(U17)(U12)ČD:89U[L1L1V1_\L$""]E127:F13:21:W(I$):A2785^W0ı_W100W1900W`WL1(W(L10))W1:aJ1(G$):C$"":J10ıbC$(G$,((J1))1):C$"S"C$"SEPAR:T$;(H%);".DATA,L";J%:193/R:D%(K%)H%:@S"ERR":193gTS11:14:B$"WRONG DISK!":4::79UL10:E121:L$" / /":F11:21:W(I$):A27ıVW0ĴA4792:WW12ĖE1:" ";:L$(W):93XL1W32:U1WYE124:L$" /":F12:21:AFP1:67=L"ERR":D$:T$;(H%);",L150":Q1073:NQ11:72MM5:A%H%ıNS10::D$;"CLOSE":K%K%(CT1):M%K%:CT1D%(K%)A%80OD%K%1:196:J27S11:188P83QH%A%:2::U$;(H%);",D";K%1:T$;(H%);",L150":T$;(H%);".NA,L32"$;(H%);".DATA,R";H:F0:75;BP1:F1P1:"INPUT",A$(F)ACODQ10:76cEI%1O1P1:73}FR$;(H%);",R";H:76GQ1:FP11:O1Q1P1:N0Q11:"INPUT",A$(FN)HIS$:193JD$:R1:K"ERR":D$:T$;(H%);".DATA,L";J%:F68:$)*;L1J1M1:L1K1ĖN1:(G$,J1,K1);:^<X((G$,L1,1)):X32X40J1L1L1L11:60r=J1L1L1J1M1>N1:(G$,J1,L1J1):J1L1(X32):59?19:O10:117:F%0ı@O$P$" "Q$:10:E:"READING ";O$;"'S FILE...":F%0P1G%:68ARG10:C(K)W:501:35,24:22G$(W):K155R3W0D17G$"EARLIEST":57p4W0D19G$"LATEST":575W0D19G$"RECORD DATE":57697:577W0D17G$"LOWEST"8W0D19G$"HIGHEST"9L:D1G1:21:G$;:E::J11:K1(GDATE R:RECORD DATE"+WC(K):B$N$"DEFAULT":D1D12:D1:1:"ENDING ";M$(K);":"::G12:5);"DEFAULT:":50:7:K21,85:A2737,K1W(I$):(C(K)0W0)A72WH1-K2A76W0:C(K)W:48.K2ĭ(C(K)0W0)A82WI1/W0WC(K)01:1:L:D1:"BEGINNING ";M$(K);":";:E121:::G12:8);"DEFAULT:";:50:7:D1:E121:K21,85:A2749 'K1W(I$):(W0B(K)0)A76W1 (K2A69W0:B(K)W )W0WB(K)*G10:B(K)W:50:F$" H:HIGHEST NAME NUMBER":K2F$" L:LATEST (I$)1):A$;:22, A20K2L$"":E:22< !A8ČD:22N "A27I$""ıh #A27L$K$:I$"":21p $22 %192:D15:D1:"ENTER RANGE OF ";M$(K);"S:":D1D12:F$" L:LOWEST NAME NUMBER":K2F$" E:EARLIEST DATE"g &WB(K):B$N$"DEFAULT":DG$C$:4 A21A$(L$,1,1):(A$)23:A$" ":23A A3231^ A32ĭA48A57ČD:22 K230:(I$)1(F13)2A$"/":A3223:D:22 F11ĭ(I$A$)12I$I$A$: A$;:I$I$A$:L$(L$,2):22 A8(I$)L$(I$,1)L$:I$(I$,1,J$(U)J$(V)YT:TQ:SU :4 "GARB",A1,500:N N1B1:C1C11:::v I$"":W0:K$L$:D1:E1:E:L$;:E1~ A$ A(A$):AA(A96)32:A13(K2A47)I$I$L$: (K1((D17A76)(D19A72)))(K2((D17A69)(D19(A76A82))))L:B$;40)::1:* G$A$(M):(G$)0ıQ F(G$):N(((G$))):FNH$"":p H$(G$,FN):H$"-"H$""v O0:(A$(M))1000O1  PI20:P1P1 QI20:QRQR S0:TPQ:A(T,1)A(I,1)UA(T,2):C%(V)E%(U)C%(U)E%(V)B*B6:C1:188>(175)256(176)46:"RESET",99:177H:10kD::1:L:B$::F12000::A%(G(B%.1))1:HG(A%1)B%:C$"":"KYBD",C$:C$""6:J(C$)128:JJ32(J96)::22:1:E$(K);40)::F$;40): 24::1:             1,3);" (";M$(H1,4);")":J12ĭR55Q66R:10:R0:Q6:12iMJ11ĭ((37)1)22H1G1İ10::O27H1G1N:J12ĺ(4);"PR#0":L:LOPF10ıQL:E$"SORTING NAMES":11:G1184RK%(0)2:K%(1)2:K%(2)1:X0:G1255(G1255)X1S"SO:10:O27ıI:C$" ESC:STOP":9:"PRINTING...":13:34,12:35,17:D$:D$;"PR#1":R0:Q4:12:20);"THE "O$" FAMILY NAMES -- RECORD DATE: ";P$:RR1:Q1:12J16368,0:H11G1:(M$(H1,4))078KJ12RR1:10);9LM$(H1,1);" ";M$(H1,2);M$(HD$:I$;".NA,L32":DF171EF10:E$"READING NAMES":11:JBE:62:"GARB",I1,500:I10I1100C$"NO MEMORY LEFT FOR MORE NAMES!":7::JEF:F11:80G136:J11C$N$"CONTINUE":9:34,4:35,23:5:74 HC$N$"PRINT":9:"TURN PRINTER ON." ;I%A%;<G1EB1:Fį"DEL",M$(0):"GARB":M$(G11,4)A=N>34:66`?H1K:D1H1J@G$;(E%);".NA,R";K:"INPUT",M$(H1,1):"INPUT",B$:3:M$(H1,2)(B$,1,H1):M$(H1,3)(B$,H):J%:M$(H1,4)(J(J%0)):138AD$:B"ERR":138C "::"(ENTER RETURN FOR ALL DISKS)":10:28:"";B$:B$""F1(D11):D1161:D11:60c7A%(B$)8D10:JC1:6:A%1A%B%C$"FILE DISK # "(A%)" DOES NOT EXIST!":7:F053:529H%1:B(A%1)C%1:EBC%1:EC1EC1:F10:FI%A%F11:0Z(O21)(O10)(O8)(O11):Z043K1YX2:1:3);:XXZ:XA1X1Y2X1XA1a3444B1:EC1:F056:C1C%ĴD1161:D11:A%1:605D$::10:Fĺ"ENTER FILE DISK # TO TRANSFER: ";:"";B$:55V6D$::10:"ENTER FILE DISK # TO SORT:A1::5:I$(X)::21:X1::"SELECT OPTION WITH ARROW & PRESS RETURN":" --> ARROW DOWN";7);"ESC:BACK";40)::" <-- ARROW UP";7);"SPACE:NEW DISK #";40): ,YX2:1:"-->";:10:O1346 -YX2:5:I$(X):: .O27ġ:130 /O32İ52:42'%:CVD%(F%)B%374 $D%F%1:142:O27U1:131= %40y &E%B%::L$;(E%);",D";F%1:I$;(E%);H$(S);J$(S):138 'D%(F%)E%:F011: ("ERR":138 )U1:C$"WRONG DISK!":14:W:8:36 *Y5 +:136:5:"WHICH DISPLAY OPTION:":6:X1:S6F$",R"(K)X 1:K$;(E%);H$(S);F$:S1ĺA$(K,1):A$(K,2):A(K,1):A(K,2):33i S6TA(K){ T:T0S5ı I1T:S6ĺA$(I):A(I,0):A(I,1):A(I,2):32 A$(K,I) ! "6:B%E%ı #U0::D$;"CLOSE":F%F%(CV):G%FT:S6A(K)T:S4A(K)A(K)8:T8a I1T:S6į"INPUT",A$(I):A(I,0):A(I,1):A(I,2):20v "INPUT",A$(K,I)|  138 D$: "ERR":138 D$:5:I$;(E%);H$(S);J$(S):I021:PI:IT:S620:A(K)T:20 6:I0:138 F$""N:> B$"":"KYBD",B$:B$""10:O(B$)128:OO32(O96):R :10::E$::i P1Q:RR1:::v 34:23 F$"":S6F$",R"(K) I0:1:G$;(E%);H$(S);F$:S1į"INPUT",A$(K,1):"INPUT",A$(K,2):A(K,1):A(K,2):21 S6TA(K)& )(175)256(176)46:A6:C1:131L"RESET",99:F(222):A%F:115G(B$):HG1:G05:IG11:(B$,I,1)","HI:I1B%(J(C%.1))1:KJ(B%1)C%::10L::C$::M12000:: 24::1:C$;40)::1:10:         e^^_ , l^ưȭ氩L8ˍ` ` oȱ^p\̖Njʘݖ.,/-8e^,_i-e^^__`^_:ʽe^^e__l^" ަư8^_氠^LQ^P^i^_^Ѹ "^eP^_eQ_ ȱ^8^h^stopjmn+U^_ xBRij^_ nBkl?в^_^ȱ^^eȱ^e(ي0ȱ^ ie^^_ xBŔnпmлзj+;*8o勅oȑppȑoм( h c`^0vȱ^qȱ^lȱ^_$J0 ^ЫK`  +._.^. LDELARRAY DELETE.RM , ,E?>@?A@e:BAe;C \.E*0* 1A;!@:8@:@A;AEƥ@D>i>?i?8<>=?L, e&.'i/.)*ȱ.IiՅJ)+ (.Q.0.уȱ.у```0./ ꥃL8. K"ȱ.^ȱ.1-ȱ.ȱ/ g RDE$1 Ю ީ КД g RG.ІF/GEFD$1 ީ I0 &ŔÄ'ĕнеȱаȱ+-&Пȱ&8+hh8FD:GE;:i:;i;F;f:;`8F:M%(R)0ıK?5::K$;(H%);".LOC,R";R:66\@M%(R):223fAD$:wB"ERR":223CD$:L$;(H%);".LOC,L4":DD$:N$;(H%);".LOC,R";R:M%(R):D$:E77:K$;(H%);".PLACE":K10:74FK1:K1K1:"INPUT",A$N%(H1)&7D%J%1:226:S27V1:207/8599H%B%:5:M$;(H%);",D";J%1:L$;(H%);".NA,L32":L$;(H%);".LOC,L4":L$;(H%);".DATA,L";I%:L$;(H%);".PLACE":69:223:P1:BD(1):24:I11:J10:D%(J%)H%:;"ERR":223<61:55=V1:14:01"ERR":22372D$:L$;(H%);".DATA,L";I%:H312:B%H%ıX4V0:E1İ765:D$;"CLOSE":J%J%(CF1):K%J%:CF1D%(J%)B%566:"DEL",M%(0),G$(0),H$(0),G%(0),A$(0),A%(0),N%(0):G1(0):M%(H1),G$(H1),H$(H1),G%(H1),A$(H1),A%(H1,2),37<(1N,O:NNX(1(F1)9):OOS(1(F1)9):N276N3K)N3N276Z*O3O188i+O188O3x,1N,O:37-J$"":120:G%(R)1ı.K$;(H%);".DATA,R";R:49/D1:"INPUT",B$:"INPUT",B$:"INPUT",B$:"INPUT",B$:"INPUT",J$:D$:223                    ((((((((((((((((((((((((((((((((PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP      (08@HPX`hpx (08@HPX`hpx (08@HPX`hpx (08@HPX`hpx (08@HPX`hpx (08@HPX`hpx (08@HPX`hpx (08@HPX`hpx (08@HPX`hpx ō LQ^P^i^_^Ѹ "^eP^_eQ_ ȱ^8e^^_ , l^ưȭ氩L8ˍ`}9ˍ`}9_ ȱ^8e^^_ , l^ưȭ氩L8ˍ`}9oȑppȑoм( h c`^0vȱ^qȱ^lȱ^oȱ^p\̖Njʘݖ.,/-8e^,_i-e^^__`^_:ʽe^^e__l^" ަư8^_氠^pnPQ hhLc X^i_ir^^i \^Hȑ^^h^stopjmn+U^_ 2Rij^_ 2kl?в^_^ȱ^^eȱ^e(ي0ȱ^ ie^^_ 2Ŕnпmлзj+;*8oB:10::"LOADING LOCATIONS"::HBE:120:G%(R)0140:5:62~M%(R)0M%(R)K1140:45:J$""J$"-"M%(R)1:139K1138U1(J$):U12ĭ(J$,1)"."J$(J$,U11)P$""P$J$M%(R)L:139L1:P$J$"SRCH",A$(L),J$,V1:1)A1O1Q1tO1Q1O1H,uO11O1Q1=vMB1O1:97KwI1O1:97`x51:G$(R)""ıjy124z5:K$;(H%);".NA,R";R:"INPUT",G$(R):"INPUT",H$(R):G%(R):D$:223{|"ERR":223}L$;(H%);".NA,L32,S";T1;",D";F1:123~J1ı);G$(R);" ";H$(R)::B1H:&kHN0:J2lS27ıGmMĭS35İ34:94]nMS82İ430:94oZ(S21)(S10)(S8)(S11):Z0114:N1H:1:3);:HHZ:H1HS1pHS1H1q104rZ(S78)(S66):Z0105 sO1D(H):O1O1ZP%:O1Q1(R1P%R1S11:5:Mİ120:5:H;".";H10);G$(R);" ";H$(R);?fMİ4g::HO1:N14:20:P11Ė26:(E%P%)(B%1)MP;" OF ";P1;" PAGES";hN1H:1:"-->";i8:S13108:N0H:HD(H):MĢN1N0::5:4::I1H:j120:G%(R)ĢN1N0::5:H;".";H10 (!):NOT LOCATED";(`40)::16368,0Va28:MHB1:C%H%:120:H%C%94:HR:99hbHI1:H0H1cS0:P(H(P%.1)):O1HPP%:PP1:P1(Q1P%):P1P1(P1Q1P%):R1D(1):S1P%:R1S1Q1S1Q1R11dMāHR1R1S11:120:4eN14:5:HR13);:XXZ:XE(M1)X1(\X1XE(M1)0]87N^H%097:222:4:O$(M,0)_21::"SELECT "O$(M,1);" WITH ARROW & PRESS RETURN";40)::" --> ARROW DOWN";7);"N:NEXT PAGE";40)::" <-- ARROW UP";9);"B:BACK PAGE";40)::" ";I$;:Mĺ" R:RESPELL ESS RETURN":" --> ARROW DOWN";7);I$;40)::" <-- ARROW UP";40):WN1X2(M1X4):1:"-->";:8:S13ĢN1X2(M1X4):5::L$(M1,X)::O%(M1)X:XS27M1ıYS27ġ:205ZZ(S21)(S10)(S8)(S11):Z092[N1X2(M1X4):1:澀쌾༆怘츆涞怜怀怀漀澆ྀ츀漘漘怀ༀ𸸞怾澀憆漀澀怼漀涞怆怼漀澆澞怼憼漀漀漘漘漘ఘ怀ఘఘ漀ฌస漀漀漀ఘ漀ఞఘ氘    :969,1:973,PQ%:974,DT%3 (X(8176)129:975,X= -1002 I768791:A:I,A:: 201,225,144,17,201,251,176,13,72,165,50,201,63,208,5,104,24,105,224,72,104,76,240,253:54,0:55,3:1002 D$;"RUN MENU2" 64166c W 4000)(104)16(103)14612X104,16:103,146:4241,0:(4);"RUN FPSS2"d D$(4)~D$"BLOAD W-$800(89)"D$"BLOAD D-$88C(398)"D$"BLOAD H-$C90(400)"230,324,144:5,8:6,1:7,1 #PQ%15:DT%255:II967972:II,0: :PREVIOUS NAME":29:D$:10:"GO TO NAME # ";B$:B1(B$):B11B1A1B1D(H)S#p$F1:NB(T):OC(T):1N,O%8:ZS:X(Z21)(Z8):S(Z47)(Z10)(Z13)(Z11):Z27Z32Z63Z87(C14(Z88Z67))ĕ1N,O:30:&Z31Z47FF'(XS)0:G$(R);" ";H$(R);"'S FILE"::V0:229:E 4::35,19:Y:35,24:f 24:1::F$;40)::10:1:z B(T)N:C(T)O: 16297,0:16302,0:16304,0:16300,0:4,144:5,8:6,1:7,1:54,0:55,8:1002: !54,0:55,3:1002:M":F$" RETURNRR":32:223 V1:16< 1:J::Y:F$::K12000::T EBE%1:EA1EA1Z  :32::10:A$(L)::"HAS NOT BEEN IDENTIFIED ON THE MAP."::"USE THE 'IDENTIFY PLACES ON MAP' OPTION!"::V0:229:) :10:"NO LOCATION WAS ENTERED INTO":B%(H(E%.1))1:RH(B%1)E%:4 TUT1T2ıD F%(T)019V D%(C1)017x D%C:B%0:226:S27V1:207 21 :D$;"BLOAD";E$(T);"/PK,A";A(T);",D";C:F%(T)1 223 3T1:W(A(T)256):G1,A(T)W256:G5,W:G:UT: "E$"":"KYBD",B$:B$""8:S(B$)128:SS32(S96): " --> RIGHT <-- LEFT RETURN UP (ARROW UP) / DOWN (ARROW DOWN) OTHER KEYS:SLOW/FAST TOGGLE":: :31:24:1:40):1:(C$,1,32); 24:33:"?:HELP";:1::! Y PLACES ON MAP"  2,1,WHICH MAP,NORTH AMERICA,WORLD, "CHOOSE PLACE TO IDENTIFY/CHANGE ON MAP:",PLACE,"CHOOSE NAME TO LOCATE ON MAP:",NAME:191 A$(H);:A%(H,0)0ĺ" (!)";  J:K110:7:: 1N,O:2N,O:Q:1N,O:2N,O:Q:4 Bn,A6:C1:207 (175)256(176)46:"SPLIT",0:"SPLIT",1:(4);"MAXFILES 5":"RESET",99:D(116)256(115):GD4900:G1: 4,1,LOCATE FAMILY MEMBERS ON MAP,SHOW FAMILY DISTRIBUTION,LOCATE FAMILY MEMBER BY NAME,LOCATE FAMILY BY PLACE, "IDENTIF   ! ! ! ! ! !!!!!!!!!" " " " """ws|gc00`@}@`ppx~??Asa@@X|~><@|x@@`ppxppp`p`pxx|~~x@``x~ 7o|}|<0`@@@```@@@@,<?>W@`ppx||x|xp```00`px<>?yyq|?Gg@@`@``Aq?gfpxpxqscxxpl@px ??AcgoOGcs33CCs| appp``q@px|~??? ~{\Lpx8<gp8Yay0Gccqpx|||sqp ?|??P??6??~~~ndpH??  >;@@`@``pp@px|||~ }|~x8?!`s^??`p||p||xpp`<@px|~~|~x <? ?`px~8<||> ?~|`_2?8`p8< ~|880_~|pp`@e@``ppxppxx||~~!?``@?~x@@@``@@@~@@``@@@`|p?xxx||~x0?~xp``||~~xxp<||y} `p|~~~|x||p`@xpxp >?`?-y00;}xx|~ ~f` ??@088A@!fO~|~~p|xp@qp{`aA ???q`px8Gapx8 Nn~?)~[`@<4w@ Xx||~~*?@???*80px||~~88pp` @@N_ ||~y|~|}}|L@| ~~??~{nl@&  pp` @`ysa`@|Ppx>8`80& Z? ~||xp~|p``p08<<@@`ccaaiowo>?R@p`px|~~~|plxp ``?YA?``@m<?>8     X1İ636:Z271544Z87U0:X10:W11:147HZ63İ211:149xZ32A%(L,0)T:A%(L,1)N:A%(L,2)O:E11:6Z88Z67A%(L,0)0:E11:N%(L)0Z67145:143126M11:W11:84:S27ıTX:13)HBE:12:LM%(R):L1LKLK1:M%(R)L68!:J11:1126:K1ı?M0:Q1K1T94:W11:S27ı~LH:X11:A%(L,0)A%(L,1)A%(L,2)146M11:W11:84:S27142:TX:X10:147TA%(L,0):NA%(L,1):OA%(L,2):30:13:W1C$"LOCATING "A$(L):10:W10V1į"SRCH",J$,A$(L),V1%V10137@A$(L)J$M%(R)L:1398:1:Y:"IS THE LOCATION: ";J$;" THE SAME PLACE AS THE LOCATION:"::" ";A$(L)::" (Y/N)?":8:S78S89136:S89M%(R)L:139LL1:LK1133 K1K11:A$(K1)J$:E11:G     x``>lX0`@`p^Ommff31  @``p x@`@ x@``000`x  p0`@@@`00XxxFCAcfffc`x~gccCCAAA"@Gf}`x[@@`@|sCnlXp`@`?pp@<`Cp 8000>70`|@@``008 000``@@ @`p~ | 08 0 @``00 A @`00 p xG@`7]`? 0@@`000@``0   xC?8m03x @pg0C@` 0@`p00 @@`0 ~x|p< ~&`p0`{Cq? @``000 @@@``000 Cc110a8  | @p8~c`00   8pp x 0 @p300 @@`00x@`0 0008 (`p8 ~G~C@0p0``@``0 8000p @|G0`  0`@0p```00 @`?x#N  ~  @`8800p0`@p>3 0`@`00`@p`0 8`@@yo ```p0008q&| @`0   x@` x008 p~F 6cCfc@A<`@sx @`00@pa x0`@@`@pp``?s x0x 0``@@pLpx 8`w< `083a@x"pp00```@`@@@p|`A<` x 8`@8`A 9a;C`003>x` @p@``00`~GC@8``? xp?0 p0`@~|@@`p?`0 30`@@p 8`@@`?~_p 0` @ALx?x V`?x`p@``0   00`@`?pg<~|0aC^p@  $|`@`p8 p@`8 @ 0`aaa s~Cp@@`p0  <`@@`00`@`0`@@Cn8oxQ|lm?@Ag}qq\  0`A 9c0`@pxlfx`@@@`0```<x+    6?1acca0pXxxX\LLl|`@00```@`00`@)p@x@ 1``@?`@`p<^n?]ll``@@`? 9cnx@V ~>8lGp 0k 0aacsx@ >c%CO|h8lFCCF `xn `08801113o|g@@` 0 p`l1`@`03>8?0``@@A8`@p|xX p@@x @|p@ x@`8`        $;" FAMILY MAP";40)::" RECORD DATE:";R$;28);"FILE DISK:";B%;40):::,"ERR":54915::32::D$;"PR#0"::F2(222):F299F2255202,J:10:"ERROR!":F29ĺ:"DISK FULL.",V0::229:202-J::9::"INSERT ";:B%0ĺ"MASTER DISK B":2NAME"2+"W -- WIPE OUT PLACE MARKERS":C13ĺf+"ESC -- ";:C11C13ĺ"BACK TO MAP MENU":221+"BACK TO LIST OF ";:C12ĺ"NAMES":221+"PLACES"+F$" RETURN:CONTINUE":29:8:31:J,:32:::U1(Q$)15:L%(39U1)21:L%);"THE ";QE."%*C14ĺ"TO LOCATE ";A$(L);"."*:"PRESS SPACE BAR WHEN LOCATION IS FOUND."::C13ĺ"YOU WILL THEN BE GIVEN A LIST OF ALL FAMILY MEMBERS LIVING NEAR THAT PLACE. "+C14ĺ"X -- TAKE ";A$(L);" OFF MAP C -- CHANGE MAP R -- RESPELL PLACE UNTRY WHERE FAMILY MEMBERS ARE LOCATED. P -- PRINT MAP ":217)C12ĺ"THE BLINKING SQUARE INDICATES WHERE ON THE MAP THE SELECTED NAME IS OR WAS LOCATED. ":217*9:"USE ABOVE COMMANDS TO MOVE CROSS-HAIR":C13ĺ"TO LOCATE FAMILY MEMBERS BY PLACF(HB1:12:968,B%1:969,R:970,D%(F11):HA1:12:971,B%1:972,R[(D:::T$:209q(D%(C1)0V210(V0:D%C:B%0:226(:D$;"RUN MENU2,D";C@)222:::" HELP ":::L$(0,C1);":"::C11ĺ"THE SOLID SQUARES INDICATE PARTS OF THE CO1:O$(K,0):O$(K,1):r'E$(1)"USA":E$(2)"WORLD":A(1)G300:A(2)G3210:A10201:H1:51:K$;(H%)".NA,R0,B1"|'199'A1'207'A1ČJ:207'24:HB1:12'223'M10:84:C1X:W11:C1155,168,180,141'203(V0::E1İ76(B21):B1F(968):A1F(971):D%(F11)(970):B11B1A1B11'B(E2)E242:C(N1)N184:G(N)((N2)4):H(O)((O4)8):L$(1,4),B(2),C(2):I12:B(I)130:C(I)80::M101:E(M1):O%(M1):I0E(M1):L$(M1,I):::O$(1,1),E$(2),A(2),F%(2):K0:233,X:1:0%L$D$"OPEN"Q$:K$D$"READ"Q$:N$D$"WRITE"Q$:T$D$"CLOSE":M$D$"VERIFY"Q$:T$:J%(F11):H1E%:M%(H1),G$(H1),H$(H1),G%(H1),A$(H1),A%(H1,2),N%(H1):F(B2)(B2)E%(B21):B1F(968):A1F(971):D%(F11)(970)>&F(B2)(B2)E%856:Z1440:A21002:(975)J380 %E%(974):P%(973):I%200:Q%5:I$"ESC:BACK":3:D(B2)((B%1)E%)M(P1)P%B2::D$;"OPEN NAMEDATE":D$;"READ NAMEDATE":"INPUT",Q$:C2:C:A:F1:T1:R$:D$;"BLOAD EXPAND2,A";G:D2G200:X(D2256):232,D2X256N":::29:35,23:6:HBE:12:LM%(R):L1LK1189:A%(L,0)T189#(A%(L,1)N)12(A%(L,2)O)10N1(37)1:120:N1:1:G$(R);" ";H$(R);21);A$(L):Y11#Y1N120İ8:6:Y:Y10:S27HE#:Y1İ8#31:183"$D$(4):Y958:J1052:QбS63İ211("S87U0:W11:11:1731"175K"M11:W11:84:S27ı}"C$L$(0,3):TX:F$" "I$" RETURN:CONTINUE""13:W11İ10:W10"36:Z27180"Z87U0:W11:182"Z63İ211:182E#:32:126:222::" NAME";:21:"LOCATIO(!62:LM%(R):L0N0H:127:HN0:170?!L1LK1İ27:169W!A%(L,0)0İ26:169!TA%(L,0):13:W1C$G$(R)" "H$(R)" -- "A$(L):C$(C$,1,37):10:W10!NA%(L,1):OA%(L,2):30!S$"":7:"KYBD",S$:S$""175!S(S$)128:S27168 "TURN:PRINT":10:"TURN ON PRINTER.":29:8Q 31:S27162:24:33:40):1:33 :D$;"PR#1":10);"THE "Q$" FAMILY -- RECORD DATE: ";R$:" G":D$;"PR#0":J:J:W11:10:162 C$"PICK FAMILY MEMBER TO PLACE ON MAP:":M1:Q1A1 94:W11:S27ı1161:A%(L,0)0N%(L)0İ26:N%(L)1:161=TA%(L,0)161NA%(L,1):OA%(L,2):A%(L,0)0N0O0İ31:3(T1):3N,O:3(T2):4N,O:C$L$(0,1):108:S27156S87U0:13:10:162S63211* S80162:222:F$" "I$" RE҆фЦɍ_%2eH eI%Ӣ Թd eդ$xԑӤ$!$eL$$!$%%#%Ѥ`:!1:F$;40)::1:% G$"":16368,0Z "KYBD",G$:G$""10:R(G$)128:RR32(R96):v 4::35,19:T:35,24: F0:U1W:EB%(U)FU:UW : V0:G$(X):U1Y:G$B$(U)VU:UY : ZZ1:(H$,Z,1)" "H$(H$,1,Z1): Z"",LABEL,2,"CHOOSE SIZE OF GENOGRAM TO PRINT:",SMALL,LARGE,SIZE:235p 124:5:E;".";E10);C$(F);" ";E$(F): E(E):G(A$(F,2)):21: E%(E(F%.1))1:HE(E%1)F%:G%2(D%(0)E%)2(D%(1)E%): M:1:N::F$::O12000:: 24::8A6:C1:262(175)256(176)46:"SPLIT",0:"SPLIT",1:M,F,NAME,SEX (M OR F),DATE OF BIRTH,DATE OF DEATH,OCCUPATION,LOCATION(CITY),COMMENTD  3,"SELECT LABEL TO BE PLACED BY EACH FIGURE ON THE GENOGRAM:",AGE(DEATH DATE IF DECEASED),"","""                            | o XQTB8 ɀ  ԠˠƠԠϠӠԠ Ї" hLc۠DELARRAY DELETE.RM , ,