home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug059.arc / GENERAL.DOC < prev    next >
Text File  |  1979-12-31  |  21KB  |  535 lines
  1. 10 REM Documentation for the Genealogy ON DISPLAY Programs
  2. 20 REM All data is in the form of DATA statements.
  3. 30 REM By:  Melvin O. Duke.  Updated June 1983.
  4. 40 DATA Genealogy
  5. 50 DATA User's Manual
  6. 60 DATA -5
  7. 70 DATA 1
  8. 80 INDENT = 0
  9. 90 DASHES$ = "+"+STRING$(54,45)+"+"
  10. 100 TRIM.LINE$ = "(Trim-line)"
  11. 110 REM Program begins here
  12. 120 READ TITLE$, DOC.NAME$, PAGE.NO, LINE.NO
  13. 130 IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  14. 140 GOSUB 500  'For trim line and heading space
  15. 150 FOR I = 1 TO 6 : LPRINT : NEXT I
  16. 160 LPRINT CHR$(14);  'Set Expanded Print
  17. 170 LPRINT TAB(TAB.POS-2);TITLE$
  18. 180 LPRINT CHR$(18);  'Return to normal
  19. 190 FOR I = 1 TO 3 : LPRINT : NEXT I
  20. 200 LPRINT CHR$(27); "E"; 'Set Emphasized mode
  21. 210 LPRINT TAB(TAB.POS+12);"ON DISPLAY"
  22. 220 LPRINT CHR$(27); "F"; 'Return to normal
  23. 222 LPRINT : LPRINT : LPRINT
  24. 224 LPRINT TAB(TAB.POS+11);"Version 1.3"
  25. 230 FOR I = 1 TO 11 : LPRINT : NEXT I
  26. 240 LPRINT TAB(TAB.POS+10); DOC.NAME$
  27. 250 LINE.NO = LINE.NO + 27
  28. 260 '
  29. 270 READ REPLY$
  30. 280 IF LEFT$(REPLY$,1) = "." THEN GOSUB 850: GOTO 270
  31. 290 IF LINE.NO > 44 THEN GOSUB 610
  32. 300 REM Print the line if not a command
  33. 310 LPRINT TAB(TAB.POS);REPLY$
  34. 320 LINE.NO = LINE.NO + 1
  35. 330 IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  36. 340 GOTO 270
  37. 350 REM Data for the Copyright Page
  38. 354 DATA ".pa"
  39. 358 DATA "Anyone may request a copy of these"
  40. 362 DATA "programs by sending two blank diskettes"
  41. 366 DATA "to the author of the programs (one for"
  42. 370 DATA "the programs, and the second for the"
  43. 374 DATA "documentation)."
  44. 378 DATA ".sp"
  45. 382 DATA "An addressed, postage-paid return"
  46. 386 DATA "mailer must accompany the diskettes (no"
  47. 390 DATA "exceptions, please).
  48. 394 DATA ".sp"
  49. 398 DATA "A copy of the programs with documenta-"
  50. 402 DATA "tion will be sent by return mail."
  51. 406 DATA ".sp"
  52. 410 DATA "Regardless of whether a contribution"
  53. 414 DATA "is made, the user is encouraged to"
  54. 418 DATA "copy and share the program with others."
  55. 422 DATA "Payment for use is discretionary on"
  56. 426 DATA "the part of each subsequent user."
  57. 430 DATA ".vt 4"
  58. 434 DATA "If you are using these programs, and"
  59. 438 DATA "finding them of value, your contribution"
  60. 442 DATA "($35 suggested) will be appreciated."
  61. 446 DATA ".sp"
  62. 450 DATA "Melvin O. Duke"
  63. 454 DATA "P. O. Box 20836"
  64. 458 DATA "San Jose, CA  95160"
  65. 462 DATA ".vt 4"
  66. 466 DATA "Copyright (c) 1983, by:"
  67. 470 DATA "Melvin O. Duke."
  68. 474 DATA ".sp"
  69. 478 DATA "All rights reserved."
  70. 482 '
  71. 500 REM Top of each page routine
  72. 510 IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  73. 520 LPRINT
  74. 530 LPRINT TAB(30); TRIM.LINE$
  75. 540 LPRINT DASHES$ 'Dashes
  76. 550 FOR I = 1 TO 6
  77. 560  LPRINT
  78. 570 NEXT I
  79. 580 LINE.NO = LINE.NO + 6
  80. 590 RETURN
  81. 600 '
  82. 610 REM Bottom of each page Routine
  83. 620 IF PAGE.NO < 1 THEN LPRINT : LPRINT : LPRINT : GOTO 740
  84. 630 LPRINT TAB(TAB.POS); STRING$(40,45)  'on line 46
  85. 640 LPRINT TAB(TAB.POS+3); TITLE$+" ON DISPLAY.  Version 1.3" 'on line 47
  86. 650 IF PAGE.NO MOD 2 = 1 THEN 690
  87. 660 LPRINT TAB(TAB.POS);"Page";PAGE.NO;
  88. 670 LPRINT TAB(TAB.POS+27);"User's Manual"
  89. 680 GOTO 740
  90. 690 LPRINT TAB(TAB.POS); "User's Manual";
  91. 700 IF PAGE.NO < 10 THEN DELTA = 34
  92. 710 IF PAGE.NO >  9 THEN DELTA = 33
  93. 720 IF PAGE.NO > 99 THEN DELTA = 32
  94. 730 LPRINT TAB(TAB.POS+DELTA); "Page"; PAGE.NO  'on line 48
  95. 740 LPRINT : LPRINT : LPRINT
  96. 750 LPRINT DASHES$ 'dashes after 51
  97. 760 LPRINT TAB(30); TRIM.LINE$
  98. 770 LPRINT CHR$(12);
  99. 780 PAGE.NO = PAGE.NO + 1
  100. 790 LINE.NO = 1
  101. 800 IF REPLY$ = ".eof" THEN 820  'Bypass after last page
  102. 810 GOSUB 500  'For top of next page
  103. 820 IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  104. 830 RETURN
  105. 840 '
  106. 850 REM Command Processor
  107. 860 IF LEFT$(REPLY$,3) = ".h1" THEN 960
  108. 870 IF LEFT$(REPLY$,3) = ".h2" THEN 1100
  109. 880 IF LEFT$(REPLY$,3) = ".h3" THEN 1210
  110. 890 IF LEFT$(REPLY$,3) = ".sp" THEN 1320
  111. 900 IF LEFT$(REPLY$,4) = ".eof" THEN 1370
  112. 910 IF LEFT$(REPLY$,3) = ".pa" THEN 1410
  113. 915 IF LEFT$(REPLY$,3) = ".pn" THEN PAGE.NO = VAL(RIGHT$(REPLY$,LEN(REPLY$)-3)) : RETURN
  114. 920 IF LEFT$(REPLY$,3) = ".vt" THEN 1480
  115. 930 IF LEFT$(REPLY$,3) = ".pk" THEN 1590
  116. 940 IF LEFT$(REPLY$,3) = ".in" THEN 1720
  117. 950 STOP
  118. 960 REM Head 1 Processor
  119. 970 FOR I = LINE.NO TO 44
  120. 980  LPRINT
  121. 990 NEXT I
  122. 1000 GOSUB 610  'Bottom of page Routine
  123. 1010 IF PAGE.NO MOD 2 = 0 THEN GOSUB 1410  'For h1 on Odd pages
  124. 1020 LPRINT CHR$(14);  'Set expanded print
  125. 1030 IF PAGE.NO MOD 2 = 0 THEN ADJUST = -4 ELSE ADJUST = -7
  126. 1040 LPRINT TAB(TAB.POS+ADJUST); RIGHT$(REPLY$,LEN(REPLY$)-4)
  127. 1050 LPRINT CHR$(18);  'Return to normal
  128. 1060 LINE.NO = LINE.NO+1
  129. 1070 IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  130. 1080 RETURN
  131. 1090 '
  132. 1100 REM Head 2 Processor
  133. 1110 IF LINE.NO = 7 THEN 1130 'skip spacing if at top of page
  134. 1120 IF LINE.NO > 43 THEN GOSUB 1410 ELSE LPRINT:LPRINT:LINE.NO = LINE.NO+2
  135. 1130 LPRINT CHR$(27); "E"; 'Set emphasized print
  136. 1140 LPRINT TAB(TAB.POS); RIGHT$(REPLY$,LEN(REPLY$)-4)
  137. 1150 LPRINT CHR$(27); "F"; 'Return to normal
  138. 1160 LPRINT
  139. 1170 LINE.NO = LINE.NO + 2
  140. 1180 IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  141. 1190 RETURN
  142. 1200 '
  143. 1210 REM Head 3 Processor
  144. 1220 IF LINE.NO = 7 THEN 1240 'skip spacing if at top of page
  145. 1230 IF LINE.NO > 43 THEN GOSUB 1410 ELSE LPRINT:LPRINT:LINE.NO = LINE.NO+2
  146. 1240 LPRINT CHR$(27); "E"; 'Set emphasized print
  147. 1250 LPRINT TAB(TAB.POS); RIGHT$(REPLY$,LEN(REPLY$)-4)
  148. 1260 LPRINT CHR$(27); "F"; 'Return to normal
  149. 1270 LPRINT
  150. 1280 LINE.NO = LINE.NO + 2
  151. 1290 IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  152. 1300 RETURN
  153. 1310 '
  154. 1320 REM Single Space Processor
  155. 1330 IF LINE.NO = 7 THEN 1350
  156. 1340 IF LINE.NO > 44 THEN GOSUB 1410 ELSE LPRINT : LINE.NO = LINE.NO + 1
  157. 1350 IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  158. 1360 RETURN
  159. 1370 REM End of File Processor
  160. 1380 GOSUB 1410 'Bottom of Page
  161. 1390 LPRINT CHR$(12);
  162. 1400 GOTO 15470
  163. 1410 REM Page Eject Processor
  164. 1420 FOR I = LINE.NO TO 44
  165. 1430  LPRINT
  166. 1440  LINE.NO = LINE.NO + 1
  167. 1450 NEXT I
  168. 1460 GOSUB 610  'Bottom of Page Processing
  169. 1470 RETURN
  170. 1480 REM Vertical Tab Processor
  171. 1490 IF LINE.NO = 7 THEN 1580
  172. 1500 IF LINE.NO > 44 THEN GOSUB 610  'End of page
  173. 1510 QTY = VAL(RIGHT$(REPLY$,LEN(REPLY$)-3))
  174. 1520 FOR I = 1 TO QTY
  175. 1530  LPRINT
  176. 1540  LINE.NO = LINE.NO + 1
  177. 1550  IF LINE.NO > 44 THEN I = QTY
  178. 1560 NEXT I
  179. 1570 IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  180. 1580 RETURN
  181. 1590 REM Pack Processor
  182. 1600 IF LINE.NO > 44 THEN GOSUB 610
  183. 1610 IF TAB.POS = 8 THEN ADJUST = 4
  184. 1620 IF TAB.POS = 13 THEN ADJUST = 7
  185. 1630 TAB.POS = TAB.POS + ADJUST + INDENT
  186. 1640 LPRINT CHR$(15); 'Packed printing
  187. 1650 WIDTH "lpt1:", 132 'set condensed width
  188. 1660 LPRINT TAB(TAB.POS); RIGHT$(REPLY$,LEN(REPLY$)-3)
  189. 1670 LPRINT CHR$(18); 'Return to normal
  190. 1680 WIDTH "lpt1:", 80  'return to normal
  191. 1690 LINE.NO = LINE.NO + 1
  192. 1700 IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  193. 1710 RETURN
  194. 1720 REM Indent Processor
  195. 1730 INDENT = VAL(RIGHT$(REPLY$,LEN(REPLY$)-3))
  196. 1740 RETURN
  197. 4300 DATA ".h1 GENERAL INFORMATION"
  198. 4305 DATA ".pn 9"
  199. 4310 DATA ".h2 DESCRIPTION OF FUNCTIONS"
  200. 4320 DATA ".h3 File Creation."
  201. 4330 DATA "Programs are provided to permit the user"
  202. 4340 DATA "to create one data file which contains"
  203. 4350 DATA "information about persons, another data"
  204. 4360 DATA "file which contains information about"
  205. 4370 DATA "marriages, and a third data file which"
  206. 4380 DATA "contains information about ordinances."
  207. 4390 DATA ".h3 File Maintenance."
  208. 4400 DATA "Programs are provided for the maintenance"
  209. 4410 DATA "of the three data files.  The user is free"
  210. 4420 DATA "to change any information, or to add new"
  211. 4430 DATA "information at any time."
  212. 4440 DATA ".h3 File Indices."
  213. 4450 DATA "Programs are provided for the creation"
  214. 4460 DATA "of two indices, one of which relates"
  215. 4470 DATA "parents and their children, and the other"
  216. 4480 DATA "which relates persons by marriage."
  217. 4490 DATA ".pa"
  218. 4500 DATA ".h3 Summary Lists."
  219. 4510 DATA "Programs are provided which will produce"
  220. 4520 DATA "summary lists of the records in the file"
  221. 4530 DATA "which contain the personal information,"
  222. 4540 DATA "or of the records in the file which con-"
  223. 4550 DATA "tain the marriages information."
  224. 4560 DATA ".h3 Detailed Data."
  225. 4570 DATA "One program is provided which will print"
  226. 4575 DATA "either individual records or the entire"
  227. 4580 DATA "contents of the Persons File, together"
  228. 4590 DATA "with the Ordinances File.  A second"
  229. 4595 DATA "program is provided which will print"
  230. 4596 DATA "either individual records or the entire"
  231. 4600 DATA "contents of the Marriages File."
  232. 4610 DATA ".h3 Displaying the Genealogy"
  233. 4620 DATA "Once the data files are as complete as"
  234. 4630 DATA "possible, and the indices have been"
  235. 4640 DATA "created, then the 'Display the Genealogy'"
  236. 4650 DATA "program 'display' can be used to display"
  237. 4660 DATA "the information about a person (including"
  238. 4665 DATA "personal information and church-related"
  239. 4666 DATA "information), an ancestral pedigree, or"
  240. 4680 DATA "the information about a family."
  241. 4685 DATA ".pa
  242. 4690 DATA ".h3 Printing Pedigree Charts"
  243. 4700 DATA "Once the data files are as complete as"
  244. 4710 DATA "possible, and the indices have been"
  245. 4720 DATA "created, then the Pedigree Program"
  246. 4730 DATA "'pedigree' can be used to print the"
  247. 4740 DATA "pedigree chart for any person who is"
  248. 4750 DATA "identified by the user."
  249. 4760 DATA ".h3 Printing Family Group Sheets"
  250. 4770 DATA "Once the data files are as complete as"
  251. 4780 DATA "possible, and the indices have been"
  252. 4790 DATA "created, then the Family Group Program"
  253. 4800 DATA "'family' can be used to print the"
  254. 4810 DATA "family group sheet for any marriage"
  255. 4820 DATA "which is identified by the user."
  256. 4830 DATA ".pa"
  257. 4840 DATA ".h2 DEFINITION OF TERMS"
  258. 4850 DATA ".h3 Personal Information."
  259. 4860 DATA "Personal information is that information"
  260. 4870 DATA "that is unique to a person.  It includes"
  261. 4880 DATA "the persons name, his date of birth, the"
  262. 4890 DATA "location of his birth, and his parents."
  263. 4900 DATA "It also contains (if appropriate) the"
  264. 4910 DATA "same type of information about a person's"
  265. 4920 DATA "death and burial."
  266. 4930 DATA ".h3 Pedigree Information."
  267. 4940 DATA "Pedigree information is that information"
  268. 4950 DATA "which shows the parents, grandparents,"
  269. 4960 DATA "etc., about a person.  It includes the"
  270. 4970 DATA "direct ancestry of the person."
  271. 4980 DATA ".h3 Family Group Information."
  272. 4990 DATA "Family group information is that informa-"
  273. 5000 DATA "mation about a marriage, and the children"
  274. 5010 DATA "of the marriage.  It includes the location"
  275. 5020 DATA "and date of the marriage, as well as"
  276. 5030 DATA "birth-dates, birth-places, and other in-"
  277. 5040 DATA "formation about the children, such as"
  278. 5050 DATA "marriage dates, and names of the spouse"
  279. 5051 DATA "of each child."
  280. 5060 DATA ".pa"
  281. 5070 DATA ".h2 Ordinance Information."
  282. 5080 DATA "Ordinance information is information"
  283. 5090 DATA "about church-related events in a"
  284. 5100 DATA "person's life."
  285. 5110 DATA ".pa"
  286. 5120 DATA ".h2 EXPLANATION OF GENERAL CONCEPTS"
  287. 5130 DATA "Genealogy is concerned with information"
  288. 5140 DATA "about any number of direct ancestors,"
  289. 5150 DATA "reaching backward as many generations"
  290. 5160 DATA "as possible.  It is also concerned with"
  291. 5170 DATA "family groups, with spouses, and with"
  292. 5180 DATA "children within the family groups."
  293. 5190 DATA ".sp"
  294. 5200 DATA "Keeping track of the broad and varied"
  295. 5210 DATA "relationships is a tedious manual task."
  296. 5220 DATA ".sp"
  297. 5230 DATA "Genealogy ON DISPLAY provides the basis"
  298. 5240 DATA "for recording and relating these varied"
  299. 5250 DATA "relationships by utilizing two data"
  300. 5260 DATA "files and two indices.  The first data"
  301. 5270 DATA "file contains information about persons."
  302. 5280 DATA "The second data file contains informa-"
  303. 5290 DATA "tion about marriages.  The first index"
  304. 5300 DATA "relates parents and their children."
  305. 5310 DATA "The second index relates people with"
  306. 5320 DATA "marriages."
  307. 5330 DATA ".sp"
  308. 5340 DATA "With these two files, and two indices,"
  309. 5350 DATA "Genealogy ON DISPLAY is able to"
  310. 5360 DATA "associate every person with every other"
  311. 5370 DATA "person, both with parent/child rela-"
  312. 5380 DATA "tionships, and with husband/wife"
  313. 5390 DATA "relationships."
  314. 5400 DATA ".sp"
  315. 5410 DATA "A third data file contains additional"
  316. 5420 DATA "personal information which is church-"
  317. 5430 DATA "related.  It contains all of the"
  318. 5440 DATA "ordinance information about a person."
  319. 5450 DATA ".pa"
  320. 5460 DATA ".h3 persfile"
  321. 5470 DATA "The first data file, named 'persfile',"
  322. 5480 DATA "contains all of the personal information"
  323. 5490 DATA "about an individual.  It also contains a"
  324. 5500 DATA "reference to that person's father and"
  325. 5510 DATA "mother.  Its format and content are:"
  326. 5520 DATA ".sp"
  327. 5530 DATA "Size  Content"
  328. 5540 DATA "----  --------------------------"
  329. 5550 DATA "  5   Record Number for a Person"
  330. 5560 DATA " 20   Surname of person"
  331. 5570 DATA " 30   Given names of person"
  332. 5580 DATA "  2   Sex"
  333. 5590 DATA "  5   Code"
  334. 5600 DATA "  5   Father's Record Number"
  335. 5610 DATA "  5   Mother's Record Number"
  336. 5620 DATA " 11   Birth-date of person"
  337. 5630 DATA " 18   Birth-city"
  338. 5640 DATA " 16   Birth-county"
  339. 5650 DATA " 16   Birth-state or country"
  340. 5660 DATA " 11   Death-date"
  341. 5670 DATA " 18   Death-city"
  342. 5680 DATA " 16   Death-county"
  343. 5690 DATA " 16   Death-state or country"
  344. 5700 DATA " 11   Burial-date"
  345. 5710 DATA " 18   Burial-city"
  346. 5720 DATA " 16   Burial-county"
  347. 5730 DATA " 16   Burial-state or country"
  348. 5731 DATA ".sp"
  349. 5732 DATA "Note: Code is available to the user"
  350. 5733 DATA "for any special user identification,"
  351. 5734 DATA "such as differentiating between"
  352. 5735 DATA "natural parents and adoptive perents."
  353. 5736 DATA "It is unused by the programs."
  354. 5740 DATA ".pa"
  355. 5750 DATA ".h3 marrfile"
  356. 5760 DATA "The second data file, named 'marrfile',"
  357. 5770 DATA "contains all of the records of marriages."
  358. 5780 DATA "Its contents are as follows:"
  359. 5790 DATA ".sp"
  360. 5800 DATA "Size  Content"
  361. 5810 DATA "----  --------------------------"
  362. 5820 DATA "  5   Record Number of the Marriage"
  363. 5830 DATA "  5   Husband's Record-number"
  364. 5840 DATA "  5   Wife's Record-number"
  365. 5850 DATA "  5   Code"
  366. 5860 DATA " 11   Marriage-date"
  367. 5870 DATA " 18   Marriage-city"
  368. 5880 DATA " 16   Marriage-county"
  369. 5890 DATA " 16   Marriage-state or country"
  370. 5900 DATA " 45   Comments"
  371. 5901 DATA ".sp"
  372. 5902 DATA "Note: Code is available to the user"
  373. 5903 DATA "for any special user identification,"
  374. 5904 DATA "such as differentiating between"
  375. 5905 DATA "first and second marriage of spouses."
  376. 5906 DATA "It is unused by the programs."
  377. 5909 DATA ".pa
  378. 5910 DATA ".h3 pcindex"
  379. 5920 DATA "The first index, named 'pcindex',"
  380. 5930 DATA "provides the relationships between"
  381. 5940 DATA "parents and children.  It contains:"
  382. 5950 DATA ".sp"
  383. 5960 DATA "The Number of Records in the Index."
  384. 5970 DATA ".sp"
  385. 5980 DATA "For each index record:"
  386. 5990 DATA "Parent's Record-number, and Child's"
  387. 6000 DATA "Record-number."
  388. 6010 DATA ".sp"
  389. 6020 DATA "Note:  Index records are in sequence"
  390. 6030 DATA "by Child's Birthdate within Parent's"
  391. 6040 DATA "Record-number."
  392. 6060 DATA ".h3 mindex"
  393. 6070 DATA "The second index, named 'mindex',"
  394. 6080 DATA "provides the relationships between"
  395. 6090 DATA "husbands and wives.  It contains:"
  396. 6100 DATA ".sp"
  397. 6110 DATA "The Number of Records in the Index."
  398. 6120 DATA ".sp"
  399. 6130 DATA "For each index record:"
  400. 6140 DATA "Person's Record-number in the Person's"
  401. 6150 DATA "File, followed by the Marriage-number"
  402. 6160 DATA "within the Marriage-file."
  403. 6170 DATA ".sp"
  404. 6180 DATA "Note:  Index records are in sequence"
  405. 6190 DATA "by Marriage-date within the Person's"
  406. 6200 DATA "Record-number."
  407. 6210 DATA ".pa"
  408. 6220 DATA ".h3 ordfile"
  409. 6230 DATA "The third data file, named 'ordfile'"
  410. 6240 DATA "contains all (LDS) church-related"
  411. 6250 DATA "information about an individual,"
  412. 6260 DATA "including all of the ordinance infor-"
  413. 6270 DATA "mation.  Its contents are as follows:"
  414. 6280 DATA "Size  Content"
  415. 6290 DATA "----  --------------------------"
  416. 6300 DATA "  5   Record Number for a Person"
  417. 6310 DATA " 11   Christening Date"
  418. 6320 DATA " 11   Blessing Date"
  419. 6330 DATA " 11   Sealed to Parents Date"
  420. 6340 DATA "  5   Father's Record Number"
  421. 6350 DATA "  5   Mother's Record Number"
  422. 6360 DATA " 11   Baptism Date"
  423. 6370 DATA " 11   Confirmation Date"
  424. 6380 DATA " 11   Patriarchical Blessing Date"
  425. 6390 DATA " 11   Endowment Date"
  426. 6400 DATA " 11   Sealed to Spouse Date"
  427. 6410 DATA "  5   Spouse's Record Number"
  428. 6420 DATA " 11   Aaronic Priesthood Date"
  429. 6430 DATA " 11   Deacon Date"
  430. 6440 DATA " 11   Teacher Date"
  431. 6450 DATA " 11   Priest Date"
  432. 6460 DATA " 11   Melchizedek Priesthood Date"
  433. 6470 DATA " 11   Elder Date"
  434. 6480 DATA " 11   Seventy Date"
  435. 6490 DATA " 11   High Priest Date"
  436. 6500 DATA " 11   Bishop Date"
  437. 6510 DATA " 11   Patriarch Date"
  438. 6520 DATA " 11   Apostle Date"
  439. 6530 DATA " 26   Occupation"
  440. 6540 DATA ".pa"
  441. 6550 DATA ".h3 Relationships."
  442. 6560 DATA "Because of the relationships carried"
  443. 6570 DATA "within the Persons File, pedigree"
  444. 6580 DATA "information may be associated backward"
  445. 6590 DATA "for any number of generations.  There"
  446. 6600 DATA "is no specific limit to the number of"
  447. 6610 DATA "generations that the Genealogy ON"
  448. 6620 DATA "DISPLAY programs will handle."
  449. 6630 DATA ".sp"
  450. 6640 DATA "Because of the indices, which relate"
  451. 6650 DATA "parents with their children, coupled"
  452. 6660 DATA "with the information in the Marriages"
  453. 6670 DATA "File, and the index to that file, it"
  454. 6680 DATA "is possible to relate any number of"
  455. 6690 DATA "persons together in families, showing"
  456. 6700 DATA "them in accordance with their date of"
  457. 6705 DATA "birth."
  458. 6706 DATA ".sp"
  459. 6710 DATA "(Note: there is no specific limit to"
  460. 6720 DATA "the number of families that the"
  461. 6730 DATA "Genealogy ON DISPLAY programs will"
  462. 6740 DATA "handle, other than the 200 marriages"
  463. 6745 DATA "limit.)
  464. 6750 DATA ".pa"
  465. 6760 DATA ".h2 BEFORE YOU START"
  466. 6765 DATA ".h3 List of Persons"
  467. 6770 DATA "Begin by making a numbered list, which"
  468. 6780 DATA "contains the people who will be in your"
  469. 6790 DATA "Persons File."
  470. 6800 DATA ".sp"
  471. 6810 DATA "This may look somewhat like:"
  472. 6820 DATA ".sp"
  473. 6830 DATA "No.  Surname      Given-Names"
  474. 6840 DATA "---  -----------  -----------"
  475. 6850 DATA "  1  ABLE         Melvin Otto"
  476. 6860 DATA "  2  LOVELY       Helen Lillian"
  477. 6870 DATA "  3  ABLE         Melvin Kent"
  478. 6880 DATA "  4  ABLE         Ronald Robert"
  479. 6890 DATA "  5  ABLE         Carolyn Elizabeth"
  480. 6900 DATA "  6  ABLE         Linda Ann"
  481. 6910 DATA "  7  ABLE         Otto"
  482. 6920 DATA "  8  BAKER        Beatrice"
  483. 6930 DATA "etc.  etc.         etc."
  484. 6940 DATA ".pa"
  485. 6950 DATA "Now go back and add the number which you"
  486. 6960 DATA "have assigned, which represents each"
  487. 6970 DATA "person's father and mother, such as:"
  488. 6980 DATA ".sp"
  489. 6990 DATA ".pk No.  Surname      Given-Names        Father  Mother"
  490. 7000 DATA ".pk ---  -----------  -----------        ------  ------"
  491. 7010 DATA ".pk   1  ABLE         Melvin Otto           7       8"
  492. 7020 DATA ".pk   2  LOVELY       Helen Lillian"
  493. 7030 DATA ".pk   3  ABLE         Melvin Kent           1       2"
  494. 7040 DATA ".pk   4  ABLE         Ronald Robert         1       2"
  495. 7050 DATA ".pk   5  ABLE         Carolyn Elizabeth     1       2"
  496. 7060 DATA ".pk   6  ABLE         Linda Ann             1       2"
  497. 7070 DATA ".pk   7  ABLE         Otto"
  498. 7080 DATA ".pk   8  BAKER        Beatrice"
  499. 7090 DATA ".pk etc.  etc.         etc.                etc.    etc."
  500. 7100 DATA ".sp"
  501. 7110 DATA "Note:  This is your master list of"
  502. 7120 DATA "persons. It will continue to grow as you"
  503. 7130 DATA "add more and more names.  After you have"
  504. 7140 DATA "updated the Persons File with these"
  505. 7150 DATA "people, you can produce the list by"
  506. 7160 DATA "loading the 'listper' program, and"
  507. 7170 DATA "running it."
  508. 7180 DATA ".pa"
  509. 7185 DATA ".h3 List of Marriages"
  510. 7190 DATA "Now make a second numbered list.  Enter"
  511. 7200 DATA "the record-numbers of the persons who"
  512. 7210 DATA "are married.  This may appear as:"
  513. 7220 DATA ".sp"
  514. 7230 DATA "Marriage     Husband's   Wife's"
  515. 7240 DATA "Number       Record-no.  Record-no."
  516. 7250 DATA "--------     ----------  ----------"
  517. 7260 DATA "  1            1           2"
  518. 7270 DATA "  2            7           8"
  519. 7280 DATA " etc.         etc.        etc."
  520. 7290 DATA ".sp"
  521. 7300 DATA "If you find it convenient, you may also"
  522. 7310 DATA "want to include names in this list."
  523. 7320 DATA ".sp"
  524. 7330 DATA "Note:  This is your master list of"
  525. 7340 DATA "marriages. It will continue to grow as"
  526. 7350 DATA "you add more and more marriages.  After"
  527. 7360 DATA "you have updated the Marriages File,"
  528. 7370 DATA "you can produce the list by loading the"
  529. 7380 DATA "'listmar' program, and running it."
  530. 15460 DATA ".eof"
  531. 15470 END
  532. 1080 RETURN
  533. 1090 '
  534. 1100 REM Head 2 Processor
  535. 1110 IF LINE.NO = 7 THEN 113