The CoCo Family Recorder, Version 1.0 Copyright (c) 1991, 1992 by F.G. Swygert ALL RIGHTS RESERVED ` `/- ARNA Systems /\--/\ < - - > \ / \/ (the FARNA Fox!) TABLE OF CONTENTS =============================================================== Introduction ....................... 2 Warranty/License ................... 3 Making Backups ..................... 3 Overview ........................... 4 Hardware Requirements .............. 5 Terms Defined ...................... 5 Using the Programs The MENU Program .................. 6 Gathering Information (WORKSHT) ... 6 Creating the Data Files (CREATPER,CREATMAR) ............... 7 Entering Information (UPDATPER,UPDATMAR)................ 7 Data Entry Considerations (names,dates,commas) .............. 7 Creating the Indices (INDEXPC,INDEXMAR) ................ 8 Printing Detailed Information (PRINTPER,PRINTMAR) ............... 8 Printing Data File Lists (LISTPER,LISTMAR,LISTPCI) ......... 9 The DISPLAY Program ............... 9 Stopping the Programs (the BREAK key) ................... 10 Appendices A. Errors Numbers, Causes, Corrections ... 11 Lock-up After CTRL-F1 .......... 11 B. Data File Contents PERSFILE ....................... 12 MARRFILE ....................... 13 PCINDEX ........................ 13 MINDEX ......................... 13 C. User's Personal Notes .......... 14 page 1 INTRODUCTION =============================================================== Thank you for purchasing "The CoCo Family Recorder". It is designed to help track family members throughout history, and to be as simple to use as possible. These programs were derived from the GW-Basic share-ware program package "Genealogy ON DISPLAY!" (version 4.0, last updated February 1986), written by Melvin O. Duke. An MS-DOS work-alike version is available that looks and feels like "The CoCo Family Recorder". The MS-DOS version is GUARANTEED to be data compatible after disk format transfer. NOTE: "Genealogy ON DISPLAY!" 4.0 is copyright (c) 1983 through 1986 by Melvin O. Duke. There were two major reasons for basing these programs on existing ones: 1) Programming time was reduced tremendously, and 2) The data files created by this program can be trans- ferred to IBM format disks and shared with relatives or friends with IBM compatible (MS-DOS) computers, and vice-versa. This means you may not have to do all the work yourself! A public domain CoCo to IBM transfer program will be included with the modified "Genealogy ON DISPLAY" program. Please note that the transfer programs require drive "A" to be a 5.25" floppy. The transfer programs are supplied AS IS and are not supported by this author. Various MS-DOS versions of "Genealogy ON DISPLAY!" exist, but the data files created by "The CoCo Family Recorder" are not guaranteed to be compatible with any program other than the MS-DOS version of "The CoCo Family Recorder" The GW-Basic programs this software was derived from weren't merely "converted" to run on the CoCo, they required near total re-writing. Please respect this, and show continued support for CoCo software authors, by not distributing copies to anyone else. Thank You F.G. Swygert (the author) p.s. The author can be reached at the below address, and also on DELPHI- member name DSRTFOX. Francis G. Swygert Rt 4 Box 145 Leesville, SC 29070 page 2 Warranty/License =============================================================== 1. The enclosed software is warranted to be free of defects when sent to the purchaser for a period of 180 days from the date of purchase to the ORIGINAL purchaser ONLY. If any defects are discovered, or the program ceases to function properly, return the ORIGINAL disk for a free replacement. 2. The author nor distributor shall bear ANY liability for loss or damage to the computer or data caused in any way (directly or indirectly) by this software. 3. The purchaser of this software may use it on as many computers as he/she owns. Please encourage friends and family members to buy their own copies! 4. After the above warranty period (#1), replacement disks will be available from the author under the same conditions as for third parties (see #5 below). DISTRIBUTORS HAVE NO OBLIGATIONS AFTER THE ORIGINAL WARRANTY PERIOD! 5. Third parties shall be held responsible to the above listed conditions (except #1). Replacement of the original disk held by any party will be made for a fee of $5 plus return shipping. The original disk MUST accompany any such re- quests. Replacement will be made of an identical version only. The author reserves the right to substitute a newer version. THIS IS NOT AN UPGRADE PATH! Any returned disks found not to be flawed will be sent back untouched. This warranty is extended to third parties by the author ONLY. DISTRIBUTORS HAVE NO OBLIGATION TO THIRD PARTIES! Making Backups --------------------------------------------------------------- PLEASE MAKE BACKUPS OF YOUR ORIGINAL DISK BEFORE CONTINUING! To backup the original: 1. Initialize (format) a new disk with the DSKINI commmand (DSKINI 0, if the new disk is in drive 0) 2. Place the new disk in one drive, the original in the other. 3. Note which disk is in which drive, then type BACKUP x TO x (where the first x is the drive with the original disk, the second x is the drive with the newly formatted disk). 4. With one drive, simply type BACKUP then follow the prompts on screen. The SOURCE disk is the original, the DESTINATION disk is the newly formatted disk. NOTE THAT TWO DRIVES ARE REQUIRED TO RUN THIS SOFTWARE! page 3 OVERVIEW =============================================================== The CoCo Family Recorder programs provide the user with the capability to create and maintain a data base of informa- tion about his or her ancestors and relatives, and to show the relationships between all names entered. The databases are limited to a maximum of 500 individual persons and a total of 200 marriages. There is no practical limit to the number of generations that can be recorded. If demand warrants, later versions may be expanded to increase these limitations, but the numbers quoted above should provide ample storage space. The DISPLAY program is the main program in the set. All of the other programs are really just utilities to create the data files required by DISPLAY. DISPLAY allows a user to view or print personal information, pedigrees (family trees), and family group information for any person whose records are in the data files. The listed utility programs provide the following functions: CREATPER formats and creates the data file "PERSFILE", which contains personal information. CREATMAR formats and creates the data file "MARRFILE", which contains marriage information. UPDATPER allows entering information into the "PERSFILE", as well as making changes to "PERSFILE" at a later date. UPDATMAR allows entering information into the "MARRFILE", as well as making changes to "MARRFILE" at a later date. INDEXPC creates an index file,"PCINDEX", which relates children with their respect& **** CREATMAR Program&Q Copyright (c) by F.G. Swygert, September 1991&|113,0:(269)256(270)32401640&(80:6&2450:580&<21,8:"The CoCo Family Recorder Version 1.0"&F28,12:"Create a Marriages File"'8P13,18:"Place Blank Disk in Drive 1. Label this disk MARRFILE."'iZ150,4:27,22:"Press any key to continue.";'td44539'n2:150,4:150,4'x5,10:"This program FORMATS a Marriages-file by writing new, empty records."(,6,11:"It will destroy any data which exists with the same record-numbers."(2(5,12:"If this is REALLY what you want to do, type 'Y' to continue then press"(12,13:"the 'ENTER' key. Hit any other key to return to the MENU"(6,15:"DO YOU WISH TO CONTINUE";R$) (R$,1)"y"240)!(R$,1)"Y"240)E29,17:"File was NOT Created.")tҠ150,4:27,20:"Press any key to continue")ܢ44539)恥430)"D",#2,"MARRFILE:1",128)#2,5M1$,5M2$,5M3$,5M4$,11M5$,18M6$,16M7$,16M8$,45M9$)I1250*30,21:"Writing Record:";I*(TPI*8"M1$(TP)*A,TP0*Q6M2$(TP)*a@M3$(TP)*qJM4$(TP)*}TTP$" "*^M5$TP$*hM6$TP$*rM7$TP$*|M8$TP$*M9$TP$*#2,I*I*#2*:3:33,12:"End of Program"+7(130)(32)(130)(03)"/"(03)(12)(13),R+>ž2+k26,8:"Error Number ";;" Has Occured"+26,8:"Error Number ";;" Has Occured"+18,10:"ERROR NUMBERS:"+18,11:"3 = Out of Data 6 = Out of Memory",*18,12:"27 = Bad Record Number 17 = Bad File Data",e18,13:"20 = I/O Error 21 = Bad File Mode",18,14:"25 = Disk Full 26 = File Not Found",16,16:"<<** Check for correct disk(s) in drive(s)! **>>",-/&150,4:15,20:"PRESS ANY KEY TO RETURN TO MENU, BREAK TO TRY AGAIN"-:044539-D:430-KD2-N20,12:"Do you wish to halt the program, Y or N";R$-XR$"Y"R$"y"430-bR$"N"R$"n"630-l590-v:6:500:40.2:1,8:25,12:"PROGRAM MUST BE RUN FROM MENU!".440N TO MENU, BREAK TO TRY AGAIN"-:044539-D:430-KD2-N20,12:"Do you wish to halt the program, Y or N";R$-XR$"Y"R$"y"430-bR$"N"R$"n"630-l590-v:6:500:40.2:1,8:25,12:"PROGRAM MUST BE RUN FROM Mu&$:DISKNAME.BAS IS PROGRAM NAME&+:&Z:PUT DISKETTE NAME INTO TRACK 17 SECTOR 1&w:COPYRIGHT (C) 07/21/87&: By: Robert E. Bruhl&: 841 N. Mapleton Ave.&: Oak Park, Il, 60302&:&: Last Modified: 7/30/91' :' 1000: '4: X 1125 1146: 220:'S X 1223 1240: 220:'r( X 1324 1331: 220:'2@387,"PRESS ANY KEY TO CONTINUE": 250'<:@0,"DRIVE 0-3?"'FAN$ : AN$ "0" AN$ "3" 70 : DR (AN$)(P:DR,17,1,A$,B$:N$ (A$,20)(NZ@193,N$:@289,"THIS IS CURRENT DISKETTE NAME": 240(td ("YyNn",I$) 180,180,110,110(nA$ (128,(255))(x:@102,"ENTER DISKETTE NAME"(@213,"]":@192,"[";:N$( (N$)20 260: 120)LE (N$): LE 20 N$ N$ " ": 150)\:@320,"-"N$"-": 230: ("YyNn",I$) 170,170,120,120)A$ N$ (108,(255)):DR,17,1,A$,B$):@98,"ANOTHER DISKETTE? (Y/N)": 250) ("YyNn",I$) 200,200,270,270*ȇ@162,"INSERT NEW DISKETTE":@226,"THEN PRESS ": 250*'ҁ 80*7܍ A: X,A:*O@290,"YOU ENTERED"*r@386,"IS THIS CORRECT? (Y/N)"*I$ : I$ "" 250 : *:@170,"LINE TOO LONG": T 1 500: T:*:+ 80,85,84,96,78,65,77,69,96,73,78,84,79,96,68,73,83,75,69,84,84,69+P" 66,89,96,82,79,66,69,82,84,96,69,110,96,66,82,85,72,76+t, 104,67,105,96,113,121,120,119I$ : I$ "" 250 : *:@170,"LINE TOO LONG": T 1 500: T:*:+ 80,85,84,96,78,65,77,69,96,73,78,84,79,96,68, = Bad Record Number 17 = Bad File Data",e18,13:"20 = I/O Error 21 = Bad File Mode",18,14:"25 = Disk Full 26 = File Not Found",16,16:"<<** Check for correct disk(s) in drive(s)! **>>",-/&150,4:15,20:"PRESS ANY KEY TO RETURN TO MENU, BREAK TO TRY AGAIN"-:044539-D:430-KD2-N20,12:"Do you wish to halt the program, Y or N";R$-XR$"Y"R$"y"430-bR$"N"R$"n"630-l590-v:6:500:40.2:1,8:25,12:"PROGRAM MUST BE RUN FROM MENU!".440N TO MENU, BREAK TO TRY AGAIN"-:044539-D:430-KD2-N20,12:"Do you wish to halt the program, Y or N";R$-XR$"Y"R$"y"430-bR$"N"R$"n"630-l590-v:6:500:40.2:1,8:25,12:"PROGRAM MUST BE RUN FROM M 6& **** CREATPER Program&Q Copyright (c) by F.G. Swygert, September 1991&c113,0:80:6&( (269)256(270)32401 780&2 560 : 700&< 21,8 : "The CoCo Family Recorder Version 1.0"'F 28,12: "Create a Persons File"'KP 13,18: "Place Blank Disk in Drive 1. Label this disk PERSFILE."'Z150,4: 27,22 : "Press any key to continue."'d 44539'n 6'x 2:150,4:150,4' 7,10 : "This program FORMATS a Persons-file by writing new, empty records."(R 6,11 : "It will destroy any data which exists with the same record-numbers."( 5,12 : "If this is REALLY what you want to do, type 'Y' to continue then press"( 12,13 : "the 'ENTER' key. Hit any other key to return to the MENU")! 6,15 : "DO YOU WISH TO CONTINUE";R$): (R$,1)"y" 240)S (R$,1)"Y" 240)z 30,17 : "File was NOT Created")Ҡ150,4: 27,20 : "Press any key to continue")ܢ 44539)恥 530) "D", #1, "PERSFILE:1"*{ 1,5FA$,20FB$,30FC$,2FD$,5FE$,5FF$,5FG$,11FH$,18FI$,16FJ$,16FK$,11FL$,18FM$,16FZ$,16FY$,11FP$,18FQ$,16FR$,16FS$* I1550*TPI*TP$(TP)*" FA$ TP$*,TP$ " "*6TP 0*@ FB$ TP$*J FC$ TP$*T FD$ TP$+ ^ FE$ (TP)+ h FF$ (TP)+3r FG$ (TP)+C| FH$ TP$+S FI$ TP$+c FJ$ TP$+s FK$ TP$+ FL$ TP$+ FM$ TP$+ FZ$ TP$+ FY$ TP$+ FP$ TP$+ FQ$ TP$+ FR$ TP$+ FS$ TP$, 27,22 : "Writing Record Number:";I,) #1,I,1 I,: #1,a 3 : 33,12 : "End of Program",&(130)(32)(130)(03)"/"(03)(12)(13),R,0 2,: 26,8 : "Error Number ";;" Has Occured"- D 26,8 : "Error Number ";;" Has Occured"-*N 18,10 : "ERROR NUMBERS:"-hX 18,11 : "3 = Out of Data 6 = Out of Memory"-b 18,12 : "27 = Bad Record Number 17 = Bad File Data"-l 18,13 : "20 = I/O Error 21 = Bad File Mode".&v 18,14 : "25 = Disk Full 26 = File Not Found".i 16,16 : "<<** Check for correct disk(s) in drive(s)! **>>". 25,18 : "Place Program Disk in Drive 0".150,4: 15,20 : "PRESS ANY KEY TO RETURN TO MENU, BREAK TO TRY AGAIN". 44539/ : 3 : 33,12 : "End of Program"/'550// 2/m 20,12 : "Do you wish to halt the program, Y or N"; R$/Ѕ R$"Y" R$"y" 750/څ R$ "N" R$ "n" 770/䁥 710/:3:33,12:"End of Program"/550/:6: 500: 400+ 2:1,8: 25,12:"PROGRAM MUST BE RUN FROM MENU!"05550,12 : "Do you wish to halt the program, Y or N"; R$/Ѕ R$"Y" R$"y" 750/څ R$ "N" R$ "n" 770/䁥 710/:3:33,12:"End of Program"/550/:6: 500: 400+ 2:1H scOucer"d:1 ,801: " REOR RUNBMRE:S"A: 811, 1 : 3"= O tuo faDat 6 = O tuo feMomyr": 811, 2 : 2" 7 =aB deRocdrN mueb r 1 7 =aB diFelD ta"a:1 ,831: " 02= I O/E rrro 12= B daF li eoMed": 811, 4 : 2" 5 =iDksF lu l 2 6 =iFelN toF uodn"B; 611, 6 : <"*< *hCce kof rocrrce tidkss( )nid irevs(!)* >*">;r2 ,581: " lPca erPgoar miDksi nrDvi e"0;51,0:4 512, 0 : P"ERSSA YNK YET OERUTNRT OEMUN ,RBAE KOTT YRA AGNI"; 44359;6: 960; 2<  021, 2 : D" ooy uiwhst oahtlt ehp orrgma , YroN ;"R $@< $R " "Y R $ y" " 3103<aR $ N" " $R " "n 1 430m<(1 920{<2:1 600<<:6:5 00: 960 $R""2 1 054,:11 540?> $R""3 1 051,:81 540^> $R""4 1 054,: 4105>j 3105>p4%r miwlll co-kpui foy urt yotp irtnw tiohtup irtnreo nna dnoilen".=߇n:2 ,731:S"leceet da, Y or N"; R$6- R$ "Y" R$ "y" 13306N R$ "N" R$ "n" 13406Z( 12906h2: 10606~<:6: 500: 6906F6 : 27,8: "Select Printer Baud Rate:": :6P" 1 = 600 2 = 1200 3 = 2400 4 = 4800"7.Z 23,16: "MAKE SURE PRINTER IS ON AND ONLINE!"7d 3,18:"Program will appear to lock-up if you try to print without printer online."7n: 27,13:"Selected Value";R$7x R$"1" 150,87: 14507 R$"2" 150,41: 14508  R$"3" 150J(M8$)1:JA .SI$M9$AP 82,1:"Family Group Record":41,1:"Marriage: "S1A B2,6:"Marriage Date: "S5$:S6$" "S8$" "2390A L30,6:"Location: "(S6$", "S8$,34)A V#1,S2A `1000A jTPS2:2970B t2,3:"Father: "(V$,44);:41,3:"Birthdate: "TH$;B ~#1,S3B' 1000B8 TPS3:2970Bq 2,4:"Mother: "(V$,44);:41,4:"Birthdate: "TH$;B 2,8:"Children":2,9:"No. Sex Name"B 40,9:"Birthdate: Birth Location:"B CC0:IC155B CH(IC)0:ICB ΀LL1PCC ؅S2PI(LL)2710C$ S2PI(LL)LLPC:2710C3 #1,CI(LL)C> 1000CO S3TG2710Ca CCCC1:SCCCCp CC12650C CC11SCCC11C (CC22SCCC22C 2CC33SCCC33C >"K 25,18:"Place Program Disk in Drive 0"LN 150,4:15,20:"PRESS ANY KEY TO RETURN TO MENU, BREAK TO TRY AGAIN":44539LY Ɓ2950L О2:20,12:"Do you wish to halt the program, Y or N";R$L څR$"Y"R$"y"3250L R$"N"R$"n"3320L 3280L :20M 2:1,8:25,12:"PROGRAM MUST BE RUN FROM MENU!"M 2960EY TO RETURN TO MENU, BREAK TO TRY AGAIN":44539LY Ɓ2950L О2:20,12:"Do you wish to halt the program, Y or N";R$L څR$"Y"R$"y"3250L R$"N"R$"n"3320L 3280L :20M 2:1,8:25,12:"PROGRAM MUST B$"PC"12303$R$"fg"R$"FG"21703e(R$,1)"p"(R$,1)"P"PS(1)((R$,(R$)1))::6403(R$,1)"m"(R$,1)"M"29203ʅ(R$,1)"q"(R$,1)"Q"29903ԅR$"?"31403ށ9003TA(FA$):TB$FB$3J1(FB$)14)(TB$,1)" "TB$(TB$,(TB$)1):J(FB$)140J4<TC$FC$4OJ1(FC$)14$(TC$,1)" "TC$(TC$,(TC$)1):J(FC$)14.J48TD$FD$4B(TD$,1)"M"TD$"Male"4L(TD$,1)"F"TD$"Female"5 VTE(FE$):TF(FF$):TG(FG$):TH$FH$:TI$FI$5`J1(FI$)15Tj(TI$,1)" "TI$(TI$,(TI$)1):J(FI$)15[tJ5o~TJ$FJ$:TK$FK$5J1(FK$)15(TK$,1)" "TK$(TK$,(TK$)1):J(FK$)15J5TL$FL$:TM$FM$:TZ$FZ$:TY$FY$:TP$FP$6 TQ$FQ$:TR$FR$:TS$FS$:6RTA0:TB$"":TC$"":TD$"":TE0:TF0:TG0:TH$"":TI$"":TJ$"":TK$""6TL$"":TM$"":TZ$"":TY$"":TP$"":TQ$"":TR$"":TS$"":6Ξ6؁1406#1,PS(1)6쁦1000622,1:(TC$" "TB$,42);:65,1:"Person:";PS(1);7TPPS(1):30607' 5,11:(V$,61);:67,11:TH$;7=PS(2)TF:PS(3)TG7XPS(2)01210:13607f(#1,PS(2)7q210007X0,19:(79,32):10,19/b150,4:"Enter the Record-number of a Person (0 to quit)";R$/lR$"0"2910/vPS(1)(R$)/PS(1)1PS(1)550:10,18:"Number is out of range";:600/#1,PS(1)06:30,10:"Extracting Records"010000)1600H29,1:(TC$" "TB$,35);0j65,1:"Person:";TA:15,4:TA015,5:TB$;:15,6:(TC$,24);015,7:TD$;:56,5:TH$;056,6:TI$;:56,7:TJ$;056,8:TK$;:56,10:TL$;156,11:TM$;:56,12:TZ$;156,13:TY$;:56,15:TP$;1<56,16:TQ$;:56,17:TR$;1M 56,18:TS$;1cPS(2)TF:PS(3)TG1} PS(2)01210:8301*#1,PS(2)1410001>15,10:TA;:15,11:TB$;1H15,12:(TC$,24);:15,13:TH$;1RPS(3)01210:8802\#1,PS(3)2 f10002(p15,16:TA;:15,17:TB$;2Mz15,18:(TC$,24);:15,19:TH$;2w10,21:(79,32);:10,22:(79,32);210,22:"(Possible Requests: PC, FG, P#, M#, Q, or ? for help)";210,21:"Type a request then press 'ENTER'";R$3 R$"pc"R$"PC"12303$R$"fg"R$"FG"21703e(R$,1)"p"(R$,1)"P"PS(1)((R$,(R$)1))::6403(R$,1)"m"(R$,1)"M"28403ʅ(R$,1)"q"(R$,1)"Q"29103ԅR$"?"30503ށ9003TA(FA$):TB$FB$3J1(FB$)14)(TB$,1)" "TB$(TB$,(TB$)1):J(FB$)140J4<TC$FC$4OJ1(FC$)14$(TC$,1)" "TC$(TC$,(TC$)1):J(FC$)14.J48TD$FD$4B(TD$,1)"M"TD$"Male"4L(TD$,1)"F"TD$"Female"5 VTE(FE$):TF(FF$):TG(FG$):TH$FH$:TI$FI$5`J1(FI$)15Tj(TI$,1)" "TI$(TI$,(TI$)1):J(FI$)15[tJ5o~TJ$FJ$:TK$FK$5J1(FK$)15(TK$,1)" "TK$(TK$,(TK$)1):J(FK$)15J5TL$FL$:TM$FM$:TZ$FZ$:TY$FY$:TP$FP$6 TQ$FQ$:TR$FR$:TS$FS$:6RTA0:TB$"":TC$"":TD$"":TE0:TF0:TG0:TH$"":TI$"":TJ$"":TK$""6TL$"":TM$"":TZ$"":TY$"":TP$"":TQ$"":TR$"":TS$"":6Ξ6؁1406#1,PS(1)6쁦1000622,1:(TC$" "TB$,42);:65,1:"Person:";PS(1);7TPPS(1):29707' 5,11:(V$,61);:67,11:TH$;7=PS(2)TF:PS(3)TG7XPS(2)01210:13607f(#1,PS(2)7q210007X*10,21:"Type a request then press 'ENTER'";R$>r4R$"pc"R$"PC"1230>>R$"fg"R$"FG"2170>H(R$,1)"p"(R$,1)"P"PS(1)((R$,(R$)1)):640>R(R$,1)"m"(R$,1)"M"2840?\(R$,1)"q"(R$,1)"Q"2910?%fR$"?"3050?0p2070?<z6:FD0?HL1MC?^PS(1)PN(L)2230?{PS(1)PN(L)LMC:2230?FD1:#2,MN(L)?LMC?L?FD12280?ʞ6:31,10:"No Marriage Found";@Ԡ150,4:27,12:"Press any key to continue";:44539@ށ650@,S1(M1$):S112250@aS2(M2$):S3(M3$):S4(M4$):S5$M5$:S6$M6$@tJ1(M6$)1@ (S6$,1)" "S6$(S6$,(S6$)1):J(M6$)1:J@ S7$M7$:S8$M8$@ J1(M8$)1A $(S8$,1)" "S8$(S8$,(S8$)1):'&H **** DISPLAY Program. Copyright (c) F.G. Swygert, September 1991&&H968E,18:&H968F,18:&H9690,18:&H96A3,18:&H96A4,18&113,0:0::2,384:80:6&((269)256(270)324013330&2PI(1100),CI(1100),PN(500),MN(500),PS(15),CH(55)'<3170:3280'CF21,8:"The CoCo Family Recorder Version 1.0"'aP32,12:"Display Program"'Z24,18:"Press CTRL-F1 to print a screen"'d9,20:"Place PERSFILE Disk in Drive 0, MARRFILE Disk in Drive 1"(n150,4:27,22:"Press any key to continue"(x44539(6:380(J2,1:"Pedigree Chart for:":6,3:"Name:"(d67,3:"Birthdate:":(6:2,1:"Personal Information for:":2,3:"Person:";(2,4:"Record-no.:";:2,5:"Surname:";(2,6:"Given-names:";:2,7:"Sex:";)%2,9:"Person's Father:";:2,10:"Record-no.:";)S2,11:"Surname:";:2,12:"Given-names:";)2,13:"Birth-date:";:2,15:"Person's Mother:";)2,16:"Record-no.:";:2,17:"Surname:";)2,18:"Given-names:";:2,19:"Birth-date:";*%41,3:"Person's Vital Statistics:";:41,5:"Birth-date:";*W41,6:"Birth-city:";:41,7:"Birth-county:";*41,8:"Birth-state:";:41,10:"Death-date:";*41,11:"Death-city:";:41,12:"Death-county:";*41,13:"Death-state:";:41,15:"Burial-date:";+'"41,16:"Burial-city:";:41,17:"Burial-county:";+E,41,18:"Burial-state:":+z62,1:"Family Group Record";:41,1:"Marriage:";+@2,3:"Father:";:41,3:"Birthdate:";+J2,4:"Mother:";:41,4:"Birthdate:";+T2,6:"Marriage Date:";:30,6:"Location:";,^2,8:"NO";:6,8:"Sex";,Hh10,8:"Children:";:40,8:"Birthdate:";,gr52,8:"Birth Location:":,|"I",#1,"PCINDEX:0",10,3:"Opening the Parent/Child Index";,#1,PC,I1PC,10,4:"Reading Index Record #:";I;,#1,PI(I),CI(I)-I-š#1-710,6:"Opening the Marriage Index";-N֙"I",#2,"MINDEX:1"-Y#2,MC-eI1MC-10,7:"Reading Marriage Index Record #:";I;-#2,PN(I),MN(I)-I-#2-10,9:"Opening the Persons File"-&"D",#1,"PERSFILE:0".01,5FA$,20FB$,30FC$,2FD$,5FE$,5FF$,5FG$,11FH$,18FI$,16FJ$,16FK$,11FL$,18FM$,16FZ$,16FY$,11FP$,18FQ$,16FR$,16FS$.:10,12:"Opening the Marriage File".D"D",#2,"MARRFILE:1",128/"N2,5M1$,5M2$,5M3$,5M4$,11 I 1 C/* #2, PI(I)/+4 #2, RN(I)/3> I/<H #2/SR X 1 800 : X/~\ : 3 : 33,12 : "End of Program"/f(130)(32)(130)(03)"/"(03)(12)(13),R/p 2/z 26,8 : "Error Number ";;" Has Occured"0& 26,8 : "Error Number ";;" Has Occured"0G 18,10 : "ERROR NUMBERS:"0 18,11 : "3 = Out of Data 6 = Out of Memory"0 18,12 : "27 = Bad Record Number 17 = Bad File Data"1 18,13 : "20 = I/O Error 21 = Bad File Mode"1C 18,14 : "25 = Disk Full 26 = File Not Found"1 16,16 : "<<** Check for correct disk(s) in drive(s)! **>>"1 25,18 : "Place Program Disk in Drive 0"2Ԡ150,4: 15,20 : "PRESS ANY KEY TO RETURN TO MENU, BREAK TO TRY AGAIN"2ޢ 445392聥 8602" 22` 20,12 : "Do you wish to halt the program, Y or N"; R$2 R$ "Y" R$ "y" 8602 R$ "N" R$ "n" 10602 10202$: 302.2:1,8:25,12:"PROGRAM MUST BE RUN FROM MENU!"28 870 AG 400 : 390*86 MO$ "May" MD MD 500 : 390*d@ MO$ "Jun" MD MD 600 : 390*J MO$ "Jul" MD MD 700 : 390*T MO$ "Aug" MD MD 800 : 390*^ MO$ "Sep" MD MD 900 : 390+h MO$ "Oct" MD MD 1000 : 390+@r MO$ "Nov" MD MD 1100 : 390+l| MO$ "Dec" MD MD 1200 : 390+MD MD ((T5$,2))+ T20 450+C C 1+RN(C) T1+PI(C) T2+MD(C) MD+… T3 0 500+C C 1,RN(C) T1,PI(C) T3,"MD(C) MD,* I,3 #1,k 6 : 26,10 : "There are:"; C; "Index Records";,{ I 1 6,B(I) B(I1)41,& B(I) C2 K1 I,0 I,:B(K1) (C5)1,DB(1) 1,N 0,21 : (79,32)-X 31,14 : "Processing Persons"-+b I K1 1 1-Ml 24,16 : "For Group I:";I;-[vK1 B(I)-l J K1 C- 40,16 : "J:";J;-Q1 MD(J) : Z2 RN(J) : Z3 PI(J)- K JK1 0 K1- 50,16 : "K:";K- Z3 PI(K) 730. Z3 PI(K) Q1 MD(K) 730.IMD(KK1)MD(K):RN(KK1)RN(K):PI(KK1)PI(K).QЋ K.}MD(KK1)Q1 : RN(KK1)Z2 : PI(KK1)Z3. J. I. X1 1000 : X. 6 : 27,10 : "Writing the Marriages Index". "O", #2, "MINDEX:1". #2,C/ & **** INDEXMAR Program&Q Copyright (c) by F.G. Swygert, September 1991&i113,0:500: 2,384&x( 80 : 6&2 (269)256(270)32401 1070&< RN(500), PI(500), MD(500)&F 880 : 1010'P 21,8 : "The CoCo Family Recorder Version 1.0"'=Z 27,12 : "Create a Marriage Index"'d150,4: 8,16 : "Place MARRFILE Disk in Drive 1. Press any key to continue.";'n 44539'x 6 : 29,10 : "Opening Marriage File"' "D",#1,"MARRFILE:1", 128(Q 1, 5 M1$, 5 M2$, 5 M3$, 5 M4$, 11 M5$, 18 M6$, 16 M7$, 16 M8$, 45 M9$([C 0(k I1 250(w #1, I( 6 : 25,14 : "Processing Marriage Record:"; I;(T1(M1$)(ȅ T1 0 500(T2(M2$)(T3(M3$)(T5$M5$)' T5$ " " MD 0 : 400)DMD ((T5$,4))10000)ZMO$ (T5$,4,3)) MO$ "Jan" MD MD 100 : 390) MO$ "Feb" MD MD 200 : 390)" MO$ "Mar" MD MD 300 : 390* , MO$ "Apr" MD MD 400 : 390*66 MO$ "May" MD MD 500 : 390*b@ MO$ "Jun" MD MD 600 : 390*J MO$ "Jul" MD MD 700 : 390*T MO$ "Aug" MD MD 800 : 390*^ MO$ "Sep" MD MD 900 : 390+h MO$ "Oct" MD MD 1000 : 390+>r MO$ "Nov" MD MD 1100 : 390+j| MO$ "Dec" MD MD 1200 : 390+MD MD ((T5$,2))+ T20 450+C C 1+RN(C) T1+PI(C) T2+MD(C) MD+… T3 0 500+C C 1,RN(C) T1,PI(C) T3, MD(C) MD,( I,1 #1,i 6 : 26,10 : "There are:"; C; "Index Records";,y I 1 6,B(I) B(I1)41,& B(I) C2 K1 I,0 I,:B(K1) (C5)1,DB(1) 1,N 0,21 : (79,32)-X 31,14 : "Processing Persons"-)b I K1 1 1-Kl 24,16 : "For Group I:";I;-YvK1 B(I)-j J K1 C- 40,16 : "J:";J;-Q1 MD(J) : Z2 RN(J) : Z3 PI(J)- K JK1 0 K1- 50,16 : "K:";K- Z3 PI(K) 730. Z3 PI(K) Q1 MD(K) 730.GMD(KK1)MD(K):RN(KK1)RN(K):PI(KK1)PI(K).OЋ K.{MD(KK1)Q1 : RN(KK1)Z2 : PI(KK1)Z3. J. I. X1 1000 : X. 6 : 27,10 : "Writing the Marriages Index". "O", #2, "MINDEX:1". #2,C/ 5,10 : "Writing the Parent/Child Index"/H "O", #2, "PCINDEX:1", 128/S #2,C/c I 1 C/s* #2, PI(I)/4 #2, CI(I)/> I/H #2/R X1 800 : X/\ : 3 : 33,12 : "End of Program"0f(130)(32)(130)(03)"/"(03)(12)(13),R0p 20Lz 26,8 : "Error Number ";;" Has Occured"0} 26,8 : "Error Number ";;" Has Occured"0 18,10 : "ERROR NUMBERS:"0 18,11 : "3 = Out of Data 6 = Out of Memory"1 18,12 : "13 = Out of String Space 17 = Bad File Data"1Z 18,13 : "20 = I/O Error 21 = Bad File Mode"1{ 18,14 : "25 = Disk Full"1 16,16 : "<<** Check for correct disk(s) in drive(s)! **>>"1 25,18 : "Place Program Disk in Drive 0"24 15,20 : "PRESS ANY KEY TO RETURN TO MENU, BREAK TO TRY AGAIN"2@ޢ 445392K聥 8602S 22 20,12 : "Do you wish to halt the program, Y or N"; R$2 R$ "Y" R$ "y" 8602 R$ "N" R$ "n" 10602 10202$: 303.2:1,8:25,12:"PROGRAM MUST BE RUN FROM MENU!"3*8 870 AGAIN"2@ޢ 445392K聥 8602S 22 20,12 : "Do you wish to halt the program, Y or N"; R$2 R$ "Y" R$ "y" 8602 R$ "N" R$ "n" 10602 10202$: 303.2:1,8:25,12: "Aug" BD BD 800 : 400-Mh MO$ "Sep" BD BD 900 : 400-yr MO$ "Oct" BD BD 1000 : 400-| MO$ "Nov" BD BD 1100 : 400- MO$ "Dec" BD BD 1200 : 400-BD BD ((TH$,2))- TF0 460. C C 1.CI(C) TA.*PI(C) TF.9BD(C) BE.J̅ TG0 510.XC C 1.gCI(C) TA.vPI(C) TG.BD(C) BE. I. #1. 6 : 26,10 : "There are:"; C; "Index Records";. I 1 6.&B(I) B(I1)41/0 B(I) C2 K1 I/: I/-DB(K1) (C5)1/:NB(1) 1/eX 31,14 : "Processing Parents ";/{b I K1 1 1/l 24,16 : "For Group:";I;/vK1 B(I)/ J K1 C/ 40,16 : "J:";J;/K2PI(J) : BT BD(J) : Z3 CI(J)0 K JK1 0 K10) 50,16 : "K:";K0@ K2 PI(K) 7300d K2 PI(K) BT BD(K) 7300PI(KK1)PI(K) : CI(KK1)CI(K):BD(KK1)BD(K)0Ћ K0PI(KK1)K2: CI(KK1)Z3: BD(KK1)BT0 J0 I0 X 1 1000 : X1( 6 : 2 +& **** INDEXPC Program&U **** Copyright (c) by F.G. Swygert, September 1991&i113,0: 80: 6&( (269)256(270)32401 1070&2 500 : 2,384&< 880 : 1010&F 21,8 : "The CoCo Family Recorder Version 1.0"'(P 24,12: "Prepare the Parent/Child Index"'sZ 8,16: "Place PERSFILE Disk in Drive 1. Press any key to continue.";'d 44539'n CI(550),PI(550),BD(550)'x 6 : 30,10 : "Opening Persons File"' "D", #1, "PERSFILE:1"( 1, 5 FA$, 20 FB$, 30 FC$, 2 FD$, 5 FE$, 5 FF$, 5 FG$, 11 FH$, 18 FI$, 16 FJ$, 16 FK$, 11 FL$, 18 FM$, 16 FZ$, 16 FY$, 11 FP$, 18 FQ$, 16 FR$, 16 FS$((C 0( I1 550( #1, I) 25,14 : "Processing Person Record:"; I;)%TA(FA$))8҅ TA 0 510)GTF(FF$))VTG(FG$))bTH$FH$) TH$ " " BD 0 : 410)BD ((TH$,4))10000)MO$ (TH$,4,3)) MO$ "Jan" BD BD 100 : 400*" MO$ "Feb" BD BD 200 : 400*E, MO$ "Mar" BD BD 300 : 400*q6 MO$ "Apr" BD BD 400 : 400*@ MO$ "May" BD BD 500 : 400*J MO$ "Jun" BD BD 600 : 400*T MO$ "Jul" BD BD 700 : 400+!^ MO$ "Aug" BD BD 800 : 400+Mh MO$ "Sep" BD BD 900 : 400+yr MO$ "Oct" BD BD 1000 : 400+| MO$ "Nov" BD BD 1100 : 400+ MO$ "Dec" BD BD 1200 : 400+BD BD ((TH$,2))+ TF0 460, C C 1,CI(C) TA,*PI(C) TF,9BD(C) BD,J̅ TG0 510,XC C 1,gCI(C) TA,vPI(C) TG,BD(C) BD, I, #1, 6 : 26,10 : "There are:"; C; "Index Records";, I 1 6,&B(I) B(I1)41-0 B(I) C2 K1 I-: I--DB(K1) (C5)1-:NB(1) 1-eX 31,14 : "Processing Parents ";-{b I K1 1 1-l 24,16 : "For Group:";I;-vK1 B(I)- J K1 C- 40,16 : "J:";J;-K2PI(J) : BT BD(J) : Z3 CI(J). K JK1 0 K1.) 50,16 : "K:";K.@ K2 PI(K) 730.d K2 PI(K) BT BD(K) 730.PI(KK1)PI(K) : CI(KK1)CI(K):BD(KK1)BD(K).Ћ K.PI(KK1)K2: CI(KK1)Z3: BD(KK1)BT. J. I. X 1 1000 : X/( 6 : 2 FR$/TS$ FS$/ /$*TA 0/14TB$ ""/>>TC$ ""/KHTD$ ""/VRTE 0/a\TF 0/lfTG 0/ypTH$ ""/zTI$ ""/TJ$ ""/TK$ ""/TL$ ""/TM$ ""/TZ$ ""/TY$ ""/TP$ ""/TQ$ ""/TR$ ""0TS$ ""00! #2, (12);0'0G7:33,12:"End of Program"0(130)(32)(130)(03)"/"(03)(12)(13),R0 20$ 26,8 : "Error Number ";;" Has Occured"0. 26,8 : "Error Number ";;" Has Occured"18 18,10 : "ERROR NUMBERS:"1NB 18,11 : "3 = Out of Data 6 = Out of Memory"1L 18,12 : "26 = File Not Found 17 = Bad File Data"1V 18,13 : "20 = I/O Error 21 = Bad File Mode"2` 18,14 : "25 = Disk Full 27 = Bad Record Number"2Rj 16,16 : "<<** Check for correct disk(s) in drive(s)! **>>"2t 25,18 : "Place Program Disk in Drive 0"2~ 15,20 : "PRESS ANY KEY TO RETURN TO MENU, BREAK TO TRY AGAIN"2 445392 12302 23& 20,12 : "Do you wish to halt the program, Y or N"; R$3G R$ "Y" R$ "y" 12303h R$ "N" R$ "n" 12803tā 11903Κ : 23 25,10 : "Place Program Disk in Drive 0"3 27,14 : "Press any key to continue"3 445393 10104 :6: 500: 304> 2:1,8:25,12:"PROGRAM MUST BE RUN FROM MENU!"4J 1040 R$ "N" R$ "n" 12803tā 11903Κ : 23 25,10 : "Place Program Disk in Drive 0"3 27,14 : "Press any key to continue"3 445393 10104 :6:42);,‡ #2, "####"; S3;,@̇ #2, (" "TB$", "TC$,30),mօ RC MOD 55 0 #2, (12);: 220,u I,ꁥ 980,TA (FA$),TB$ FB$, J 1 (FB$) 1, (TB$,1)" " TB$ (TB$,(TB$)1) : J (FB$)1-TC$ FC$- & J-&0 J 1 (FC$) 1-e: (TC$,1)" " TC$ (TC$,(TC$)1) : J (FC$)1-mD J-{NTD$ FD$-X TD$ "M" TD$ "Male"-b TD$ "F" TD$ "Female"-lTE (FE$)-vTF (FF$)-TG (FG$)-TH$ FH$. TI$ FI$.TJ$ FJ$.&TK$ FK$.4TL$ FL$.BTM$ FM$.PTZ$ FZ$.^TY$ FY$.lTP$ FP$.zTQ$ FQ$.TR$ FR$.TS$ FS$.. TA 0.TB$ "". TC$ "".*TD$ "".4TE 0.>TF 0.HTG 0.RTH$ ""/ K& **** LISTMAR Program.&Q Copyright (c) by F.G. Swygert, September 1991&b113,0:80:&( (269)256(270)32401 1290&2 2,1000&< MD(N) ((N)((N)(M))(M))&F 1050 : 1180'P 21,8 : "The CoCo Family Recorder Version 1.0"'CZ 28,10 : "Create a Marriages List"'dd 27,14: "Today's Date ";D$'n 12,17 : "Place MARRFILE Disk in Drive 0, PERSFILE Disk in Drive 1";'x 27,19 : "Press any key to continue"' 44539' 6( "D", #1, "PERSFILE:1"( 1, 5 FA$, 20 FB$, 30 FC$, 2 FD$, 5 FE$, 5 FF$, 5 FG$, 11 FH$, 18 FI$, 16 FJ$, 16 FK$, 11 FL$, 18 FM$, 16 FZ$, 16 FY$, 11 FP$, 18 FQ$, 16 FR$, 16 FS$) "D", #2, "MARRFILE:0", 128)h 2, 5 M1$, 5 M2$, 5 M3$, 5 M4$, 11 M5$, 18 M6$, 16 M7$, 16 M8$, 45 M9$) : 12,10 : "Listing the Records in the Marriages File" : K 0)ȁ 220)ҁ 290*܇ #2, " List of the Records in the Marriages File ";D$* #2,""*3 #2, " REC No. HUSBAND";*Q #2, 42);" No. WIFE "*s #2, " --- --- -------";* #2, 42);" --- ---- "**" 5,12 : "Enter Record Number of First Marriage to Print";R$*,R (R$)*6 IR 250+@ #2,I+JS1 (M1$)+<T 30,14 : "Listing Record:"; I;+m^ 25,17 : "(Press BREAK to stop printing)"+h S1 1 510+rK K 1+| #2, "####"; S1;+S2 (M2$)+ S20 810 : #1, S2: 530+ #2, 7);, #2, "####"; S2;,- #2, (" "TB$", "TC$,30);,>S3 (M3$),e… S30 810 : #1, S3: 530,v̇ #2, 42);,և #2, "####"; S3;, #2, (" "TB$", "TC$,30),M 55, MD(K) 0 #2, (12);: 220, I, 1010-TA (FA$)-TB$ FB$-5& J 1 (FB$) 1-t0 (TB$,1)" " TB$ (TB$,(TB$)1) : J (FB$)1-:TC$ FC$-D J-N J 1 (FC$) 1-X (TC$,1)" " TC$ (TC$,(TC$)1) : J (FC$)1-b J-lTD$ FD$.v TD$ "M" TD$ "Male".8 TD$ "F" TD$ "Female".ITE (FE$).ZTF (FF$).kTG (FG$).yTH$ FH$.TI$ FI$.TJ$ FJ$.TK$ FK$.TL$ FL$.TM$ FM$.TZ$ FZ$.TY$ FY$.TP$ FP$.TQ$ FQ$/ TR$918,14:"25 = Disk Full 26 = File Not Found"/x 16,16:"<<** Check for correct disk(s) in drive(s)! **>>"/*25,18:"Place Program Disk in Drive 0"/415,20:"PRESS ANY KEY TO RETURN TO MENU, BREAK TO TRY AGIN"/>44539/H6600R20:\20,12:"Do you wish to halt the program, Y or N";R$0QfR$"Y"R$"y"6600hpR$"N"R$"n"9000rz8600:6:500:30KProgram Disk in Drive 0"/415,20:"PRESS ANY KEY TO RETURN TO MENU, BREAK TO TRY AGIN"/>44539/H6600R16F10$,16F11$,11F12$,18F13$,16F14$,16F15$,11F16$,18F17$,16F18$,16F19$(t"I",#2,"PCINDEX:1",128(~#2,C(:10,10("There are";C;"Parent/Child Index Records in the File":65496,0(210(ȁ280)҇#2,"Listing of the Parent/Child Index Records ";D$))܇#2,"")H#2,"PARENT PARENT-NAME";)j#2,40);"CHILD CHILD-NAME")#2,"------ -----------";)#2,40);"----- ----------")) I1 C)"#2,PI),12,12:"Listing Parent/Child Index Record";I*6#2,"####";PI;*@#1,PI*(JT2$F2$*4TT3$F3$*G^J1(F2$)1*}h(T2$,1)" "T2$(T2$,(T2$)1):J(F2$)1*rJ*|J1(F3$)1*(T3$,1)" "T3$(T3$,(T3$)1):J(F3$)1*J*#2,7);(T2$", "T3$,32);+ #2,CI:Child ID++#2,40);:#2,"####";CI;+6#1,CI+BT2$F2$+NT3$F3$+ZT8$F8$+mJ1(F2$)1+(T2$,1)" "T2$(T2$,(T2$)1):J(F2$)1+J+J1(F3$)1+(T3$,1)" "T3$(T3$,(T3$)1):J(F3$)1+J,#2,47);(T2$", "T3$,32),%&M55,A0MD(I)0#2,"":210,H:I,ND,wN7:33,12:"End of Program":65497,0,X#2,(12);,b(130)(32)(130)(03)"/"(03)(12)(13),R,l2:1,8:25,12:"PROGRAM MUST BE RUN FROM MENU!"-v610- 2-:26,8:D"Error Number ";;" Has Occured"-g26,8:"Error Number ";;" Has Occured"-18,10:"ERROR NUMBERS:"-18,11:"3 = Out of Data 6 = Out of Memory"-18,12:"27 = Bad Record Number 17 = Bad File Data".418,13:"20 = I/O Error 21 = Bad File Mode".p18,14:"25 = Disk Full 26 = File Not Found".16,16:"<<** Check for correct disk(s) in drive(s)! **>>".25,18:"Place Program Disk in Drive 0"/15,20:"PRESS ANY KEY TO RETUR & **** LISTPCI Program.&Q Copyright (c) by F.G. Swygert, September 1991&c113,0:80:6&((269)256(270)32401700&2720:850&< MD(N)((N)((N)(M))(M))&F21,8:"The CoCo Family Recorder Version 1.0"'#P25,12:"List the Parent/Child Index"'BZ23,18:"Today's Date:";D$'d8,22:"Place PERSFILE Disk in Drive 1. Press any key to continue.";'n44539'x6'"D",#1,"PERSFILE:1"(Z1,5F1$,20F2$,30F3$,2F4$,5F5$,5F6$,5F7$,11F8$,18F9$,16F10$,16F11$,11F12$,18F13$,16F14$,16F15$,11F16$,18F17$,16F18$,16F19$(v"I",#2,"PCINDEX:1",128(#2,C(:10,10("There are";C;"Parent/Child Index Records in the File":K 0(210(ȁ280)҇#2,"Listing of the Parent/Child Index Records ";D$)(܇#2,"")G#2,"PARENT PARENT-NAME";)i#2,40);"CHILD CHILD-NAME")#2,"------ -----------";)#2,40);"----- ----------")) 5,12 : "Enter Record Number of First Parent/Child Index to Print";R$* "R (R$)*, I1 (R1)*R6 12,14:"Skipping Parent/Child Index Record";I*]@#2,PI*hJ#2,CI*oTI*}^ IR C*h#2,PI*r12,14:"Listing Parent/Child Index Record";I*|#2,"####";PI;*#1,PI*T2$F2$*T3$F3$+J1(F2$)1+;(T2$,1)" "T2$(T2$,(T2$)1):J(F2$)1+BJ+U€J1(F3$)1+̅(T3$,1)" "T3$(T3$,(T3$)1):J(F3$)1+֋J+#2,7);(T2$", "T3$,32);+#2,CI:Child ID+#2,40);:#2,"####";CI;+#1,CI,T2$F2$, T3$F3$,T8$F8$,+&J1(F2$)1,a0(T2$,1)" "T2$(T2$,(T2$)1):J(F2$)1,h:J,{DJ1(F3$)1,N(T3$,1)" "T3$(T3$,(T3$)1):J(F3$)1,XJ,b#2,47);(T2$", "T3$,32),lK K 1,vM55- MD(K)0#2,(12):210-I- -@7:33,12:"End of Program"-Q#2,(12);-(130)(32)(130)(03)"/"(03)(12)(13),R-2:1,8:25,12:"PROGRAM MUST BE RUN FROM MENU!"-Ɓ690-О2.26,8:D"Error Number ";;" Has Occured".026,8:"Error Number ";;" Has Occured".M18,10:"ERROR NUMBERS:".18,11:"3 = Out of Data 6 = Out of Memory".18,12:"27 = Bad Record Number 17 = Bad File Data". 18,13:"20 = I/O Error 21 = Bad File Mode"/ "27 = Bad Record Number 17 = Bad File Data"/o 18,13 : "20 = I/O Error 21 = Bad File Mode"/ 18,14 : "25 = Disk Full 26 = File Not Found"/ 16,16 : "<<** Check for correct disk(s) in drive(s)! **>>"0" 25,18 : "Place Program Disk in Drive 0"0h 15,20 : "PRESS ANY KEY TO RETURN TO MENU, BREAK TO TRY AGAIN"0t 445390* 66004 20> 20,12 : "Do you wish to halt the program, Y or N"; R$0H R$ "Y" R$ "y" 6601R R$ "N" R$ "n" 8701\ 8301,f : 6 : 500 : 301ap2:1,8:25,12:"PROGRAM MUST BE RUN FROM MENU!"1lz 680445390* 66004 20> 20,12 : "Do you wish to halt the program, Y or N"; R$0H R$ "Y" R$ "y" 6601R R$ "N" R$ "n")865496,0:23,14:"Press BREAK to interrupt printing")C 210)Nȁ 260)҇#2, " List of the Records in the Persons File ";D$)܇#2,(79,32))#2, " REC GIVEN NAMES-SURNAME";50);"BIRTHDATE FATHER MOTHER*7#2, " --- -------------------";50);"----------- ------ ------*=*O I 1 500*[ #1, I* 30,20 : "Printing Record:";I*"TA (FA$)*, TA 1 630*6K K 1*@TB$ FB$*J J 1 (FB$)1+T (TB$,1)" " TB$ (TB$,(TB$)1) : J (FB$)1+^ J++hTC$ FC$+<r J 1 25+z| (TC$,1)" " TC$ (TC$,(TC$)1) : J (FC$)1+ J+TD$ FD$+ (TD$,1) "M" TD$ "Male"+ (TD$,1) "F" TD$ "Female"+TE (FE$)+TF (FF$),TG (FG$),TH$ FH$,+TI$ FI$,9TJ$ FJ$,GTK$ FK$,UTL$ FL$,cTM$ FM$,qTZ$ FZ$,TY$ FY$,TP$ FP$,&TQ$ FQ$,0TR$ FR$,:TS$ FS$,D#2, "########";TA;-N#2, " "; (TC$" "TB$,39); 50); TH$;-$X#2, "###### ######";TF, TG-/bM 55-Yl MD (K) 0 #2, (12);: 210-av I-g-y#2, (12);-:3:33,12:"End of Program":65497,0-(130)(32)(130)(03)"/"(03)(12)(13),R- 2. 26,8 : "Error Number ";;" Has Occured".L 26,8 : "Error Number ";;" Has Occured".m 18,10 : "ERROR NUMBERS:". 18,11 : "3 = Out of Data 6 = Out of Memory". 18,12 : "27 = Bad Record Number 17 = Bad File Data"/) 18,13 : "20 m& **** LISTPER Program.&Q Copyright (c) by F.G. Swygert, September 1991&g113,0: 80 : 6&( (269)256(270)32401 880&2 500&< MD(N) ((N)((N)(M))(M))&F 690: 820'P 21,8 : "The CoCo Family Recorder Version 1.0"'?Z 28,12 : "List the Persons File"'bd 23,16 : "Today's Date:";D$'n 8,22 : "Place PERSFILE Disk in Drive 1. Press any key to continue.";'x 44539'' "D", #1, "PERSFILE:1"( 1, 5 FA$, 20 FB$, 30 FC$, 2 FD$, 5 FE$, 5 FF$, 5 FG$, 11 FH$, 18 FI$, 16 FJ$, 16 FK$, 11 FL$, 18 FM$, 16 FZ$, 16 FY$, 11 FP$, 18 FQ$, 16 FR$, 16 FS$(K 0) 1 : 16,12 : "Printing a List of Records in the Persons File")6 23,14 : "Press BREAK to interrupt printing")A 210)Lȁ 260)҇#2, " List of the Records in the Persons File ";D$)܇#2,(79,32))#2, " REC GIVEN NAMES-SURNAME";50);"BIRTHDATE FATHER MOTHER*5#2, " --- -------------------";50);"----------- ------ ------*;*| 5,16 : "Enter Record Number of First Person to Print";R$*R (R$)* IR 550*" #1, I*, 30,20 : "Printing Record:";I*6TA (FA$)*@ TA 1 650*JK K 1+ TTB$ FB$+$^ J 1 (FB$)1+ah (TB$,1)" " TB$ (TB$,(TB$)1) : J (FB$)1+ir J+w|TC$ FC$+ J 1 25+ (TC$,1)" " TC$ (TC$,(TC$)1) : J (FC$)1+ J+TD$ FD$, (TD$,1) "M" TD$ "Male",( (TD$,1) "F" TD$ "Female",9TE (FE$),JTF (FF$),[TG (FG$),iTH$ FH$,wTI$ FI$,TJ$ FJ$,TK$ FK$,TL$ FL$,TM$ FM$,TZ$ FZ$,&TY$ FY$,0TP$ FP$,:TQ$ FQ$,DTR$ FR$-NTS$ FS$-X#2, "########";TA;-Lb#2, " "; (TC$" "TB$,39); 50); TH$;-pl#2, "###### ######";TF, TG-{vM 55- MD(K) 0 #2, (12);: 210- I-#2, (12);- : 3 : 33,12 : "End of Program".((130)(32)(130)(03)"/"(03)(12)(13),R.0 2.a 26,8 : "Error Number ";;" Has Occured". 26,8 : "Error Number ";;" Has Occured". 18,10 : "ERROR NUMBERS:". 18,11 : "3 = Out of Data 6 = Out of Memory"/0 18,12 :(13)(32)(130)(129)"/"(128)(142)(129),R/y(141)(143)(21)(128)"/"(130)(13)(03),R/(138)(32)(21)(128)"/"(140)(03)(128),R/(143)(12)(32)(131)"/"(136)(21)(03),R08(131)(140)(142)(128)"/"(03)(12)(21),R0z(128)(130)(129)(139)"/"(140)(32)(128),R0(13)(21)(132)(142)"/"(21)(132)(03),R0&(32)(132)(130)(141)"/"(141)(12)(32),R190(12)(13)(21)(140)"/"(129)(141)(131),R1z:(137)(135)(134)(32)"/"(132)(12)(133),R1DM"BOOT:0":1N1401X21b21,12:"Do you wish to end the program, Y or N";Q$1lQ$"Y"Q$"y"6502vQ$"N"Q$"n"1402 6102S1::14,8:"Don't forget to make NEW backups of your DATA Disks!"2dX11000:X265496,0:113,0:3586722226,8:"Error Number ";;" Has Occured"226,8:"Error Number ";;" Has Occured"218,10:"ERROR NUMBERS:"3718,11:"3 = Out of Data 6 = Out of Memory"3r18,12:"27 = Bad Record Number 17 = Bad File Data"318,13:"20 = I/O Error 21 = Bad File Mode"318,14:"25 = Disk Full 26 = File Not Found"4(16,16:"<<** Check for correct disk(s) in drive(s)! **>>"4T25,18:"Place Program Disk in Drive 0"4 150,4:15,20:"PRESS ANY KEY TO RETURN TO MENU, BREAK TO TRY AGAIN"4445394 6:1404*24420,12:"Do you wish to halt the program, Y or N";R$5 >R$"Y"R$"y"8605#HR$"N"R$"n"8705-R82059\:6005Mf:6:500:1405{p6:27,8:"Select Printer Baud Rate:"::5z" 1 = 600 2 = 1200 3 = 2400 4 = 4800 5 = 9600"627,16:A(65314):B(A2):CA2:CB0"PRINTER IS ON":"PRINTER IS OFF"6q3,18:"Program will lock-up if you try to print without printer on and online."6:27,13:"Selected Value";R$6R$"1"150,180:1406R$"2"150,87:1406R$"3"150,41:1406R$"4"150,18:1407ʅR$"5"150,4:1407ԁ88073ޚ:113,0:35867lock-up if you try to print without printer on and online."6:27,13:"Selected Value";R$6R$"1"150,180:1406R$"2"150,87:1406R$"3"150,41:1406R$"4"150,18:14074& **** MENU Program&K Copyright (c) by F.G. Swygert, January 1993&q(269)256(270)32401990&(1:80:6:282,0&2150,4:150,4:100,4:100,4:150,4:150,4&<680:810&F28,10:"The CoCo Family Recorder"'(P18,12:"Copyright (c) January 1993 by F.G. Swygert"'PZ28,14:"** ALL RIGHTS RESERVED **"'d3,16:"(Based on Genealogy ON DISPLAY, Copyright February 1986, by Melvin O. Duke"'n11,17:"for IBM compatible computers with GW-BASIC or IBM BASIC-A)"( x150,4:27,21:"Press any key to continue"(+44539(B6:680:810(::" The CoCo Family Recorder Version 1.1":(" No Name Function"(" 1 CREATPER Creates (FORMATS) a Persons File.")" 2 CREATMAR Creates (FORMATS) a Marriages File.")`" 3 UPDATPER Updates Information in the Persons File.")ȇ" 4 UPDATMAR Updates Information in the Marriages File.")҇" 5 INDEXPC Prepares a Parent/Child Index. (For 11 and 12)"*,܇" 6 INDEXMAR Prepares a Marriages Index. (For 12)"*p" 7 PRINTPER Prints Detailed Information about Persons."*" 8 PRINTMAR Prints Detailed Information about Marriages."+" 9 LISTPER Prints a List of the Persons in the Persons File."+P" 10 LISTMAR Prints a List of the Marriages in the Marriages File."+" 11 LISTPCI Prints a List of the Parent/Child Index."+" 12 DISPLAY Displays Genealogical Information on the Screen.","" 13 WORKSHT Prints information gathering worksheet.",_,:" Press CTRL-F1 to print screen in any program!",6((65314)1)1150,4:150,4:" (PRINTER NOT READY!)",@B(150),JB180D600,TB87D1200,^B41D2400-hB18D4800-rB4D9600-A|" Printer Baud Rate :";D:-{" Type a Program Number, and press the ENTER key."-" (Q to quit, 14 to change baud rate, 15 to restart)";R$-R$"q"R$"Q"600-R(R$)-R1R15140.8 R 450,460,470,480,490,500,510,520,530,540,550,560,570,880,580.w(128)(140)(12)(21)"/"(21)(130)(03),R.(140)(12)(129)(136)"/"(137)(12)(21),R.(13)(137)(141)(143)"/"(131)(03)(140),R/9#2,"" : #2,""/2> MD(K) 0 #2, (12);/8H/@R I/K\ 910/cf J 1 (TP$)1/p (MP$,1)" " MP$ (MP$,(MP$)1) : J (TP$)1/z J//:1:25,12:"Place Program Disk in Drive 0"027,14:"Press any key to continue":44539007:33,12:"End of Program"0c (R$,1) "a" (R$,1) "A" 950 : 9600q #2, FO0(130)(32)(130)(03)"/"(03)(12)(13),R0ʞ 20 26,8 : "Error Number ";;" Has Occured"1 26,8 : "Error Number ";;" Has Occured"1: 18,10 : "ERROR NUMBERS:"1x 18,11 : "3 = Out of Data 6 = Out of Memory"1 18,12 : "27 = Bad Record Number 17 = Bad File Data"1 18,13 : "20 = I/O Error 21 = Bad File Mode"26 18,14 : "25 = Disk Full 26 = File Not Found"2y 16,16 : "<<** Check for correct disk(s) in drive(s)! **>>"2$ 25,18 : "Place Program Disk in Drive 0"2. 15,20 : "PRESS ANY KEY TO RETURN TO MENU, BREAK TO TRY AGAIN"28 445393&B : 3 : 33,12 : "End of Program"31L 96039V 23w` 20,12 : "Do you wish to halt the program, Y or N"; R$3j R$ "Y" R$ "y" 9103t R$ "N" R$ "n" 11503~:6: 500: 4042:1,8:25,12:"PROGRAM MUST BE RUN FROM MENU!"4  9602 : "End of Program"31L 96039V 23w` 20,12 : "Do you wish to halt the program, Y or N"; R$3j R$ "Y" R$ "y" 9103t R$ "N" R$ "n" 11503~:6: 500: 4042:1,8:25,12:"PROGRAM MUST BE RUN FROM MENT8$ M8$,T9$ M9$,$ #1, T2,/P$FB$,=MP$ FB$,H 870,VSB$ MP$,a&P$FC$,o0MP$ FC$,z: 870,DS3$ MP$,N #1, T3,XP$FB$,bMP$ FB$,l 870,vS4$ MP$,P$FC$,MP$ FC$, 870,S5$ MP$-& #2, 10);"Marriage Record-number : ";-= #2, "###"; T1-j #2, 10);"Husband's Record Number: ";-Ƈ #2, "###"; T2;-Ї #2, 42); (SB$", "SC$,37)-ڇ #2, 10);"Wife's Record Number : ";- #2, "###"; T3;. #2, 42); (SD$", "SE$,37).A #2, 10);"Marriage-date : ";T5$.q #2, 10);"Marriage-city : ";T6$. #2, 10);"Marriage-county : ";T7$. #2, 10);"Marriage-state : ";T8$. #2, 10);"Comments: ";T9$.* #2,""& **** PRINTMAR Program.&R Copyright (c) by F.G. Swygert, September 1991&\ 500&q(113,0: 80 : 6&2 (269)256(270)32401 1160&< 2, 1000&F MD(N) ((N)((N)(M))(M))&P 970 : 1110''Z 21,8 : "The CoCo Family Recorder Version 1.0"'Rd 28,10 : "Print the Marriages File"'un 23,14 : "Today's Date ";D$'x 27,22 : "Press any key to continue";' 8,18 : "Place MARRFILE Disk in Drive 0, PERSFILE Disk in Drive 1"' 44539( "D", #1, "PERSFILE:1"( 1, 5 FA$, 20 FB$, 30 FC$, 2 FD$, 5 FE$, 5 FF$, 5 FG$, 11 FH$, 18 FI$, 16 FJ$, 16 FK$, 11 FL$, 18 FM$, 16 FZ$, 16 FY$, 11 FP$, 18 FQ$, 16 FR$, 16 FS$) "D", #2, "MARRFILE:0", 128)p 2, 5 M1$, 5 M2$, 5 M3$, 5 M4$, 11 M5$, 18 M6$, 16 M7$, 16 M8$, 45 M9$) : 8,10 : "Enter the Marriage Number to be Printed (0 to quit), or 'ALL'";R$)ȅ R$"0" 910)K 0)܁ 260*6 #2, 10);"Print-Out of Marriages File Contents";:#2," ";D$*C #2,""*I*u (R$,1) "a" (R$,1) "A" 320*K 4*I (R$)*" I1 I270 :19,1:"Number is out of range";: 190*, 230*6 360: 190*@ I1 270+J 0,21 : "Processing Record";I;+*T 360+5^ 850+Ah #2, I+RrT1 (M1$)+e| T1 1 840+sK K 1+}M 5+ MD(K) 1 230+T2 (M2$)+T3 (M3$)+T4 (M4$)+T5$ M5$+T6$ M6$+T7$ M7$,T8$ M8$,T9$ M9$, #1, T2,(P$FB$,6MP$ FB$,A 870,OSB$ MP$,Z&P$FC$,h0MP$ FC$,s: 870,DSC$ MP$,N #1, T3,XP$FB$,bMP$ FB$,l 870,vSD$ MP$,P$FC$,MP$ FC$, 870,SE$ MP$- #2, 10);"Marriage Record-number : ";-6 #2, "###"; T1-c #2, 10);"Husband's Record Number: ";-{Ƈ #2, "###"; T2;-Ї #2, 42); (SB$", "SC$,37)-ڇ #2, 10);"Wife's Record Number : ";- #2, "###"; T3;.  #2, 42); (SD$", "SE$,37).: #2, 10);"Marriage-date : ";T5$.j #2, 10);"Marriage-city : ";T6$. #2, 10);"Marriage-county : ";T7$. #2, 10);"Marriage-state : ";T8$. #2, 10);"Comments: ";T9$.* #2,""/4 ,TK$/!H #2, ,"Death-date:",TL$/?R #2, ,"Death-city:",TM$/_\ #2, ,"Death-county:",TZ$/~f #2, ,"Death-state:",TY$/p #2, ,"Burial-date:",TP$/z #2, ,"Burial-city:",TQ$/ #2, ,"Burial-county:",TR$/ #2, ,"Burial-state:",TS$0  #2,"" : #2,"" : #2,""03 #2, (12);090A I0l : 7 : 33,12 : "End of Program"0(130)(32)(130)(03)"/"(03)(12)(13),R0PB$ SP$0ހ RM 1 (SP$)11 (SP$,1) " " SP$ (SP$,(SP$)1) : RM (PB$)11 RM1"1* 21[ 26,8 : "Error Number ";;" Has Occured"1 26,8 : "Error Number ";;" Has Occured"1$ 18,10 : "ERROR NUMBERS:"1. 18,11 : "3 = Out of Data 6 = Out of Memory"2*8 18,12 : "27 = Bad Record Number 17 = Bad File Data"2iB 18,13 : "20 = I/O Error 21 = Bad File Mode"2L 18,14 : "25 = Disk Full 26 = File Not Found"2V 16,16 : "<<** Check for correct disk(s) in drive(s)! **>>"3` 25,18 : "Place Program Disk in Drive 0"3bj 15,20 : "PRESS ANY KEY TO RETURN TO MENU, BREAK TO TRY AGAIN"3nt 445393y~ 9603 23 20,12 : "Do you wish to halt the program, Y or N"; R$3 R$ "Y" R$ "y" 9604 R$ "N" R$ "n" 12104  11704!:6: 500: 404VĞ2:1,8:25,12:"PROGRAM MUST BE RUN FROM MENU!"4a΁ 970nt 445393y~ 9603 23 20,12 : "Do you wish to halt the program, Y or N"; R$3 R$ "Y" R$ "y" 9604 R$ "N" R$ "n" 121 FQ$,0TR$ FR$,:TS$ FS$,9D #2, (27),(69);,ZN #2,"Personal Information",tX #2, (27),(70);,b #2,"",l #2, ,"Record-Number:",TA,v #2, ,"Surname:",,TB$, #2, ,"Given-names:",,TC$, #2, ,"Sex:",,TD$-  #2, ,"Code:",,TE-6 #2, ,"Father's Record-number:",TF-U #2, ,"Father's Name: ",-v TF 0 #2,"" : 740- #1, TF-SP$FB$: 1000:S2$SP$-SP$FC$: 1000:SC$SP$-ڇ #2, (S3$ " " S2$,33). #2, ,"Mother's Record-number:",TG.% #2, ,"Mother's Name: ",.F TG 0 #2,"" : 810.S #1, TG.o SP$FB$: 1000:SB$SP$.SP$FC$: 1000:SC$SP$. #2, (SC$ " " SB$,33).* #2, ,"Birth-date:",,TH$.4 #2, ,"Birth-city:",,TI$/ > #2, ,"Birth-b& **** PRINTPER Program.&R Copyright (c) by F.G. Swygert, September 1991&\ 500&r(113,0: 80 : 6&2 (269)256(270)32401 1220&< 1030 : 1160&F 21,8 : "The CoCo Family Recorder Version 1.0"'P 28,12 : "Print the Persons File"':Z 23,16 : "Today's Date:";D$'kd 25,20 : "Place PERSFILE Disk in Drive 1"'n 27,22 : "Press any key to continue";'x 44539'' "D", #1, "PERSFILE:1"( 1, 5 FA$, 20 FB$, 30 FC$, 2 FD$, 5 FE$, 5 FF$, 5 FG$, 11 FH$, 18 FI$, 16 FJ$, 16 FK$, 11 FL$, 18 FM$, 16 FZ$, 16 FY$, 11 FP$, 18 FQ$, 16 FR$, 16 FS$( 6( 5,22( "Enter the Record Number to be Printed (0 to quit) or 'ALL'";R$) (R$,1) "a" (R$,1) "A" 250)/ȅR$"0"960)>I (R$))܅ I 1 I 540 : 21,1 : "Number is out of range"; : 170)恦 280) 160) I 1 540) 280) 950) #1, I)"1030:1160),*6 29,22 : "Processing Record #";I*'@TA (FA$)*8J TA1 940*uT#2,10),"Content of the Persons File";:#2," ";D$*^ #2,""*hTB$ FB$*rTC$ FC$*| J 1 (FC$)1* (TC$,1)" " TC$ (TC$,(TC$)1) : J (FC$)1* J+ TD$ FD$+/ (TD$,1) "M" TD$ "Male"+V (TD$,1) "F" TD$ "Female"+gTE (FE$)+xTF (FF$)+TG (FG$)+TH$ FH$+TI$ FI$+TJ$ FJ$+TK$ FK$+TL$ FL$+TM$ FM$+TZ$ FZ$+TY$ FY$,&TP$ FP$,0TQ$ FQ$,#:TR$ FR$,1DTS$ FS$,SN #2,,"Personal Information",`X #2,"",b #2, ,"Record-Number:",TA,l #2, ,"Surname:",TB$,v #2, ,"Given-names:",TC$, #2, ,"Sex:",TD$, #2, ,"Code:",TE- #2, ,"Father's Record-number: ";TF-2 #2, ,"Father's Name: ",-S TF 0 #2,"" : 730-` #1, TF-{SP$FB$: 980:S2$SP$-SP$FC$: 980:S3$SP$-Ї #2, (S3$ " " S2$,33)-ڇ #2, ,"Mother's Record-number: ";TG. #2, ,"Mother's Name: ",.# TG 0 #2,"" : 800.0 #1, TG.KSP$FB$: 980:SB$SP$.f SP$FC$: 980:SC$SP$. #2, (SC$ " " SB$,33). #2, ,"Birth-date:",TH$.* #2, ,"Birth-city:",TI$.4 #2, ,"Birth-county:",TJ$/> #2, ,"Birth-state:"S4 0AS5$ ""A S6$ ""A- S7$ ""A: S8$ ""AG $S9$ ""AM .A^ 8TA (FA$)Al BTB$ FB$A L J 1 (TB$) 1A V (TB$,1)"" TB$(TB$,(TB$)) : J(TB$)A `TC$ FC$A j JA t J 1 (FC$) 1B ~ (TC$,1)"" TC$(TC$,(TC$)) : J(TC$)B( JB6 TD$ FD$BG TE (FE$)BX TF (FF$)Bi TG (FG$)Bw TH$ FH$B TI$ FI$B TJ$ FJ$B TK$ FK$B TL$ FL$B TM$ FM$B TZ$ FZ$B TY$ FY$B TP$ FP$B TQ$ FQ$C TR$ FR$C (TS$ FS$C 2C" >"F$ ^150,4: 15,20 : "PRESS ANY KEY TO RETURN TO MENU, BREAK TO TRY AGAIN"F0 h 44539F< r 2200FD | 2F 20,12 : "Do you wish to halt the program, Y or N"; R$F R$"Y" R$"y" 2200F R$ "N" R$ "n" 2990F 2950F :6: 500: 30G 2:1,8:25,12:"PROGRAM MUST BE RUN FROM MENU!"G"  2250F0 h 44539F< r 2200FD | 2F 20,12 : "Do you wish to halt the program, Y or N"; R$F R$"Y" R$"y" 2200F R$ "N" R$ "n" 2990F 2950F :6: 500: 30G 2:1,8:25,12:"PROGRAM 620: 720 : #1,S2: 2360-3D 720 : #1, S2-?N 2360-[X (TD$,1) "M" 720-vb 0,20 : (79,32);-l 0,21 : (79,32);-v 0,22 : (70,32);- (TD$,1) " " 670- 5,20 : "The Sex of the Husband is Undefined". 680.C 5,20 : "The Sex of the Husband is shown as: "; TD$;.v 5,21 : "Cannot Save this Marriage Record";.150,4: 5,22 : "Press any key to continue";. 44539.Ɓ 2260: 520: 1050. 26,7 : (TC$""TB$,51);/  26,9 :(5,32);/ 26,9 : S3;/5 26,10 : (51,32);/d S30 2620: 910 : #1,S3: 2360/{ 910 : #1, S3/ 2360/ (TD$,1) "F" 910/ 0,20 : (79,32);/* 0,21 : (79,32);/4 0,22 : (70,32);0 > (TD$,1) "" 8600?H 5,20 : "The Sex of the Wife is Undefined"0JR 8700\ 5,20 : "The Sex of the Wife is shown as: "; TD$;0f 5,21 : "Cannot Save this Marriage Record";0p150,4: 5,22 : "Press any key to continue";0z 445391 2260: 520: 105014 26,10 : (TC$" "TB$,51);1M 56,4 : (5,32);1` 56,4 : S4;1{ 27,13 : (11,32);1 27,13 : (S5$,11);1 27,14 : (18,32);1 27,14 : (S6$,18);1 27,15 : (16,32);2 27,15 : (S7$,16);2  27,16 : (16,32);2< 27,16 : (S8$,16);2W 19,19 : (45,32);2s 19,19 : (S9$,45);2y2 0,20 : (79,32);2$ 0,21 : (79,32);2. 0,22 : (79,32);38 5,22 : " to leave as is, / to end, or enter new value."3AB 5,21 : "Use This Record Number";R$3UL R$"/" 19303jV R$ "" 12103` ((R$)) (S1) 1180 : 11303j 0,21 : (79,32); : 0,22 : (79,32);4 t 5,21 : "Cannot Change the Record Number to another number.";4=~150,4: 5,22 : "Press any key to continue";4I 445394U 10504eS1 (R$)4 S11 2260: 520: 19304 5204 0,21 : (79,32);4ą S11 19304 5,21 : "Enter the Husband's Persons Record-Number";R$5؅ R$"/" 19305' R$ "" 131057S2 (R$)5T S20 S2540 12905150,4: 5,22 : "Number out of range. Press any key to continue."; : 44539 : 12105 0,22 : (79,32);5 5405 0,21 : (79,32);6( S2 0 13906K2 0,20 : (79,32); 0,21 : (79,32); 0,22 : (79,32);6< 5,20 : "Husband's Record Number Cannot be Zero";6F 5,21 : "Cannot Save this Marriage Record";6P150,4: 5,22 : "Press any key to continue";6Z 445397d 2260: 520: 10507+n 0,21 : (79,32);7fx 5,21 : "Enter the Wife's Persons Record-Number";R$7z R$"/" 19307 R$ "" 14807S3 (R$)7 S30 S3540 14607 5,21 : "Number out of range"; : 13908 0,21 : (79,32);8 7308+ 0,22 : (79,32);8@҅ S3 0 15608Z 0,22 : (79,32);8 5,20 : "Wife's Record Number Cannot be Zero";8 5,21 : "Cannot Save this Marriage Record";8150,4: 5,22 : "Press any key to continue";9 445399 2260: 520: 105096 0,21 : (79,32)9" 5,22 : " to leave as is, / to end, or enter new value."9, 5,21 : "Enter the Marriage Code";R$96 R$"/" 19309@ R$ "" 16309JS4 (R$)9T 920:^ 0,21 : (79,32);:Jh 5,21 : "Enter the Marriage-Date as: dd Mmm yyyy";R$:^r R$"/" 1930:s| R$ "" 1690:S5$ R$ :RSET S5$ = R$: 940: 0,21 : (79,32);: 5,21 : "Enter the Marriage-city";R$: R$"/" 1930;  R$ "" 1750;S6$ R$;"́ 960;< 0,21 : (79,32);;j 5,21 : "Enter the Marriage-county";R$;~ R$"/" 1930; R$ "" 1810;S7$ R$; 980; 0,21 : (79,32);; 5,21 : "Enter the Marriage-State or Country:";R$<& R$"/" 1930<'0 R$ "" 1870<4:S8$ R$<@D 1000 5,22 : "Error in reply";>ځ 1940>C S2 0 S3 0 2030 : 2080>] 0,21 : (79,32);>150,4: 5,21 : "Cannot save unless both spouses have numbers that are not zero."> 0,21 : (79,32);? 5,21 : "Type M (more), or F (forget)"; R$?  1960?! M1$ (S1)?5* M2$ (S2)?I4 M3$ (S3)?]> M4$ (S4)?nH M5$ S5$?R M6$ S6$?\ M7$ S7$?f M8$ S8$?p M9$ S9$?z #2, RN? 6? 170@ 1 : 25,10 : "Place PROGRAM Disk in Drive 0"@226,12:"(Leave MARRFILE in Drive 1)"@e150,4: 27,14 : "Press any key to continue"@q 44539@ : 3 : 33,12 : "End of Program"@(130)(32)(130)(03)"/"(03)(12)(13),R@S1 0@S2 0@S3 0A!#& **** UPDATMAR Program&Q Copyright (c) by F.G. Swygert, September 1991&c113,0:80:6&t( : 2, 384&2 (269)256(270)32401 3000&< 2820 : 2940&F 21,8 : "The CoCo Family Recorder Version 1.0"'P 27,12 : "Update the Marriages File"'gZ 12,16 : "Place PERSFILE Disk in Drive 0, MARRFILE Disk in Drive 1"'d150,4: 27,22 : "Press any key to continue";'n 44539'x 6' "D", #2, "MARRFILE:1", 128' "D", #1, "PERSFILE:0"( #1,5FA$,20FB$,30FC$,2FD$,5FE$,5FF$,5FG$,11FH$,18FI$,16FJ$,16FK$,11FL$,18FM$,16FZ$,16FY$,11FP$,18FQ$,16FR$,16FS$( #2,5M1$,5M2$,5M3$,5M4$,11M5$,18M6$,16M7$,16M8$,45M9$( 0,22 : (79,32);) 5,22 : "(0 to quit)";)& 0,21 : (79,32))e 5,21 : "Enter Record Number of Marriage to Update"; R$)uRN (R$))܅ RN 0 2200) RN 250 240 : 260) 5,22 : "Record Number must be under 251. Press any key to continue"* 44539 : 170* #2, RN*$S1 (M1$)*5S2 (M2$)*F"S3 (M3$)*W,S4 (M4$)*e6S5$ M5$*s@S6$ M6$*JS7$ M7$*TS8$ M8$*^S9$ M9$*h 6*r 32,1 : "Marriage Record"*| 2,4 : "Marriage Record-number:";+ 2,6 : "Husband's Record-number:";+1 18,7 : "Name:";+X 2,9 : "Wife's Record-number:";+q 18,10 : "Name:";+ 2,19 : "Comments:";+ 41,4 : "Marriage Code:";+ 2,12 : "Marriage Statistics:";+ 2,13 : "Marriage-date:";, 2,14 : "Marriage-city:";,: 2,15 : "Marriage-county:";,[ 2,16 : "State/Country:";,f 520,r 1050, 26,4 : (5,32);, 26,4 : S1;, 26,6 : (5,32);,& 26,6 : S2;,0 26,7 : (51,32);-: S20 2620: 720 : #1,S2: 2360-/D 720 : #1, S2-;N 2360-WX (TD$,1) "M" 720-rb 0,20 : (79,32);-l 0,21 : (79,32);-v 0,22 : (70,32);- (TD$,1) " " 670- 5,20 : "The Sex of the Husband is Undefined". 680.? 5,20 : "The Sex of the Husband is shown as: "; TD$;.r 5,21 : "Cannot Save this Marriage Record";.150,4: 5,22 : "Press any key to continue";. 44539.Ɓ 2260: 520: 1050. 26,7 : (TC$""TB$,51);/ 26,9 : %r& **** UPDATPER Program.&R Copyright (c) by F.G. Swygert, September 1991&l113,0: 80 : 6 : &( (269)256(270)32401 3400&2 3210 : 3340&< 21,8 : "The CoCo Family Recorder Version 1.0"'F 25,12 : "Update the Persons File"'eP150,4: 8,22 : "Place PERSFILE Disk in Drive 1. Press any key to continue."'qZ 44539'yd 6'n "D", #1, "PERSFILE:1"(0x 1,5FA$,20FB$,30FC$,2FD$,5FE$,5FF$,5FG$,11FH$,18FI$,16FJ$,16FK$,11FL$,18FM$,16FZ$,16FY$,11FP$,18FQ$,16FR$,16FS$(J 0,22 : (79,32);(h 5,22 : "(0 to quit)";( 0,21 : (79,32)( 5,21 : "Enter Record Number of Person to Update"; R$( R$ "0" 3190(RN (R$)) RN 1 RN 550 200 : 240)7Ȟ 2: 28,12 : "Number is out of range")jҠ150,4: 27,14 : "Press any key to continue")vܢ 44539)6: 130) #1, RN)TA (FA$)) TA 0 310*  2 : 10,12 : "Record Number is Zero. Must run the CREATPER Program First."*?150,4: 27,14 : "Press any key to continue";*K" 44539*W, 3190*c6TB$FB$*o@TC$FC$*J J 1 (FC$)1*T (TC$,1)" " TC$ (TC$,(TC$)1) : J (FC$)1*^ J*hTD$FD$*r (TD$,1) "M" TD$ "Male"+%| (TD$,1) "F" TD$ "Female"+4TE(FE$)+CTF(FF$)+RTG(FG$)+^TH$FH$+lTI$ FI$+zTJ$ FJ$+TK$ FK$+TL$FL$+TM$ FM$+TZ$ FZ$+TY$ FY$+TP$FP$+TQ$ FQ$+TR$ FR$+TS$ FS$+,#& 2,1 : "Personal Information of:",<0 2,3 : "Person:";,\: 2,4 : "Record-number:";,vD 2,6 : "Surname:";,N 2,8 : "First & Middle Names:";,X 2,10 : "Sex:";,b 2,11 : "Code:";,l 2,13 : "Person's Father:";-v 2,14 : "Record-number:";-( 2,15 : "Name:";-K 2,17 : "Person's Mother:";-l 2,18 : "Record-number:";- 2,19 : "Name:";- 44,3 : "Person's Vital Statistics:";- 44,5 : "Birth-date:";- 44,6 : "Birth-city:";.  44,7 : "Birth-county:";.. 44,8 : "State/Country:";.M 44,10 : "Death-date:";.l 44,11 : "Death-city:";. 44,12 : "Death-county:";. 44,13 : "State/Country:";. 44,15 : "Burial-date:";. 44,16 : "Burial-city:";/ 44,17 : COCO FAMILY RECORDER  "#$%'(*-./012345978:;?=>@BOOT BIN<FAMREC TXT, &.   9     .  N  p   7   e & !u 65   )BREADDOC BAS+ISKNAMEBASxDOSBOOT DATB  "#$%'(*-./0123456789:;KWBOOT BINFD1 BINFD0 BIN   ?      :    5   b  ۏ   ! &[   )cREADDOC BAS+FAMREC TXT,DOSBOOT DAT<%ێ&&~!9d F TrPgoarm?&12107:1040C porygith( )c ,eStpmeeb r911962(07)23041:,0:320,U,:4,:,2,0,U:B" 0,B,'P035,::,2,0B3'Z3,4sm"d'd3,0:72,8:720,:3(,2,2:7" \/--3(,223;)'x< - -">:849,;(3,001:,2 "Burial-county:";/3 44,18 : "State/Country:";/>* 830/J4 1520/d> 27,1 : (50,32);/H 27,1 : (TC$ " " TB$,50);/R 7,5 : (5,32);/\ 7,5 : TA;/f 8,7 : (20,32);/p 8,7 : (TB$,20);0z 8,9 : (30,32);0 8,9 : (TC$,30);04 8,10 : (7,32);0N 8,10 : (TD$,7);0g 7,11 : (5,32);0z 7,11 : TE;0 17,14 : (5,32);0 17,14 : TF;0ʅ TF 0 SN$ " " : GN$ " " : 10600 #1, TF0SN$ FB$ : GN$ FC$1 J 1 (FB$)11P (SN$,1)" " SN$(SN$,(SN$)1) : J(FB$)11X J1p J 1 (FC$)11 (GN$,1)" " GN$(GN$,(GN$)1) : J(FC$)11 J1$NM$ SN$ ", " GN$2. SN$ " " GN$ " " NM$ SN$ " " GN$2*8 SN$ " " GN$ " " NM$ " "2DB 8,15 : (33,32);2_L 8,15 : (NM$,33);2yV 17,18 : (5,32);2` 17,18 : TG;2j TG 0 SN$ " " : GN$ " " : 12202t #1, TG2~SN$ FB$ : GN$ FC$2 J 1 (FB$)135 (SN$,1)" " SN$(SN$,(SN$)1) : J(FB$)13= J3U J 1 (FC$)13 (GN$,1)" " GN$(GN$,(GN$)1) : J(FC$)13 J3NM$ SN$ ", " GN$3΅ SN$ " " GN$ " " NM$ SN$ " " GN$4؅ SN$ " " GN$ " " NM$ " "4) 8,19 : (33,32);4D 8,19 : (NM$,33);4^ 59,5 : (11,32);4y 59,5 : (TH$,11);4 59,6 : (18,32);4 59,6 : (TI$,18);4 59,7 : (16,32);4( 59,7 : (TJ$,16);42 59,8 : (16,32);5< 59,8 : (TK$,16);53F 59,10 : (11,32);5OP 59,10 : (TL$,11);5jZ 59,11 : (18,32);5d 59,11 : (TM$,18);5n 59,12 : (16,32);5x 59,12 : (TZ$,16);5 59,13 : (16,32);5 59,13 : (TY$,16);6 59,15 : (11,32);6+ 59,15 : (TP$,11);6F 59,16 : (18,32);6b 59,16 : (TQ$,18);6} 59,17 : (16,32);6 59,17 : (TR$,16);6 59,18 : (16,32);6 59,18 : (TS$,16);66 0,20 : (79,32);7  0,21 : (79,32);7$ 0,22 : (79,32);7t 5,22 : " to leave as is, / to end , or enter new value."7 5,21 : "Use This Record Number";R$7" R$"/" 29107, R$ "" 168076 ((R$))(TA) 1650 : 16008!@ 0,21 : (79,32); : 0,22 : (79,32);8fJ 5,21 : "Cannot Change the Record Number to another number.";8T150,4: 5,22 : "Press any key to continue";8^ 445398h 15208rTA (R$)8| TA1 830: 29108 8309 0,21 : (79,32);9 TA0 29109Y 5,21 : "Enter the Person's Surname (all capital letters)";R$9m R$"/" 29109 R$ "" 17509TB$ R$9́ 8309 0,21 : (79,32);9 5,21 : "Enter the Person's First & Middle Names";R$: R$"/" 2910: R$ "" 1810:&TC$ R$:1 830:K 0,21 : (79,32);: 5,21 : "Enter the Person's Sex (M or F)";R$:& R$"/" 2910:0 R$"" 1890::TD$ R$:D (R$,1) "m" (R$,1) "M" TD$ "Male";N (R$,1) "f" (R$,1) "F" TD$ "Female";*X 830;Db 0,21 : (79,32);;pl 5,21 : "Enter the Person's Code";R$;v R$ "/" 2910; R$ "" 1950;TE (R$); 830; 0,21 : (79,32);< 5,21 : "Enter the Father's Record Number";R$< R$"/" 2910<. R$ "" 2070<>TF (R$)<[Ѕ TF0 TF540 2050< 5,21 : "Number out of Range"<150,4 5,22 : "Press any key to continue"< 44539< 1950< 0,21 : (79,32);< 830= 0,21 : (79,32);== 5,21 : "Enter the Mother's Record Number";R$=Q* R$"/" 2910=f4 R$ "" 2190=v>TG (R$)=H TG0 TG540 2170=R 5,21 : "Number out of Range"=\150,4: 5,22 : "Press any key to continue"=f 44539>p 2070>z 0,21 : (79,32);>' 830>A 0,21 : (79,32);> 5,21 : "Enter the Person's Birth-date as: dd Mmm yyyy";R$> R$"/" 2910> R$ "" 2250>TH$ R$> 830> 0,21 : (79,32);? 5,21 : "Enter the Person's Birth-city";R$?$ޅ R$"/" 2910?9 R$ "" 2310?FTI$ R$?Q 830?k  0,21 : (79,32);?  5,21 : "Enter the Person's Birth-county";R$?  R$"/" 2910? $ R$ "" 2370? .TJ$ R$? 8 830? B 0,21 : (79,32);@8 L 5,21 : "Enter the Person's Birth-state or Country";R$@L V R$"/" 2910@a ` R$ "" 2430@n jTK$ R$@y t 830@ ~ 0,21 : (79,32);@ 5,21 : "Enter the Person's Death-date as: dd Mmm yyyy";R$@ R$ "/" 2910A R$ "" 2490A TL$ R$A 830A2 0,21 : (79,32);Ad 5,21 : "Enter the Person's Death-city";R$Az ΅ R$ "/" 2910A ؅ R$ "" 2550A TM$ R$A 쁦 830A 0,21 : (79,32);A 5,21 : "Enter the Person's Death-county";R$B R$ "/" 2910B  R$ "" 2610B- TZ$ R$B8 ( 830BR 2 0,21 : (79,32);B < 5,21 : "Enter the Person's Death-state or Country";R$B F R$ "/" 2910B P R$ "" 2670B ZTY$ R$B d 830B n 0,21 : (79,32);C0 x 5,21 : "Enter the Person's Burial-date as: dd Mmm yyyy";R$CF R$ "/" 2910C[ R$ "" 2730Cx TP$ R$ :RSET TP$ = R$C 830C 0,21 : (79,32);C 5,21 : "Enter the Person's Burial-city";R$C R$ "/" 2910C ȅ R$ "" 2790D TQ$ R$D ܁ 830D- 0,21 : (79,32);Db 5,21 : "Enter the Person's Burial-county";R$Dx R$ "/" 2910D  R$ "" 2850D TR$ R$D  830D " 0,21 : (79,32);D , 5,21 : "Enter the Person's Burial-state or Country";R$E 6 R$ "/" 2910E) @ R$ "" 2910E6 JTS$ R$EA T 830E[ ^ 0,21 : (79,32);E h 5,21 : "Type S (save), M (more), or F (forget)";R$E r (R$,1)"m" (R$,1)"M" 0,22: (79,32);: 1520F | (R$,1)"f" (R$,1)"F" : 130FA (R$,1)"s" (R$,1)"S" 0,21: (79,32);: 2970FM 2910Fa FA$ (TA)Fr FB$ TB$F FC$ TC$F FD$ (TD$,1)F FE$ (TE)F FF$ (TF)F FG$ (TG)F FH$ TH$F FI$ TI$G FJ$ TJ$G FK$ TK$G+  FL$ TL$G<  FM$ TM$GM  FZ$ TZ$G^ & FY$ TY$Go 0 FP$ TP$G : FQ$ TQ$G D FR$ TR$G N FS$ TS$G X #1, RNG bG l 130G v : 7 : 33,12 : "End of Program"H) (130)(32)(130)(03)"/"(03)(12)(13),RH1 2Hb 26,8 : "Error Number ";;" Has Occured"H 26,8 : "Error Number ";;" Has Occured"H 18,10 : "ERROR NUMBERS:"H 18,11 : "3 = Out of Data 6 = Out of Memory"I1 18,12 : "27 = Bad Record Number 17 = Bad File Data"Ip 18,13 : "20 = I/O Error 21 = Bad File Mode"I 18,14 : "25 = Disk Full 26 = File Not Found"I 16,16 : "<<** Check for correct disk(s) in drive(s)! **>>"J# 25,18 : "Place Program Disk in Drive 0"Jp 150,4: 15,20 : "PRESS ANY KEY TO RETURN TO MENU, BREAK TO TRY AGAIN"J| 44539J  3190J 2J  20,12 : "Do you wish to halt the program, Y or N"; R$J R$ "Y" R$ "y" 3190K * R$ "N" R$ "n" 3390K 4 3350K0 > : 6 : 30Ke H2:1,8:25,12:"PROGRAM MUST BE RUN FROM MENU!"Kq R 3200 44539J  3190J 2J  20,12 : "Do you wish to halt the program, Y or N"; R$J R$ "Y" R$ "y" 3190K * R$ "N" $,16);$ |$C **** Routines to Obtain information from the User$] 0,20 : (79,32);$w 0,21 : (79,32);$ 0,22 : (79,32);$ 5,22 : " to leave as is, / to end , or enter new value."%  5,21 : "Use This Record Number";R$%"… R$ "/" 3090%7̅ R$ "" 1850%`օ ((R$)) (TA) 1820 : 1760% **** Prevent Change of Rec.no% 0,21 : (79,32); : 0,22 : (79,32);% 5,21 : "Cannot Change the Record Number to another number.";&.150,4: 5,22 : "Press any key to continue";&: 44539&F 1670&VTA (R$)&& TA 1 930 : 3090 :Negative&0 930&: 0,21 : (79,32);&D **** Terminate record update if rec.no is negative&N TA 0 3090'9X 5,21 : "Enter the Person's Surname (all capital letters)";R$'Ob R$ "/" 3090'dl R$ "" 1930'qvTB$ R$'| 930' 0,21 : (79,32);' 5,21 : "Enter the Person's First & Middle Names";R$' R$ "/" 3090' R$ "" 1990( TC$ R$( 930(/ 0,21 : (79,32);(c 5,21 : "Enter the Person's Sex (M or F)";R$(yڅ R$ "/" 3090( R$ "" 2070(TD$ R$( (R$,1) "m" (R$,1) "M" TD$ "Male") (R$,1) "f" (R$,1) "F" TD$ "Female") 930), 0,21 : (79,32);)X 5,21 : "Enter the Person's Code";R$)n* R$ "/" 3090)4 R$ "" 2130)>TE (R$))H 930)R 0,21 : (79,32);)\ 5,21 : "Enter the Father's Record Number";R$*f R$ "/" 3090*p R$ "" 2250*(zTF (R$)*_ TF 0 TF 500 2230 :500 Is Max. Persons* 5,21 : "Number out of Range"*150,4 5,22 : "Press any key to continue"* 44539* 2130* 0,21 : (79,32);* 930+  0,21 :+& **** WORKSHT Program.&H **** Information Gathering Worksheet&| Copyright (c) by F.G. Swygert, September 1991&( **** Screen Definitions & Variables&280:6:113,0&< (269)256(270)32401 1050&F860:1000' P **** Title Screen'CZ 22,8 : "The CoCo Family Recorder Version 1.0"'qd 27,10 : "Print Information Worksheet"'n 23,12 : "Make Sure Printer Is ON and READY!"'x 5,14 : "This program prints a worksheet so that one can gather all information"(O " required to build the data files. It is suggested that one sheet be"( " printed and then photocopies made of that sheet to save wear on the"( " printer. Single sheets are printed in BOLD to facilitate photocopying.")0 " No more than 50 sheets can be printed at once.")c150,4: 27,21 : "Press any key to continue")o 44539)6 : 28,8 : "**** Print Options ****")ȅ ((65314) 1)0 230*%҅ ( (65314) 1)1 150,4: 150,4: 14,10:"PRINTER IS NOT READY! Make sure it is ON and ON-LINE"*k 19,12:"Check Printer, Press any key to continue": 44539:190* 19,12 : " Tandy DMP or Epson Printer Codes (T/E)";C$* C$"T" C$"t" #2,(27);(54);: 270+ C$"E" C$"e" #2,(27);(50);: 270+ 230+R 23,16 : "(Enter S for single sheet, 0 to quit)+ 26,14 : "Number of Copies to Print:";N$+" N$"S" N$"s" 1080+, N$"0" 820+6N(N$)+@ N 0 N 50 26,14: (79,32): 270,<J 150,4 : 16,18 : "Check Printer! - Press any key to start printing",HT 44539,V^ X1 N,ph Form Starts Here,r #2,"":#2,"",| #2, 22);"The CoCo Family Recorder Version 1.0", #2,"", #2, 24);"Personal Information Worksheet"- #2, 4);(72,61)-W #2, 15);"Enter all dates as 'DD MMM YYYY' (Day Month Year)"-p #2, 4);(72,45)- #2, 27);"Person Record Information"-‡ #2, 4);(72,61)-̇ #2, 4);"Person Number:";(4,95).և #2, 4);"Name (Last, First, Middle):"; (40,95).J #2, 4);"Sex:";(4,95);" Code:";(4,95). #2, 4);"Person's Father:";(39,95);" Record No.:";(4,95). #2, 4);"Person's Mother:";(39,95);" Record No.:";(4,95). #2,""/  #2, 4);"Person's Vital Statistics:"/P #2, 4);"Birth-date:";(23,95);" Birth-city:";(23,95)/ #2, 4);"Birth-county:";(21,95);" State/Country:";(20,95)/& #2, 4);"Death-date:";(23,95);" Death-city:";(23,95)0#0 #2, 4);"Death-county:";(21,95);" State/Country:";(20,95)0h: #2, 4);"Burial-date:";(22,95);" Burial-city:";(22,95)0D #2, 4);"Burial-county:";(20,95);" State/Country:";(20,95)0N #2,""0X #2, 4);(72,61)1b #2, 26);"Marriage Record Information"1l #2, 4);(72,61)1Pv #2, 4);"Marriage Record-number:";(4,95)1 #2, 4);"Husband's Record No.:";(4,95);" Husband's Name:";(30,95)1 #2, 4);"Wife's Record No.:";(4,95);" Wife's Name:";(36,95)2  #2, 4);"Comments:";(63,95)2 #2,""2I #2, 4);"**** Marriage Statistics ****"2V #2,""2 #2, 4);"Marriage Code:";(4,95);" Marriage-date:";(20,95)2Ƈ #2, 4);"Marriage-city:";(40,95)2Ї #2, 4);"Marriage-county:";(38,95)3ڇ #2, 4);"State/Country:";(40,95)30 #2, (2,10)3T #2, 4); "ADDITIONAL NOTES:"3i #2, (14,10)3 #2, 23);"ALL PROGRAMS (C) 1991, F.G. SWYGERT"3 #2, (12)3 N$"S" N$"s" 8203 X3* **** Finish up and end44 N$"S" N$"s" 113049> 7 : 33,12 : "End of Program"4wH(130)(32)(130)(03)"/"(03)(12)(13),R4R Error trap routine4\ 24f 26,8 : "Error Number ";;" Has Occured"4p 26,8 : "Error Number ";;" Has Occured"5z 18,10 : "ERROR NUMBERS:"5\ 18,11 : "3 = Out of Data 6 = Out of Memory"5 18,12 : "27 = Bad Record Number 17 = Bad File Data"5 18,13 : "20 = I/O Error 21 = Bad File Mode"6 18,14 : "25 = Disk Full 26 = File Not Found"6] 16,16 : "<<** Check for correct disk(s) in drive(s)! **>>"6 25,18 : "Place Program Disk in Drive 0"6150,4: 15,20 : "PRESS ANY KEY TO RETURN TO MENU, BREAK TO TRY AGAIN"6ʢ 445396ԁ 8307 ޭ routine7 27O 20,12 : "Do you wish to halt the program, Y or N"; R$7o R$ "Y" R$ "y" 8307 R$ "N" R$ "n" 507 101072:1,8:25,12:"PROGRAM MUST BE RUN FROM MENU!"7$8407. **** Print Single Sheets8%8 C$"T" C$"t" #2, (27);(31)8RB C$"E" C$"e" #2, (27);(69)8L 150,4 : 16,18 : "Check Printer! - Press any key to start printing"8V 3708` **** Turn Bold Print off8j C$"E" C$"e" #2, (27);(70);9$t C$"T" C$"t" #2, (27);(32);9*~$"E" C$"e" #2, (27);(69)8L 150,4 : 16,18 : "Check Printer! - Press any key to start printing"8V 3708` **** Turn Bold Print off8j C$"E" C$"e" #2, (27);(70);9$t C$ Information"1%l #2, 4);(72,61)1Wv #2, 4);"Marriage Record-number:";(4,95)1 #2, 4);"Husband's Record No.:";(4,95);" Husband's Name:";(30,95)1 #2, 4);"Wife's Record No.:";(4,95);" Wife's Name:";(36,95)2 #2, 4);"Comments:";(63,95)2 #2,""2P #2, 4);"**** Marriage Statistics ****"2] #2,""2 #2, 4);"Marriage Code:";(4,95);" Marriage-date:";(20,95)2Ƈ #2, 4);"Marriage-city:";(40,95)2Ї #2, 4);"Marriage-county:";(38,95)3#ڇ #2, 4);"State/Country:";(40,95)37 #2, (2,10)3[ #2, 4); "ADDITIONAL NOTES:"3p #2, (14,10)3 #2, 23);"ALL PROGRAMS (C) 1991, F.G. SWYGERT"3 #2, (12)3 N$"S" N$"s" 8103 X3* **** Finish up and end44 N$"S" N$"s" 11404@> 7 : 33,12 : "End of Program"4OH "MENU:0"4kR Error trap routine4s\ 24f 26,8 : "Error Number ";;" Has Occured"4p 26,8 : "Error Number ";;" Has Occured"4z 18,10 : "ERROR NUMBERS:"54 18,11 : "3 = Out of Data 6 = Out of Memory"5s 18,12 : "27 = Bad Record Number 17 = Bad File Data"5 18,13 : "20 = I/O Error 21 = Bad File Mode"5 18,14 : "25 = Disk Full 26 = File Not Found"65 16,16 : "<<** Check for correct disk(s) in drive(s)! **>>"6e 25,18 : "Place Program Disk in Drive 0"6150,4: 15,20 : "PRESS ANY KEY TO RETURN TO MENU, BREAK TO TRY AGAIN"6ʢ 445396ԁ 8306ޭ routine6 27' 20,12 : "Do you wish to halt the program, Y or N"; R$7G R$ "Y" R$ "y" 8307h R$ "N" R$ "n" 10507t 10107 50 :Start of program7$2:1,8:25,12:"PROGRAM MUST BE RUN FROM MENU!"7."MENU:0"78 **** Print Single Sheets8 B C$"T?& **** MENU Program&M Copyright (c) by F.G. Swygert, September 1991&t(269)256(270)324011000&(1:80:6:282,0&2150,4:150,4:100,4:100,4:150,4:150,4&<690:820&F28,10:"The CoCo Family Recorder"'-P18,12:"Copyright (c) September 1991 by F.G. Swygert"'UZ28,14:"** ALL RIGHTS RESERVED **"'d3,16:"(Based on Genealogy ON DISPLAY, Copyright February 1986, by Melvin O. Duke"'n11,17:"for IBM compatible computers with GW-BASIC or IBM BASIC-A)"(%x150,4:27,21:"Press any key to continue"(044539(G6:690:820(::" The CoCo Family Recorder Version 1.0":(" No Name Function"(" 1 CREATPER Creates (FORMATS) a Persons File.")#" 2 CREATMAR Creates (FORMATS) a Marriages File.")e" 3 UPDATPER Updates Information in the Persons File.")ȇ" 4 UPDATMAR Updates Information in the Marriages File.")҇" 5 INDEXPC Prepares a Parent/Child Index. (For 11 and 12)"*1܇" 6 INDEXMAR Prepares a Marriages Index. (For 12)"*u" 7 PRINTPER Prints Detailed Information about Persons."*" 8 PRINTMAR Prints Detailed Information about Marriages."+" 9 LISTPER Prints a List of the Persons in the Persons File."+U" 10 LISTMAR Prints a List of the Marriages in the Marriages File."+" 11 LISTPCI Prints a List of the Parent/Child Index."+" 12 DISPLAY Displays Genealogical Information on the Screen.",""" 13 WORKSHT Prints information gathering worksheet.",d,:" Press CTRL-F1 to print screen in any program!",6((65314)1)1150,4:150,4:" (PRINTER NOT READY!)",@B(150),JB180D600,TB87D1200,^B41D2400-hB18D4800-rB4D9600-F|" Printer Baud Rate :";D:-" Type a Program Number, and press the ENTER key."-" (Q to quit, 14 to change baud rate, 15 to restart)";R$-R$"q"R$"Q"600-R(R$)-R1R15140.= R 450,460,470,480,490,500,510,520,530,540,550,560,570,890,580.|(128)(140)(12)(21)"/"(21)(130)(03),R.(140)(12)(129)(136)"/"(137)(12)(21),R.(13)(137)(141)(143)"/"(131)(03)(140),R/>(13)(32)(130)(129)"/"(128)(142)(129),R/~(141)(143)(21)(128)"/"(130)(13)(03),R/(138)(32)(21)(128)"/"(140)(03)(128),R/(143)(12)(32)(131)"/"(136)(21)(03),R0=(131)(140)(142)(128)"/"(03)(12)(21),R0(128)(130)(129)(139)"/"(140)(32)(128),R0(13)(21)(132)(142)"/"(21)(132)(03),R0&(32)(132)(130)(141)"/"(141)(12)(32),R1>0(12)(13)(21)(140)"/"(129)(141)(131),R1:(137)(135)(134)(32)"/"(132)(12)(133),R1DM"BOOT":1N1401X21b21,12:"Do you wish to end the program, Y or N";Q$1lQ$"Y"Q$"y"6502vQ$"N"Q$"n"14026102V1::14,8:"Don't forget to make NEW backups of your DATA Disks!"2gX11000:X265496,0:113,0:35867214022226,8:"Error Number ";;" Has Occured"226,8:"Error Number ";;" Has Occured"3 18,10:"ERROR NUMBERS:"3D18,11:"3 = Out of Data 6 = Out of Memory"318,12:"27 = Bad Record Number 17 = Bad File Data"318,13:"20 = I/O Error 21 = Bad File Mode"318,14:"25 = Disk Full 26 = File Not Found"4516,16:"<<** Check for correct disk(s) in drive(s)! **>>"4a 25,18:"Place Program Disk in Drive 0"4150,4:15,20:"PRESS ANY KEY TO RETURN TO MENU, BREAK TO TRY AGAIN"4 445394*6:1404425>20,12:"Do you wish to halt the program, Y or N";R$5HR$"Y"R$"y"87050RR$"N"R$"n"8805:\8305Ff:6005Zp:6:500:1405z6:27,8:"Select Printer Baud Rate:"::5" 1 = 600 2 = 1200 3 = 2400 4 = 4800 5 = 9600"6)27,16:A(65314):B(A2):CA2:CB0"PRINTER IS ON":"PRINTER IS OFF"6~3,18:"Program will lock-up if you try to print without printer on and online."6:27,13:"Selected Value";R$6R$"1"150,87:1406R$"2"150,41:1406R$"3"150,18:1407ʅR$"4"150,4:1407 ԅR$"5"150,1:1407*ށ8907>:113,0:35867l lock-up if you try to print without printer on and online."6:27,13:"Selected Value";R$6R$"1"150,87:1406R$"2"150,41:1406R$"3"150,18:1407ʅR$"4"150&#:READDOC.BAS IS PROGRAM NAME&/ :1000&9::&`"SEND 'FAMREC.TXT' TO (P)RINTER,"&("(S)CREEN, OR (8)0-COLUMN COCO 3"&2"SCREEN? (P/S/8)"&<:"PRESS SHIFT-@ TO PAUSE, SPACE TO CONTINUE, BREAK TO STOP"'F"(FILE FORMATTED FOR 80 COLUMNS)"'P""80'-ZA$: A$"" 90'kd A$"P" "REMEMBER TO SET YOUR BAUD RATE!":DV2:140'n A$"S" DV0:140'x A$"8" 80:DV0:140'1,4:80'"I",#1,"FAMREC.TXT"'(1)0 #1:'#1,A$'#DV,A$( 150)"'P""80'-ZA$: A$"" 90'kd A$"P" "REMEMBER TO SET YOUR BAUD RATE!":DV2:140'n A$"S" DV0:140'x A$"8" 80:DV0:140'1,4:80'"I",#1,"FAMREC.TXT"'(1)0 #1:'#1,A$'#DV,A$( O. Duke. The fee the author of "The CoCo Family Recorder" requests is a copying fee ONLY, not payment or registration for "Genealogy ON DISPLAY!". There were two major reasons for basing these programs on existing ones: 1) Programming time was reduced tremendously, and 2) The data files created by this program can be transferred to IBM format disks and shared with relatives or friends with IBM compatible (MS-DOS) computers, and vice-versa. This means you may not have to do all the work yourself! A public domain CoCo to IBM transfer program will be included on request when the IBM version of the program is ordered. Please note that the transfer program requires two floppy disk drives. The MS-DOS programs are supplied AS IS and are not supported by this author. Although later versions of "Genealogy ON DISPLAY!" exist, the data files created by "The CoCo Family Recorder" may not be compatible with any version other than 4.0. The GW-Basic programs this software was derived from weren't merely "converted" to run on the CoCo, they required near total re-writing. Please respect this, and show continued support for CoCo software authors, by not distributing copies to anyone else. Thank You F.G. Swygert (the author) p.s. The author can be reached at the above address, and also on DELPHI- member name DSRTFOX. The above address is a permanent address where mail WILL get to the author. He is in the USAF and moves around some, but is currently stationed at the following address (current phone number also): The CoCo Family Recorder, Version 1.0 Copyright (c) 1991, 1992 by F.G. Swygert ALL RIGHTS RESERVED ^k ^k/- ARNA Systems /\--/\ < - - > \ / \/ (the FARNA Fox!) TABLE OF CONTENTS =============================================================== Introduction ....................... 2 Warranty/License ................... 3 Making Backups ..................... 3 Overview ........................... 4 Hardware Requirements .............. 5 Terms Defined ...................... 5 Using the Programs The MENU Program .................. 6 Gathering Information (WORKSHT) ... 6 Creating the Data Files (CREATPER,CREATMAR) ............... 7 Entering Information (UPDATPER,UPDATMAR)................ 7 Data Entry Considerations (names,dates,commas) .............. 7 Creating the Indices (INDEXPC,INDEXMAR) ................ 8 Printing Detailed Information (PRINTPER,PRINTMAR) ............... 8 Printing Data File Lists (LISTPER,LISTMAR,LISTPCI) ......... 9 The DISPLAY Program ............... 9 Stopping the Programs (the BREAK key) ................... 10 Appendices A. Errors Numbers, Causes, Corrections ... 11 Lock-up After CTRL-F1 .......... 11 B. Data File Contents PERSFILE ....................... 12 MARRFILE ....................... 13 PCINDEX ........................ 13 MINDEX ......................... 13 C. User's Personal Notes .......... 14 page 1 INTRODUCTION =============================================================== Thank you for purchasing "The CoCo Family Recorder". It is designed to help track family members throughout history, and to be as simple to use as possible. These programs were derived from the GW-Basic share-ware program package "Genealogy ON DISPLAY!" (version 4.0, last updated February 1986), written by Melvin O. Duke. An MS-DOS work-alike version is available that looks and feels like "The CoCo Family Recorder". The MS-DOS version is GUARANTEED to be data compatible after disk format transfer. NOTE: "Genealogy ON DISPLAY!" 4.0 is copyright (c) 1983 through 1986 by Melvin O. Duke. There were two major reasons for basing these programs on existing ones: 1) Programming time was reduced tremendously, and 2) The data files created by this program can be trans- ferred to IBM format disks and shared with relatives or friends with IBM compatible (MS-DOS) computers, and vice-versa. This means you may not have to do all the work yourself! A public domain CoCo to IBM transfer program will be included with the modified "Genealogy ON DISPLAY" program. Please note that the transfer programs require drive "A" to be a 5.25" floppy. The transfer programs are supplied AS IS and are not supported by this author. Various MS-DOS versions of "Genealogy ON DISPLAY!" exist, but the data files created by "The CoCo Family Recorder" are not guaranteed to be compatible with any program other than the MS-DOS version of "The CoCo Family Recorder" The GW-Basic programs this software was derived from weren't merely "converted" to run on the CoCo, they required near total re-writing. Please respect this, and show continued support for CoCo software authors, by not distributing copies to anyone else. Thank You F.G. Swygert (the author) p.s. The author can be reached at the below address, and also on DELPHI- member name DSRTFOX. Francis G. Swygert Rt 4 Box 145 Leesville, SC 29070 page 2 Warranty/License =============================================================== 1. The enclosed software is warranted to be free of defects when sent to the purchaser for a period of 180 days from the date of purchase to the ORIGINAL purchaser ONLY. If any defects are discovered, or the program ceases to function properly, return the ORIGINAL disk for a free replacement. 2. Neither the author nor distributor shall bear ANY liability for loss or damage to the computer or data caused in any way (directly or indirectly) by this software. 3. The purchaser of this software may use it on as many computers as he/she owns. Please encourage friends and family members to buy their own copies! 4. After the above warranty period (#1), replacement disks will be available from the author under the same conditions as for third parties (see #5 below). DISTRIBUTORS HAVE NO OBLIGATIONS AFTER THE ORIGINAL WARRANTY PERIOD! 5. Third parties shall be held responsible to the above listed conditions (except #1). Replacement of the original disk held by any party will be made for a fee of $5 plus return shipping. The original disk MUST accompany any such re- quests. Replacement will be made of an identical version only. The author reserves the right to substitute a newer version. THIS IS NOT AN UPGRADE PATH! Any returned disks found not to be flawed will be sent back untouched. This warranty is extended to third parties by the author ONLY. DISTRIBUTORS HAVE NO OBLIGATION TO THIRD PARTIES! Making Backups --------------------------------------------------------------- PLEASE MAKE BACKUPS OF YOUR ORIGINAL DISK BEFORE CONTINUING! To backup the original: 1. Initialize (format) a new disk with the DSKINI commmand (DSKINI 0, if the new disk is in drive 0) 2. Place the new disk in one drive, the original in the other. 3. Note which disk is in which drive, then type BACKUP x TO x (where the first x is the drive with the original disk, the second x is the drive with the newly formatted disk). 4. With one drive, simply type BACKUP then follow the prompts on screen. The SOURCE disk is the original, the DESTINATION disk is the newly formatted disk. NOTE THAT TWO DRIVES ARE REQUIRED TO RUN THIS SOFTWARE! page 3 OVERVIEW =============================================================== The CoCo Family Recorder programs provide the user with the capability to create and maintain a data base of informa- tion about his or her ancestors and relatives, and to show the relationships between all names entered. The databases are limited to a maximum of 500 individual persons and a total of 200 marriages. There is no practical limit to the number of generations that can be recorded. If demand warrants, later versions may be expanded to increase these limitations, but the numbers quoted above should provide ample storage space. The DISPLAY program is the main program in the set. All of the other programs are really just utilities to create the data files required by DISPLAY. DISPLAY allows a user to view or print personal information, pedigrees (family trees), and family group information for any person whose records are in the data files. The listed utility programs provide the following functions: CREATPER formats and creates the data file "PERSFILE", which contains personal information. CREATMAR formats and creates the data file "MARRFILE", which contains marriage information. UPDATPER allows entering information into the "PERSFILE", as well as making changes to "PERSFILE" at a later date. UPDATMAR allows entering information into the "MARRFILE", as well as making changes to "MARRFILE" at a later date. INDEXPC creates an index file, "PCINDEX", which relates children with their respective parents. INDEXMAR creates an index file, "MINDEX", which relates husbands and wives together. LISTPER prints a list of all the names in the "PERSFILE" in record number order. LISTMAR prints a list of all the marriages (both husband's and wife's names) in the "MARRFILE". LISTPCI prints a list of all parents along with their children. PRINTPER prints individual person records as requested. PRINTMAR prints individual marriage records as requested. WORKSHT prints an information gathering worksheet to aid in gathering all necessary information for the data bases. Note: The two indexes are essential to the "DISPLAY" program, as they provide all of the link between persons and families. The "PCINDEX" is also essential to the "LISTPCI" program. Because of the relationships carried within the Persons File, pedigree information may be associated backward for any number of generations. There is no specific limit to the number of generations that the programs will handle. Because of the Parent/Child index, which relates parents with their children, and the Marriages Index, it is possible to relate any number of persons together in family groups. page 4 Expanded family groups can easily be shown by combining the pedigree chart with the family group printouts. An interesting book can be made by displaying pedigree charts followed by the listed family groups. Start with either the earliest or latest pedigree followed by family groups on that pedigree chart, then continue with a new (or older) pedigree and family group sheets. Put the page number of each person's family group on the pedigree chart. An alternate method would be to place all pedigree charts in the first few pages, followed by family groups and personal information sheets for each person in descending chronological order. (Note: there is no specific limit to the number of families that the programs will handle, other than the total number of marriages defined.) HARDWARE REQUIREMENTS =============================================================== Tandy Color Computer 3, with Two Disk Drives An 80 column capable monitor (color or monochrome). Of course, a printer is required to print information. All Tandy DMP and Epson/IBM compatible printers are supported. NOTE: A RAM disk drive is NOT supported! Two PHYSICAL drives must be used! TERMS DEFINED =============================================================== Personal Information: Personal information is that information that is unique to a person. It includes the person's name, his date of birth, the location of his birth, and his parents. It also contains (if appropriate) the same type of information about a person's death and burial. Pedigree Information: Pedigree information is that information which shows the parents, grandparents, etc., about a person. It includes the direct ancestry of the person. Family Group Information: Family group information is that information about a marriage, and the children of the marriage. It includes the location and date of the marriage as well as the children's names and person file numbers. page 5 USING THE PROGRAMS =============================================================== NOTE: IF YOU HAVE NOT YET MADE A BACKUP OF YOUR ORIGINAL DISK, PLEASE DO SO BEFORE CONTINUING... FOR YOUR OWN PROTECTION! The MENU Program All programs MUST be run from the menu. The reason is that the menu sets the baud rate and print-screen feature required by some of the programs. Start by simply typing "DOS", enter. Follow the prompts on the screen to set up your system. The menu takes a few seconds to set the system up the first time, but checks to see that everything is set on consequent runs. This means that when a program ends and returns to the menu, it will come up much faster. This will continue until either a cold start is performed (CTRL-ALT-RESET) or power is turned off. Note that the menu will go to the "Set Printer Baud Rate" routine only the first time it is run. Even if no printing is intended during the current session, it is a good idea to set the baud rate anyway. Should the "print screen" routine be invoked (CTRL-F1), printing will occur at the current baud rate (default is 2400). If the printer is not on or on-line, the computer will appear to lock up. The only way out of this situation is to either turn on the printer and let it print, or press the RESET button on back of the computer. The BREAK key WILL NOT HELP in this situation. All un-saved data may be lost, and the data files could become corrupted! The menu will have to be restarted (20) to set the baud rate later. Gathering Information (WORKSHT) Once the menu appears on screen, choose selection 13 (WORKSHT). Print at least one work sheet. This sheet contains spaces for all the information that the program is capable of storing for each individual person. It is suggested that you take the sheet to a photocopier and copy as many as needed, since this usually cheaper than printing a large number (though the program WILL allow printing of up to 200 at one time). Alternately, you can use the single worksheet as a guide and write the available information in a notebook or on plain paper. Each person will be assigned a number as they are entered. There is no certain order required, as the program sorts relationships. Simply number people as they are entered, preferably leaving no blank records between people. You may start with yourself, a grand parent, or whoever you wish! It IS usually easier to enter a wife in the next record following a husband (or vice-versa). This makes it easier to enter the marriages later. page 6 Make careful note of the record numbers! They are used by the program to relate one person to another! For example, if you start with yourself, you will note that the work sheet requests not only your record number, but your spouse's (if any) and parent's also. Therefore, it would be best to list your spouse next, followed by your parents, then followed by your spouse's parents, and so on. Leave record fields blank that you don't have information on yet, including parent and spouse record numbers. The programs won't be able to relate anyone together with blank record numbers, but a list of persons in the person file can be printed later. You can then use that list to complete the relationships. NOTE: The person number cannot be left blank, just the spouse and parent numbers. Creating the Data Files (CREATPER, CREATMAR) While information is being gathered, the data files can be readied. From the menu, select item 1 and follow the prompts. This selection, CREATPER, creates a persons data file by writing blank records to disk. The created file, PERSFILE.DAT, requires 56 granules to store records for 500 persons. WARNING: DO NOT RUN CREATPER ON A DISK CONTAINING RECORDS WITH INFORMA- TION ALREADY ENTERED! If CREATPER is run on a disk with infor- mation already stored on it, that information will be lost, as new blank records will be written over it! The CREATMAR module (selection 2) follows the same pattern as CREATPER, except that it requires only 12 granules to store records for 200 marriages. Entering Information (UPDATPER, UPDATMAR) After information on a person is gathered and ready to be entered, select the UPDATPER (#3) or UPDATMAR (#4) module. Note that the information for both the husband and wife must be available for UPDATMAR. Follow the prompts to add the informa- tion to the data file(s). The user should make sure that the PERSFILE/MARRFILE data diskettes have been prepared by CREATPER (#1) and CREATMAR (#2). After the logo is displayed, the user is asked which record to update. Respond with a valid number in the range of 1 to 500 (1 to 200 for UPDATMAR). It is best not to skip records between persons. Enter information as it is gathered. The programs will relate one person to another later by number, so the order in which records are entered is unimportant. Once a record number is entered, the current content of that record is displayed. Start with record number 1. Enter the information as prompted. If no information is available for a field, simply press ENTER to by-pass it. The only required information for any record is the name of the person. If only a few fields are being entered, the remaining fields may be bypassed by pressing "/" then ENTER. page 7 DATA ENTRY CONSIDERATIONS: NAMES: All surnames (last names) should be entered with all capital letters. Women should be entered with their MAIDEN surname, not that of their spouse. Children should be entered with the surname given at birth. DATES: Dates should be entered as dd Mmm yyyy (ex: 01 Oct 1991). Dates entered any other way will be right justified. COMMAS: Commas CANNOT normally be used in an entry. Dashes, colons (:) or semicolons (;) should be used in place of commas. If a user insists on using a comma, then the entire field must be enclosed in quotes (ex: "SWYGERT, Jr.") When all information has been entered in a record, or "/" ENTER has been pressed, the user is asked whether to "(S)ave", the record, "(F)orget" it, or to make "(M)ore" changes. Press the appropriate letter. Save will, of course, save the informa- tion on screen to the displayed record number, Forget will abandon all changes and allow a new record number to be selec- ted, and More will return to the top of the current screen and allow the whole record to be gone through again. CREATPER saves a file immediatly because of the length of the person files, but UPDATMAR will wait for several records to be entered before saving to disk. Pressing ENTER to bypass a field with existing information WILL NOT erase that field. To blank out a field, press the space bar then enter. Any record may be changed or added to at a later date by following the same general instructions. Dates must be entered as: dd Mmm yyyy (ex: 01 Oct 1991). To delete an entire record each field must be manually blanked out. If a record is dele- ted, remember to remove any corresponding records (such as a marriage record) and update all records that contained that record number (such as another person record, where the removed person was a spouse, parent, etc.) and run the INDEX modules to update the indices. Creating the Indices (INDEXPC, INDEXMAR) The INDEXPC and INDEXMAR modules create indices which relate parents to their children (INDEXPC.. index parent/child) and spouses to each other (INDEXMAR.. index marriage). INDEXPC should be run immediately after any additions to the persons file (PERSFILE) is made, whenever a birthday is added or changed, or when the person number(s) of parents have been added or changed. Consequently, INDEXMAR must be run after new marriages have been added to the marriages file (MARRFILE), whenever marriage dates are added or changed, or whenever changes are made that redefines a spouse. The indexes are created and stored on their related disks. The index names are PCINDEX (Parent/Child Index, on PERSFILE disk) and MINDEX (Marriage Index, on MARRFILE disk). The indexes are necessary for DISPLAY and PRINTPCI to run correctly. page 8 Printing Detailed Information (PRINTPER, PRINTMAR) Any screen can be printed at any time by using the print screen key sequence (CTRL-F1). If information is needed on one particular person or marriage number, however, there is no need to go into the UPDAT modules to find the needed records. Simply select PRINTPER (#7) to print a particular person's record, or PRINTMAR (#8) to print a particular marriage record. The number of the person/marriage MUST be known to print records! Printing Data File Lists (LISTPER, LISTMAR, LISTPCI) The easiest way to keep up with just who has2& **** WORKSHT Program.&H **** Information Gathering Worksheet&| Copyright (c) by F.G. Swygert, September 1991&( **** Screen Definitions & Variables&2 80 : 6&< (269)256(270)32401 1050&F 860 : 1000'P **** Title Screen'HZ 22,8 : "The CoCo Family Recorder Version 1.0"'vd 27,10 : "Print Information Worksheet"'n 23,12 : "Make Sure Printer Is ON and READY!"(x 5,14 : "This program prints a worksheet so that one can gather all information"(T " required to build the data files. It is suggested that one sheet be"( " printed and then photocopies made of that sheet to save wear on the"( " printer. Single sheets are printed in BOLD to facilitate photocopying.")5 " No more than 50 sheets can be printed at once.")h150,4: 27,21 : "Press any key to continue")t 44539)6 : 28,8 : "**** Print Options ****")ȅ ((65314) 1)0 230**҅ ( (65314) 1)1 150,4: 150,4: 14,10:"PRINTER IS NOT READY! Make sure it is ON and ON-LINE"*p 19,12:"Check Printer, Press any key to continue": 44539:190* 19,12 : " Tandy DMP or Epson Printer Codes (T/E)";C$* C$"T" C$"t" #2,(27);(54);: 270+ C$"E" C$"e" #2,(27);(50);: 270+  230+W 23,16 : "(Enter S for single sheet, 0 to quit)+ 26,14 : "Number of Copies to Print:";N$+" N$"S" N$"s" 1080+, N$"0" 820+6N(N$)+@ N 0 N 50 26,14: (79,32): 270,AJ 150,4 : 16,18 : "Check Printer! - Press any key to start printing",OT X1 N,k^ **** Form Starts Here,wh 44539,r #2,"":#2,"",| #2, 22);"The CoCo Family Recorder Version 1.0", #2,""- #2, 24);"Personal Information Worksheet"- #2, 4);(72,61)-^ #2, 15);"Enter all dates as 'DD MMM YYYY' (Day Month Year)"-w #2, 4);(72,45)- #2, 27);"Person Record Information"-‡ #2, 4);(72,61)-̇ #2, 4);"Person Number:";(4,95).և #2, 4);"Name (Last, First, Middle):"; (40,95).Q #2, 4);"Sex:";(4,95);" Code:";(4,95). #2, 4);"Person's Father:";(39,95);" Record No.:";(4,95). #2, 4);"Person's Mother:";(39,95);" Record No.:";(4,95). #2,""/ #2, 4);"Person's Vital Statistics:"/W #2, 4);"Birth-date:";(23,95);" Birth-city:";(23,95)/ #2, 4);"Birth-county:";(21,95);" State/Country:";(20,95)/& #2, 4);"Death-date:";(23,95);" Death-city:";(23,95)0*0 #2, 4);"Death-county:";(21,95);" State/Country:";(20,95)0o: #2, 4);"Burial-date:";(22,95);" Burial-city:";(22,95)0D #2, 4);"Burial-county:";(20,95);" State/Country:";(20,95)0N #2,""0X #2, 4);(72,61)1 b #2, 26);"Marriage Record Information"1%l #2, 4);(72,61)1Wv #2, 4);"Marriage Record-number:";(4,95)1 #2, 4);"Husband's Record No.:";(4,95);" Husband's Name:";(30,95)1 #2, 4);"Wife's Record No.:";(4,95);" Wife's Name:";(36,95)2 #2, 4);"Comments:";(63,95)2 #2,""2P #2, 4);"**** Marriage Statistics ****"2] #2,""2 #2, 4);"Marriage Code:";(4,95);" Marriage-date:";(20,95)2Ƈ #2, 4);"Marriage-city:";(40,95)2Ї #2, 4);"Marriage-county:";(38,95)3#ڇ #2, 4);"State/Country:";(40,95)37 #2, (2,10)3[ #2, 4); "ADDITIONAL NOTES:"3p #2, (14,10)3 #2, 23);"ALL PROGRAMS (C) 1991, F.G. SWYGERT"3 #2, (12)3 N$"S" N$"s" 8203 X3* **** Finish up and end44 N$"S" N$"s" 11304@> 7 : 33,12 : "End of Program"4~H(130)(32)(130)(03)"/"(03)(12)(13),R4R Error trap routine4\ 24f 26,8 : "Error Number ";;" Has Occured"5p 26,8 : "Error Number ";;" Has Occured"5%z 18,10 : "ERROR NUMBERS:"5c 18,11 : "3 = Out of Data 6 = Out of Memory"5 18,12 : "27 = Bad Record Number 17 = Bad File Data"5 18,13 : "20 = I/O Error 21 = Bad File Mode"6! 18,14 : "25 = Disk Full 26 = File Not Found"6d 16,16 : "<<** Check for correct disk(s) in drive(s)! **>>"6 25,18 : "Place Program Disk in Drive 0"6150,4: 15,20 : "PRESS ANY KEY TO RETURN TO MENU, BREAK TO TRY AGAIN"6ʢ 445396ԁ 8307ޭ routine7 27V 20,12 : "Do you wish to halt the program, Y or N"; R$7v R$ "Y" R$ "y" 8307 R$ "N" R$ "n" 507 101072:1,8:25,12:"PROGRAM MUST BE RUN FROM MENU!"7$8407. **** Print Single Sheets8,8 C$"T" C$"t" #2, (27);(31)8YB C$"E" C$"e" #2, (27);(69)8L 150,4 : 16,18 : "Check Printer! - Press any key to start printing"8V 3608` **** Turn Bold Print off8j C$"E" C$"e" #2, (27);(70);9+t C$"T" C$"t" #2, (27);(32);91~$"E" C$"e" #2, (27);(69)8L 150,4 : 16,18 : "Check Printer! - Press any key to start printing"8V 3608` **** Turn Bold Print off8j C$"E" C$"e" #2, (27);(70);9do is make a new working copy from your original disk. If a backup of the original was not made, the original disk will have to be returned for replacement and a long wait may be in order before work can commence again. ALWAYS WORK FROM A BACKUP- NOT THE ORIGINAL DISK! If the original disk is returned, please include the error number and a brief description of what happened directly before the error (if possible). ERROR: CAUSE/CORRECTION: 3 = Out of Data Bad Data File / Make new working copy from backup. 6 = Out of Memory Previous Program in Memory / Restart computer with CTRL-ALT-RESET. 27 = Bad Record Number Bad Data File / Make new working copy from backup. 17 = Bad File Data Bad Data File / Make new working copy from backup. 20 = I/O Error Drives not on, not closed, dirty controller or cable contacts, bad disk controller / Check drives, clean controller & cable contacts. 21 = Bad File Mode Bad Data File / Make new working copy from backup. 25 = Disk Full To many files on disk / Make sure correct data disk(s) are being used. 26 = File Not Found Wrong disk in drive 0 / Make sure correct disk is in drive 0. Also, make sure the main data files been entered in the database is to use the three PRINTxxx modules occasion- ally. These modules each print a listing that connects indivi- duals by record number. LISTPER (#9) prints a listing of all the individuals contained in the PERSFILE in order of record number. LISTMAR (#10) prints a listing of all marriages con- tained in the MARRFILE. The record numbers of both the husband and wife are printed. If left unattended, a listing of all 500 person records and all 200 marriage records will be printed EVEN IF BLANK (one line for each record). Press the BREAK key to stop printing after the last desired record is printed. Then choose "Y" (yes) to return to the menu. LISTPCI (#11) uses the PCINDEX file to print a list of all children with the record numbers of their parents. INDEXPC (#5) MUST BE RUN before selecting LISTPCI in order to have an accurate list. The DISPLAY program. DISPLAY (#12) is the main displaying program. This module brings all the information in the data files and indices together and displays the information in useable forms. DISPLAY will show Family Groups and Pedigrees. These can be printed using the print screen key sequence (CTRL-F1). A limited number of persons can be displayed at one time on the pedigree chart due to screen size. Simply start a new screen with each of the earliest persons (to the right of the screen) to get a wider chart. It is suggested that one starts printing of a "master" pedigree chart with the latest (youngest) family member entered in the database, as there is no practical way to build a chart backwards. The indices created by the two INDEX modules are used by DISPLAY to properly relate one person to another. It is there- fore IMPERATIVE that the indices be up-to-date when using DISPLAY. If the indices haven't been updated, the existing index (if any) will be used and false information may be presented. It may be a good idea to get into the habit of running the INDEX modules before selecting DISPLAY. page 9 DISPLAY first asks for a person number to start with. The information in the PERSFILE is then displayed for that person. At the bottom of the screen will be a bar with the following selection listed: PC - Display a Pedigree Chart starting with the current person FG - Display the current person's Family Group P# - New Person Number M# - Display selected Marriage Number Q - Quit (return to MENU) ? - List of possible selections (similar to this list) This selection bar will be presented at the bottom of each screen after a selection has been processed. The Family Group and Marriage Number displays are identical. The "M#" option simply allows searching by Marriage Number, whereas the FG selection acts on the number of the person currently on screen. Stopping the Programs (the BREAK key) Any program may be stopped at any time by pressing the BREAK key. Note that any information that has not been saved yet will be lost. Pressing BREAK should not, however, disturb or corrupt any of the disk files. An ON BREAK subroutine is used that closes all files before returning to the MENU. A "safety trap" routine will ask if one wishes to halt the program. An answer of "no" (n) will return to the beginning of the program in question. A positive answer ("yes", or "y") will return the user to the main menu. page 10 APPENDICES =============================================================== A. Errors --------------------------------------------------------------- Numbers, Causes, Corrections The error trap routine incorporated in the program modules will display not only the error number if an error is encoun- tered, but also what the number means! This method takes up a little more memory, but is easier on the nerves of the person running the software. Only the most likely to occur errors are listed in the program. If any error occurs other than those listed, there is most likely a problem with the program disk that cannot be repaired by the user. The first thing to do is make a new working copy from your original disk. If a backup of the original was not made, the original disk will have to be returned for replacement and a long wait may be in order before work can commence again. ALWAYS WORK FROM A BACKUP- NOT THE ORIGINAL DISK! If the original disk is returned, please include the error number and a brief description of what happened directly before the error (if possible). ERROR: CAUSE/CORRECTION: 3 = Out of Data Bad Data File / Make new working copy from backup. 6 = Out of Memory Previous Program in Memory / Restart computer with CTRL-ALT-RESET. 27 = Bad Record Number Bad Data File / Make new working copy from backup. 17 = Bad File Data Bad Data File / Make new working copy from backup. 20 = I/O Error Drives not on, not closed, dirty controller or cable contacts, bad disk controller / Check drives, clean controller & cable contacts. 21 = Bad File Mode Bad Data File / Make new working copy from backup. 25 = Disk Full To many files on disk / Make sure correct data disk(s) are being used. 26 = File Not Found Wrong disk in drive 0 / Make sure correct disk is in drive 0. Also, make sure the main data files have been indexed (the index programs create files that must be present for DISPLAY and LISTPCI). The above causes/corrections are the MOST LIKELY to occur. Other hardware/software problems may exist that also cause the above errors. page 11 Note that %ێ&%큼%/&~!;pXA& ****B OO TrPgoarm?&1310,:5694,7:02107:1820L&645790,&~(C porygith( )cb y.F.GS ywegtr ,aJunra y9139&22(96)5262(07)23041160&<3:2:@01,0T"EHC CO OAFIMYLR CEROED"R:1@46",C( )9139 ,AFNR AYSTSME"S'$F2@26",NA8 0OCULNMM NOTIRO:"@92,8I" SERUQRIDE"!'LP4@15",R(BGW LI LEBB W&U DNRE' 'C")'tZ3@88",GR BROC MOOPISET( /R)C;":$M'dM $C""310'n $M""R104'x60'X07:,X36:X'8:01:,0:320,U,:7(,923;)(534,:,2,0,U:B" " :;20,B,(%035,:,2,0,U:B" ;":,2,0BA(3,4:5"-/RAANS syetsm"r(3,0:727,:1(,323:)4,8:720,:3(,223;)(038,:,2:7" \/--\/:"4,8:820,:3(,223;)(039,:,2:7" < - -">:849,:,2:0(233,)2;)3,001:,2:7" \ "/:841,:020,:3(,223;))L031,:127,: " \ "/:841,:120,:3(,223;))031,:227,:1(,323:)4,821:,2:0(233,)2;)20,:131,:4"t(ehF RAANF xo)!")3,571:P"erestn:s")2,591:T"ehC Co oaFimylR ceroed r.1 1"!* ,002:,2,0:U(973,)2:;20,*4T";62OL;;2;G4LC;D;E;F;L;;2;G;C1P;6"C*l"L";2;A4LF;G;A;B;O;;32LC;O;;2;C1P;6;C;F4LG; ;;F;E"D*,L";2;E4LF;E;D;C;L;;21OB;O;;24LC;D;E;D;L;;1"C*6712,:2"c( )9119.. .lPaeesw ia thwli eystsmei ses tpu;"*@05,02304:0+J1105:1820 +TLT0L:T:0NL205T:34210+(^$A+9h$A"**"140K+rA"(H&"$A)d+|LTTL:ATLLT:ATA,+tTT1:305+LNNL1:0TL0:305+A$1(24)1(62)1(54)1(19)+$AA$1()1()3""9A:($A:)37203,(62)9,2337,12(07:)(A(2)526A(3)),604,R437,,66B1,5,,718B,,F012,,7,0,6537,,6E69,,FF7D,,A6B,,1658,,1FB1,,0720,6,1,,6FFE,,E060,8,,668F,,E6D6,,F7F,ņE7A,,E796,,F211,,2211,,2211,,268D,A,,DF9A,,0,269E,7,8,1,1012,,4,0D68,,E,4,0F5A,,648B,,7E7A,,F68A,,F7A8,48-B,6E7A,,F188,,0012,,4,0848,,1F11,,0320,4,,7186,,001-p420,4,,6A15,,0DA9,,F0A2,B,,6E7A,,F7A8,,0BC1,C,,102-012,,5,0515,,F6A8,,27B7,,EFA8,,6FAA,,7488,,6,DDA9,F-A,0,26B7,,EFAA,,7088,,C,5FF1,,032F,,F3BF,,6E7A,,E7D.F68,,6FFB,,7,1751,,6FF7,,0682,,061F,,FFB8,,B061,,6FF.VAB8,,0041,,6FFB,,5E84,,0,0F51,,A058,,667B,,7FFA,,26A.&48B,,7E7A,,F6A1,B,,7E7B,,0682,,07A8,,468C,,07A1,B,6.07,EFAA,,DF9A,,0,26B7,,EFAA,,708B,,6E7B,,07A8,,0BC1,/:69E,,7181,1,,0720,1,,D1C5,,0012,,5,0,DF51,,7,0F38,6;/DDA,,DF9A,,0,2710,4,,9C84,,EFF1,,032F,,F2B1,,6,0A1C,1s/N2,8012,,5,0,DF51,,7,0228,,6,DDA9,,F0A2,1,,7,0C28,C/X4,7F71,,032F,,F59F,,6E7A,,E7D6,,F687,,A7BF,,F2A8,6/bF,F7B1,5,,761F,,E0EA,,638B,,7E7A,,F6A1,B,,7E7B,,0680l02A,,7488,,60CA,,7,193B,,6E7A,,F7A8,,06B7,,E0BA,,7080)v93*,*F01:08::62280,:51,0140\151:021080s&(AH82)2230700(H&0C40)1259600&DHC6,D:0&DH27,302:7000ÒH&7D0C0,:H&8D612,006:434,:B"OO TrPgoar"m1826,:T"ehC Co oaFimylR ceroed"r1>818,:C"porygith( )cJ naauyr1 99 3ybF G. .wSgyre"t1f821,:0"**A LLR GITH SERESVRDE* "*1,321:("aBes dnoG neaeolygO NIDPSAL,YC porygithF beurra y9168 ,ybM leiv n.OD ku"e2111,:3"of rBI Mocpmtabielc moupetsrw ti hWGB-SACIo rBI MABIS-C)A"#2(H&2A28)32707:97021054,:411,:6"uCrrnelt yes tpuf ro2 04 0abdup irtnre".:411,:7"oDy uow si hotc ahgn ehtsi ?Y(N/")A;$2 A$y""$A""Y907:$A""nA$N""0109:7073 51,0:41,461:C"ruertnyls teu pof r4200b ua drpniet rna dm6 srdvi"e3H 411,:7"tsper ta.eD ooy uiwhst ohcnaegt ih?s( /Y)N;"$A3_*$A""yA$Y""480w34A$n""$A""N11103>0803H6:,6:4"eSeltcD irevS et paRet"::3R8") 1 =m6 s 2 = 1 m2 s 3 = 2 m0 s 4 = 3 m0"s4\:,6:8"eSeltcdeV laeu;"$D4#f&(CH00)4251808:290J4pD$1""&DHC7,0:0&DH18,602:9084qz$D""2H&7D0C0,:H&8D612,:18904D$3""&DHC7,0:0&DH18,622:9084$D""4H&7D0C0,:H&8D612,:38904D$1""&DHC6,D:0&DH27,302:9085 $D""2H&6DDC0,:H&7D322,:189045D$3""&DHC6,D:0&DH27,322:9085[$D""4H&6DDC0,:H&7D322,:3890e5480l565,601:S"lece trPniet raBduR ta:e:"5)81"= 6 00 2 =2100 3 =4200 4 =8400 5 = 9 06"06;,841A:(5613)4B:(A)2C:A2:CB0"**P IRTNREI SNO* "*:"**P IRTNREI SFO F**"661,:6"rPgoar miwlll co-kpui foy urt yotp irtnw tiohtup irtnreo nna dnoilen".6:,681:S"leceet daVul"eR;$6R$1""1051,08:19006R$2""1058,:701097$R""351,014:19007$R$4""1051,:8010978.$R""551,0:401097B89087B022,:3"RPSE SNA YEK YOTA CCPE,TB ERKAT OERTSRA"T:;454937L&(AH82)22311047V&(CH00)4241A$C"E0DE25DAD6D1F6D127D775"E:$A"1C106D717D4C7D4E8DA18D15"7WV12448XA"(H&"A(,$,V)4)88YA1,98:A,142:0A21,75:A,3818>Z8Y\H&0FD95,:2&FH90,E217t8`&FH90,F35:H&0F0A2,558t1(03)3()2(31)0(30)/""0()3(21)1()3R,8~282,6:8"rEor ruNbmre" ;; "aH scOucer"d9628,:E"rrroN mueb r;"";H saO ccrude"091,801:E"RRRON MUEBSR":9j811,:1" 3 =uO tfoD ta a 6 =uO tfoM mero"y9811,:2"72= B daR cero duNbmre 71= B daF li eaDat"91,831:2" 0 =/I OrEor r 2 1 =aB diFelM do"e:811,:4"52= D si kuFll 62= F li eoN toFnu"d:[611,:6"<<**C ehkcf roc roertcd si(k)si nrdvi(e)s !**>>":2,581:P"alecP orrgmaD si kniD irev0 ":1054,:022,:0"RPSE SNA YEK YOTE DN ,RBAE KOTT YRA AGNI":45493::11,3:038576:2$; 2,021:D" ooy uiwhst oahtlt ehp orrgma , YroN ;"$R;<$R""YR$y""2107;T$R""NR$n""3103;_(1920n;2:6:604y% si kniD irev0 ":1054,:022,:0"RPSE SNA YEK YOTE DN ,RBAE KOTT YRA AGNI":45493:the error trap routine uses the BREAK routine to restart the program. The BREAK routine has a "safety trap" that allows the user to verify whether he/she wishes to exit the program or restart. To continue the program from the error trap routine, simply press "BREAK" then answer "no" (n) when asked if the prpgram should be halted. Press any other key to return to the main menu. Lock-Up After CTRL-F1 (print screen) The computer will appear to lock-up if the print screen key sequence (CTRL-F1) is activated and the printer is not on or is not on-line. Normal computer operation will resume as soon as the printer completes printing. IF NO PRINTER IS CONNECTED, DO NOT USE CTRL-F1!!! The only way to free the computer if no printer is present is to press the RESET button. All data and loaded programs will be lost once RESET is pressed as this clears all memory. WARNING: Remove all disks from the drives before pressing RESET. If this is not done, data on the disks may be corrupted, as sometimes a "stray signal" is sent to the drives after RESET is pressed. Sometimes this signal will activate a drive briefly, sometimes not. IT IS ALWAYS BEST TO BE SAFE! This warning is especially important if the last run program was disk intensive (such as DISPLAY or one of the UPDATE modules). NOTE: KEEP BACKUPS! There are four error conditions listed above that would require the data files to be completely reentered unless backups are available! page 12 B. Data File Contents --------------------------------------------------------------- The first data file,"PERSFILE", contains all of the personal information about an individual. It also contains a reference to that person's father and mother. Its format and content are: Size Content ---- -------------------------- 5 Record Number for a Person 20 Surname of person 30 Given names of person 2 Sex 5 Code 5 Father's Record Number 5 Mother's Record Number 11 Birth-date of person 18 Birth-city 16 Birth-county 16 Birth-state or country 11 Death-date 18 Death-city 16 Death-county 16 Death-state or country 11 Burial-date 18 Burial-city 16 Burial-county 16 Burial-state or country Note: Code is available to the user for any special user identification, such as differentiating between natural parents and adoptive parents. It is unused by the programs. The second data file,"MARRFILE", contains all of the records of marriages. Its contents are as follows: Size Content ---- -------------------------- 5 Record Number of the Marriage 5 Husband's Record-number 5 Wife's Record-number 5 Code 11 Marriage-date 18 Marriage-city 16 Marriage-county 16 Marriage-state or country 45 Comments Note: Code is available to the user for any special user identification, such as differentiating between first and second marriage of spouses. It is unused by the programs. page 13 The first index,"PCINDEX", provides the relationships between parents and children. It contains: The Number of Records in the Index. For each index record: Parent's Record-number Child's Record-number. Note: Index records are in sequence by Child's Birthdate within Parent's Record-number. The second index,"MINDEX", provides the relationships between husbands and wives. It contains: The Number of Records in the Index. For each index record: Person's Record-number Marriage-number Note: Index records are in sequence by Marriage-date within the Person's Record-number. C. USER'S PERSONAL NOTES --------------------------------------------------------------- page 14 in sequence by Marriage-date within the OSj7&<&=&k܊&~|p&?&?M&&<&=jk 5'LOADM"BOOT.BIN:0":EXEC