..GRAEME DURDEN .....MEMBERSHIP # 1280.. ..197 ROCK AVENUE... ..GILLINGHAM KENT.. ..30/10/90..  .. ..GENEALOGY PROGRAMME  .. << >><< MENU SCREEN >><< >> (14 24,14 <1,14F32P 8,191 r 240,191Z 8,168 r 240,168d 8,44 r 240,44n 8,1 r 240,1x 8,191 r 8,1 240,191 r 240,1@12,1;"MENU"#@2,4;"1...Write a new record"@2,5;"2...Read a record" @2,6;"3...Update a record"#@2,7;"4...Name & number list""@2,8;"5...Name & birth list"#@2,9;"6...Name & parent list"$@2,10;"7...Name & spouse list"&@2,11;"8...Name & marriage list"&@2,12;"9...Name & children list"(@2,13;"10..Name & occupation list"#@2,14;"11..Name & death list"@2,15;"12..Help" @2,16;"13..Exit programme"@6,20;"Enter selection" ":1,14, 36406" ";A$ @4,14 JA~(A$)T A1 { A}13 s :10^ A~1 s 40: 510h A~2 s 40: 1270r A~3 s 40: 2090| A~4 s 40: 3480 A~5 s 40: 3760 A~6 s 40: 3920 A~7 s 40: 4100 A~8 s 40: 4290 A~9 s 40: 4490 A~10 s 40: 4700 A~11 s 40: 4920 A~12 s 40: 5430 A~13 s 32@9,9;"GOODBYE !"@0,22;" " 10: ## ## ## ENTERING INFORMATION ## ## ## "HISTORY.DAT",FD$,510 &## N=THE RECORD COUNTER ##0#FD$,0;N:#0 D 1,0N@0,0;(".",80) X1,14b@0,0;"ENTER NAME" l 4,14v"";A$(1)  1,0@0,2;(".",80)  1,14$@0,2;"DATE AND PLACE OF BIRTH"  4,14"";A$(2)  1,0@0,4;(".",80)  1,140@0,4;"PARENTS NAMES AND REFERENCE NUMBERS"  4,14"";A$(3)  1,0@0,6;(".",80)  1,14.@0,6;"SPOUSES NAME AND REFERENCE NUMBER"  4,14*"";A$(4) 4 1,0>@0,8;(".",80) H 1,14$R@0,8;"MARRIAGE DATE AND PLACE" \ 4,14f"";A$(5) p 1,0z@0,10;(".",120)  1,144@0,10;"CHILDREN'S NAMES AND REFERENCE NUMBERS"  4,14"";A$(6)  1,0@0,13;(".",80)  1,14@0,13;"OCCUPATION"  4,14"";A$(7)  1,0@0,15;(".",80)  1,14%@0,15;"DATE AND PLACE OF DEATH"  4,14"";A$(8) $ 1,0.@0,17;(".",160) 8 1,14B@0,17;"OTHER INFORMATION" L 4,14V"";A$(9) `N~Nt1 j#FD$,Nt I~1 r 9 ~ A$(I) I#FD$,0;N  1,156@0,21;"REFERENCE NUMBER: ";N;" (FUN ISN'T IT!!)"." Press bar when ready " 4,14A~  10" << >>" << READING INFORMATION >>"  << >> "HISTORY.DAT",FD$,510#FD$,0;N(#0 21,14#<@9,3;"ENTER REFERENCE NUMBER" F4,14P:Z" ";I$ dI~(I$) n1,14x I1 { I}N s o I1 { I}N s " INVALID REFERENCE NUMBER, TRY AGAIN (ANOTHER ERROR WILL CAUSE AN EXPLOSION!)": 1530( " ENTER REFERENCE NUMBER" 4,14" ";I$ I~(I$)$ I1 { I}N s : 5250: 1530  1280  #FD$,I I1~1 r 9  A$(I1)  I1" ,1,146 "NAME:" @4,14J@6,0;A$(1) T1,0^@0,1;(" ",40) h1,14 r15,14| 0,180 r 240,180@0,2;"REFERENCE NUMBER:" 4,14@18,2;I$ 1,14"@0,3;"BIRTH DATE AND PLACE:" 4,14@0,4;A$(2) 1,141@0,5;"PARENTS NAMES AND REFERENCE NUMBERS:" 4,14@0,6;A$(3) 1,14/@0,7;"SPOUSES NAME AND REFERENCE NUMBER:" 4,14@0,8;A$(4) 1,14%&@0,9;"MARRIAGE DATE AND PLACE:" 04,14:@0,10;A$(5) D1,145N@0,11;"CHILDREN'S NAMES AND REFERENCE NUMBERS:" X4,14b@0,12;A$(6) l1,14v@0,14;"OCCUPATION:" 4,14@0,15;A$(7) 1,14&@0,16;"DATE AND PLACE OF DEATH:" 4,14@0,17;A$(8) 1,14 @0,18;"OTHER INFORMATION:" 4,14@0,19;A$(9) 1,155@0,22;" Press bar when ready " 1,14 A~40  20#* ## ###4 ## UPDATING INFORMATION ###> ## ## H14 R1,14\ "HISTORY.DAT",FD$,510f#FD$,0;Np#0z:( " ENTER REFERENCE NUMBER" 4,14:" ";I$ I~(I$) 1,14: I1 { I}N s :2280:` " INVALID REFERENCE NUMBER (TRY AGAIN, ONLY THIS TIME CONCENTRATE!)": 2170 #FD$,I I1~1 r 9  A$(I1)  I1  "NAME:" $ 4,14. @6,0;A$(1) 8 1,0B @0,1;(" ",40) L 1,14V @0,1;"REFERENCE NUMBER:" ` 4,14j @19,1;I$ t 1,14"~ @0,2;"BIRTH DATE AND PLACE:" 4,14 @0,3;A$(2) 1,142 @0,4;"PARENTS NAMES AND REFERENCE NUMBERS:" 4,14 @0,5;A$(3) 1,140 @0,6;"SPOUSES NAME AND REFERENCE NUMBER:" 4,14 @0,7;A$(4) 1,14& @0,8;"MARRIAGE DATE AND PLACE:" 4,14 @0,9;A$(5)  1,146 @0,10;"CHILDREN'S NAMES AND REFERENCE NUMBERS:" ( 4,142 @0,11;A$(6) < 1,14F @0,13;"OCCUPATION:" P 4,14Z @0,14;A$(7) d 1,14'n @0,15;"DATE AND PLACE OF DEATH:" x 4,14 @0,16;A$(8) 1,14! @0,17;"OTHER INFORMATION:" 4,14 @0,18;A$(9) #0 1,0 @0,21;(".",79) 1,145 @0,21;"ENTER NEW NAME: " 4,14 "";A$ A$}""s A$(1)~A$  1,0 (".",79)  1,145" @0,21;"ENTER NEW DATE AND PLACE OF BIRTH: " , 4,14 6 "";A$@ A$}""s A$(2)~A$ J 1,0T (".",79) ^ 1,145h @0,21;"ENTER NEW PARENTS NAMES AND NUMBERS: " r 4,14 | "";A$ A$}"" s A$(3)~A$ 1,0 (".",79) 1,145 @0,21;"ENTER NEW SPOUSES NAME AND NUMBER: " 4,14 "";A$ A$}"" s A$(4)~A$ 1,0 (".",79) 1,145 @0,21;"ENTER NEW MARRIAGE DATE AND PLACE: " 4,14  "";A$ A$}""s A$(5)~A$  1,0& (".",119) 0 1,145: @0,20;"ENTER NEW CHILDREN'S NAMES AND NUMBERS:" D 4,14 N "";A$X A$}"" s A$(6)~A$ b 1,0l @0,23;(".",79) v 1,145 @0,21;"ENTER NEW OCCUPATION: " 4,14 "";A$ A$}"" s A$(7)~A$ 1,0 (".",79) 1,145 @0,21;"ENTER NEW DATE AND PLACE OF DEATH: " 4,14 "";A$ A$}"" s A$(8)~A$ (".",159) 1,145 @0,19;"ENTER NEW NOTES: " 4,14  "";A$ A$}"" s A$(9)~A$ * #FD$,I 4 I1~1r9 > A$(I1) H I1R \ f 1,15p 8z @0,23;" Press bar when ready ";A~ 4,14 10# ## ### ## REFERENCE NUMBER LIST ### ## ## "HISTORY.DAT",FD$,510 3640 I~1 r 500 I y 6~0 s 5150 #FD$,I Y$~(77) Z$~(109)" X$~Y$ { X$~Z$ s :X$~"":10  A$(1){ "NAME: ";A$(1)  "REFERENCE NUMBER: ";I$. I8## ERROR ROUTINE TO ##B## RETURN TO MENU AT ##L## END OF FILE ##V `4,15j5t@0,22;" Press 'M' to return to menu "~X~ 4,14  10## ##@## BIRTH LIST ## 3920 REM## ## "HISTORY.DAT",FD$,510 3640 I~1 r 500 I y 6~0 s 5150 #FD$,I Y$~(77)Z$~(109)"  X$~Y$ { X$~Z$ s :X$~"":10  A$(1) "NAME: ";A$(1) ( A$(2)2 "BIRTH: ";A$(2)<F IP## ##Z## PARENTS LIST ##d## ##n "HISTORY.DAT",FD$,510x I~1 r 500 I y 5~0 s 5150 #FD$,I 3640 Y$~(77)Z$~(109)" X$~Y$ { X$~Z$ s :X$~"":10  A$(1) "NAME: ";A$(1)  A$(2)  A$(3)"PARENTS: ";A$(3) I## #### SPOUSE LIST #### ##" "HISTORY.DAT",FD$,510, I~1 r 5006 I y 6~0 s 5150 @#FD$,IJ 3640 TY$~(77)^Z$~(109)"h X$~Y$ { X$~Z$ s :X$~"":10 r A$(1)|"NAME: ";A$(1)  A$(2)  A$(3)  A$(4)"SPOUSE: ";A$(4) I## #### MARRIAGE LIST #### ## "HISTORY.DAT",FD$,510 I~1 r 500 I y 6~0 s 5150 #FD$,I 3640 Y$~(77)Z$~(109)"& X$~Y$ { X$~Z$ s :X$~"":10 0 A$(1): "NAME: ";A$(1) D A$(2) N A$(3) X A$(4) b A$(5)l"MARRIAGE: ";A$(5)v I## #### CHILDREN LIST #### ## "HISTORY.DAT",FD$,510 I~1 r 500 I y 5~0 s 5150 #FD$,I 3640 Y$~(77)Z$~(109)" X$~Y$ { X$~Z$ s :X$~"":10  A$(1) "NAME: ";A$(1)  A$(2)  A$(3)  A$(4) * A$(5) 4 A$(6)>"CHILDREN: ";A$(6)HR I\## ##f## OCCUPATION LIST ##p## ##z "HISTORY.DAT",FD$,510 I~1 r 500 I y 6~0 s 5150 #FD$,I 3640 Y$~(77)Z$~(109)" X$~Y$ { X$~Z$ s :X$~"":10  A$(1) "NAME: ";A$(1)  A$(2)  A$(3)  A$(4)  A$(5)  A$(6)  A$(7)"OCCUPATION: ";A$(7)$. I8## ##B## DEATH LIST ! ##L## ##V "HISTORY.DAT",FD$,510` I~1 r 500j I y 6~0 s 5150 t#FD$,I~ 3640 Y$~(77)Z$~(109) X$~Y$ { X$~Z$ s :10  A$(1) "NAME: ";A$(1)  A$(2)  A$(3)  A$(4)  A$(5)  A$(6)  A$(7)  A$(8)"DEATH: ";A$(8)  I!## SUB-ROUTINE TO HALT ##!(## SCREEN DURING LISTS ##2 <4,155F@0,22;" Press 'C' to continue or 'M' for menu " PX$~$ Z4,14dn "HISTORY.DAT",FD$,510x### EXPLOSION SUB-ROUTINE ## 6,31 7,71 12,100 9,16 10,16 13,0 E~1 r 20  E  E,E 4,14 14" , 106"GENEALOGY PROGRAMME"@ J"WRITTEN BY GRAEME DURDEN"TT^"This genealogy programme is an easy to use database written with the help of/h"Phil Croshaw's data file handling book." r 6300K|"From the menu screen the number of the desired function is entered. "1....Write a new record.""2....Read a record.""3....Update a record.""4-11.Lists."  6300 "1....Write a new record."J"A screen prompt will ask you to enter information field by field.b"Each new persons details are entered, on completion the record number is displayed."  6300"2....Read a record"&K0"Enter the relevent reference number which is the record number.":GD"The screen will now display all the details of this record."NdX"Please ensure that invalid reference numbers are not entered as this could be dangerous. b 6300l"3....Update a record"vo"This option is selected to update or alter a record. Again, the reference number must be entered."z"If the enter button only is pressed thenthe the field will remain unchanged and the cursor will move down one line.h"As records cannot be ereased, this option is also used if a record is no longer required."  6300"4-11.Lists"T"Each list will display all the information in all the fields for the:"chosen catergory along with the name of the person.V"Press C to read sequentially through anylist or M to return to the menu screen.  6300B"To return to the menu screen at any timepress Shift/Break." D"Do not use commas when entering or updating information. p*"The programme can only recognize data from the HISTORY.DAT file which was created on the same disk.4a>"Therefore, once created, files cannot becopied from one disk to another. (Sorry !)"HlR"Doing so will cause a Disk Locked Error Message to be displayed and the programme will abort. \ 6300=f"The alpha lock can be on or off when entering text.p?z"The delete key can be used if text is entered wrongly. 6300X"I would be glad to see any improvements to this programme (eg a print facility)."@"If any body has the time or inclination please feel free."Graeme Durden""197 Rock Avenue,""Gillingham,""Kent ME7 5PN.""October 1990  6300B"If you find this programme; a) Wildly exciting."b) Moderately useful.5$"c) Absolutely unworkable but good for a laugh..G8"Then please send a huge ammount of moneyto any of the following;BL"a) Tear fundV"b) Y.W.A.M.`"c) Exodus '90"j" St.Marks Church,"t" Gillingham,"~" Kent."E~  10!## SUB-ROUTINE TO HALT ##!## SCREEN DURING HELP ## 4,155@0,22;" Press 'C' to continue or 'M' for menu " 4,14 X$~$ Y$~(77)Z$~(109) X$~Y$ { X$~Z$ s 10>@