' +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&163h&F%0:D%D1:165::E27147:F11:153&::F(R$)17:H%(39F)21:P1C(971):U1C(968):H%);"THE ";R$;" FAMILY ALBUM";40):::'" RECORD DATE:";A1$;26):P1U1U1P1F%(968)ȕ9:47:G1W:G1139,141,134,77,132,74,663%149k%:O$"":D1$"A":C11(W4W7)O$"2":D1$"B":157%D1J1B%J1N10:157%N10:157%F1ĺL$;"NAMEDATE,S"H1",D";D1:W$;"NAMEDATE":R$:S1:D1:H1:J1:I1:A1$&C11W7Ĺ222,0:M1Ĺ22$(I,J)::$C1$(1,7): REGISTRY,INFO,ADDRESS,GENO,HISTORY,ANNIVERSARY,CHART,FAM MAP,ADDRESS,ALPHA:I01:J1A(I):C1$(I,J)::$163$34,0:35,24:159::160:::5:"WOULD YOU LIKE TO:":7::" MAIN OPTIONS: ":13:" OTHER OPTIONS:":*%APS,FAMILY ADDRESS BOOK,FAMILY NAMES (ALPHABETICAL LISTING) $ 5,INITIALIZE DISK FOR FAMILY FILES,DELETE FAMILY FILES FROM DISK,TRANSFER FAMILY FILES,ANCESTRAL CHART PRINT CHARACTER,RESET NUMBER OF NAMES, 2,VERTICAL BAR,SLASH:I03:A(I):J1A(I):MCHANGE # OF DISK DRIVES:X7:L$(X):D1X:L$(D)::B11:D1J1B12;#M$(3,7),A(3): 3,REGISTRY (NAMES AND RELATIONSHIPS),FAMILY INFORMATION,FAMILY ADDRESSES, 7,FAMILY GENOGRAMS (COMPREHENSIVE),FAMILY HISTORY,ANNIVERSARIES,ANCESTRAL CHARTS,FAMILY M:5:1:"WHICH WOULD YOU LIKE TO SEE:":5:C11:54:E27147L!222,2:151D" 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,7);L$(G1);40)::160::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:151`T$;F$;(F%);".DATA"Ga99_bT$;F$;(F%);".LOC"ic101dT$;F$;(F%);".PLACE"e103fT$;F$;(F%);".ADD"g163h117:D1O1:U$(D)F$"."(F%)U$(D)"":W1i:W0110j108k1$:C1$"":V2(H$):V2(H$)0H$"-"B1$H$:HV2B1$" / /":D1$(H$,((V2))1):X2(V2O2):W2V2X2O2:C1$(X2(W20)):W2149Z2(W232):W2W2Z232:XZ2:151:E1$P$:W2149XW2:151:F1$P$B1$E1$"/"F1$"/"C1$:D1$2BU:W5:"/";:J$(B1$,7):K13:38:V2(I$):A27132:C1$I$UV20I$"-":Q9ĢU:W11:"S OR D":20:Y27132:Y68Y83142:D1$(Y):U:W11:H:D1$V2V2(V2100)1900:V2M2(V2(M20))O2:I$(V2)D1$:0D1$"":E1$" ":F1$EH$:*(I$)ĭI$"-"((I$)65A47)ıFV20ĖW:" / ";:140s(I$)12V20:M20:145:B1$B1$I$:140M2V232U:W2:"/";:J$(B1$,4):K12:38:A27132:W2(I$)W231((V22)V22)(V27.5)(V27)(V22)ČV:137M2M2WTARTING NEW ";A1$;" FILE DISK? (Y/N)":20:130Y89ĺD$;"OPENFILES,D";D2:D$;"APPEND FILES":D$;"WRITE FILES":A1$;".";F%:Y$379"ERR":Y0:128144:M20:W(0)1:18U:W:C1:J$B1$:K11:38:V2(I$):A27(A13L10)I$W$;(K%);",L150,D";N%1:W$;(K%);".NA,L32":379HxU22ČP1:R1:1myD%(N%)K%āG1H%:A%(G,N%)0:}zD%(N%)K%:{"ERR":379|(R1MO)O0İ126:Y89119}U6:H0W:W1:K$"WRONG DISK!":C1:16:T21::WH0:1150~U6:1:C1:"S:E%(N):D$:o14:F%K%ıHpT20:M%1:U16āG16:J2:UU1::Uq4::Y$:N%N%(FD2):I%N%:FD2D%(N%)F%117rU2ė:U9sU1:D%N%1:382:Y27T22Oİ17:T22:115tT21:Y27364u123vK%F%:5:Z$;(K%);",D";N%13w:XQ2X1i111:4::X$;(K%);",R";R:E20:Q21:E2((Q21))E21:G2Q2:E2E2(A$(N,G))1:E2150A$(N,G)"":K$"DATA NOT SAVED":16:107jA$(N,G)k:A(N)0lF$(N)""ımD$:111:5:X$;(K%);".NA,R";R:R0ı nF$(N):G$(N):G%(N)`D(D)((D)1):UD:H21:9aU$:P2:111:Q20:102b5:V$;(K%);",R";R:A$(N,1)E$((G%(N))):Q2:G2Q21:"INPUT",A$(N,G)cd379eD$:f"ERR":379gD$:5:W$;(K%);",L150":Q20100:R2Q21:99 hY3:ZF1:P$"":30:Q2F1I$"-"6Y(I$,1)"-"(I$)0I$"-":U:W:I$;:C1\ZH$I$A(K2)A(K2)1:A$(K2,T)I${[:TT1:L20:J$""::36:\Y1:ZF1:P$(X):30:TX:]M2(XO2):M2M2(M2XO2):M21901P$(M2):^P$((M2),2):_H20:2054:(71)160ıPU$:(UD):F22842QG2W1Ĺ9,F2E21:95KR9,F21:95:H2084fS9,F22:95:H2084:|T9,F2:L$;:1::UUU1:U22U22:J2VH$A$(K2,T):U:1::C1:Q$(Q);:L20ĺ" ";L2;W14):15:B1152,131,152:K10:A2791XI$""H7XW1,U17IC20:E%(N)176:D1:217:L$F$(N)lJI$L$:R$" ":B(I$):24:S1L$(L$,1,S1):74tK77LD2(Z112):L$"("((M))")":77:ME2(L$):E20ıNL$(L$,1,Z12):WW14:UU18:F2WE22:F21F21OF2E270F270E2氠^LQ^P^i^_^Ѹ "^eP^_eQ_ ȱ^8e^^_ , l^ưȭ氩L8ˍ`eưȭ氩L8ˍ`Eh`P :LgKYBDKYBD.RM , ,0 `, $Lԅ !  = {ڭ !`JERRERR.RMhhߚHH 0:, jݪ + , ޥۤ jݪ +`^_:ʽe^^e__l^" ަư8^_STORE AMPERSAND.RMưȱ`?RESETRESET ONERR.RM^_<= 抠&<<i"=iLo cLԧMSSGERR MSSG.RM ڦ  ieީ LԅiɨLх  Q ( L``H \IVE # ";D%:C(:"PRESS RETURN TO CONTINUE":N1ĺ"ESC:BACK";25)N(6::X(163k((222)8163(:10:"THE DISK IN DRIVE ";J1::"IS PROBABLY NOT INITIALIZED."::"USE UTILITIES TO INITIALIZE."::168:W1:113(:(4);"PR#6"+AMPRE1:" FILE DISK:";F%;:1620'"MASTER DISK A";@'40):::x'"ERR":54915::::D$:V1(222):V199V1255147'B:10:"ERROR!"::N10:168:147'B::10:"INSERT ";:F%0ĺ"MASTER DISK ";D1$:167'F$;" FILES DISK # ";F% (:"IN DR:I(1)K3:Q3K3:K2N:T4:O1B(N):R3C(N):"DELETE",F(0),E(0),B(0),J(0),K(0),C(0):36:G1150020O1(R3R3O1)5İ368,F(2),E(2,30,1),B(O1),J(O1),K(O1),C(O1,R3):O10250:I1O1-TT1:188:B(I)M:TT1:J(I)(A$(N,T)):TT1:C(I,0)(A$(N,T)):C(IL)30F(L)30+Y+M0:P0:L(H30H39)1(H38H317)2(H316H325)31:L0L1}+(E(L,P,0)I3)J3ME(L,P,1):+PP1:PF(L)ı+239v,:Q1:R1:U21::K3E11:L30:M30:J01:G(J)0:H(J)1::G20:N31:O10:O30:P30:M(K3):228":"THE ";A1$;" FAMILY NAMES -- RECORD DATE: "H1$::D$;"PR#0":B(K%1)H%1:E1B:EBH%1:EOEO*MBE:11:D$;"PR#1":(37)12Ģ13:*4:D$;"PR#0":"KYBD",I1$:I1$(155)ME*:V:V* +E(L,F(L),0)W14:E(L,F(L),1)M:F(L)F(L)1:F(R":379,)D$:5:W$;(K%);".NA,L32":224D)217:A$(N,0)""ıp)A$(N,0)(M1):E%(N)0G%(N)097:)378:M$N$O$"PRINT":19:10:"TURN ON PRINTER.":20:Y27235c*M$" ESC:STOP":19:10:"PRINTING... ":13:34,12:35,17:D$;"PR#1$(14:I%2NA%(R,I%):MB%(N)ı5(M%İ27:NıM(G3G31:G3D1G31}(NG3:N1M:NK2220:32:MN1:B%(N)M:MOı(111:A%(R,N%)N:226(5::5:V$;(K%);".NA,R";R:"INPUT",F$(N):"INPUT",G$(N):G%(N):E%(N):D$(379()"ERE1D(M):E1E1ZP%:E1O(B3P%1)OE1O;'E1OE1MJ'E11E1OS'191_'E30ı'E30āGF3F1E3:A$(K2,G)A$(K2,GE3):A$(K2,GE3)""::'F1E3F31ı'GF1F31E31:A$(K2,G)A$(K2,GE3):A$(K2,GE3)""::(M1MON0:89&Y63D31:369:189}&Y35ė:M$" RETURN:PREVIOUS NAME":19:10:"GO TO NAME # ";P$:X(P$):X1XO189:E1X:189&Z(Y21)(Y10)(Y8)(Y11):Z0208&UM:1:3);:MMZ:MC3M1&M1MC3&195&Z(Y78)(Y66):Z0196,'B3C31:3::MM2:MC3MC3U%19:A31Ė26:(H%P%)(F%1)P;" OF ";A3;" PAGES";i%UM:1:"-->";%20:Y13198:N0M:MD(M):217:G%(N)ĢUN0::3::%MN0:V%Y27ġ:362%Y43İ182:189:189%Y45İ184:189&Y80İ230:16);"-:DELETE NAME ":N$;" ?:HELP P:PRINT NAMES ";::16368,0$U21:29:ME1:C%F%:217:C%F%189:P(R(P%.1)):M2RPP%:PP1:O%O$A3(OP%):A3A3(A3OP%):B3D(1):C3P%:B3C3OC3OB31%M%0:MB3B3C31:217::M%1:4:MB3T))((A$(N,T),1)"*").5:h#U3:34,0:35,24:F%0191:378:36:3:"ENTER NAMES AND RELATIONSHIPS:"E$20::" SELECT NAME WITH ARROW & PRESS RETURN ":" --> ARROW DOWN";26);"N:NEXT PAGE ":" <-- ARROW UP"26);"B:BACK PAGE ":" +:ADD NAME";210:U10:B11:" NAME";14)::C1:15:T1:152:E1M:OO%:":10:MD(M):11:"DELETING ";::J$:::"ARE YOU SURE? (Y/N)":20:Y89187"O1O0:T21:363"217:34:F$(N)" ":109:MOOO1:MO:217:G%(N)0185"E1M:#M(A$(N,77):X101775!MO1:220:OM:G%(N)X11:E%(N)0!WM1:U:C1:6:F$(N)F$:G$(N)G$:I$(M1)G1$:108:14:I%2A%(R,I%)N!OO%181:O%O!!U20:378:MD(M):217:G%(N)0O1OM1:8:"ENTER NEW NAME FOR # ";M;"Q0:X10:H$""::RCH FOR NAME? (Y/N)":22:Y27155:Y89177A N2O:OO%OO%q N0M:M1O:217:F$F$(N)G$G$(N)SM:MO :MN0:ON2:SMS177 U1:J$(S):K$"NAME FOUND AS # "J$:16:M0:156!X1K$"(M)ALE (F)EMALE ":22:Y27155:X1(Y70)2(YSB169[K$"USE FIRST AND LAST NAME":U1:16:U:J$"":WM1:40:A27165:J$I$:156G$(I$,M1S):I$(I$,S1):8:F$I$:T$G$Y0:MTK$"A DIFFERENT PERSON? (Y/N)":22:Y27155:Y78Y89170T0Y78İ217:179- S0:B1:K$"SEA:156-(I$)ĭ(I$,1)" "I$(I$,2):159>(I$)1163XM(I$):MOİ12:15511:W:U:H:J$;:6:I$(M1)G1$:L10I$H$:A27153(I$,1)"-"I$"-":C1:M1(I$):BM1:R$",":24:S1SM1BSR$" ":24:S1""B1$B1$" "D1$:P$(X):P$P$(" ",(P$)):LW(0)1:K11eB13İ18:J$H$:156m18M(H$):U:10:G%(N)0J$"":M0U:W:C1:38:8:B13ı(I$)0L1I$"-"G1$"":(I$,1)"*"G1$"*":I$(I$,2):Q4ČV:J$I$331:336 CH #+F4(A$(K2,T))8?Q4:B13:85:A27İ15:3178@O1(I$):O1F4E%(K2)R(K2)<9AO13 70H3L(L)'71238:M0J3J35:305072J32F73X32X27E1M:Z74X63D30:369t75X71X103E1M:242}762957737978O10:U20:378:U3:T0:Q0:L20:B11:85:A27A(N)0:79UU1::34,5:6:A$(K2,T)""A$(K2,T)E$((G%(K2)))"8::X1(G%(N)):4X1I34,H38:E4(E4):E4296M6)P$"":"KYBD",P$:P$""296u6*X(P$)128:G(X21)(X8):G03026+PPG:YF(L)1:PYP06,P0PY6-2956.G(X47)(X10)(X13)(X11):G03077/LLG:LL((L1)1)(L2)3:F(L)0303(I):S1M(I,K):Z1Q(I)(H(I)1):G(I)S1C2N31:Z1X3i5$V1Y1:U1Y2:61:V3W1:W1W1Q(I)::B4,Y1V3,Y1o5%5&I3A2:H3B2:V:V:J32:36:D$(4):D$:H$(C4):144:24:9,1:B1$;:9,63:"?:HELP";:1:2385'I3E(L,P,0):H3L(L):ME(L,P,1):217-6(D4I):(M(I,J))G(I)O(I,0)J1:O(I,1)H(I)JI4:O(I,I)0Q(I)I2:288`4Q(I)(62O(I,I))4 :G(140(O(0,0)O(1,1)1)):I01:GQ(I)Q(I)G4!Q(I)I2Q(I)I24":I101:P(I),Y25P(I),W3:G(I)029355#W1P(I)O(I,0)Q(I):B4W1:K1H,W3:W1139:U156:L$"":L30XL3:93:L$"M."P$K3XM3:M30L$L$" S."a3M30L$L$" D."3X0X(X):93:L$L$P$3L$""D1:W1139:U172:Z1X3:773L0:I01:J01:O(I,J)0:::P(0)210:P(1)70:U1Y2:I01:G(I)0288+4J1H(Z3)2:L$"":J(I)0XJ(I):93:L$"M."P$E2XK(I):X0L$L$" S."Z2X0L$L$" D."w2X(X):X1İ93:L$L$P$2L$""U1136:Z1X3:D1:772Z3G2::W1G2:G202:(G(0)0G(1)0)2942P362792U3V3:V3210U321003T3,W3U31X31 61:K3S1O10276X1 I1O1:S1B(I):L1:G2Z3C(I,0)I2:C(I,0)0G2Z3I21 Z3,Y3G2,Y3:V1Y3:W1G2:U1X3:R3C(I,0):C2R31:Z1I2:61:C20:C(I,0)02701 W1Z3I22:L2:K1C(I,0):W1W1I2:S1C(I,K):V1Y3:U1A4:Z1I2:61:)2W1(G20:28,0:62454:P1:R1:U22::S30:J%1:P3N3O3:G02:F(G)0::P35T310:U3270:I2((U3T3)(P31)):W1T3I2:2650T370:U3210:I2((U3T3))P3:W1T3I221 J1N3:L1:S1I(J):Z1I2:W1W1I2:V3W1:V1W3:U1X3:K3S1O1ēW1,X35W1,Y3:Z3W1:ZP$"D"M31 /P$"S"M31=/Q%0:I01:G(I)0263/M(G(I)):228:N(0)(A$(N,2)):N(1)(A$(N,3)):N(0)0N(1)0263/M(N(0)):228:XN(1):92:T0263/TT2:H(I)(A$(N,T)):H(I)2H(I)1:263/J1H(I):TT1:188:M(I,J)M:y8(.M(G(0)):228:XG(1):92:T0258j.TT1:L3(A$(N,T)):TT1:N3(A$(N,T)):N32N31:TT1:255."DELETE",I(0):I(N3):S0:I1N3:TT1:188:I(I)M:MK3S1.:S0N31:I(1)K3.TT1:P$A$(N,T):M3(P$):M30(P$,1)"D"M3M31/,0)0O3O31:246E-O3O3C(I,0):J1C(I,0):TT1:188:C(I,J)M:-TT1:P$A$(N,T):K(I)(P$):K(I)0(P$,1)"D"K(I)K(I)1-P$"D"K(I)1-P$"S"K(I)1-.T2:188:G(0)M:T3:188:G(1)M:J01:M(J,1)G(J)::G(1)0G(0)025^eȱ^e(ي0ȱ^ ie^^_ vŔnпmлзj+;*8o勅oȑppȑoм( h c`^0vȱ^qȱ^lȱ^oȱ^p\̖Njʘݖ.,/-8e^,_i- = {ڭ !`GARBGARBAGE MAN.RM 6h j݅H ! g R8ompnPQ hhLc X^i_ir^^i \^Hȑ^^h^stopjmn+U^_ vRij^_ lkl?в^_^ȱ^K # ";F%"J:"IN DRIVE # ";D%:[J:"PRESS RETURN TO CONTINUE":T2U2ĺ(N$,2);25):gJ20::?RESETRESET ONERR.RM^_<= 抠&<<i"=iLo cLgKYBDKYBD.RM , ,0 `, $Lԅ !  FILE DISK:";F%;40):::`I{"ERR":54915:Q1:R1::::D$;"PR#0":O4(222):O499O4255356I|V:10:"ERROR!":O49ĺ:"DISK FULL."I}T20::386:356I~U22ČQ1:R1:U1IV::C1:"INSERT ";:F%0ĺ"MASTER DISK A":385JA1$;" FILE DIS- TRUNCATE LINE AT CURSOR CTRL-L -- ENTER PREVIOUS LAST NAME"rHy"* -- BY NAME MEANS SPECIAL RELATIONSHIP";:373Iz:Q1:54,0:55,3:R1::34,0:35,24::E2(A1$)20:L%(39E2)21:L%);"THE ";A1$;" FAMILY REGISTRY";40)::" RECORD DATE:";H1$;28);""P$"JUMP TO DIFFERENT NAME +"P$"INSERT NAME IF ON BLANK ENTRY OR "B$" ADD NAME TO END OF LIST"=Hx"-"P$"DELETE NAME AT ARROW P"P$"PRINT NAMES IN REGISTRY WITHIN SELECTED FILE: CTRL-G -- DRAW PERSON'S GENOGRAM CTRL-V -- SHOW LAST GENOGRAM DRAWN CTRL-T -GURE MEANS MORE FAMILY TO SEE. NO NAME MEANS INFO INCOMPLETE.";qFuM$" RETURN:CONTINUE":19:20::D3ČP1:R1wFv^Gw"SELECTING FROM NAME LIST: ":"(!) -- MEANS FILE IS NOW INCOMPLETE N"P$"MOVE TO NEXT PAGE IN LIST B"P$"MOVE BACKONE PAGE IN LIST # RETURN UP (UP ARROW) / "B$"DOWN (DOWN ARROW)"Es" WITH CURSOR ON ANY FIGURE: SPACE -- ENTER THIS PERSON'S FILE G "P$"DRAW THIS PERSON'S GENOGRAM"@Ft" ESC"P$"BACK TO NAME LIST ONLY 3 GENERATIONS AT A TIME ARE SHOWN. SHORT LINE ON FI14:NW0:VDqB$" ":C$"CTRL-":P$" -- ":Q1::378:4::" HELP ":::D33759Er"THIS VERIFICATION GENOGRAM CHECKS THE RELATIONSHIPS ALREADY ENTERED SO YOU CAN FILL IN THE REGISTRY. TO DO THIS:":" CURSOR MOVEMENTS: -->"B$"RIGHT <--"B$"LEFT::D$:368tCkME1:14:968,F%1:969,R:970,D%(D21):MO:14:971,F%1:972,R::M1:111:X$;(K%);".NA,R0,B1":OCl34,0:35,24::Y$:366CmD%(F1)0T2367CnT20:F%0:10:D%F:382Co:D$;"RUN MENU,D";F DpN0M:W0N:N1D1:32::MN0::V$;(K%);".NA,R0,B1" Ba355'BbO1Bc379?Bd:Q1:R1jBeOİ227::183:A27364:O357:360Bf189:E1M:Y71Y103361Bg36:G11000İ368Bh:228:K2N:Q1:R1:U21:311:U20:Y27A27358Bi:36:ME1:242:X32360:358 CjT20C(0,0),I(1),M(1,20),E(2,10,1),F(2),K(1),J(1),S(10),A(D1):N4H%:F$(D1),G$(D1),G%(D1),E%(D1),A%(N4,1),B%(D1):N(1),O(1,1),G(1),Q(1),P(1),H(1),D%(1):T(M4)(M4)H%(M41):E1T(968):OT(971):D%(D21)(970):E11E1OE11B`O0355:M1:U21:111:M%0APE",M:H%(974):P%(973):F150:D130@^:D$;"OPEN NAMEDATE":D$;"READ NAMEDATE":"INPUT",A1$:C4:F:C:D2:S2:H1$:D$;"CLOSE":N%(D21):T$A1$:W$D$"OPEN"A1$:V$D$"READ"A1$:X$D$"WRITE"A1$:Y$D$"CLOSE":Z$D$"VERIFY"A1$A_A$(D1,F1),B(0),856:O2440:H868:R11002:J2912:3:Q1:R1:(975)V380&@]M$(3):M$(1)" (FIRST...LAST) ":M$(2)" (MONTH/DAY/YEAR)":M$(3)"":B(M4)((E%(M4))100):C(M4)((E%(M4))1B(M4)100)(B(M4)0):R(M4)(E%(M4))1:D(M4)(F%1)H%(P1)P%M4:"SH0:E%(N)(E%(N)):104^>[M$" ESC:NAME LIST RETURN:PARTIAL GENOGRAM":19:20:34,0:35,24:ZNK2:A(N)0I40E%(N)1Q31:Q$Q$(Q%8)(J):O$B$(R):L11:49:Q$RR1:Q$Q$(Q%9):O$B$(R):L12:49:o$A%(K2)0:D$;"PR#0":T:Tu$$D$:U1:230%X20:28,0:62454:Z2:A3:B3:GK2:228:4:9,0:R1:Q0:Q10::Q$(Q);10);::9:" ";H$::34,(37):S5:A$(R)C$((52#V20R10187I#RR1:Q$Q$(Q%R1):L11:O$B$(R):49:R3182`#X2(O$):X20187#I1X2:RR1:Q$Q$(Q%5)(I):O$B$(R):L11:49:RR1:Q$Q$(Q%6):O$B$(R):L12:49:RR1:Q$Q$(Q%7):O$B$(R):L13:49:Y2(O$):Y20186:J1Y2'$RRR10:K2G:D$:V265:W2B1R1R"D$;"PR#1":NW260M66N:11:NO:M6:11:178^"M2:11"R0:L11:O$(K21):Q$Q$(0):49:M1:11:B10180:L12:L1B11:QQ%1:LQ%QL"Q$Q$(Q):O$A$(L):49:#B1(V2R1)H$"":Q$"NO DATA.":L10:LL CANCEL SELECTIONS ON DISK # ";J%::"DO IT ANYWAY? (Y/N)"g!19:Y78Y89170:Y78GT0:K2G:!E11X1:E$(E1)"":F$(E1)"":E%(E1)0:K%(E1)0:A%(E1)0:!B(F%1)G%1:EBG%1:EHEH!P%0:!"KYBD",M$:(M$)155KE:A14:188"$(E1): B%(E1)0E1T2163. 75:159q 3::D$:R$;(J%);".NA,R";F:"INPUT",E$:"INPUT",F$:D$:230 G$E$" "F$"("(G)")":U2U21:U2T2U20 A1$(U2)G$:B%(U2)G:";:19:Y13138N0G:GA(G):21:E%(F)A%(F)A%(F):3:P%1:GN0:135GN0Y27ġ:223Y80Y112Y12:Y32Y11:/Y65Y97N0G:22:O2O2:E:ENTER FILES P:PRINT FILES";:16368,0}A0:Y0:22:GK2:C%J%:154:C%J%127:T0G:P(F(O%.1)):Z1FPO%:PP1L2(HO%):L2L2(L2HO%):M2A(1):N2O%:M2N2HN2HM214:GM2M2N21:154::4:D$:GM2M2N21:3::GZ1:GN2TER INFO [ESP. WHERE INCOMPLETE (!)]:"19:::" 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:"SPAC!zM$(X):M$M$(" ",(M$)):T{V(9):L$V$:16:K11:H$O$:S:9,V:K$;:26:l|75:D$:E$(F)""ı}T$;(J%);".NA,R";F:E$(F):F$(F):E%(F):K%(F):D$:~D$:75:3:T$;(J%);".LOC,R";F:0:D$:230&35,24:J%0131:228:S3:"EN2(O$)0O$"-"P$O$:0sC2P$" / /":ytX$(O$,((C2))1):I2(C2E2):D2C2I2E2:W$(I2(D20)):D2119uJ2(D232):D2D2J232:XJ2:122:Y$M$:D2119vXD2:122:Z$M$wP$Y$"/"Z$"/"W$xX$""P$P$" - "X$yB21:ĴH2F2(G20G2H2)(A$(3),1)"D"112:M$" (AGE AT RECORD: "(((H2F2)E2))")":111nC2F2M$" (AGE: "(((C2F2)E2))")"o(9)(M$)69ĺM$;p:qC2(O$):X$"":Y$" ":Z$Y$:W$"":Q3ĭ(O$,1,1)"D"P$"D":X$(O$,5):120rC#$$-----66666?????$$X#$!!)--**26633;??88 M   M   XXX(---5????.---5????.---5????.---5????.----XXX+--:???*---5????.---5????.---5;??7)-- - 5GSPLITSPLITTER.RMx pʽe^^__`?INPUTSTRING INPUT.RM  " ީ; = l݅ , LJERRERR.RMhhߚHH 0:, jݪ + , ޥۤ jݪ +`CSHAPEFIG.GAT.RM Xʽi3iȄ稩 jݪ +` 4PoX8 25 ::::9);"SELECT GRAPHIC DISPLAY";40):::5:"WOULD YOU LIKE:":C5:7:D12:5:B$(D):::BA%:21:::" MOVE ARROW TO CHOICE AND PRESS RETURN ":" --> ARROW DOWN";40)::" <-- ARROW UP";40): CB2:1:"-->"; 3:A13ĢC1012,0:7-230,64:28,0:62454:6;16368,0TA(16384):A1284lAA128:16368,0:A$(4):(55)908:10:"YOU NEED 64K TO RUN THIS PROGRAM":::"PRESS ANY KEY TO REBOOT."::3:2525 B(8176)129:975,B:1  , l^ưȭ氩L8ˍ`3" ީ; = l݅ , LJERRERR.RMhhߚHH 0:, jݪ + , ޥۤ jݪ +`^_:ʽe^^e__l^" ަư8^_氠^LQ^P^i^_^Ѹ "^eP^_eQ_ ȱ^8e^^_ UE":V1ĺ(B1$,2);25):$/19::5/,N%(W11):?RESETRESET ONERR.RM^_<= 抠&<<i"=iLo cLgKYBDKYBD.RM , ,0 `, $Lԅ !  = {ڭ !`?INPUTSTRING INPUT.RM  1:A3::D$:D$;"PR#0":I3(222):I399I3255214].T:10:"ERROR!":I39ĺ:"DISK FULL."r.:V10:236:214.T::9::W:"INSERT ";:F%0ĺ"MASTER DISK A":235.C1$;" FILE DISK # ";F%.:"IN DRIVE # ";D%:/:"PRESS RETURN TO CONTINF%0:D%D:233%-D$;"RUN MENU,D";Db-::D119(C1$):L%(39(U30)D1)2:UĹ54,0:55,3:A3-L%);C1$;" FAMILY INFORMATION";39(U30)L%D1)::" RECORD DATE:";D1$;14(U30)(D1$));:"FILE DISK:";J%;:2((J%))):::2."ERR":54915::GE: ";D1$:NN1:D$;" PR# 0"<,KK1:KEO20:H3(0):214U,GK:21:A%(F)0220,K2G:59:Y1189,174:Y27A27215:220,V10:GK2:21:968,F%1:969,F:970,D%(W11):GH:21:971,F%1:972,F,::E1$:226,D%(D1)0V1227-V10:T RELATIONAL INFORMATION? (Y/N)":19:Y27214:V2(Y89):X10:N1+L$(V$,1,19)"PRINT":16:"TURN ON PRINTER.":19:Y27217,L$" ESC:STOP":16:"PRINTING...":34,12:35,17:13:D$;"PR#1":M4:11:10);"THE ";C1$;" FAMILY INFORMATION -- RECORD DATQ$(E1)::H0212:G1:75:R$;(J%);".NA,R0,B1":*210A*HK*224[*HČT:224{*F%J%:172:X1G%:HX1X1H*E$(X1),F$(X1),K%(X1),E%(X1),A%(X1)*35,24:34,0*127:A27223:KB1::*Y12220:228A+L$(V$,1,9):16:"PRIN(G3)G%(G31):K2B(968):HB(971):D%(W11)(970):K21K2HK210*Q$(Q%9):NAME,SEX (M OR F),BIRTH DATE,DEATH DATE,OCCUPATION,LOCATION(CITY),COMMENT/EVENT,MOTHER,FATHER,# OF MATES,MATE #,MARRIAGE DATE,# OF CHILDREN,CHILD #,SEP./DIVORCE:E10Q%9:5:G%(974):O%(973):T250:D$;"OPEN NAMEDATE":D$;"READ NAMEDATE":"INPUT",C1$:H2:D:C:W1:S2:D1$:E1$D)300:S$D$"OPEN"C1$:R$D$"READ"C1$:T$D$"WRITE"C1$:E1$D$"CLOSE":U$D$"VERIFY"C1$:C117:T150:A$(C1),B$(T1),A1$(T2),B%(T2):B(G3),24:34,0::4::G1:A3:U0:'D$(4):G12077:Z22051:E3998:W958:T1052:F3856:E2440:A1868:A31002:(975)T380m(3::G1:A3:B1$" ESC:BACK":V$B1$" RETURN:NEXT":K$(1)"F":I$(1)"E":B32057:A(G3)(F%1)G%(P1)O%G3:I%200:Q%200L&O$A$(R):Q2R1:G$"-"ĴO$""200:P21:152:RQ2:SS1:QQ1:196U&196&RR1:SS1:L13:L$(V$,19)"SAVE INFORMATION":16:19:Y27İ12:196&4::P10D30:GK2:74&L$" ESC:NAME LIST RETURN:NEXT FILE":16:19'A%(F)0:35E%(F)))%QQ1:QQ%195K%L13(Q2Q3):54:A27İ12:Q1191:203%Q1ĭM1E%(F)((G$"F")2(G$"M"))(E%(F)):124%191%C3R1%QQ%1:L12:54:A27İ12:RC3196:O10:191&RC1J$"LAST ITEM!":V15:S1:13:9,1:S1:K$;::"PRESS RETURN TO CONTINUE":K2ĺS$;25):A69::C3ČG3:P2G6+AMPRESTORE AMPERSAND.RMưȱ`?RESETRESET ONERR.RM^_<= 抠&<<i"=iLo cLԧMSSGERR MSSG.RM ڦ  ieީ L"ERR":54915:O2:P2::::D$;"PR#0":C4(222):C499245c5 10:"ERROR!":C49ĺ:"DISK FULL."}5 K20::C30:274:2455M::C3ČO2:P259::T:"INSERT ";:E%0ĺ"MASTER DISK A":2735W$;" FILE DISK # ";E%5:"IN DRIVE # ";D%:,6RAM":" P -- PRINT GENOGRAM":F$" RETURN:CONTINUE":8:9:G3:P2:4 O2:54,0:55,3:P2:::A2(W$)15:L%(39A2)2:L%);"THE ";W$;" FAMILY ALBUM";40)::9);"COMPREHENSIVE GENOGRAM";40)::" RECORD DATE:";R$;28);"FILE DISK:";E%;40):::;5 MMANDS:":8:" --> RIGHT":" <-- LEFT":" RETURN UP (UP ARROW)":" / DOWN (DOWN ARROW)"F4 14:" SPACE -- SHOW THIS PERSON'S FILE G -- DRAW THIS PERSON'S GENOGRAM ESC -- BACK TO NAME LIST":19:" L -- CHANGE LABELS ON GENOG:968,E%1:969,H:970,D%(D21):EL1:6:971,E%1:972,HJ2::U$:262a2D%(C1)0K2263y2K20:D%C:E%0:2702:D$;"RUN MENU,S";A;",D";Cj3:O2:266:5::" HELP ":::"CURSOR MOVEMENT:":13:"WITH CURSOR ON ANY FIGURE:":18:"OTHER CO1QU:UY%QY%1j1:1:Q$(Q);15);::16:(I$)25ĺ(I$,1,25);:I$(I$,26):16:(I$)25ĺ(1,25)y1I$:U0ĺ1(37)22UH%(F)F$" "S$" "T$:8:9:R27258:7:T1:F$T$:8:9135,24:G3:P2:1UH%:25682K20::EK1:6:35,24.0XK1:Q%0:102:Q%1:K1E:R27259H0:EK1:142:C30:2470:O2::P2:20:133:B4H%(F):Z$C$(F)" "E$(F):B4Ģ10:F$"NO INFORMATION ON "Z$:7:2570266:F$T$:8:35,23:5:U0H%(F):U0I$Z$:2520I$A$(F,U):(I$)1000İ84P$(1,4),Y$(2),P%(1):Y$(1):Y$(2):U06:Q$(U)::U01:P%(U):J20P%(U)1:P$(U,J2)::P$(0,2U)Q$(4U):/L10243:E1:75:M$;(M%)".NA,R0,B1"/241/L1/260/L1ČM:260/L2F%:L2L1L2L1/A%(L2,1)/:267034,0VERIFY"W$:K(1),M(1,1),E(1),O(1),N(1),F(1),X%(1).Q(A4)(A4)F%(A41):K1Q(968):L1Q(971):D%(D21)(970):K11K1L1K11m/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),0):B(A4)((J%(A4))1A(A4)100)(A(A4)0):P(A4)(J%(A4))1:C(A4)(E%1)F%(T21)T%A41."SHAPE",E:D$;"OPENNAMEDATE":D$;"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$"1:L(0)4:L(1)12:L(2)20:O22077:G32051:Z3998:T958:M1052:X3856:Z1440:N868:P21002:(975)M380a-:3:O2:P2:S$"ESC:BACK":T$" RETURN:CONTINUE":U$D$"CLOSE":V$(27):O%200:Y%5:F%(974):T%(973):N%1:W30:B118:A(A4)((J%(A4))101:G3:P2::D$;"PR#1"::::R76ĺ:(9);"G2DR":231+A2(C$(K1))(E$(K1)):(40(A219)2));C$(K1);" ";E$(K1);"'S FAMILY GENOGRAM":::(9);"G2":::+D$;"PR#0"+G3:P2::l,D$(4):Y13:Y232:R364:S396:T3128:V3160:Z1440:C1:D21:F3163:G3:P2+*X71X103K1E:142<*X27K1E:V*X80X112İ227:205j*X32İ249:207y*X63İ264*207*24:9,63:" ";:Q21:94:R27232*266:F$" "S$" RETURN:PRINT":8:10:"TURN ON PRINTER.":9:R272327+128:U(X21)(X8):U02158)PPU:BD(L)1:PBP0E)P0PBN)207y)U(X47)(X10)(X13)(X11):U0220)LLU:LL((L1)1)(L2)3:D(L)0216)C2L(L))137:E0B3B320:218)B38*X76Q20:94::F3(X1X1):X1X):1::D$:137:E1ı(16368,0:A3U%(L,P,0):C2L(L):EU%(L,P,1):122:M1K%(F):M1M112:G1B2:J1C28:1:H$C$(F):D2:43(X3:N1(I%(F)):4N1A3,C28:Y3(Y3):Y3208(K$"":"KYBD",K$:K$""208(M112ČZ3:9,E2:A2);:1:)X(K$))0204]'G1N(I)M(I,0)O(I):W3G1:K1X%(I):H1J(I,K):M1O(I)(X%(I)1):E(I)H1Q1V%1p'X%(I)1M1R3'F1Y1:J1Y2:24:Q3G1:G1G1O(I)::W3,Y1Q3,Y1''20:24:9,1:R$;:9,63:"?:HELP";(M:M:B38:B2O14:A3O1:C2P1:F30:D$(4I)0197A&J1X%(I):(J(I,J))E(I)M(I,0)J1:M(I,1)X%(I)J_&:M(I,I)0O(I)I2:197v&O(I)(62M(I,I))&:U(140(M(0,0)M(1,1)1)):I01:UO(I)O(I)U&O(I)I2O(I)I2&:I101:X%(I)0204'V10:N(I),Y25N(I),R3:E(II3T1191:I30XI3:54:H$H$" S."G$N%I30X(I3):54:H$H$" D."G$p%H$""D1:G1139:J172:45%L0:I01:J01:M(I,J)0::X%(I)0::N(0)210:N(1)70:J1Y2:I01:E(I)0197%KF(I)11:EJ(I,K):5:GT1X%(I)K:K1&:X%(" S."G$2$I(I)0X(I(I)):54:H$H$" D."G$N$H$""J1136:D1:45e$U3F2::G1F2:F20k$$(E(0)0E(1)0)205$M36186$P3Q3:Q3210P3210$T1H3ēO3,R3P3,R3:G1139:J156$H$"":T1H3H30XH3:54:H$"M."G$)%H1A(I):U3,T3F2,T3:F1T3:G1F2:J1S3:N3W%:Q1N31:M1F2U3:24:Q10:W%176#G1U3I22:L2:V10:K1W%:G1G1I2:H1B(I,K):F1T3:J1V3:M1I2:24:#G1(F2U3)2:H$"":H(I)0XH(I):54:H$"M."G$#(I(I))T1180 $I(I)0XI(I):54:H$H$G1G1I2:Q3G1:F1R3:J1S3:S%0:IK311:H(I)T1S%I:I1i":D3H1S%ēG1,S35G1,T3:U3G1:M1R3"24:D3H1S%182"I1S%:V10:L1:W%0:B(I,0)173"KB(I,0)11:EB(I,K):5:GT1W%K:K1""F2U3W%I2:W%F2U3I2O#!s!28,0:62454:G3:P2::C31:M3J3L3:U02:D(U)0::M35O310:P3270:I2((P3O3)(M31)):G1O3I2:165!O370:P3210:I2((P3O3))M3:G1O3I22!V%0:JJ311:EG(J):5:GT1V%J:J1!:V%183:V10:J1V%:L1:H1G(J):M1I2>"V1:I3(B$(V)):I30(B$(V),1)"D"I3I31E I01:E(I)0162 E(E(I)):66:K(0)(B$(1)):K(1)(B$(2)):K(0)0K(1)0162 E(K(0)):66:XK(1):14:V0162 VV2:F(I)(B$(V)):F(I)2F(I)1:162 J1F(I):VV1:101:J(I,J)E:E:V2:101:E(1)E:J01:J(J,1)E(J)::E(1)0E(0)0157aE(E(0)):66:XE(1):14:V0157VV1:H3(B$(V)):VV1:J3(B$(V)):J32J31:VV1:156"DELETE",G(0):G(J3):S0:I1J3:VV1:101:G(I)E:ED3S1:S0J31:G(1)D3- V,I(K3),B(K3,N3):K30151:I1K3xVV1:101:A(I)E:VV1:H(I)(B$(V)):VV1:B(I,0)(B$(V)):B(I,0)0L3L31:149L3L3B(I,0):J1B(I,0):VV1:101:B(I,J)E:VV1:I(I)(B$(V)):I(I)0(B$(V),1)"D"I(I)I(I)1;V1:101:E(0)0:J31:K30:L30:M30:E(D3):D$:66:G(1)D3:E3D3:5:GT1Ģ10:F$"NOT BORN YET!":7:V3:122:K3A(F):N3B(F):"DELETE",K%(0),D(0),U%(0),A(0),H(0),I(0),B(0):"GARB",A1:A1(1000L22K320K3N35N35)21!K%(L2),D(2),U%(2,30,1),A(K3),H(K3))31:Z2ı D(L)L1:P0:JE0:(U%(L,P,0)A3)B3EU%(L,P,1):_PP1:PD(L)ıh139:O2::P2:C30:EK1:122:J%(F)0F$"NO DATA ENTERED!":10:7:D3K11:D3E3ĴF3163:G3:P2:206YH30:I30:J01:E(J)0:F(J)1::F2(F):D$267B%(F)E:0"ERR":267TD$:5:N$;(M%);".NA,L32":129l122:A$(F,0)""ıA$(F,0)(E1):59:U%(L,D(L),0)G1:U%(L,D(L),1)E:D(L)D(L)1:D(L)30D(L)30 P0:L(C20C29)1(C28C217)2(C216C225K11K1L1y104+zF0:E1(E)L1ıT{6:G%2FA%(H,G%):(E)(B%(F))ıe|Q%İ12:Fı|}X2X21:X2WX21~FX2:N0E:B%(F)018:EN020:75:A%(H,R%)F:131D$:5:M$;(M%);".NA,R";H:"INPUT",C$(F):"INPUT",E$(F):I%(F):J%:10:"GO TO NAME # ";G$:X(G$):X1XL1102:K1X:102bqZ(R21)(R10)(R8)(R11):Z0117rC2E:1:3);:EEZ:E1EW2sEW2E1t108uZ(R78)(R66):Z0109vK1C(E):K1K1ZT%:K1L1(V2T%1)L1K1L1wK1L1K1E x::5:EV2V2W21:4::EH2:EW2EW2fkQ%1:20:U21Ė26:(F%T%)(E%1)T2;" OF ";U2;" PAGES";{lC2E:1:"-->";m9:R13111:N0E:EC(E):122:I%(F)ĢC2N0::4::nEN0:MoR27EC(E):8pR35ė:F$" RETURN:PREVIOUS NAME":8)::" <-- ARROW UP B:BACK PAGE";40)::" ESC:BACK";40)::16368,0h11:EK1:C%E%:122:C%E%102:G$"":R1:T2(H(T%.1)):H2HT2T%:T2T21iU2(L1T%):U2U2(U2L1T%):V2C(1):W2T%:V2W2L1W2L1V21(jQ%0:EV2V2W21:122X2:1:3);:XXZ:XP%(Q2)X12cX1XP%(Q2):d95_eE(B$(V)).5((B$(V),1)"*"):fC24:20:E%0104:266:"SELECT PRIMARY PERSON FOR GENOGRAM:"Mg21::" SELECT NAME WITH ARROW & PRESS RETURN ":" --> ARROW DOWN N:NEXT PAGE";40" SELECT ";P$(Q2,P%(Q2)1);" WITH ARROW & PRESS RETURN";40)::" --> ARROW DOWN ESC:BACK";40)::" <-- ARROW UP";40)::XX11_R2X2:1:"-->";:9:R13ĢR2X2:5::P$(Q2,X)::`R27ıaZ(R21)(R10)(R8)(R11):Z099 bR2ȭU1I$G$L$:8XM2(C1Z1):D1C1M2Z1:D10M2M21VYI$(M2):L$""I$I$L$aZD1ı[N2(D132):D1D1N232:D193\I$(D1)"/"I$]I$(N2)"/"I$:^:D$:O2:P2:266:5:P$(Q2,0):U1P%(Q2)::5:P$(Q2,U)::R26Q2:22::M%);",L150":N$;(M%);".NA,L32":N$;(M%);".DATA,L";O%:267dPD%(R%)M%L1āU1L2:A%(U,R%)0:tQD%(R%)M%:R"ERR":267SK21:14:F$"WRONG DISK!":7:77TC1(I$)UL$(I$,((C1))1):C1I$L$:VL$""L$"-"L$WXC1:54:$;(M%);".DATA,L";O%:U64:UH%(F):63YJ"ERR":D$:N$;(M%);",L150":Y071:J2Y:70iK6:E%M%ıLQ%1:K20::D$;"CLOSE":R%R%(CD2):G%R%:CD2D%(R%)E%78MD%R%1:270:R27K21:260N82<OM%E%:5:O$;(M%);",D";R%1:N$;(%(F):H%(F)8H%(F)85>U1H%(F):"INPUT",A$(F,U);?E@267OAD$:[BEN%ıCJ21Y:B$(J2)""::Y0:N%E:122:J%(F)1I%(F)0ıD75:74E1:M$;(M%);",R";H:Y:J21Y:"INPUT",B$(J2)FG267HD$:'I"ERR":D$:N2053:59,E2:H$;:1::16L$"-*"L$""d7H2(XZ1):H2H2(H2XZ1):H21901G$(H2):x8G$((H2),2):9G20:2054:(71)160ı:D(D)((D)1):C2D:G21:;H%(F)0:I%(F)1ı<75:1:M$;(M%);".DATA,R";(H):U0:73=H(H$,1)" "H$(H$,2):43/,H$(H$,1,M12)K-A2(H$):A20H$"-"ıu.B2G14:C2J18:E2B2A22:E21E21/D0A2(M12)ı0E2A270E270A21J$:(C2D):E22532F2G1Ĺ9,E2A21:5739,E21:57:G205349,E22:57:G1,J1:R11V%D1:H$C$(F):Z0:16:43:G(A$(F,2)):U10:G0GV122:V1G:W1E:E1G1&D2:X1042:R1ĴS1141:XS1:54:H$"D."G$:40'GT1H$(((T1G)Z1))(R1GĭX1(H$)(M142)İ43)X10ı*U11:H$A$(F,X13):43:+(H$)ı$ 133:N1(I%(F)):N11N12ı8 N1G1,J1:Fı\ K1EO1G1:P1J18:4N1G1,J1p G1271EK136 !A(F)0(Q1A(F)1)36 "XB(F)0:Q1XB(F)(Q11) #7XG1,J1 $Q10:R10:I$A$(F,3):S1(I$):(I$,1)"D"(S1S1T1)ĕ2N1G0:E1,F11E1,F116:G1,F11G1,F116:3:U(G1E1)2:E1,F116U,F1G1,F116: E(H1):I1(J1F1):E(E)ĭEK1āUF1I1(J15I1)4I1:G1,UG1,U1::E(E):26 G1,F1G1,J15I1 H10EL1ı 122:I%(F)0ı 135:K%(F)M1:M112 Z(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  "GARB",A1,1000:A11000ı "DELETE",A$(0),H%(0),B%(0):"GARB":A$(W,B1),H%(W),B%(W): C1G:85:D1ıQ 24::1:F$;40)::1:, G$"":16368,0a "KYBD",G$:G$""10:R(G$)128:RR32(R96):} 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):D),"","",LABEL,2,"CHOOSE SIZE OF GENOGRAM TO PRINT:",SMALL,LARGE,SIZE:233v 122:5:E;".";E10);C$(F);" ";E$(F): E(E):133:G(A$(F,2)): E%(E(F%.1))1:HE(E%1)F%:G%2(D%(0)E%)2(D%(1)E%): M:1:N::F$::O12000:: 58A6:C1:260(175)256(176)46:"SPLIT",0:"SPLIT",2: M,F,NAME,SEX (M OR F),DATE OF BIRTH,DATE OF DEATH,OCCUPATION,LOCATION(CITY),COMMENTJ  3,"SELECT LABEL TO BE PLACED BY EACH FIGURE ON THE GENOGRAM:",AGE(YEAR OF DATE IF DECEASE                                   ^Ѹ "^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 A":189F'X$;" FILE DISK # ";A%`':"IN DRIVE # ";D%:':"PRESS RETURN TO CONTINUE":S1ĺ"ESC:BACK";25):'6::?RESETRESET ONERR.RM^_<= 抠&<<i"=iLo cL?INPUTSTRING INPUT.RM(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::5: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 MENU,S";C;",D";D}&::Q2A,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%);".N(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 ":" <-- ARSPLAY 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$(1RR":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"EQ^P^i^_^Ѹ "^eP^_eQ_ ȱ^8e^^_ , l^ưȭ氩L8ˍ` *q,*ȥ+q,+.ȩ捤Ș ͈DELETEARRAY DELETE.RM , , 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$;(G%);".ADD,R";F:C10:D10:A%(F)8:1:V1W` ,E1(A$(V))1:D1E1I%WVA$(V)"":C11:44 -A$(V):D1D1E1::D$:C1F$"TOO MUCH DATA. SOME WAS NOT SAVED.":H:8 . /7:E%G%ı 0J0:F10:G1İ103:J78471:D$;"CLOSE":J%J%(DHF: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%:               92:5:V$(Z1,0):6:X1N%::5:V$(Z1,X)::22::"SELECT OPTION WITH ARROW & PRESS RETURN":" --> 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)J*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:                  z#    Ԡ"Р Ӡ įˠ!ˠ  ٠, ϠԠٲͺŠ͠Р1Ġ!Π ՠ%" ٠MϠ+ Ϡ:٠,Ӡ'TE: ";S$:" G2":D$;"PR#0":J:J:34,0:35,24:9:158lE$"PICK FAMILY MEMBER TO PLACE ON MAP:":M1:T1D190:Z11:S27ı58:LM%(R):L0N0H:123:HN0:166L1LN1İ26:165A%(L,0)0İ25:165% VA%(L,0):12:Z1E$H$(R)" "I$(:4N,O:E$M$(0,1):9,7:S27152FS87W0:12:9:158TS63208S80158:219:G$" "J$" RETURN:PRINT":10:"TURN ON PRINTER.":28:7T:U:S27158:24:9,63:C$;:15::D$;"PR#1":10);"THE "R$" FAMILY -- RECORD DAA%(L,0)0:H11:N%(L)0*Z67141:1393122MP11:Z11:80:S27ıYVX:12HBE:11:LM%(R):L1LN1157:A%(L,0)0N%(L)0İ25:N%(L)1:157VA%(L,0)157NA%(L,1):OA%(L,2):A%(L,0)0N0O0ČT:U:3(V1):3N,O:3(V2)1:Z11:80:S27138:VX:A20:143HVA%(L,0):NA%(L,1):OA%(L,2):29s:12:Z1E$"LOCATING "A$(L):9:Z10~A2İ532:Z27150Z87W0:A20:Z11:143Z63İ208:145Z32A%(L,0)V:A%(L,1)N:A%(L,2)O:H11:5Z88Z67TION:"::" ";A$(L)::" (Y/N)?":7:S78S89132:S89M%(R)L:135^LL1:LN1129N1N11:A$(N1)K$:H11:LN1:M%(R)L64:M11:122:N1ıM0:T1N190:Z11:S27ıLH:A21:A%(L,0)A%(L,1)A%(L,2)142"P11342~X1(K$):X12ĭ(K$,1)"."K$(K$,X11)QQ$""Q$K$M%(R)L:135_L1:Q$K$"SRCH",A$(L),K$,Y1:Y1į"SRCH",K$,A$(L),Y1Y10133A$(L)K$M%(R)L:135I8:1:C1:"IS THE LOCATION: ";K$;" THE SAME PLACE AS THE LOCA"INPUT",H$(R):"INPUT",I$(R):G%(R):D$:2203wDx"ERR":220nyM$;(H%);".NA,L32,S";W1;",D";I1:119xzM1ı{:10::"LOADING LOCATIONS"::HBE:116:G%(R)0136:3:58|M%(R)0M%(R)N1136:41:K$""K$"-"M%(R)1:135}N1:Q1H:1:3);:HHZ:H1HV1-lHV1H16m100SnZ(S78)(S66):Z0101oR1D(H):R1R1ZP%:R1T1(U1P%1)D1R1T1pR1T1R1HqR11R1T1rME1R1:93sL1R1:93t47:H$(R)""ıu120-v3:L$;(H%);".NA,R";R:dQ1H:1:"-->";Pe7:S13104:N0H:HD(H):MĢQ1N0::5:3::L1H:f116:G%(R)ĢQ1N0::5:H;".";H10);H$(R);" ";I$(R)::E1H:gHN0:JhS27ıiMĭS35İ30:90jMS82İ430:90kZ(S21)(S10)(S8)(S11):Z01108: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"J9n X LwMwkc<c1dvBnsdvgxdvVxdv[<uVnMx: zT*U*U*U*U*U*oT*U*U*U*U*U*U*U*U*U*U*U*gP T UP*P*P* U@*(Pf  PP@     7:M11:F11:151pX4:L1:4:10:"DELETING ";F$;::" FILE DISK # ";E%::"ARE YOU SURE? (Y/N)":6:E89147zY163ZF%E%:D%J1:N11:165:E27147:92[:S$;F$;(F%);".NA,S"I1",D";J1:93\14:L1:E$"WRONG DISK!":5:89 ]T$;F$;(F%)" FROM 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%0A27147W:W3R$F$:C11:WC%;"%":6::147SPB$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$:840S5:L1:4:5:"ENTER NAME OF FAMILY YOU WANT TO "Q$cMB$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%100O::"FREE SPACE LEFT ON DISK: ";2767:D1W:^FC$P$"DEFAULT":4:16:N$" FILES DRIVE (1-2)":PJ1:E12:63:A2768:J1W:tGB11:D1J1B12HC$P$"SAVE":4:6:E2770I:147JB$L$(G1):3:5:"WOULD YOU LIKE TO:":5:C12:54:E27147KW113,80,80,111,115L74O$::F11:dBB$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:I1H1 D13:N$"MASTER DRIVE (1-2, USUALLY 1)":PD1:E12:63:A$(C1,W)::A%(C1)W:):E27A%(C1)W:R;Z(E21)(E10)(E8)(E11):Z057y<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:63 AC1):OW2: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::MW)(W3)(5W)(W2):1:"-->";:6:Y(G$)128:Y13ĢO(2W)(W3)(5W)(W2):5::L$(W)::A1W:u1Y27ġ:1372Z(Y21)(Y10)(Y8)(Y11):Z0523O(2W)(W3)(5W)(W2):1:3);:WWZ:WXW14W1WX548B6O(37)1:W1A(K$(V)"/"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,0d0O(27.5)(R7)(R2)ČB:32! "NNS+ #J$""P $O:Q6:M3:11:R(H$):A2728[ %R0ıo &R100R1900R 'RN(R(N0))T: (R0K$"": )U(RT):SRUT:S0UU1 *K$(U):S046 +V(S32):SSV32:S045 ,K$(S)"/"K$ -:13 A27H$""ı3 A27J$H$J$:H$"":12; 13w 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)(R A3222:L1(H$)15ČB:13E L221:A32ĭA48A57ČB:13y 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$ (H$,F,1)" "H$(H$,F1):7E (H$,1,1)" "H$(H$,2):7K n 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) #!(175)256(176)46:173<"RESET",99:2077:127g::((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$"":             .h$1+`,,,0 B``LvL HH 1-ȱ.ȱ/ g RDE$1 Ю ީ КД g RG.ІF/GEFD$1 ީ I0 &ŔÄ'ĕнеȱаȱ+-& ޥۤ jݪ +`gKYBDKYBD.RM , ,0 `, $Lԅ !  = {ڭ !`SORTARRAY SORT.RM^ ^iȥ_ixA@ ./CBHH$1H+H1)L-+ .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Υ88JX cED RPeMԥQiՠ8ۥePeQemNne܅ONoOp MLԐWФ0WONΥOϥmnΥΥΘѥQP.]ХNmnБPPQmnБPNmOnJʊ*@ LREDIMARRAY REDIM.RM , (:yz J g RP@QA RJP@Q@ kLԥJ*iDeȱeѠ ߥJ(M@A@A cߩ DISK A":198''X$;" FILE DISK # ";A%A':"IN DRIVE # ";D%:v':"PRESS RETURN TO CONTINUE":S1ĺ(A1$,2);25)'6::?RESETRESET ONERR.RM^_<= 抠&<<i"=iLo cL?INPUTSTRING INPUT.RM  " ީ; = l݅ ,;"IMPORTANT FAMILY EVENTS";40)::" RECORD DATE:";Z$;28);"FILE DISK:";A%;40):::&"ERR":54915::D$::D$;"PR#0":V(222):V99V255:185&D:10:"ERROR!":V9ĺ:"DISK FULL."&S10::199:185 'D::9::L:"INSERT ";:A%0ĺ"MASTER 5L%S10::GP2:5:968,A%1:969,H:970,D%(T11):GH1:5:971,A%1:972,He%:1002::C1$:190|%D%(C1)0S1191%S10:D%C:A%0:196%:(4);"RUN MENU,S";B;",D";CU&:K1(X$)11:L%(39K1)21::L%);"THE ";X$;" HISTORY";40)::9)$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"$: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)" IS"CAUSE:";:103(eQ2ĺ"PLACE:";:1036f"- ";K$;]gH$X$:K14:26:O10:X$G$:A2786ohX$"-"X$""iC20G$"D - "X$:jC2C2(C2100)1900:C2Z1(C2(Z10))E2:G$(C2)X$:kB2ılF2(A$(2)):G2(A$(3)):F2C2ĺ:XmQ2$,4):A2H$""=^S:9,V2:"/";:K12:26:A2786:D2(G$)v_D231((C22)C22)(C27.5)(C27)(C22)ČT:93`Z1Z1D2aH$(P$,7):A2H$""bS:9,V5:"/";:K13:26:C2(G$):A2786:W$G$cC20G$"-":dO11:9,V11:K$;:Q3,V:K$;:A2((O$)0(O$)1):H$P$:K11:26:B20:C2(G$):A27(A13M10)G$O$:gWG$"D"Q3100X(G$)ĭG$"-"((G$)63A47)ıYA2(C2A47)ĺK$;ZC20Ĺ9,V:" / ";:97[C212C20:Z10:115:P$P$G$:97\Z1C232]H$(P230QQX1āE11X1:E$(E1)"":F$(E1)"":E%(E1)0:K%(E1)0:A%(E1)A%(E1)(Y12):aRD%(N%)J%:rS"ERR":230T14:H0V:V1:J$"WRONG DISK!":13::VH0:V11:78U113:V(9):L$" (MONTH/DAY/YEAR) "V$:Q3L$L$" D:DEAD"SVZ10:16:S:9J%ıLV10:169:Y7875[MM%1::D$;"CLOSE":N%N%(DW1):H%N%:DW1D%(N%)F%79{ND%N%1:233:V11:Y27224O83PJ%F%:3:U$;(J%);",D";N%1:S$;(J%);",L150,D";N%1:S$;(J%);".NA,L32":S$;(J%);".DATA,L";I%:S$;(J%);".LOC,L4":1:U1(B$(S1)):U10G(U1):161:B$(S1)G$3G:kH"ERR":D$:S$;(J%);".DATA,L";I%:E163:E1B1:62I"ERR":D$:S$;(J%);",L150":R1069:S1R1:68J23:T$;(J%);".DATA,R";F:B1:E11B1:A$(E1)::D$:P10:E%(F)(E%(F)):124:K21:F%:B10:154:E%(F)1ı9<R$;(J%);".DATA,R";F:E10:72Z=B1:E11B1:"INPUT",A$(E1)`>j?230t@D$:AR10:K%(F)0S11:70B73CR$;(J%);",R";F:R1:S11R1:"INPUT",B$(S1)DE230+FD$:E1S1T1:B$(E1)""::S11R5:`6O$A$(R):SS1:9,0::S:Q$(Q);:14(Q$(Q)));::9,15:L1123,85,123:K10:A2758r7G$""G$"-"8(G$,1)"-"(G$)0G$"-":S:9,V:G$;:K$;9O$G$P1P11:A$(R)G$:R5İ126::RR1:Q10:H$""::;E11C1:A$(E1)"":+A838.,A20ĭK14L13H$"":K$;:28@-A14ġ:::k.A27H$N$:G$"":9,I1:K$;:K1J1:27s/280K$;:H$"":401L11R0G(O$):82L12İ113:H$P$3L13(L11R0)H$O$4NN1:10);Q$;15(Q$));H$;:L12İ108:O$)2)O11481 %K1440:(A47A58)A3239< &T:28i 'N11(K13)2ĴA32K1238:G$G$H$: (M1M11:A$;:G$G$A$:H$(H$,2):K11(G$)12Ĺ9,I1:" /";:K$;: )28 *A8(G$)H$(G$,1)H$:G$(G$,1,(G$)1):A$;:(G$)0K128 G$H$:6:7 A21A$(H$,1,1):(A$)29:A$" ":29T A3242:(9)68ČT:28a K1038 !Q1ĴA70A7738:K10:40 "A45N10(K11K14)K10:48 #L1340:Q3ĭN11A68K11K10:48 $Q5M10A64ĭK11K14K14:((O$)(OO MUCH DATA. SOME WAS NOT SAVED.":V1:13::A$(E1)""X A$(E1)""B1E11:E1C1:F11i D1D1F1:: G$"":H1(37)1:I1(9):N$H$:J1K1 H1:9,I1:H$;:L12107:H1:9,I1:M10 A$ A(A$):N1(G$):A13(A27N1)(A47K14L12)G$9::A1 35,23::* M$"":16368,0_ "KYBD",M$:M$""20:Y(M$)128:YY32(Y96): F%(G(G%.1))1:FG(F%1)G%:H%2(D%(0)F%)2(D%(1)F%): 3::35,19:W:35,24:6 B1C1:D10:E11C1:F1(A$(E1))1:D1F1I%ČG1::10:J$"T010B G(G):G0GHİ154:H$E$(F)" "F$(F)"("(G)")":R G0:H$"":i L1M:NN1::: RR2:QQ2:SS2: T::UĹ9,V:I$;:15 V:W J$;::L12000:: 35,23:24::UĹ9,0:K$;L$;69(L$)); UĖ1:L$;40):8)B(175)256(176)46:(4);"MAXFILES4":24576:C6:D1:224r"RESET",99:C$(2):C$(1)"M":C$(2)"F":20421:5:A%(F)ĞG;".";G10);E$(F);" ";F$(F);:E%(F)0ĺ" (!)";::G$""(G$,1)" "G$(G$,1,(G$)1):6 G                  ~  @```p0x808 (`@`8~`?   x  `p8@@```000  `    |(@p!a? 1 0p0> (`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 , l^ưȭ氩L8ˍ`'s N ,";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::m*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                   <=nA$(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$;9)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$(92:5:V$(Z1,0):6:X1N%::5:V$(Z1,X)::22::"SELECT OPTION WITH ARROW & PRESS RETURN":" --> 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 `9\ȱ^8e^^_ , l^ưȭ氩L8ˍ` ȱ^lȱ^oȱ^p\̖Njʘݖ.,/-8e^,_i-e^^__`^_:ʽe^^e__l^" ަư8^_氠^LQ^P^i^_^Ѹ "^eP^_eQ_ Hȑ^^h^stopjmn+U^_ $:Rij^_ :kl?в^_^ȱ^^eȱ^e(ي0ȱ^ ie^^_ $:Ŕnпmлзj+;*8o勅oȑppȑoм( h c`^0vȱ^q.у```0./ ꥃL8. K"ȱ.^ȱ._$J0 ^ЫK`  +._.^. LGARBGARBAGE MAN.RM 6h j݅H ! g R8ompnPQ hhLc X^i_ir^^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)+ (.Q.0.уING SQUARE INDICATES WHERE ON THE MAP THE SELECTED NAME IS OR WAS LOCATED. ":214)8:"USE ABOVE COMMANDS TO MOVE CROSS-HAIR":F13ĺ"TO LOCATE FAMILY MEMBERS BY PLACE.")F14ĺ"TO LOCATE ";A$(L);"."X*:"PRESS SPACE BAR WHEN LOCATION IS FOUND.":206(D%(C1)0Y2073(Y0:D%C:B%0:223L(:D$;"RUN MENU,D";C(219:::" HELP ":::M$(0,F1);":"::F11ĺ"THE SOLID SQUARES INDICATE PARTS OF THE COUNTRY WHERE FAMILY MEMBERS ARE LOCATED. P -- PRINT MAP ":214Q)F12ĺ"THE BLINK:H1:47:L$;(H%)".NA,R0,B1"''196/'D19'204J'D1ČJ:204['23:HE1:11e'220'P10:80:F1X:Z11:F1151,164,176,137'200'Y0::H1İ72'HE1:11:968,B%1:969,R:970,D%(I11):HD1:11:971,B%1:972,R(D:::U$,WORLD:P101:E(P1):O%(P1):I0E(P1):M$(P1,I):::"CHOOSE PLACE TO IDENTIFY/CHANGE ON MAP:",PLACE,"CHOOSE NAME TO LOCATE ON MAP:",NAME:P$(1,1),F$(2),A(2),F%(2):K01:P$(K,0):P$(K,1):'F$(1)"USA":F$(2)"WORLD":A(1)G300:A(2)G3210:D10198:G(N)((N2)4):H(O)((O4)8):M$(1,4),B(2),C(2):I12:B(I)130:C(I)80::4,1,LOCATE FAMILY MEMBERS ON MAP,SHOW FAMILY DISTRIBUTION,LOCATE FAMILY MEMBER BY NAME,LOCATE FAMILY BY PLACE, "IDENTIFY PLACES ON MAP"& 2,1,WHICH MAP,NORTH AMERICAR$:U$:J%(I11):K1E%:M%(K1),H$(K1),I$(K1),G%(K1),A$(K1),A%(K1,2),N%(K1):F(D2)(D2)E%(D21):E1F(968):D1F(971):D%(I11)(970)$F(D2)(D2)E%(D21):E1F(968):D1F(971):D%(I11)(970):E11E1D1E11%B(G2)G242:C(Q1)Q184((B%1)E%)M(P1)P%D2::D$;"OPEN NAMEDATE":D$;"READ NAMEDATE":"INPUT",R$:E2:C:A:I1:W1:S$:D$;"BLOAD EXPAND,A";G:F2G200:X(F2256):232,F2X256:233,X:1:0$M$D$"OPEN"R$:L$D$"READ"R$:O$D$"WRITE"R$:U$D$"CLOSE":N$D$"VERIFY"1:1:H$(R);" ";I$(R);21);A$(L):B21L"B2Q120İ7:6:C1:B20:S27HEY":B2İ7h"T:U:179"D$(4):B12077:T2051:C1958:J1052:Q856:C2440:C$(1)"F":U1002:(975)J380#E%(974):P%(973):I%200:Q%5:J$"ESC:BACK":3:D(D2)!12:Z11İ9:Z10&!32:Z27176>!Z87W0:Z11:178R!Z63İ208:178!:B1:U:122:219::" NAME";:21:"LOCATION":::28:35,23:6:HBE:11:LM%(R):L1LN1185:A%(L,0)V185%"(A%(L,1)N)12(A%(L,2)O)10Q1(37)1:116:QR)" -- "A$(L):E$(E$,1,37):9:Z10A NA%(L,1):OA%(L,2):29d T$"":6:"KYBD",T$:T$""171~ S(T$)128:S27164 S63İ208 S87W0:Z11:10:169 171 P11:Z11:80:S27ı E$M$(0,3):VX:G$" "J$" RETURN:CONTINUE"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,24,105,224,72,104,76,240,253:54,0:55,3:1002:(4);"RUN MENU"K 64166GL1012,0:4230,64::A$(4):(4)"BRUN LOMEM:":4096:(4)"BRUN SOFT SEVENTY2 $800":A%15:B%255:B967972:B,0::969,1:973,A%:974,B%:C(8176)129:975,C@ D768791:A:D,A:: 201,225,144,17,201,251,176,13,72,165,50,201,63,208,5,104 CH.RM R % lݠ { lݩ j݅H  L e8+%! hLc۠DELARRAY DELETE.RM , , :v 2r:z4z:r0p  :tp0 ̚:| p:}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$|U*| D*(U~@*U }"U*|D T*|@QP*U*}*U*| U*}EDT`T҄l2w'n-n/H hnwnwH whԠw Ɂ &``~ T*U | D*U*|D"U*}@ Q P(U*}D(U*|Q*}*T*U*}A U*|D*} ~@(U*}"U*|@"T*(U~*U*|Q*|Q**U}*U*|"T*|P(* ~@*U }D*U* T*}@ U D*U | (U*|Q*~(  ~*U }A(U*|PU ~  *~E*U*| "T*|D T ~  ~@*U~D*U*}AU*| D ~ (~P*U}Q*U*| D U*|Q ~ *~P*U}E(U*}U*}"*U*U*U*U*U*U*U*U*U*U@*U*U*U*U*Up*U*U*U*U*U*U*U*U*U*U*U  PP@   @D @g*(     @Uwo@*U*U*U*U*U*U*U*U*U*U*U*U*U*U }*U*|A*U*U*Ue@*U*U*U*U*U*U*U*U*U*U*U*U*Un(U*U*U*U*rU*U*"D  D D(U*U*  PP@   @D@g*      @ Ef@*T @* @*A*UU@*U@f@*U*U*UU*U*U*U*U*U*U*U*U*U*U*U*UoT*U*U*U*s@*U*"D(*D"D(U*U   UT@   PT@g   @ @   (@  Eg*P( * TTT@f@*U*U*U*U*U*U*U*U*U*U  (@ (Ag @((  @PP@*U*U*U*U*U*U*U*U*U*U*U*U*Uo@*U*U*Ut(U*"D( D"D(U*    PT@g  @@  (@ (Ag @((  PTP@**x*D( @"(U*(@  @g (U@  (@ *@g @((  @T@*U*U*U*U*U*U*U*U*U*U*U*U*Up U*U*vT*"D(*D"D(U*    TT@g @@ōˠΠŠӠΠϠōŠΠ٠͠ĠźҠˠĠՠŠϺΠӺҠӺҠҠŠ΍٠ҠP%:PP1:S1(T1P%):S1S1(S1T1P%):U1D(1):V1P%:U1V1T1V1T1U11f`MāHU1U1V11:116:aQ14:5:HU1U1V11:5:Mİ116:5:H;".";H10);H$(R);" ";I$(R);bMİ3c::HR1:Q14:20:S11Ė26:(E%P%)(B%1)MP;" OF ";S1;" PAGES";;40)::" --> ARROW DOWN";7);"N:NEXT PAGE";40)::" <-- ARROW UP";9);"B:BACK PAGE";40)::" ";J$;:Mĺ" R:RESPELL (!):NOT LOCATED";\40)::16368,0]27:MHE1:C%H%:116:H%C%90:HR:95^HL1:H0H1J_S0:P(H(P%.1)):R1HPM$(P1,X)::O%(P1)X:$TS27P1ı5US27ġ:202^VZ(S21)(S10)(S8)(S11):Z088WQ1X2(P1X4):1:3);:XXZ:XE(P1)X1XX1XE(P1)Y83ZH%093:219:4:P$(M,0)[21::"SELECT "P$(M,1);" WITH ARROW & PRESS RETURN"";M$(0,F1);R":":7:X1E(P1):5:M$(P1,X):(1(P1X3))40)::XO%(P1):Q15:22::"SELECT OPTION WITH ARROW & PRESS RETURN":" --> ARROW DOWN";7);J$;40)::" <-- ARROW UP";40):SQ1X2(P1X4):1:"-->";:7:S13ĢQ1X2(P1X4):5::1N1:A$(K):O102:A%(K,O1):::D$:H10:6I78]J3:N$;(H%);".PLACE,D";J%1:220cKLD%J%1:223:S27Y1:204M73N"ERR":220O57:76P219:5:P11F14ĺ"WHICH MAP TO IDENTIFY ";A$(L);:82 QM$(P1,0);:P11ĺ" TO ".LOC,L4":8@D$:3:O$;(H%);".LOC,R";R:M%(R):D$:]A73:L$;(H%);".PLACE":N10:70BN1:K1N1:"INPUT",A$(K):A%(K,0):A%(K,1):A%(K,2)CD220EF"ERR":220GN168:XK:KN1:N1X1:67-H73:O$;(H%);".PLACE":N1:KL";I%:M$;(H%);".PLACE":65:220L6P1:BD(1):23:L11:M10:D%(J%)H%:]7"ERR":220i857:519Y1:14:G$"WRONG DISK!":22:::M%(R)0ı;2::L$;(H%);".LOC,R";R:62<M%(R):220=D$:>"ERR":220 ?D$:M$;(H%);J%)B%52|2:"DEL",M%(0),H$(0),I$(0),G%(0),A$(0),A%(0),N%(0):J1(0):M%(K1),H$(K1),I$(K1),G%(K1),A$(K1),A%(K1,2),N%(K1)3D%J%1:223:S27Y1:204455"5H%B%:3:N$;(H%);",D";J%1:M$;(H%);".NA,L32":M$;(H%);".LOC,L4":M$;(H%);".DATA,%(R)1ı'*L$;(H%);".DATA,R";R:45u+G1:"INPUT",B$:"INPUT",B$:"INPUT",B$:"INPUT",B$:"INPUT",K$:D$:220{,-"ERR":220.D$:M$;(H%);".DATA,L";I%:/11:B%H%ı0Y0:H1İ72 1:D$;"CLOSE":J%J%(CI1):K%J%:CI1D%(:S(Z47)(Z10)(Z13)(Z11):Z27Z32Z63Z87(F14(Z88Z67))ĕ1N,O:29:h "Z31Z47FFx #(XS)033 $1N,O:NNX(1(F1)9):OOS(1(F1)9):N276N3 %N3N276 &O3O188 'O188O3 (1N,O:33)K$"":116:G"'S FILE"::Y0:226:3 4::35,19:C1:35,24:T 24:1::G$;40)::10:1:h B(V)N:C(V)O: :G$" RETURN:PREVIOUS NAME":28:10:"GO TO NAME # ";B$:E1(B$):E11E1D1E1D(H)  F1:NB(V):OC(V):1N,OS !7:ZS:X(Z21)(Z8)1:15) 1:J::C1:G$::K12000::A EBE%1:ED1ED1G  :B1::10:A$(L)::"HAS NOT BEEN IDENTIFIED ON THE MAP."::"USE THE 'IDENTIFY PLACES ON MAP' OPTION!"::Y0:226: :10:"NO LOCATION WAS ENTERED INTO"::H$(R);" ";I$(R);1)E%: VWV1V2ı* F%(V)018< D%(C1)016^ D%C:B%0:223:S27Y1:204g 20 :D$;"BLOAD";F$(V);"/PK,A";A(V);",D";C:F%(V)1 220 3V1:A1(A(V)256):G1,A(V)A1256:G5,A1:G:WV: "ERR":B1:U:220 Y(B$)128:SS32(S96): " --> RIGHT":" <-- LEFT":" RETURN UP (ARROW UP)":" / DOWN (ARROW DOWN) OTHER KEYS:SLOW/FAST TOGGLE":: :T:U:24:9,25:C$;E$; 24:9,63:"?:HELP";:1:: B%(H(E%.1))1:RH(B%(A6:C1:204z(175)256(176)46:24575:(4);"MAXFILES 5":"RESET",99:D(116)256(115):GD4900:G1:187A$(H);:A%(H,0)0ĺ" (!)";J:K110:6::1N,O:2N,O:Q:1N,O:2N,O:Q: B$"":"KYBD",B$:B$""7:S           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<@|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   5??.-- <<77..%-%;2)p"p 'x@8(i8逅i 8ԥΥд`$ 08 !      Т '()*+,+?MV )-;? XX $26XX(-5??.- |QxTbb]o#|hG #~||(E]Hx>?|hG|(qEy(@|p>\?x?fggBgQ[gB[QggBQD==DQj|AxPJ]#|hG #|Q~'|(]@r??|hG|(ee|(E}x>\?T~(|Ohkj|kj|SJ]#|hGB_|Q~'|\OrD|hG|(ee|(E}xZT~(|OhkP ([kj|S ]~|hGb_xS #]pQD|hG|(Eq?|(E}x\|)~GhZkjPd~hGbxC #]Ca|hG|(Ep?|(E}x\P@ |!~[~@gkj~`GpTrGJ)]ca|hG|(|(E<x\QbGE{#y#sqC G[`|gkj|`GxG>TrGJ]gs|hG|(|(E\8@~|x#y#{wb~~~~!kj|GxS<TbOb]wo{|hG ~!~|(E\ 8~|`| q'EyG?p*v GX~~~~~~~~~~&^~~~~~~~~{V v *؞ v*Xv W~v W~u W~u W~u W~u ~C~}~}~}~}~}G~~~.~}~}~}~}~}{>~~~~ɰ~qɰ~qɰ~qɰqɰ(qIqIqqI~'WWE|װ|װ|װ|װ|װ(SXذ2~q`P d r***>~~~~          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` !!!RWP-/H h j9-/  wɁ j &-/  j-/  jL``  o`0νϽ ` „0 L>0fx@L~l`xx0fX @LxjfLp`@<xfX `L5|;?54 7897  ~L 6 X oig4wxs `0 @<p0 px8>8`|f<xgggighigggidiggdggjigg||||N€ogghL-|||||||||||||||||||||`ͤέͫ`HQ^Ύ]GP` Lj0ΠLYΟ HQ^L j)LVLɛLC`HHH1νL!c!ghhhɍLC` L m`xy8  mmy:8my`y?ϭȢ8m?ͤέͫ`8m!! ! ! ! ! !!!!!:63>W1,V1W1,U15T1+?S10MOıM@217:X1(G%(N)):X11X12ı[AZ11273nB236:Z11273CX1W1,U1:E1MA2W14:B2U18:4X1W1,U1DE%(N)173EW1271ME173FB(N)0(C2B(N)1)73GXC(N)0:C2XC(N)(C21)20:Q1:R1:34,5:35,23:H1:40[9A12ĭB11G(0)1:G(T$)39ĺ" ";T$;:G:J$" "T$z:A20ĭB12J$"":C1:40;A27J$S$:I$"":K1J1:I1:C1:39<40=M(S1):T1(U1V1):M(M)ĭME1āGV1T1(U15T1)4T1:W1,GW1,G1::M(M)M11(K13)3ĴA32K13B1249:I$I$J$:z3L1L11:A$;:I$I$A$:J$(J$,2):K11ĭ(I$)12B12ĖI1:" /";:H:4405A8(I$)J$(I$,1)J$:I$(I$,1,(I$)1):A$;:(I$)K1406A8497(A7A14)OO1ġ::: 8A22J%ČP1:-*A21A$(J$,1,1):(A$)41:A$" ":41J+A3253:(0)38ČV:40W,K1049{-Q1Ĵ(A70A77)M1149:51.A45M1K11ČC1:K10:J$"":51/B1151:Q9ĭL10(A68A83)K10:C1:J$"":510(A47A58)A32501V:40/2:F$(N)"":G$(N)"":G%(N)0:E%(N)0:B%(N)0:14:I%2A%(R,I%)0F #d $"GARB",G1,1000:G1350ıo %368: &I$"":H1(37)1:I1(0)1:S$J$:J1K1 'H1:I1:J$;:B116:I1:L10 (A$)A(A$):M1(I$):A13(A27M1)(A47B12)I$I$J$:,1)R$SG:G1  < N0:G1D1:MB%(G)NG:GD1D :c 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):104 !ME1ı@ "G0F1:A$(N,G)"":M$(B1)N$(O$,1(B12))"NEXT":T0M$(M$,1,26)W 24:1::M$;40)::35,23:1:k 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":160 M0:J$H$:s 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:3 M$5:217:HF M;".";M10);:F$(N);" ";G$(N);:E%(N)1G%(N)ĺ" (!)";N : M0MO(0)((M))37ĺ"("M")";:(0)39(H$,1)"*"ĺ"*"; H: (I$)ĭ(I$,1)" "I$(I$,1,(I$)1):8 M013 M(M):M0MOİ217:J$F$(N)"KC6:F1:364(175)256(176)46:"SPLIT",0:"SPLIT",2:"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)::348 " """""""""                 0:I112:A,B,C:5682,A:5671,110(A200):SČ5670G |SāJ11000: 5421,B:5423,C:5376::B152:C111:1000:1010:B184:C112:1000:1010:B56:C114:1000 "RUNHELLO" 5421,B:5423,C:5376: I11500::S00,152,96,245,72,97,4,229,97,19,248,98,31,160,99,43,28,100,58,172,100,73,56,101,88,20,102,97,160,102,112,36,103,127,36,103 hI45XX2:YY24 r:I47166:19,I23,I:249,I253,I::I167170:19,I253,I::B0:C96:1000:5671,110:B77:1000:16299,:X41:Y230:I3844:0,IX,I:Y,I273,I:XX4:YY4:I42XX2:YY2 :I43:J16:A:II1A:0,I12,I:260,I273,I:::I173181:0,I273,I::1:X135:Y137:I1846:X,IY,I:XX4:YY4:I22I31I37XX2:YY2z 60,84,108,132,156,172,2(8176)129S1230,64:5379,64:"BLOADALLSET":16302,0:4:0,0:62454:6:X134:Y139:I216:X,IY,I:XX4:YY4:I12I13:X88:Y185F:X140:Y197:A76:B133:I1736:X,IY,I:A,IB,I:XX4:YY4:AA4:BB4:I21I30XX2:BB2I "" " "