@L|}6CD l0C)HCC WhL/h `CmCDiD`  R@P1  Y0@R !L` D  C D     )16CS S)  C)D1 p p 0 C9DI pCDL~CiCDiD` D  C D     )16CS S)  C)D1 p p }0 C9DI pCDL~CiCDiD` DD˙` d J)L !}D L(( LL()  L| L( S LH 0p n  } CY?  q  L L  ` )} `A! d߰")-݆ "  $G@LLL&0") $G% }H0 3S8`G ȱG ȱG   Gȭ Gȭ GG}GHiH8(()) G$H% `(0 })8` d)L ݆ & LGȘ ݆LL d  ! LL d)N>Q  HH) }  hyhyB q L> Lm JJ  Ln*` dB%' }8  H H` 1 { LL   !L     Hh SY?  q  1L }  !? S   q 1 L   Ll  Lg E`L   !L)  q 1L}) `L0AM݊L݉ ML  N݆LLLNLMLHG!@}1F GȱGLLEEȩÑEȑEEȑE Ed E7EȩE  q} L !,0,0SGɛ L 1 !L EHEh W G gLLSROTCES EERF } G) *Gȩ GȽG GȌd q q G`  8   0G  `D}CEDC0X:Ȣ Y ȱC* ? 0.. , 0%n ?A[ 0 : L`L  `, 0`Y}`piH n0)բY? 08`0 }  0$L GGȽG L `8L`L}8`  05G)݁,G)ȱGȱGHh0})Hh` B! 8`8iiiLE`}E8FEh( l0`ɃLL L8^~jj8jHi hEEEiEȱEiE` dTE} H8EEȱEEȩEh J E8   . m  i`LI!)E1FR}1LJ舩9GIH`LJJ`HGHh l`} S gL   8 rii `дCDCG W  }C  Lq` X٨`DOS SYS IIIIIIIIIIIIIIIC`0 ߩ0}}} |||DDOS DOSDOS SYS }}}}}CDOS SYS} 0`BDELV !B }`LVUQ   ]   TU J ]L!T  #      TU  } L ? .  t`GBJ V~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI   0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI$} V0 0`B;DELV䌚 !B y`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J V (` 9 V⪍ ઍ  -'}LLu DEHILV 9 .l 9 .l  `` s$B VBH(}I|DE V BLV nB,DE J V* \*` B V BLVDEHI BLVL)}1u H232435; 1 ;  hh@2 e1i1LHҍ 00) 08 109hh@ Ҡ2e*}1i1232435ޥ<<8} 3E:}DISK OPERATING SYSTEM II VERSION 2.0SCOPYRIGHT 1980 ATARIA. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDGE J. D,}UPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRESSF. LOCK F-}ILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES9!&x#!7&p))'&X*./)L''-؆莟.}R'S  vW DEHHI 1A#! @ ~0ɛ8A0.) ȅ 1 1i/}il ! 1L NO SUCH ITEMSELECT ITEM OR FOR MENU! 0 .{z:*{}.|~ 1 0 00}JB 18L^%|DLl%DIRECTORY--SEARCH SPEC,LIST FILE? # 0 0 n&|D! 1L NOT A DISK FILE1}N !B 1L " 1 !BDED:}:1BJ|DE 1DEBH2}I 1 h0ߢ 0.  0?詛 1 ~0YЛ 1 "L<" "L 3} BL1TYPE "Y" TO DELETE...DELETE FILE SPECCOPY--FROM, TO?OPTION NOT ALLOWED523 FREE SECTORS COPYING---D1:SURG4}E.TA55# 0|D .L$A#B#C#JB|DE 1BHIDD#E 1D#0: B5} 1L B#C#C#B# B 1N#$0SYS1}:e#D# d# D# .d#ȽD# d# 𩛙d#X# 1,A#6}PdD#ELO- A.BJdD#E 1 1HH 0hh|DL^%1}:e# Lt% e#dD#EL%7} 1 0 . .0% 1L WILD CARDS NOT ALLOWED IN DESTINATION 0 A.|K@C}//3Hu ξL/L DRIVE TO WRITE DOS FILES TO?WRITING NEW DOS FILESTYPE "Y" TO WRITE DOS TO DRIVE 1.?}D1:DOS.SYSERROR - NOT VERSION 2 FORMAT. , &* բ( 1L `[) 0NΞ 0 L1M) 1@} L BAD LOAD FILELOAD FROM WHAT FILE?) 0 0#B 1L WHAT FILE TO LOCK?) 0 0$B 1L WHAT FILE TO UNLOCK?DUA}P DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO USE PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV. h  ,B}  `)  <0 2 2 0  ,   ,,ޢ* 1L ,K* 1 ~0 0C}FINSERT BOTH DISKS, TYPE RETURNERROR - DRIVES INCOMPATIBLE., 1 ~038  , 1L D}, &*  Lz+, 0 , 1 ~0 + Y,0!,0 ,L+ ,mm  v,"ǭE}0Ξ, 05,Lt+L +,Hh` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNF}INSERT DESTINATION DISK,TYPE RETURN`    `L,8,0( rG}L1(`ߢ) 1* 1 ~0Y`hhL S SL1) 8`NAME OF FILE TO MOVE?- 0 0|DLtH}% A., 1 <0 0 .@L# .BJ 1  DEHIB V L1 ,5 1 <0,L. I} JB|,A#Pd#DE 1 HI BDEHHII 1 B 1 , 1 <0,0Lf- B VJ},A#P, 1 <0 0L#L ߢ) 1* 1 ~0Yj383}mm ݭK}}`8}``|* ? ɛ,`|:(|/ 1L `DESTINATION CANT L}BE DOS.SYS0 0H{ $22Δ $28/L /) $2 Π $2 0 ξM}hAΞB,0 J 1 BޝDEHI,HDE 1HIHIDELSAVE-N}GIVE FILE,START,END(,INIT,RUN)O X0 1`BDEPHI V` X0H 1 L O}0 0 1L0`PLEASE TYPE 1 LETTER,0`hhL <0 1L0LA1 ,;ɛ7,"ɛ:ݦ1ݥP}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{Q}NAME TOO LONG B VL ` L1I H1EӝDL1|mDiE` V0`8d/8 i:"2!22 1R} L ERROR- 138ɛ+,' 20*.. өw2 1``2TOO MANY DIGITSINVALIDS} HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D4uT} HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D4uEgͩiΩ͙i>mn`hy zh`Hg͝Νh`V}RUN"D1:FAMILY"ͩiΩ͙i>mn`hy zh`Hg͝Νh` zDZZAHLTIMZZSEL X} %%.%%.| PRGM 'FAMILY' REV. 4. Y}0 |%%.| BY: JOHN KIRKPATRICK |%%.| COPYRIGHT (C) 1986 |%%.| 1985, 1984, 1983, 1982 |%%.| Z} CALEDONIA ENTERPRISES |%%.| 490-A ABELIA STREET |%%.| SUMTER, S.C. 29152-1403 | %%. [} $$| 'FAMILY' IS THE MAIN MENU | $$| FOR THE | $$| GENEALOGY DATABASE | \}$$| AND |$$| FAMILY TREE ORGANIZER |$$ +A ]}1AR@C@@dUB7t@dgAYyA BP B` ^}AY@4KBt@'Bu@9B@KB@8-@8( _} GENEALOGY DATABASE AND<-@@<(" FAMILY TREE ORGANIZER 'AAH'A@h `})-@@)( COPYRIGHT 1985=-@@=(# (-@@(( a} VERSION 4.1+-@@+(SHAREWARE VERSION8-@@8(1 INSTRUCTIONS ON PROGRAMS USE(7-@ b}@7(2 CREATION/UPDATE OF NAMEFILE26-@@6(3 NAMEFILE DIRECTORY LISTING78-@@8(4 c}PRINT PEDIGREE CHART 95-@@5(5 PRINT FAMILY GROUP SHEETS:4-@@4(6 FORMAT A DATA DI d}SKETTE? <F@.@@K:;)@F@Ap-@@>($ e} P-@@p( B}!@H* @U+B2V=B2W f}OB2HaB2IsBBAU}+FX"@:1, -@@<( 'DOCUMENTATION' g}F A X% D:FAMTREE.DOCPV"@:2, -@@=( NAMEFILE PROGRAMG A V% D:NAMEFILEZZ"@: h}3, -@@=( DIRECTORY FILER G A Z%D:DIRECTRY.FLEdV"@:4, -@@=( P i}EDIGREE PRINTERG A V% D:PEDCHARTnY"@:5, -@@=( DECENDENT LISTERG A Y% D:DESNDNT j}.LSTs"@:6, B%xa0@/AR@9 A@K-@@^(PLEASE STANDBY k}a$S-@@;(! Ġ٠Ĭ٠O-@AS E-@@?($ l} B'E%'!!'!!| DATA DISKETTE FORMATTER |'!!| SYSTEM ROUTINE m} |'!!'u0@5;@,;@,;(}M-@@q(WHICH n}DRIVE TO FORMAT (1/2/3/4)u' 416.D:' 426.D2:' 436.D3:' 446.D4:$'; (}- o}@@;(ΡŠˠ̠.'8-@@8(Š٠ĠƠ8'5-@@1 p}(Ӡ٧ϠŠ5B' 0Y%L'3 4Y0AT@3$a:;@8,:6.#HH q} ԍhh@a*6-P:C:,'AV,*6-C:,&$AVaA @a--@")A& r}%- a'A$'A%@a--6-F:A`,%AV$F:Aa,%@a%@A0+%@ s}A0?%@A0S%@A0g%@A0{%@A0%@A0a%@ t}A0+%@A0?%@A0S%@A0g%@A0{%@A0%@ u}A0aAAaBBA$b..0,4,0,64,0,194,0,36,0,128,0,98,0,0,0,0,0eKB2aAU v}'B2H@59AKB2V@eNB2bAU'B2IA9AKB2W@ w}N$&3F:A8,%AV$F:A9,%@@D:FAMILYC B'g@y/@@,@ x}@/@@+,@@'/@@9,@@K/@@],@ @o y}/@ @,@@/@@ ,@@/@@0h@@'-@ z}h(@3ŠǠӬin fact another three rows of em:b@'-@@b(6AND OF {}COURSE SOME TINY TEXT....PRESS TTEXT....PRESS TO GO ONB2y@6-F:B2y,"@ |}% D:PART.10 A@' B@'%%6-F:A`,%AV$F:Aa,'%6-F:%@,%6-F:%@,'6-@ }}'""B@'+%&@,'"@%@ '"@%@$'6- ~}%@ B.'VV112,112,112,70,64,156,6,6,9,9,9,9,9,9,9,9,9,9,7,7,7,7,2,2,2,2,2,265,32,124,0,0,024,0,0,08'$ } ;AANS $$ $$| PRGRM 'FAMTREE.DOC' REV 4 | $$| } BY: JOHN KIRKPATRICK | $$| COPYRIGHT (C) 1986 |$$| 1985, 1984, 1983, 1982 |$$| CALEDONIA ENTE}RPRISES |$$| 490-A ABELIA STREET |$$| SUMTER, S.C. 29152-1403 |$$$$}| 'FAMTREE.DOC' READS |$$| 'FAMDOC.DAT' FILES |$$| FOR ON-SCREEN DOC'S |$$}R;@@,;@,.6. D:FAMDOC.DAT@AA%R@@d(* @@}* A2W (}-@@ *@. 2 5(I(ӠΠMW @P@( ((Ơ }@<(ENTER 'YES' TO CONTINUE@.!4YES)4yes)4Y)4y.%D:FAMILY&3F:A8,%AV$F:A9,}%@E D:FAMTREE.DOCH B'g $$| PRGRM 'FAMTREE.DOC' REV 4 | $$| 3ŠϠŠ٠ŠҠĠ٠ŠҠ͠Ӡ㩱This database} manager will allow youto organize and maintain genealogicaldata. It creates data files on yourrelatives, and allows the }creationof a personal history of the personthe file is created for. In usingthis database, you will be able toretrieve d}ata in the form of PersonalHistories, Pedigree Charts, & FamilyGroupings (Decendant Listings).ԠMake a copy of the} Master Disk -- itwill get plenty of hard use, and putthe Original Master Disk in a safeplace; then format a blank disk to} beused as your data disk #1. When itis full you can add more disks. Eachdisk can hold 64 files, representingseveral hu}ndred relative files. Theprogram can keep track of about 500files (i.e. eight to ten disks andtwo-thousand relatives).}נԠӠStart with yourself and work backwardtowards your parents, & grandparents.Enter the information as asked by }thescreen. The computer is interested inthe persons parents, and children (ifany) for family tracing (linking) andwill ac}cept a large personal historyfile. It creates a file on that per-son defining the following relation-ships: } | Π | |   | | } |  |   | | Ҡ | | Ҡ | | | } | | | |   |  }   || || || ||| # 1 | | # 2 | | # 3 | | # 4 |  }   Relationship DefinitionYou will notice that we didn't listthe SPOUSE! Bec}ause of divorce, aperson may have several differentspouses (not at the same time) andthat is the problem; so we will uset}he children to link the marriages.So when you tell the computer aboutthe children you will also tell itwho the other paren}t is. To show amarriage with no children, we lie abit, and tell the computer they hada child called "NO CHILDREN." Theco}mputer will be quite satisfied.Next, you will create similar filesfor that persons father, his mother,their parents, and s}o on through thegenerations. When we ask the com-puter for a pedigree chart on thatperson, it searches the directoryfor }files on each person it encoun-ters, and traces up or down the treeas appropriate until it finds nomore information. The }limit is 15generations when tracing decendants.ǠӠTo create a file, insert the MasterDisk, and select item} 2 from themenu. This will load and run theprogram for you. Now just follow the prompts. Re-member the chart }shown above on therelationship of the files; enter thepersons given names, family name andbirth year. You must use only c}api-tal letters for names. If you don'tknow the exact birth year, the pro-gram will accept dates like 192X or19XX, etc.} The computer now draws a smallbox, and asks for the "Vital Sta-tistics" on that person. The box hasfive lines of 32 char}acters. Youenter any potentially useful factsin any format; what I have found tobe the best, since this box of infowill }be printed on the pedigree chartand decendant listings is this:B: (for birth date)W: (for where born)M: (for marriage dat}e)W: (for place of marriage)D: (for death date and place) The computer moves on to gatherinformation on the parents. J}ustanswer the prompts, using only thecapital letters for names. For the section on children, thecomputer displays the fo}rmat andthe Legend Key. To enter or editinformation, press "E" and Λthen enter data as required. Type"S" to save t}he data and move on tothe next child. The screen retainsall the information on the otherparent as it might be used for th}enext child, or you can type the newinformation right overtop of it.When you finish entering data forall the children, ty}pe "F" to end. The final section is for thePersonal History section, or othernotes. You enter text a "line" ata time, w}ith the last several linesdisplayed on the screen. The word"line" refers to a 75 characterprinter line, which in fact tak}es uptwo screen lines. Type until thecursor nears the end of the secondline, then press . To put anextra blank li}ne between paragraphs,just press without enteringanything. When finished, enter "@"to exit this portion ("@" is th}e-8 key). The computer now asks if you wantto save this data in file"LLLLYYYY.NNN". After a bit of re-flection}, you'll discover that"LLLL" represents the first four ofthe last name of that persons name,"YYYY" is year of birth, and "}NNN"the first three characters of thefirst name. You've just decoded thesecret of the computers filing sys-tem. }堛- you'll need it againshortly. If you want to save thefile then type "Y" or "YES". The}computer asks you to make certainthe data disk is inserted. Press and the file is saved. Don'trush on to create a }file on yournext relative yet. Review the editingfunctions below and save yourselfsome typing.ǠΠӠ} Run NAMEFILE again. This time whenprompted, enter the name of the filejust created. If you can't rememberthe name, you }can use the DOS commandto see the disk directory. Later wewill put it into a different kind ofdirectory. The program ask}s if youwant to update the file or print it.Choose "update". The program thenretrieves data from the disk waitingafter e}ach step to see if you want tochange anything. Change whatever youwant, then press when you arefinished. When yo}u reach the files on child-ren you have several choices: ś S S-ave D D-lete} E E-dit or Enter I I-nsert another child's file before this one F F-inish th}e child data entry R Retain Parent Data- (explained later) At the Personal History }section,the program retrieves each line fromdisk and waits. You can edit (justre-type the line, or move the cursorto whe}re corrections are needed andoverprint), delete (-), Insert (+),or quit (@). When done, save thefile as before.Ǡ}Ӡ The most important shortcut whencreating a new file is to recycleone you've already made on someoneelse with} a lot in common. A spousewill have the same children, a bro-ther the same parents, etc. Insteadof indicating a "new fil}e," ask forthe file of the "similar person" andjust edit it as necessary. The "Retain Data" option mentionedearlier for }editing the children'sfiles will create the other parent'sfile from the spouse's, since someor all of the children are ide}nticalin information. When the firstchild comes up for editing, do anormal edit to include his otherparent, then use spe}cial option "R";the computer reads this command assave the data on the screen, thenbring up the next child withoutchangin}g the parent data on thescreen."ǠŠ If you had pressed (P) instead of(U) you would have printed out that}individual's file including theirPersonal History.Š٠ Create more files now if you want,but note the name} of each file asyou go. Before we can do much else,we must record these file names inthe "directory." The chart printing}programs use this directory to de-termine if various files exist andwhere they are. When you're readyto make entries in t}he directory,insert the Master Disk & select fromthe mini-menu "". From themain menu select #3 - Namefile Dir.The }program asks for the names of thefiles you want saved or deleted. Typein each name when asked, indicate thedata disk numbe}r for that file. Itcontinues to ask for names until youare finished, by pressing without an entry. Answer Y to the} promptif you want to print the directory.Note that the directory file resideson the Master Disk back-up, sinceseveral pr}ograms use it when executedand the directory includes individ-uals on all of your data disks. Mysuggestion is that you us}e the DOScommand "C" and copy the DIRECTRY toall of your data disks, it isn't thatlarge of a file, and it will preventfru}strations later on when you havelots of data disks to maintain. Whenfinished, return to the FAMILY MENU.ŠԠ} From the Main Menu select PRINT APEDIGREE CHART. The program asks forthe name of the initial file -- theperson whose }progenitors you want tofind. Next, it asks if you have aGemini 10X printer. If not, or if youhave some trouble with the p}rintouts,look at the printer control sectionof the program (starts at line 20000)and adjust the printer controls tomeet t}he needs of your printer. Ifyou have the STAR MICRONICS printers,answer YES to the prompts, any otherprinter can be tried}, and if unsatis-factory results are obtained, thenanswer NO to the prompts and use thestandard fonts. It now looks for th}efirst file and tells you to insertthe correct data disk. If it can'tfind all the files on that disk, youwill have to cha}nge disks one or moretimes before starting to print. Ifyou haven't put all the file names inthe directory, it won't be ab}le tolook for them.ǠŠ٠РԠ From the Main Menu select #5-PrintFAMILY GROUP SHEETS. The progr}amasks you to enter a "title" to beprinted at the top of each page. Nextenter the file name of the personwhose descendant}s you want Listed. Ifnecessary, you may have to insert oneor more disks to satisfy the searches& again keeping the directo}ry currentis important. After tracing all knowndescendants of the person selected,it asks for another file name. If youha}ve all the infomation you want,type DONE to return to the main menu,However, if you want to continue thetabulation startin}g with a differentancestor, enter the file name, & thetabulation continues from there. Ifit finds it is about to repeat a}listing, it inserts a page referenceand skips ahead. A good approach is to generate apedigree chart (or charts, if itgo}es back more than five genera-tions) for a given person. Thentabulate (in a single run) the des-cendants for all the most} distantancestors. When finished you willhave a tabulation of all that per-son's known relatives.ŠӠ Wh}en using more than one disk tohold all the records, try to keeplogical family groups together.Avoid entering names randoml}y. Forexample, put your father's family onone disk and your mother's onanother. Keep in mind what sort ofcharts you wil}l be making and forwhom. If you are keeping track ofcousins who will appear only ondescendants lists, you might packtwo }or more generations into one file To see how to do this, considerthe descendant list. It indicatesvarious generations b}y indenting anadditional two spaces for each gen-eration. Simply put both the child-ren and grandchildren into a persons}data file, but insert two spaces infront of the first names of eachgrandchild. Then on the printout itwill show up as if }you had createda file on an extra generation.ǠΠ̠Ġ٠ƠŠӠ If you wou}ld like to obtain a copyof these instructions, you may do soby going to the DOS command menu, andusing the "C" command (Co}py File).First, you select "C", and then typein the following information (insurethat your printer is online and readyto }print). The prompt will say "Copy(from,to)" and you will enter thefollowing information: D:FAMDOC.DAT,P: (press )}your file will then be copied fromthe disk file to the printer andprinted out to you in 40 columnformat. The cha}racters won'talways print out properly (dependingon what type of printer you have) butthe majority of the text will be ver}yreadable. Included on the BONUS diskis MATT*EDIT which will print out thedocumentation very easily, even theinverse char}acters. Good-Luck and happy hunting for allof your ancestors. If you have anyquestions, comments, or suggestions;you ma}y contact the author at thefollowing address: John P. Kirkpatrick CALEDONIA Enterprises 490A Abe}lia Street Sumter, SC 29152-1403 (803) 666-3176Only registered owners will receivesoftware support. If} you obtained acopy of this program from someoneelse or as part of a GROUP LICENSING,you may become a registered owner by}sending $29.95 to the author, whichwill entitle you to future upgrades,and of course the telephone support.**NOTE**I hav}e included on the disk a datafile on myself, just to let you seebefore-hand how I use this database.And use it I do! I hav}e twenty-twogenerations of my family filed andseventeen generations of my wifesfamily filed. This program worksvery well} in maintaining the data andis influenced by my religeous beliefsand training, for example, the Per-sonal History capabili}ties for keep-ing your personal journal on!Ġ٠ŠҠ͠Ӡ㩱This database.HO,/AFNAMINNAMTOUTNAMREPNTCODEV1V2V3V4V5V6V7V8VH1VH2VH3VH4VH5VH6VH7VH8CNUICODLASLMARK}LASTLPLCOUNPAGCOMPOFESCAPDUBLOWIDEODUBLOFCOMPOCMPROCMPROFWIDEOFFAMINAM  }8JWK XK L 5L AL EL QLaL mLqL }LL }LL LL LL YKKAK  K<!"#}$%&'()*+,- ./A $$} $$| PRGM 'NAMEFILE' REV. 4.0 | $$| BY: JOHN KIRKPATRICK | $$| COPYRIGHT (C) 1986 |$$| } 1985, 1984, 1983, 1982 |$$| CALEDONIA ENTERPRISES |$$| 490-A ABELIA STREET |$$| SUMTER, S.C. 291}52-1403 |$$$$| NAMEFILE DEVELOPES THE |$$| GENEALOGY DATABASE ON EACH |$$|} INDIVIDUAL AND LINKS IT TO |$$| OTHER NAMEFILES AND THEIR |$$| PERSONAL HISTORIES. |$$}d~~;@2,;A,;@,;@,;@,;B,;@,;@,;@u,9@ },;@`,e]];@%,;@,;@,;@,;@,;@,;@,;@,f]];@%,;}@,;@,;@,;@,;@,;@,;@,i9 +'0@9@}@dnG-@@/(-WELCOME TO NAMEFILE-C-@AG ol(.(# WHAT IS THE FILENAME TO BE....K}(PDATED/DITED? -OR-l(RINTED? ['ٮ']pM(/($IF YOU WANT TO CREATE A NEW NAMEFILEI(PLEASE PRESS }M}6.>:AU,) 6. 67A,.)67@,.4A 6.D:67@,.- @}@-@I(((Is this file to be pdated or5(rinted9I4PAP-@}(N(,(!}ENTER OR UPDATE DATA AS FOLLOWS,N(HIT AFTER EACH LINE:l-@@ ?(GIVEN NAMES: } 7@<@,.Q-@@ Ul67@<@,.l-@@?(FAMILY NAME: 7@<@(},.Q-@@Ul67@<@(,.l-@@?(BIRTH YEAR: 7@)<@2,.Q-@}@Ul67@)<@2,.m("(IS THIS CORRECT (Y/N)?B@@K:O)@Z@}m"@:N,A| 6.D:,67@<@,.7@,L67@<@,.7@),e67@<@,..|67}@<@,.5-@@5(VITAL STATISTICS: c-@@+-@@%_( |7}@%@2$<@2%@2$,| c ^-@@+-@@%/Z67@%@2$<@2%@ }2$,.^  6.67A,."= 6. 67A,.)67@,.00=@, +'0@@ }A0@@S@@de-@%@z(7@<@,(DATA ON FATHER:6l-@ }@?(GIVEN NAMES: 7@<@,.Q-@@Ul67@<@,.@l-@@?( }FAMILY NAME: 7@<@(,.Q-@@Ul67@<@(,.Jl-@@?(BIRTH YEAR: 7 }@)<@2,.Q-@@Ul67@)<@2,.T)67A<AE,.)67AF,.= 6. 67A},.)67@,.00=@)-@@)(DATA ON MOTHER:l-@@?(GIVEN NAMES: }7@<@,.Q-@@Ul67@<@,.l-@@?(FAMILY NAME: 7@<@(,}.Q-@@Ul67@<@(,.l-@@?(BIRTH YEAR: 7@)<@2,.Q-@@}Ul67@)<@2,.w-@@J(PARENT'S MARRIAGE YEAR: 7A<A,.\-@%@}`w67A<A,.67A<A,.M:x-@@K( '' '' DAY/MO: 7A<A},.]-@&@ax67A<A,.567AG<Ax,.)67Ay,.56-A +'0@}@A0@@S@@d(CHILD NUMBER 7@<@,(----------}----j(( CHILD DATA8( ----------I( GIVEN NAMES:Z( FAMILY NAME:j( BIRTH YEAR:O( BIRTH D}AY:(2( OTHER PARENT DATAO( -----------------G( GIVEN NAMES:%( FAMILY NAME:5( BIRTH YEAR:D( BIR}TH DAY:G(I"(dit/nter elete inishI("ave nsert etain Parent DataXc6-@6-"6.96.7}@<@(,@6.G6.N6.U6.\6.c6.b) 46.6.6.) A5l9@4***}!6.(6./6.9 A5q4RAvd 6.@#@0@=@J@W}@d@{-@(B-@@#-@>( B B-@}@#-@>( B [-@@(+-@@/(A-@@E(}W-@@[([-@@(+-@@/(A-@@E(W-@@[("@}A"@6-@-@@ 4EA 4S*B:,!A4D}A4IA4FA 4R*B:,!A A-@@B:}, @6. -@@B:, @6. -@@B:, @6. - }@@B:, @6. -@@B:, @6. -@@!}B:, @6. $-@@%B:, @6. .-@@/B:, @6. "}3"@6-@8 A5L86-%B:,!67<&@,.*67,.86-%@V86-%B:,!67<&@#},.*67,.86-%@`86-%B:,!67<&@,.*67,.86-%@j86-%B:,!67<&@,.*67,.$}86-%@t86-%B:,!67<&@,.*67,.86-%@~86-%B:,!67<&@,.*67,.86-%@%}86-%B:,!67<&@,.*67,.86-%@86-%B:,!67<&@,.*67,.86-%@6-%@&}8 4***6.6."6..6-8 A5"@AP A3 6.6.6.6.!'}6.'6.-6.36.6- A54A?6-@6.6.!6.'6.-6.36.96.?6(}." 6.6.6." A5xC67<%@,.***+67%@,.96-%@C A  A0 6.)}@#@0@(-@@$@(  A5Z +'0@*}9@@dM-@@ V68,-Z V0((* =Delete + =Insert @ =Finish 86. G67A+},.V67@,.Z( ( (B( Have entered &@ children files. N6-Z6-@PP(H Now in,} 'Personal History' mode: --------------------------------0*0@@@@) 6. 67@u,.)6-}7@,.R0@@@*"&67@,.8-@@ R(>:AV,>:AV,-@@ + .}467,.!6-%@+ A! $$7@<@,4*A 27@<@,4+(6-@2 A 0 /}$$7@<@,4@B486-%B:,!67<&@,.*67,.86-%@>>-@@+68,-8%0}@,/ >68@ ,-H9 +'0@9@@dMM0((* =Delete + =Insert @ =Fini1}sh 3(M(78@,<&@,\%"@6-% A 0f A PRINT FILE DATA B32}>:,>:,>:,8383>:, 7@<@,553>:, 7@<@2,3};23>:,% ----------------5383;3??3>:,>:,- VITAL STATISTICS854}3- ----------------83a-@@W3 7@%@2$<@25}%@2$,[ ^3a3Z-3% PARENTSW3% -------Z31.3 6} MARRIED: 7A<A,13@..3 FATHER: 7@<@,1.3 7} 7@<@2,13 @..3 MOTHER: 7@<@,4.3 7@<@8}2,1343#DD3< CHILD'S OTHER(GG3? CHILDREN & BIRTHDATE 9} PARENT & BIRTHDATE*GG3? -------------------- ------------------2 6.<6-@A6:}-@P9@4***/3>:@%A(,9 AUU6-%@ZK-@@$@;67B;}:,%@,. +G67B:,,.K d067B:,%@,. 0B:, @`AR nR 6.-@@+@<}B67B:,%@,. +N67B:,,.R x4 4*3>:,  ''4 AR3>:,  =}6. AR|>3 3>30 PERSONAL HISTORY ?830 ----------->}-------?3>:,D@4@@@(-@f+3/ :@D B / 3 6-%@/ @bAV?}3 3 333Q6-%@33H3& (page )K3N3Q36-@ AV@}o'%67<%@,.@@@%@' +(((($'U-(%THE PRECEDING INFORMATION IS NOW HELDU(#IN MA}EMORY. DO YOU WANT TO TRANSFER.'U+( IT TO FILE '7@<@,'/U4YES)4yes)4Y)4yB8'X(,(B}!DO YOU WANT TO SAVE IT UNDER SOME<( OTHER NAME@X0YES)0YB B'<()(ENTER THE NAME YOU WANT TO USE-C}<67@,.t'I( ( (3("INSERT APPROPRIATE SAVE DISK, THENE( HIT .I~'8 @@- @D}8@'p (}#(CHOOSE ONE FROM BELOW>('A'-RUN NAMEFILE AGAIN\('B'-RETURN TO FAMILY MENUp('C'-END SEE}SSION'R@.@@K:;)@O"@:A,)"@:a,R%'$"@:B,)"@:b,$%D:FAMILYF}'("@:C,)"@:c,%( GOOD-BYE!( NSET PRINTER CONTROL CODES*N22CHOOSE STANDARD OR ITALICS FONT FOR PRINTING4Nm-(G}%}DO YOU WANT TANDARD OR TALICS FONTM@@K:Z)@m"@:S,B05N1@"@:H}I,13>:@',>:@R,>N1@"@:S,13>:@',>:@d,CN""COMPRESSED CHARACTER CONTROLHN6-@I}RN6-@%A(\N::DOUBLE STRIKE CONTROL (SET TO '32' IF NOT AVAILABLE)fN6-@'pN6-@qzN6-@rJ}N99DOUBLE WIDTH CONTROL (SET TO '32' IF NOT AVAILABLE)N6-@N6-@ R$&3F:A8,%AV$K}F:A9,%@B D:NAMEFILEE B'g' 6.@!4@@@'6.-@@L}-@@# --(%   ) 6.)67@,.* 0@@@67@,.4M}-@@((>D*("E = Edit D = Delete F = FinishD(S = Save I = InsertH ( R4EA0\N}4SA1f4DA2'%67<%@,.@@@%@' +(((($'U-(%THE PRECEDING INFORMAO}TION IS NOW HELDU(#IN MEMORY. DO YOU WANT TO TRANSFER.'0( IT TO FILE ''04YESB8'M(,(!DO YOU WANP}T TO SAVE IT UNDER SOME<( OTHER NAME@J0YESMB'<()(ENTER THE NAME YOU WANT TO USE-<67@,.t'I( (Q} (3("INSERT APPROPRIATE SAVE DISK, THENE( HIT 'RETURN'.I~'8 @@- @8@R}A!`A3NAMINNAMTOUTNAMREPNTCODEV1V2V3V4V5V6V7V8VH1VH2VH3VH4VH5VH6VH7VH8CNUICODLASLMARK]RTSNULROWER!||  @@L $$T} $$| PRGM 'DIRECTRY.FLE' REV 4 | $$| BY: JOHN KIRKPATRICK | $$| COPYRIGHT (C) 1986 |U}$$| 1985, 1984, 1983, 1982 |$$| CALEDONIA ENTERPRISES |$$| 490-A ABELIA STREET |$$| SUMTER,V} S.C. 29152-1403 |$$$$| DIRECTRY.FLE CREATES AND |$$| UPDATES THE DIRECTRY THAT W} |$$| TRACKS ALL OF THE FILES IN |$$| THE DATABASE PROGRAM SET. |$$d11;AUX},;@,;@,;@v,n +'0@9@@dC Ak@@Y} D:DIRECTRYx@ Apd6-F:A,Apa(ERROR  ENCOUNTERED AT LINE F:A,%AVZ}$F:A,dq$@6-$ A rP-@@A67$@&@<$@,.E P@[}xA6-B:,'@(A(DIRECTORY NOW CONTAINS  ENTRIES.}W( (1(#ENTER THE NAME OF THE FILE YOU WANTW(!T\}O INSERT INTO OR DELETE FROM THEW,($DIRECTORY, OR SIMPLY HIT 'RETURN' TOW(&END INSERTIONS AND SAVE THE DIRECTORY:]}4Aj67@<@,.B67@<@,.7@<@,j67@<@,.7@<@,^}%"6-@% APD-@D37@$&@<@$&@,A6647@$&@_}<@$&@,A A  AP-6@KK67@$%@<@$%@`},.7@$&@<@$, ..67@$&@<@$&@,.P(,(!FILE INSERTED IN DIRECTORY,a} ENTERP(DISK NUMBER WHERE IT IS LOCATED##4)B:,!@A`67@$<@$,." A ,jb}( (/(!THAT FILE IS ON RECORD AS ALREADYj(EXISTING ON DISK #7@$<@$, . ENTER A1++(#'D' TO DELETE ITc}, A NEW DISK NUMBER6Q-(%TO CHANGE ITS DISK REFERENCE, OR JUSTQ(HIT 'RETURN' TO LEAVE IT ALONE.@4A Jd}B:,!@AT4DA^(67@$<@$,.( A ! "6-&@! A_-e}&@[67@$&@<@$,.7@$%@<@$%@,_ '67@$&@,.' A f}+@@ D:DIRECTRY8 @F-@p @7$@&@<$@,t @g}e( (-(DIRECTORY SAVED. DO YOU WANT TO;(PRINT IT?e4YES)4yes)4Y)4yA0v(( CHOOSE ONE:q}B'DOS SYSB*+DUP SYSBUAUTORUN SYSB(WFAMILY BFAMTREE DOCBkFAMDOC DATBaNAMEFILE B!SDIRECTRYFLEB}DIRECTRY B[~PEDCHART B KIRK1949JOHBKDESNDNT LST*('A'-FAMILY MENU>('B'-END SESSIONI@i@@K:v)@"@:A,%D:FAMILYr}"@:B,( GOOD-BYE!/6-B:,'@/6-P:+%@,'@,]3 333% DIRECTORY LISTINs}G]3% -----------------&9967B:,%@,.! @0]3 3 3]3LFILE NAMt}E DISK FILE NAME DISK FILE NAME DISK FILE NAME DISK5WT3L--------- ---- --------- ---- ---------u} ---- --------- ----W3:-&@?YY6.O 1 . 1 . 1 . v} 1 . D{-@{67@ $%@<@ $%@,.7@D$%@$%@<@D$%w}@$%@,Ngg67@ $%@<@ $%@,.7@D$%@$%@<@D$%@$%@,Xggx}67@ $%@<@ $%@,.7@D$%@$%@<@D$%@$%@,bgg67@ $%@<y}@ $%@,.7@D$%@$%@<@D$%@$%@,l  3 nW3 3W3INOTE: The above direz}ctory entries consist of the first four characters ofpUU3M the last name of the person plus his year of birth plus th{}e first threer++3# characters of his first name. NSET PRINTER CONTROLS%N))FOLLOWING IS "TOP OF FORM" COMMAND.*|}N"3>:@%A(," A&3F:A8,%AV$F:A9,%@FD:DIRECTRY.FLEI B'g}3JARN9XXCAR1KIRK949JOH1SHEP949CAR13F:A8,%AV$F:A9,%@FD:DIRECTRY.FLEI B'g &cd4,;-RABRHSTARTSLOUTDPERKDISERLOULTYPNUPRTYPECCHARNUBNUWIDEOWIDEOFGRPLUSGEMINI%} A @A@  !| %}@c0d0 $$ $$| PRGM 'PED%}CHART' REV. 4.0 | $$| BY: JOHN KIRKPATRICK | $$| COPYRIGHT (C) 1986 |$$| 1985, 1984, 1983, 1982 %}|$$| CALEDONIA ENTERPRISES |$$| 490-A ABELIA STREET |$$| SUMTER, S.C. 29152-1403 |$$%}$$| PEDCHART ENABLES YOU TO |$$| PRINT OUT A 4 GENERATION |$$| PEDIGREE CHART USING A %} |$$| STAR MICRONICS GEMINI OR |$$| COMPATABLE PRINTER. |$$dhh;Aer%},;@,;@,;@2,9@,;A,;AU,;@,;@,n/-@@"$68,-%}( /6.x''1,17,33,65,97,129,161,193,201,213} A& A0~mm(eUNABLE TO OPEN DIRECTORY FILE. ARE YOU S%}URE YOU HAVE CREATED DIRECTORY AND INSERTED MASTER DISK?q( (PRESS 'C' TO CONTINUE+@K@@%}K:X)@c@n"@:C,q%+@@ D:DIRECTRY8@F-@S@%}v67$@&@<$@,.z @) 6. 67Aer,.)67@,.b +'0@%}9@@d<(?(^(ENTER NAME OF INITIAL FILEb<(((DO YOU HAVE A GEMINI PRINTER,<4NA`%}>(*(DOES IT HAVE 'GEMINI GRAPHICS'.>4YA`V(.(#THE PROGRAM CAN PRINT TWICE AS FASTV(#IF DOTTED%} LINES CAN BE USED FOR THE+(( SIDES OF THE BOXES ON THE CHART.+([-(%ENTER '0' FOR FAST WITH DOTTED LINES,W(%ENTER %}'1' FOR SLOWER WITH SOLID LINES[{+67@<@ ,.7@<@,S67@)<@2,.7@<@,{67@%}<@,.7@<@, B/-@@/6-A$+&@, 6.667@<@,.%}7%@<%@ ,b67@<@,.7%@0<%@2,67@<@,.7%@<%@,O-@%}B:,'@O37@$&@<@$&@,AP6647@$&@<@$&@,A`-#(%}PERSON  () ABSENT- A   A@+!6-A:7@$<@$,,+ Ad6-F:A,Ap%}a(ERROR  ENCOUNTERED AT LINE F:A,%AV$F:A,dYY( I NEED FILE 7@<@,17@%}<@,.7@<@,:@(1(PLEASE INSERT DISK  THEN 'RETURN'5@@ Ap6..6%}7@<@,.D:V67@<@,.7@<@,o67@<@,.167@<@,.7@<@%},D67@<@,..D67@<@,.7@<@, ""( LOCATING # ON FILE " @@%},=@=67A$+&@,%@<A$,.1_@_67A$+$@&@,%@%}<A$+$@&@,%@2,.6Z@@Z67A$+$@,%@<A$+$@,%@2%},.@ E 6.J BTR( (-(NOTE: TO RUN THIS PROGRAM AGAINR( PLEASE INSERT MASTER DISK.^A+(%}# (THIS IS NECESSARY TO RE-LOADA( DIRECTORY.)hg(CHOOSE FROM BELOW:8('A'-RETURN TO FAMILY MENUS('B'-R%}UN PEDCHART AGAINg('C'-END SESSIONmS@.@@K:;)@F"@:A,S%D:FAMILYn%}"@:B,%o"@:C,( GOOD-BYE!'"4E3$' 4L36. B'$$7@<@,0A%}B$' B)'67B:,%@,.>:,.' Bt'$$7@<@,0BBy'/6-A:7@:,, ' B'$$7@<@,0JB'F"-@%}A:7@:,F(F,6-%}A$+A:7@:,i( B***L,J75,A188,B32,A204,J1,A188,B16,A204*,,L,J75,A181,D108,A202,J1,A181,R116,A202*55L,J12%},D101,J31,A181,D208,A202,J1,A181,R216,A202*;;L,J12,D201,J31,A181,R308,A202,J1,A189,B8,A204,B7,A174*44L,J12,B32,J31,A181%},R408,A202,B1,A181,R808,A202+CCL,J40,A188,B32,A204,J1,A181,R508,A202,J1,A189,B8,A174,B7,A204+>>L,J40,A181,D104,A202,J1,%}A181,R608,A202,J1,A181,R117,A202+>>L,J40,A181,D204,A202,J1,A181,R708,A202,J1,A181,R217,A202+EEL,J40,A181,R304,A202,J1,A%}189,B20,A204,B11,A174,J1,A173,B16,A174+11L,J40,A181,R404,A202,B1,A181,R804,R904,A202+EEL,J40,A181,R504,A202,J1,A189,B20%},A174,B11,A204,J1,A188,B16,A204+>>L,J40,A181,R604,A202,J1,A181,D109,A202,J1,A181,R118,A202+>>L,J40,A181,R704,A202,J1,A1%}81,D209,A202,J1,A181,R218,A202+LLL,J40,A173,B18,A204,B13,A174,J1,A181,R309,A202,J1,A189,B8,A204,B7,A174 +55L,J59,A202,J1%}5,A181,R409,A202,B1,A181,R809,A202 +BBL,J59,A170,B8,A204,J6,A181,R509,A202,J1,A189,B8,A174,B7,A204 +FFL,J15,A188,B32,A204%},J19,A202,J6,A181,R609,A202,J1,A181,R119,A202 +GGL,J15,A181,D102,A202,J19,A202,J6,A181,R709,A202,J1,A181,R219,A202 +UUL,J%}15,A181,D202,A202,J2,A188,B12,A204,J3,A202,J6,A173,B32,A174,J1,A173,B16,A174+77L,J15,A181,R302,A202,J2,A181,R802,J4,A202,J%}3,A202+VVL,J15,A181,R402,A202,B2,A181,R902,A202,B3,A206,J6,A188,B32,A204,J1,A188,B16,A204+WWL,J15,A181,R502,A202,J2,A17%}3,B12,A174,J3,A202,J6,A181,D110,A202,J1,A181,R120,A202+GGL,J15,A181,R602,A202,J19,A202,J6,A181,D210,A202,J1,A181,R220,A202%}+MML,J15,A181,R702,A202,J19,A202,J6,A181,R310,A202,J1,A189,B8,A204,B7,A174+WWL,J15,A173,B14,A188,B17,A174,J10,A188,B8,A%}174,J6,A181,R410,A202,B1,A181,R810,A202+TTL,J30,A181,J9,A188,B18,A173,B13,A204,J1,A181,R510,A202,J1,A189,B8,A174,B7,A204%}+FFL,J30,A181,J9,A181,D105,A202,J1,A181,R610,A202,J1,A181,R121,A202+FFL,J30,A181,J9,A181,D205,A202,J1,A181,R710,A202,J1,A%}181,R221,A202+MML,J30,A181,J9,A181,R305,A202,J1,A189,B20,A204,B11,A174,J1,A173,B16,A174+99L,J30,A181,J9,A181,R405,A202,%}B1,A181,R805,R905,A202+MML,J30,A181,J9,A181,R505,A202,J1,A189,B20,A174,B11,A204,J1,A188,B16,A204+FFL,J30,A181,J9,A181,R%}605,A202,J1,A181,D111,A202,J1,A181,R122,A202+FFL,J30,A181,J9,A181,R705,A202,J1,A181,D211,A202,J1,A181,R222,A202+KKL,J30%},A181,J9,A173,B32,A174,J1,A181,R311,A202,J1,A189,B8,A204,B7,A174+>>L,J30,A173,B33,A204,J10,A181,R411,A202,B1,A181,R811,A20%}2+MML,J11,A188,B32,A204,J19,A202,J10,A181,R511,A202,J1,A189,B8,A174,B7,A204+HHL,J11,A181,D101,A202,J19,A202,J10,A181,R6%}11,A202,J1,A181,R123,A202 +HHL,J11,A181,D201,A202,J19,A202,J10,A181,R711,A202,J1,A181,R223,A202!+VVL,J11,A181,R301,A202,J%}2,A188,B12,A204,J3,A202,J10,A173,B32,A174,J1,A173,B16,A174"+77L,J11,A181,R401,A202,J2,A181,R801,J4,A202,J3,A202#+WWL,J11,%}A181,R501,A202,B2,A181,R901,A202,B3,A206,J10,A188,B32,A204,J1,A188,B16,A204$+XXL,J11,A181,R601,A202,J2,A173,B12,A174,J3,A20%}2,J10,A181,D112,A202,J1,A181,R124,A202%+HHL,J11,A181,R701,A202,J19,A202,J10,A181,D212,A202,J1,A181,R224,A202&+MML,J11,A17%}3,B32,A174,J19,A202,J10,A181,R312,A202,J1,A189,B8,A204,B7,A174'+>>L,J30,A188,B33,A174,J10,A181,R412,A202,B1,A181,R812,A202%}(+KKL,J30,A181,J9,A188,B32,A204,J1,A181,R512,A202,J1,A189,B8,A174,B7,A204)+FFL,J30,A181,J9,A181,D106,A202,J1,A181,R612,A20%}2,J1,A181,R125,A202*+FFL,J30,A181,J9,A181,D206,A202,J1,A181,R712,A202,J1,A181,R225,A202++MML,J30,A181,J9,A181,R306,A202,J%}1,A189,B20,A204,B11,A174,J1,A173,B16,A174,+99L,J30,A181,J9,A181,R406,A202,B1,A181,R806,R906,A202-+MML,J30,A181,J9,A181,R5%}06,A202,J1,A189,B20,A174,B11,A204,J1,A188,B16,A204.+FFL,J30,A181,J9,A181,R606,A202,J1,A181,D113,A202,J1,A181,R126,A202/+FF%}L,J30,A181,J9,A181,R706,A202,J1,A181,D213,A202,J1,A181,R226,A2020+TTL,J30,A181,J9,A173,B18,A204,B13,A174,J1,A181,R313,A202%},J1,A189,B8,A204,B7,A1741+>>L,J30,A181,J28,A202,J15,A181,R413,A202,B1,A181,R826,A2022+]]L,J15,A188,B14,A173,B17,A204,J10,%}A170,B8,A204,J6,A181,R513,A202,J1,A189,B8,A174,B7,A2043+GGL,J15,A181,D103,A202,J19,A202,J6,A181,R613,A202,J1,A181,R127,A202%}4+GGL,J15,A181,D203,A202,J19,A202,J6,A181,R713,A202,J1,A181,R227,A2025+UUL,J15,A181,R303,A202,J2,A188,B12,A204,J3,A202,J6%},A173,B32,A174,J1,A173,B16,A1746+77L,J15,A181,R403,A202,B2,A181,R803,J4,A202,B3,A2067+VVL,J15,A181,R503,A202,J2,A181,R903%},A202,J3,A202,J6,A188,B32,A204,J1,A188,B16,A2048+WWL,J15,A181,R603,A202,J2,A173,B12,A174,J3,A202,J6,A181,D114,A202,J1,A181,%}R128,A2029+GGL,J15,A181,R703,A202,J19,A202,J6,A181,D214,A202,J1,A181,R228,A202:+TTL,J15,A173,B32,A174,J10,A188,B8,A174,J6%},A181,R314,A202,J1,A189,B8,A204,B7,A174;+55L,J59,A181,J15,A181,R414,A202,B1,A181,R814,A202<+LLL,J40,A188,B18,A173,B13,A20%}4,J1,A181,R514,A202,J1,A189,B8,A174,B7,A204=+>>L,J40,A181,D107,A202,J1,A181,R614,A202,J1,A181,R129,A202>+>>L,J40,A181,D20%}7,A202,J1,A181,R714,A202,J1,A181,R229,A202?+EEL,J40,A181,R307,A202,J1,A189,B20,A204,B11,A174,J1,A173,B16,A174@+11L,J40,A1%}81,R407,A202,B1,A181,R807,R907,A202A+EEL,J40,A181,R507,A202,J1,A189,B20,A174,B11,A204,J1,A188,B16,A204B+>>L,J40,A181,R607%},A202,J1,A181,D115,A202,J1,A181,R130,A202C+>>L,J40,A181,R707,A202,J1,A181,D215,A202,J1,A181,R230,A202D+CCL,J40,A173,B32,A%}174,J1,A181,R315,A202,J1,A189,B8,A204,B7,A174E+,,L,J75,A181,R415,A202,B1,A181,R815,A202F+22L,J75,A181,R515,A202,J1,A189,B%}8,A174,B7,A204G+,,L,J75,A181,R615,A202,J1,A181,R131,A202H+,,L,J75,A181,R715,A202,J1,A181,R231,A202I+**L,J75,A173,B32,A1%}74,J1,A173,B16,A174J+LK+LL+LM+LN+LO+LP+L[+E NSET PRINTER CONTROL CODES"N99FOR 'GEMINI G%}RAPHICS' ORDER UNIDIRECTIONAL PRINTING$N54Y*4Y53>:@',>:@,>:@,*N++ORDER PRINTER TO USE 8 LINES%} PER INCH4N3>:@',>:@H,>N,,ORDER USE OF COMPRESSED CHARACTER MODEHN3>:@,RN@@ASCII CODE FOR 'DOUBLE%} WIDTH' (SET TO ZERO IF NOT ALLOWED)\N6-@fN6-@ zN$R""GRAPHICS CHARACTER SELECTIONlR**USE "+" IF GE%}MINI FONT NOT AVAILABLEvR 4N6-@C$RDEFINE CHARACTER FONTR**IF 'GEMINI GRAPHICS' THEN GOTO 21300R%}4YBRGGSECOND "IF" IN SOME FOLLOWING LINES REFERS TO "FAST PRINT" OPTIONR4A1656-Ae$R4A17%}06-Ap$R4A1726-Ar$R4A1736-As$R4A1746-At$R24A1816-A%}&"26-AeR24A2026-A&"26-ApR24A1896-A&"26-As%}S24A2066-A&"26-AtS24A1886-A&"26-Ar S24A2046-A%}&"26-Ar*S$4S//FOLLOWING FOR 'GEMINI GRAPHICS CHARACTERS>S4A1656-AECS4A1706%}-AEHS4A1726-AAMS4A1736-AFRS4A1746-AGWS4A1816-AE\S4A20%}26-AEaS4A1896-ADfS4A2066-AIkS4A1886-A@pS4A2046-ABS$%}&3F:A8,%AV$F:A9,%@B D:PEDCHARTE B'gIDEOWIDEOFGRPLUSGEMINI$WJOHN PATRICK KIRKPATRICK 1949B: 29 NOV 1949 W: ANTIOCH, CONTRA COSTA, CA M: 24 DEC 1973 )} W: PITTSBURG, CONTRA COSTA, CA D: M: 1944 19 JUN JAMES PARKER KIRKPATRICK 1906BONN)}IE FAYE JOHNSTON 1920MARK ALANKIRKPATRICK196928 JUNCAROL JEANNESHEPHERD19496 MAR*** When entering data into)} this field do not worry about the way it looks onthe screen. The Database Program is designed to format the two screen lin)}eentry into a 75 character line on the printed page; when the file is selec-ted for print-out instead of updating.This file)} is an actual file that Iput on the disk so that you may look it over and see how I use it. Look atthe Vital Statistics pa)}rt, that is where in the documentation, I said thatI found that using the 'B', 'W', 'M', 'W', and 'D' is typed in. If you d)}onot want to, you do not have to use that format, it is not automaticallyput on the screen on a new file, you must do that;)} on subsequent updates itwill be, as it becomes part of the data file string. If when you are enter-ing data in the Persona)}l History mode, and you should hear a 'BEEP' thatmeans you are trying to enter too much data (more than the two lines thatI)} allowed for and will have to BACK SPACE/DELETE to only enter the 2 linesor you will have an error file.@@@ (nH%LLASTLDIRFLISTFNAMETITLENUSEDCURNAMECUROPENLDATASEEKNAMEFLEVEPAGLCOUNCHILICURNAMSEEKNAMCHIL-}DNOTIDISERBPARFILCHIFILGOTICHILDFNAMNUSTEDINUCOMPROFCMPROCMPROFWIDEOWIDEOFAITALIITLALICOFITALICO-}|D0tB|?/ M/ -}3/ !0 -0 70 -} !"#$%&'()*+ $$-} $$| PRGM 'DESNDNT.LST' REV 4.0 | $$| BY: JOHN KIRKPATRICK | $$| COPYRIGHT (C) 1986 |$$| -} 1985, 1984, 1983, 1982 |$$| CALEDONIA ENTERPRISES |$$| 490-A ABELIA STREET |$$| SUMTER, S.C. 291-}52-1403 |$$$$| DESNDNT.LST WILL PROVIDE |$$| A LIST OF DESENDENTS FOR |$$|-} ANY NAME ON FILE IN THE |$$| DATABASE DIRECTORY. |$$dRR;A2,;A2-},;AU,;A,;A`,;@f,;@,i<<;AU,;@,;@,;A,;@,k-};@,;@,m Bn:6-6-'6-A 36-A :6.s A A tjj(bUNA-}BLE TO LOAD DIRECTORY. ARE YOU SURE YOU HAVE CREATED IT, AND HAVE INSERTED CORRECT DISK?uq( (PRESS 'C' TO CONTIN-}UE+@K@@K:X)@c@n"@:C,q%xz+@@ D:DIRECTR-}Y8@F-@S@v67$@&@<$@,.z }D@+20@-}D@@d1( (-(ENTER TITLE TO BE USED ON CHART14B:,!@d(*(THAT'S TOO LONG!4 A0-}) 6. 67@f,.)67@,.!!67+@f&B:,,'@,.3(%(ENTER NAME OF INITIAL FILE)3 B-}"A`S$67B:,%@:,>:,;C3=3>:,' -} (PAGE )@3C3@RR3J NAME & BIRTHDAY OTHER PARENT NAME & B-}IRTHDAYERR3J --------------- ----------------------------J 3>:,O) 6. 67A2,.-})67@,.T-@6. ^V-@567B:,%@:,6-%@%"@6-% A% .}6.6-6-% B"6- AG!@ =67@$&@<@$&@,.=:,.}G Ah067@$&@<@$&@,.0^67@$&@<@$&@,.=:,h A'FILE S.}EARCH & OPEN SUBR' BB'd6-F:A,"@a(ERROR  ENCOUNTERED AT LINE AV$F:A,%F:A.},d(G')(RE-ENTER DATA CORRECTLY) A0t' 6.D:67@,.' BP6.<67@<@,.7@<.}@,d67@<@,.7@<@,67@<@,.7@<@,<(O-@B:,'@O37@.}$&@<@$&@,B(6647@$&@<@$&@,B) Bh) )3$(F.}ILE  NOT IN DIRECTORY.06-3$0*76-@-6-A:7@$<@$,,7 B*d6-F:A,Ap.}a(ERROR  ENCOUNTERED AT LINE AV$F:A,%F:A,d*( I NEED FILE :*>/(PLEAST INSERT DISK .} THEN 'RETURN'.3>@*+ B +(SEEKING  ON DISK #\+E@+@@16.}.E"A B+2!-@@%$@.@2 $,<.67@$%@<@$%@,.<6-%.}@,$.??READ DATA AND ASSURE MINIMUM OF 4 CHARACTERS LENGTH.."@B:,!@"$.'$67B:,%@.}<@,. '$ NSET PRINTER CONTROL CODES%NFONT SELECTION ROUTINE*ND(%(SELECT PRINT FONT DESIRED:D(.} TANDARD OR TALICS4NC#@@K:0)@C@:I,B09N3>:@',>:@R,>N.}COMPRESSED CHARACTER MODEHN6-@RN6-@%A(N55DOUBLE WIDTH CONTROL (SET TO "32" IF NOT AVAIL)N6-.}@N6-@ N6-@RN6-@SR$&3F:A8,%AV$F:A9,%@E D:DES.}NDNT.LSTH B'g67B:,%@,.767B:,%@,.)g6B:,%@A2267B:,%@,. 6 hB:.}, @A`lO-@B:,'@O47@$&@<@$&@,A@v  A`-@. }@$67<,. ( M67@q<@,. (SEE PAGE )67@<@,.7@$&@<@$,4.!}A;+7@<A2,07@<A2,16.; AR 6.R67@<A2,.1 '' ."}  3>:@, 6-%@+ 6.6.6-!6-+ B"6- .#}AG!@ =67@$&@<@$&@,.=:,G Ah067@$&@<@$&@,.0.$}^67@$&@<@$&@,.=:,h A'FILE SEARCH & OPEN SUBRt' 6.D:67@,.' 6.26.%}7@<@,.7@<@,Z67@<@,.7@<@,67@<@,.7@<@,<(O-.&}@B:,'@O37@$&@<@$&@,B(6647@$&@<@$&@,B.'}) Bh) )3$(FILE  NOT IN DIRECTORY.06-3$0*76-@-6-A:7@$<@$,,7 B.(}*d6-F:A,Apa(ERROR  ENCOUNTERED AT LINE AV$F:A,%F:A,d*( I NEED FILE .)}:*3/(PLEASE INSERT DISK  THEN 'RETURN'.3*+ B +(SEEKING  ON DISK #\+?@+@@.*}?"A B+2!-@@%$@.@2 $,<.67@$%@<@$%@.+},.<6-%@,$.GGREAD DATA AND MAKE SURE EACH ENTRY HAS 4 OR MORE CHARACTERS.."@B:,!@.,}"$.'$67B:,%@<@,. '$:BUG HUNT SUBROUTINE:&3&3 BUG HUNT ON:;3L$= 3.-}LASTL$= ,3FLIST$= ;3NUSED$= :3FNAME$= :773 CURNAM$=  CUROPEN$=  SEEKNAM$= :43LDA..}TA$= 43 PARFIL$=  CHIFIL$= :113CHILD=  CHILDH=  FLEVEL= <$AAMCHIL,v