home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 462b.lha / AmyGen_v5.0 / referenc.bas < prev    next >
Encoding:
BASIC Source File  |  1990-12-27  |  20.4 KB  |  502 lines
  1. 100 REM REFERENC Program.
  2. 110 REM Documentation.  Reference Material.
  3. 120 REM Copyright (c) 1983 - 1987 by: Melvin O. Duke.
  4. ' Ported to the Amiga in March 1988 by Nathan Barber
  5. ' Adaptions for Amiga graphics (c) 1988 by Nathan Barber
  6. 130 DATA Genealogy
  7. 140 DATA User's Manual
  8. 150 DATA -5
  9. 160 DATA 1
  10. 170 INDENT = 0
  11. 180 REM Printer Definitions
  12. 190 FORM.FEED$  = CHR$(12)
  13. 200 COMPR.OFF$  = CHR$(18)     : COMPR.ON$ = CHR$(15)
  14. 210 BOLD.OFF$   = CHR$(27)+"F" : BOLD.ON$ = CHR$(27)+"E"
  15. 220 EXPAND.OFF$ = CHR$(18)     : EXPAND.ON$ = CHR$(14)
  16. 230 DASHES$ = "+"+STRING$(54,45)+"+"
  17. 240 TRIM.LINE$ = "(Trim-line)"
  18. 300 REM Program begins here
  19. 310 READ TITLE$, DOC.NAME$, PAGE.NO, LINE.NO
  20. 320 IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 :ELSE TAB.POS = 13
  21. 330 GOSUB 920  :REM'For trim line and heading space
  22. 340 FOR I = 1 TO 6 : LPRINT : NEXT I
  23. 350 LPRINT BOLD.ON$;     :REM'Set Emphasized mode
  24. 360 LPRINT EXPAND.ON$;   :REM'Set Expanded Print
  25. 370 LPRINT TAB(TAB.POS-1);TITLE$
  26. 380 LPRINT EXPAND.OFF$;  :REM'Return to normal
  27. 390 LPRINT BOLD.OFF$;    :REM'Return to normal
  28. 400 FOR I = 1 TO 3 : LPRINT : NEXT I
  29. 410 LPRINT BOLD.ON$;     :REM'Set Emphasized mode
  30. 420 LPRINT TAB(TAB.POS+12);"ON DISPLAY"
  31. 430 LPRINT BOLD.OFF$;    :REM'Return to normal
  32. 440 LPRINT : LPRINT : LPRINT
  33. 450 LPRINT TAB(TAB.POS+11);"Version 5.0"
  34. 460 FOR I = 1 TO 11 : LPRINT : NEXT I
  35. 470 LPRINT TAB(TAB.POS+10); DOC.NAME$
  36. 480 LINE.NO = LINE.NO + 27
  37. 490 :REM'
  38. 500 READ REPLY$
  39. 510 REM First, change tildes to quotes
  40. 520 FOR Q = 1 TO LEN(REPLY$)
  41. 530  IF MID$(REPLY$,Q,1)="~"THEN MID$(REPLY$,Q,1)=CHR$(34)
  42. 540 NEXT Q
  43. 550 IF LEFT$(REPLY$,1) = "." THEN GOSUB 1270: GOTO 500
  44. 560 IF LINE.NO > 44 THEN GOSUB 1030
  45. 570 REM Print the line if not a command
  46. 580 LPRINT TAB(TAB.POS);REPLY$
  47. 590 LINE.NO = LINE.NO + 1
  48. 600 IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 :ELSE TAB.POS = 13
  49. 610 GOTO 500
  50. 620 REM Data for the Copyright Page
  51. 630 DATA ".pa"
  52. 640 DATA " "
  53. 750 DATA ".vt 12"
  54. 760 DATA "Users are encouraged to copy and share"
  55. 770 DATA "the programs with others."
  56. 780 DATA ".vt 5"
  57. 790 DATA "If you are using these programs, you are"
  58. 800 DATA "expected to become a Registered User,"
  59. 810 DATA "by making a contribution to the author"
  60. 815 DATA "of the programs ($45.00 suggested)."
  61. 820 DATA ".sp"
  62. 830 DATA "Melvin O. Duke"
  63. 840 DATA "P. O. Box 20836"
  64. 850 DATA "San Jose, CA  95160"
  65. 860 DATA ".vt 4"
  66. 870 DATA "Copyright (c) 1983 through 1987, by:"
  67. 880 DATA "Melvin O. Duke."
  68. 890 DATA ".sp"
  69. 900 DATA "All rights reserved."
  70. 910 :REM'
  71. 920 REM Top of each page routine
  72. 930 IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 :ELSE TAB.POS = 13
  73. 940 LPRINT
  74. 950 LPRINT TAB(30); TRIM.LINE$
  75. 960 LPRINT DASHES$ :REM'Dashes
  76. 970 FOR I = 1 TO 6
  77. 980  LPRINT
  78. 990 NEXT I
  79. 1000 LINE.NO = LINE.NO + 6
  80. 1010 RETURN
  81. 1020 :REM'
  82. 1030 REM Bottom of each page Routine
  83. 1040 IF PAGE.NO < 1 THEN LPRINT : LPRINT : LPRINT : GOTO 1160
  84. 1050 LPRINT TAB(TAB.POS); STRING$(40,45)  :REM'on line 46
  85. 1060 LPRINT TAB(TAB.POS+3); TITLE$+" ON DISPLAY.  Version 5.0" :REM'on line 47
  86. 1070 IF PAGE.NO MOD 2 = 1 THEN 1110
  87. 1080 LPRINT TAB(TAB.POS);"Page";PAGE.NO;
  88. 1090 LPRINT TAB(TAB.POS+27);"User's Manual"
  89. 1100 GOTO 1160
  90. 1110 LPRINT TAB(TAB.POS); "User's Manual";
  91. 1120 IF PAGE.NO < 10 THEN DELTA = 34
  92. 1130 IF PAGE.NO >  9 THEN DELTA = 33
  93. 1140 IF PAGE.NO > 99 THEN DELTA = 32
  94. 1150 LPRINT TAB(TAB.POS+DELTA); "Page"; PAGE.NO  :REM'on line 48
  95. 1160 LPRINT : LPRINT : LPRINT
  96. 1170 LPRINT DASHES$ :REM'dashes after 51
  97. 1180 LPRINT TAB(30); TRIM.LINE$
  98. 1190 LPRINT FORM.FEED$;
  99. 1200 PAGE.NO = PAGE.NO + 1
  100. 1210 LINE.NO = 1
  101. 1220 IF REPLY$ = ".eof" THEN 1240  :REM'Bypass after last page
  102. 1230 GOSUB 920  :REM'For top of next page
  103. 1240 IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 :ELSE TAB.POS = 13
  104. 1250 RETURN
  105. 1260 :REM'
  106. 1270 REM Command Processor
  107. 1280 IF LEFT$(REPLY$,3) = ".h1" THEN 1390
  108. 1290 IF LEFT$(REPLY$,3) = ".h2" THEN 1550
  109. 1300 IF LEFT$(REPLY$,3) = ".h3" THEN 1660
  110. 1310 IF LEFT$(REPLY$,3) = ".sp" THEN 1770
  111. 1320 IF LEFT$(REPLY$,4) = ".eof" THEN 1820
  112. 1330 IF LEFT$(REPLY$,3) = ".pa" THEN 1860
  113. 1340 IF LEFT$(REPLY$,3) = ".pn" THEN PAGE.NO = VAL(RIGHT$(REPLY$,LEN(REPLY$)-3)) : RETURN
  114. 1350 IF LEFT$(REPLY$,3) = ".vt" THEN 1930
  115. 1360 IF LEFT$(REPLY$,3) = ".pk" THEN 2040
  116. 1370 IF LEFT$(REPLY$,3) = ".in" THEN 2170
  117. 1380 STOP
  118. 1390 REM Head 1 Processor
  119. 1400 FOR I = LINE.NO TO 44
  120. 1410  LPRINT
  121. 1420 NEXT I
  122. 1430 GOSUB 1030  :REM'Bottom of page Routine
  123. 1440 IF PAGE.NO MOD 2 = 0 THEN GOSUB 1860  :REM'For h1 on Odd pages
  124. 1450 LPRINT BOLD.ON$;     :REM'Set emphasized print
  125. 1460 LPRINT EXPAND.ON$;   :REM'Set expanded print
  126. 1470 IF PAGE.NO MOD 2 = 0 THEN ADJUST = -2 :ELSE ADJUST = -5
  127. 1480 LPRINT TAB(TAB.POS+ADJUST); RIGHT$(REPLY$,LEN(REPLY$)-4)
  128. 1490 LPRINT EXPAND.OFF$;  :REM'Return to normal
  129. 1500 LPRINT BOLD.OFF$;    :REM'Return to non-bold
  130. 1510 LINE.NO = LINE.NO+1
  131. 1520 IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 :ELSE TAB.POS = 13
  132. 1530 RETURN
  133. 1540 :REM'
  134. 1550 REM Head 2 Processor
  135. 1560 IF LINE.NO = 7 THEN 1580 :REM'skip spacing if at top of page
  136. 1570 IF LINE.NO > 43 THEN GOSUB 1860 :ELSE LPRINT:LPRINT:LINE.NO = LINE.NO+2
  137. 1580 LPRINT BOLD.ON$;  :REM'Set emphasized print
  138. 1590 LPRINT TAB(TAB.POS+1); RIGHT$(REPLY$,LEN(REPLY$)-4)
  139. 1600 LPRINT BOLD.OFF$; :REM'Return to normal
  140. 1610 LPRINT
  141. 1620 LINE.NO = LINE.NO + 2
  142. 1630 IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 :ELSE TAB.POS = 13
  143. 1640 RETURN
  144. 1650 :REM'
  145. 1660 REM Head 3 Processor
  146. 1670 IF LINE.NO = 7 THEN 1690 :REM'skip spacing if at top of page
  147. 1680 IF LINE.NO > 43 THEN GOSUB 1860 :ELSE LPRINT:LPRINT:LINE.NO = LINE.NO+2
  148. 1690 LPRINT BOLD.ON$;  :REM'Set emphasized print
  149. 1700 LPRINT TAB(TAB.POS+1); RIGHT$(REPLY$,LEN(REPLY$)-4)
  150. 1710 LPRINT BOLD.OFF$; :REM'Return to normal
  151. 1720 LPRINT
  152. 1730 LINE.NO = LINE.NO + 2
  153. 1740 IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 :ELSE TAB.POS = 13
  154. 1750 RETURN
  155. 1760 :REM'
  156. 1770 REM Single Space Processor
  157. 1780 IF LINE.NO = 7 THEN 1800
  158. 1790 IF LINE.NO > 44 THEN GOSUB 1860 :ELSE LPRINT : LINE.NO = LINE.NO + 1
  159. 1800 IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 :ELSE TAB.POS = 13
  160. 1810 RETURN
  161. 1820 REM End of File Processor
  162. 1830 GOSUB 1860 :REM'Bottom of Page
  163. 1850 GOTO 6030
  164. 1860 REM Page Eject Processor
  165. 1870 FOR I = LINE.NO TO 44
  166. 1880  LPRINT
  167. 1890  LINE.NO = LINE.NO + 1
  168. 1900 NEXT I
  169. 1910 GOSUB 1030  :REM'Bottom of Page Processing
  170. 1920 RETURN
  171. 1930 REM Vertical Tab Processor
  172. 1940 IF LINE.NO = 7 THEN 2030
  173. 1950 IF LINE.NO > 44 THEN GOSUB 1030  :REM'End of page
  174. 1960 QTY = VAL(RIGHT$(REPLY$,LEN(REPLY$)-3))
  175. 1970 FOR I = 1 TO QTY
  176. 1980  LPRINT
  177. 1990  LINE.NO = LINE.NO + 1
  178. 2000  IF LINE.NO > 44 THEN I = QTY
  179. 2010 NEXT I
  180. 2020 IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 :ELSE TAB.POS = 13
  181. 2030 RETURN
  182. 2040 REM Pack Processor
  183. 2050 IF LINE.NO > 44 THEN GOSUB 1030
  184. 2060 IF TAB.POS = 8 THEN ADJUST = 4
  185. 2070 IF TAB.POS = 13 THEN ADJUST = 7
  186. 2080 TAB.POS = TAB.POS + ADJUST + INDENT
  187. 2090 WIDTH "lpt1:", 132 :REM'set condensed width
  188. 2100 LPRINT COMPR.ON$;  :REM'Packed printing
  189. 2110 LPRINT TAB(TAB.POS); RIGHT$(REPLY$,LEN(REPLY$)-3)
  190. 2120 LPRINT COMPR.OFF$; :REM'Return to normal
  191. 2130 WIDTH "lpt1:", 80  :REM'return to normal
  192. 2140 LINE.NO = LINE.NO + 1
  193. 2150 IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 :ELSE TAB.POS = 13
  194. 2160 RETURN
  195. 2170 REM Indent Processor
  196. 2180 INDENT = VAL(RIGHT$(REPLY$,LEN(REPLY$)-3))
  197. 2190 RETURN
  198. 3000 DATA ".h1 REFERENCE MATERIAL"
  199. 3010 DATA ".pn 47"
  200. 3020 DATA ".h2 SAMPLE SCREENS AND PROMPTING MESSAGES"
  201. 3030 DATA "The following is a sample session, where"
  202. 3040 DATA "the user wishes to view his Genealogy on"
  203. 3050 DATA "the screen, through the use of the"
  204. 3060 DATA "'display' program."
  205. 3070 DATA ".vt 2"
  206. 3080 DATA "He begins in the normal manner.  He"
  207. 3090 DATA "has the DOS Diskette in place, and has"
  208. 3100 DATA "Cartridge BASIC in place if he is using"
  209. 3110 DATA "a PCjr."
  210. 3120 DATA ".sp"
  211. 3130 DATA "He turns the system on, and responds to"
  212. 3140 DATA "any messages which ask for date and time."
  213. 3150 DATA ".sp"
  214. 3160 DATA "He then requests BASIC by typing:"
  215. 3170 DATA ".sp"
  216. 3180 DATA "   basic/s:256"
  217. 3190 DATA "     and presses the enter key."
  218. 3200 DATA ".sp"
  219. 3210 DATA "He replaces the DOS Diskette with the"
  220. 3220 DATA "Genealogy ON DISPLAY Program Diskette."
  221. 3230 DATA ".sp"
  222. 3240 DATA "He then starts Genealogy ON DISPLAY"
  223. 3250 DATA "by typing:"
  224. 3260 DATA ".sp"
  225. 3270 DATA "   run ~menu~"
  226. 3280 DATA "     and presses the enter key."
  227. 3290 DATA ".pa"
  228. 3300 DATA "The display screen then appears as:"
  229. 3310 DATA ".sp"
  230. 3320 DATA ".vt 3"
  231. 3330 DATA ".pk             MENU of Programs in Genealogy ON DISPLAY"
  232. 3340 DATA ".pk                           Version 5.0"
  233. 3350 DATA ".vt 2"
  234. 3360 DATA ".pk              If you are using these programs, you are"
  235. 3370 DATA ".pk               expected to become a Registered User,"
  236. 3380 DATA ".pk              by making a contribution to the author"
  237. 3390 DATA ".pk                 of the programs ($45 suggested)."
  238. 3400 DATA ".sp"
  239. 3410 DATA ".pk                         Melvin O. Duke"
  240. 3420 DATA ".pk                         P. O. Box 20836"
  241. 3430 DATA ".pk                       San Jose, CA  95160"
  242. 3440 DATA ".vt 3"
  243. 3450 DATA ".pk               Copyright (c) 1983 through 1987, by:"
  244. 3460 DATA ".pk                         Melvin O. Duke"
  245. 3470 DATA ".vt 3"
  246. 3480 DATA ".pk Have Program Diskette in place, then press any key to continue."
  247. 3490 DATA ".sp"
  248. 3500 DATA "Since the Program Diskette is already"
  249. 3510 DATA "in place, he just presses a key."
  250. 3520 DATA ".pa"
  251. 3530 DATA "A new screen appears, which shows the"
  252. 3540 DATA "available programs.  It appears as:"
  253. 3550 DATA ".sp"
  254. 3560 DATA ".in -3"
  255. 3570 DATA ".pk No   Name       Function of the Program"
  256. 3580 DATA ".sp"
  257. 3590 DATA ".pk  1   CREATPER   Creates (FORMATS) a Persons File."
  258. 3600 DATA ".pk  2   CREATMAR   Creates (FORMATS) a Marriages File."
  259. 3610 DATA ".pk  3   CREATORD   Creates (FORMATS) an Ordinances File."
  260. 3620 DATA ".pk  4   UPDATPER   Updates Information in the Persons File."
  261. 3630 DATA ".pk  5   UPDATMAR   Updates Information in the Marriages File."
  262. 3640 DATA ".pk  6   UPDATORD   Updates Information in the Ordinances File."
  263. 3650 DATA ".pk  7   INDEXPC    Prepares a Parent/Child Index.  (For 13, 16, 18 and 19.)"
  264. 3660 DATA ".pk  8   INDEXMAR   Prepares a Marriages Index.  (For 15, 16, 17, 18 and 19.)"
  265. 3670 DATA ".pk  9   PRINTPER   Prints Detailed Information about Persons."
  266. 3680 DATA ".pk 10   PRINTMAR   Prints Detailed Information about Marriages."
  267. 3690 DATA ".pk 11   LISTPER    Prints a List of the Persons in the Persons File."
  268. 3700 DATA ".pk 12   LISTMAR    Prints a List of the Marriages in the Marriages File."
  269. 3710 DATA ".pk 13   LISTPCI    Prints a List of the Parent/Child Index."
  270. 3720 DATA ".pk 14   ALPHAPER   Prints an Alphabetical List of Persons."
  271. 3730 DATA ".pk 15   ALPHAMAR   Prints an Alphabetical List of Marriages."
  272. 3740 DATA ".pk 16   DISPLAY    Displays Genealogical Information on the Screen."
  273. 3750 DATA ".pk 17   PEDIGREE   Prints Pedigree Charts (Family Trees)."
  274. 3760 DATA ".pk 18   FAMILY     Prints Family Group Sheets."
  275. 3770 DATA ".pk 19   DESCEND    Displays (and Optionally Prints) Descendents Charts."
  276. 3780 DATA ".sp"
  277. 3790 DATA ".pk Type a Program Number, and press the 'enter' key.: "
  278. 3800 DATA ".pk  (0 to quit, 20 to restart the MENU)"
  279. 3810 DATA ".in 0"
  280. 3820 DATA ".sp"
  281. 3830 DATA "The user selects program 16, by typing"
  282. 3840 DATA ".sp"
  283. 3850 DATA "   16"
  284. 3860 DATA "     and presses the enter key."
  285. 3870 DATA ".pa"
  286. 3880 DATA "The user then sees the logo of the"
  287. 3890 DATA "'display' program as:"
  288. 3900 DATA ".vt 3"
  289. 3910 DATA ".pk                     Display Program ON DISPLAY"
  290. 3920 DATA ".pk                            Version 5.0"
  291. 3930 DATA ".vt 2"
  292. 3940 DATA ".sp"
  293. 3950 DATA ".sp"
  294. 3960 DATA ".sp"
  295. 3970 DATA ".vt 2"
  296. 3980 DATA ".sp"
  297. 3990 DATA ".sp"
  298. 4000 DATA ".sp"
  299. 4010 DATA ".sp"
  300. 4020 DATA ".pk               Copyright (c) 1983 through 1986 by:"
  301. 4030 DATA ".pk                         Melvin O. Duke"
  302. 4040 DATA ".vt 4"
  303. 4050 DATA ".pk Have Data Diskette(s) in Place, then Press any key to continue."
  304. 4060 DATA ".vt 3"
  305. 4070 DATA "The user replaces the Program Diskette"
  306. 4080 DATA "with the Data Diskette, then presses a"
  307. 4090 DATA "key."
  308. 4100 DATA ".pa"
  309. 4110 DATA "After pressing a key, the user watches"
  310. 4120 DATA "the screen as the indexes are read, and"
  311. 4130 DATA "the data files are opened.  He sees:"
  312. 4140 DATA ".sp"
  313. 4150 DATA ".pk Open the Parent/Child Index"
  314. 4160 DATA ".pk Reading Index Record #: 592"
  315. 4170 DATA ".sp"
  316. 4180 DATA ".pk Open the Marriage Index"
  317. 4190 DATA ".pk Reading Marriage Index Record #: 262"
  318. 4200 DATA ".sp"
  319. 4210 DATA ".pk Open the Persons File"
  320. 4220 DATA ".sp"
  321. 4230 DATA ".pk Open the Marriages File"
  322. 4240 DATA ".sp"
  323. 4250 DATA ".pk Open the Ordinances File"
  324. 4260 DATA ".vt 4"
  325. 4270 DATA ".pk Enter the Record-number of a Person?"
  326. 4280 DATA ".vt 2"
  327. 4290 DATA "The user responds with a number, such as"
  328. 4300 DATA "1, as:"
  329. 4310 DATA ".sp"
  330. 4320 DATA ".pk Enter the Record-number of a Person: 1"
  331. 4330 DATA ".pa"
  332. 4340 DATA "He then sees:"
  333. 4350 DATA ".vt 2"
  334. 4360 DATA ".pk Personal Information for:  Melvin Otto ABLE                    Person: 1"
  335. 4370 DATA ".sp"
  336. 4380 DATA ".pk Person:                                Person's Vital Statistics:"
  337. 4390 DATA ".pk Record-no.:   1"
  338. 4400 DATA ".pk Surname:     ABLE                      Birth-date:      5 Oct 1925"
  339. 4410 DATA ".pk Given Names: Melvin Otto               Birth-city:     Salt Lake City"
  340. 4420 DATA ".pk Sex:         M                         Birth-county:   Salt Lake"
  341. 4430 DATA ".pk                                        Birth-state:    Utah"
  342. 4440 DATA ".pk Person's Father:"
  343. 4450 DATA ".pk Record-no.:   7                        Death-date:"
  344. 4460 DATA ".pk Surname:     ABLE                      Death-city:"
  345. 4470 DATA ".pk Given-names: Otto                      Death-county:"
  346. 4480 DATA ".pk Birth-date:  31 Mar 1899               Death-state:"
  347. 4490 DATA ".sp"
  348. 4500 DATA ".pk Person's Mother:                       Burial-date:"
  349. 4510 DATA ".pk Record-no.:   8                        Burial-city:"
  350. 4520 DATA ".pk Surname:     BAKER                     Burial-county:"
  351. 4530 DATA ".pk Given-names: Beatrice                  Burial-state:"
  352. 4540 DATA ".pk Birth-date:  27 Sep 1902"
  353. 4550 DATA ".sp 2"
  354. 4560 DATA ".pk Type a Request.  Then press the 'enter' key.: "
  355. 4570 DATA ".pk (Possible Requests:  ps, pc, fg, o, p1...pn, m1...mn, q)"
  356. 4580 DATA ".pa
  357. 4590 DATA "The user asks for a pedigree chart, by"
  358. 4600 DATA "typing:  pc, as:"
  359. 4610 DATA ".sp"
  360. 4620 DATA ".pk Type a Request.  Then press the 'enter' key.? pc"
  361. 4630 DATA ".sp"
  362. 4640 DATA "The user then sees:"
  363. 4650 DATA ".vt 2"
  364. 4660 DATA ".in -3"
  365. 4670 DATA ".pk  Pedigree Chart for : Melvin Otto ABLE                       Person: 1   "
  366. 4680 DATA ".sp"
  367. 4690 DATA ".pk                                                                Birthdate:"
  368. 4700 DATA ".pk                      __8_(40) ABLE, John_____________________ 28 Nov 1834"
  369. 4710 DATA ".pk              __4_(30) ABLE, James Alfred_____________________ 19 Jan 1866"
  370. 4720 DATA ".pk              |      |_ 9_(47) YOUNGER, Martha Vance__________  8 Feb 1842"
  371. 4730 DATA ".pk        __2_(7) ABLE, Otto____________________________________ 31 Mar 1899"
  372. 4740 DATA ".pk       |      |       __10_(51) FARMER, Charles_______________ 19 Jan 1833"
  373. 4750 DATA ".pk       |      |_5_(31) FARMER, Janet__________________________ 18 Feb 1876"
  374. 4760 DATA ".pk       |              |_11_(52) BIGBY, Susanna________________  5 Nov 1834"
  375. 4770 DATA ".pk 1_(1) ABLE, Melvin Otto______________________________________  5 Oct 1925"
  376. 4780 DATA ".pk       |              __12_(82) BAKER, William________________ 12 Apr 1803"
  377. 4790 DATA ".pk       |      __6_(32) BAKER, Jabez Thompson__________________ 26 Apr 1840"
  378. 4800 DATA ".pk       |      |      |_ 13_(83) THOMASON, Martha______________ 22 Aug 1805"
  379. 4810 DATA ".pk       |_3_(8) BAKER, Beatrice________________________________ 27 Sep 1902"
  380. 4820 DATA ".pk              |       __14_(84) SWENSON, Karl Kristian________ 11 Jul 1834"
  381. 4830 DATA ".pk              |_7_(33) SWENSON, Anna Pauline__________________  8 Aug 1866"
  382. 4840 DATA ".pk                      |_15_(85) KRALL, Wilhelmina_____________ 23 Mar 1833"
  383. 4850 DATA ".vt 2"
  384. 4860 DATA ".pk Type a Request.  Then press the 'enter' key.: "
  385. 4870 DATA ".pk (Possible Requests:  ps, pc, fg, l1...ln, p1...pn, m1...mn, q)"
  386. 4880 DATA ".in 0"
  387. 4890 DATA ".pa"
  388. 4900 DATA "Instead of asking for a Pedigree Chart,"
  389. 4910 DATA "the user may have asked for a Family"
  390. 4920 DATA "Group (fg), as:"
  391. 4930 DATA ".sp"
  392. 4940 DATA ".pk Type a Request.  Then press the 'enter' key.? fg"
  393. 4950 DATA ".sp"
  394. 4960 DATA "The user would then have seen:"
  395. 4970 DATA ".vt 2"
  396. 4980 DATA ".pk Family Group Record                                         Marriage: 1"
  397. 4990 DATA ".sp"
  398. 5000 DATA ".pk Father: (1) ABLE, Melvin Otto                       Birthdate:  5 Oct 1925"
  399. 5010 DATA ".pk Mother: (2) LOVELY, Helen Lillian                   Birthdate: 13 Jun 1928"
  400. 5020 DATA ".sp"
  401. 5030 DATA ".pk Marriage Date: 16 Jun 1947      Location: Salt Lake City, Utah"
  402. 5040 DATA ".sp"
  403. 5050 DATA ".pk No. S Children:                       Birthdate:  Birth Location:"
  404. 5060 DATA ".sp"
  405. 5070 DATA ".pk   1 M ABLE, Melvin Kent                6 Jan 1949 Salt Lake City, Utah"
  406. 5080 DATA ".pk   2 M ABLE, Ronald Robert             24 Jun 1951 Oklahoma City, Oklahoma"
  407. 5090 DATA ".pk   3 F ABLE, Carolyn Elizabeth         26 Apr 1955 Wichita, Kansas"
  408. 5100 DATA ".pk   4 F ABLE, Linda Ann                 22 Aug 1962 Bellevue, Washington"
  409. 5110 DATA ".sp"
  410. 5120 DATA ".sp"
  411. 5130 DATA ".sp"
  412. 5140 DATA ".sp"
  413. 5150 DATA ".sp"
  414. 5160 DATA ".sp"
  415. 5170 DATA ".sp"
  416. 5180 DATA ".sp"
  417. 5190 DATA ".pk Type a Request.  Then press the 'enter' key.: "
  418. 5200 DATA ".pk (Possible Requests:  ps, f, m, p1...pn, c1...cn, m1...mn, q)"
  419. 5210 DATA ".pa"
  420. 5220 DATA "Instead of asking for a Pedigree Chart,"
  421. 5230 DATA "the user may have asked for Ordinances"
  422. 5240 DATA "for the person (o), as:"
  423. 5250 DATA ".sp"
  424. 5260 DATA ".pk Type a Request.  Then press the 'enter' key.? o"
  425. 5270 DATA ".sp"
  426. 5280 DATA "The user would have seen:"
  427. 5290 DATA ".sp"
  428. 5300 DATA ".in -3"
  429. 5310 DATA ".pk Ordinances of: Melvin Otto ABLE                               Rec.no: 1"
  430. 5320 DATA ".sp"
  431. 5330 DATA ".pk     Personal Record                                   Priesthood Record"
  432. 5340 DATA ".pk Christening:                                      Aaronic:     10 Oct 1937"
  433. 5350 DATA ".pk Blessing:                  1 Nov 1925               Deacon:    10 Oct 1937"
  434. 5360 DATA ".pk Sealed to Parents:                BIC               Teacher:   16 Feb 1941"
  435. 5370 DATA ".pk   Father's Rec.no:        0                         Priest:    18 Oct 1942"
  436. 5380 DATA ".pk     Name:"
  437. 5390 DATA ".pk   Mother's Rec.no:        0                       Melchizedek: 18 Apr 1944"
  438. 5400 DATA ".pk     Name:                                           Elder:     18 Apr 1944"
  439. 5410 DATA ".pk Baptism:                   4 Nov 1933               Seventy:"
  440. 5420 DATA ".pk Confirmation:              5 Nov 1933               High Priest:
  441. 5430 DATA ".pk Patriarchal Blessing:     13 Jun 1939"
  442. 5440 DATA ".pk Endowment:                16 Jun 1947             Bishop:"
  443. 5450 DATA ".pk                           16 Jun 1947             Patriarch:"
  444. 5460 DATA ".pk                                                   Apostle:"
  445. 5470 DATA ".sp
  446. 5480 DATA ".sp"
  447. 5490 DATA ".pk Occupation: Author"
  448. 5500 DATA ".sp"
  449. 5510 DATA ".pk Type a Request.  Then press the 'enter' key.: "
  450. 5520 DATA ".pk (Possible Requests:  ps, pc, fg, o, p1...pn, m1...mn, q)"
  451. 5530 DATA ".in 0"
  452. 5540 DATA ".pa"
  453. 5550 DATA "The user decides to quit, and types:"
  454. 5560 DATA ".sp"
  455. 5570 DATA "  q"
  456. 5580 DATA "    and presses the enter key."
  457. 5590 DATA ".vt 2"
  458. 5600 DATA "He once again sees the menu.  Since he"
  459. 5610 DATA "has decided to quit, he types:"
  460. 5620 DATA ".sp"
  461. 5630 DATA "  0"
  462. 5640 DATA "    and presses the enter key."
  463. 5650 DATA ".vt 2"
  464. 5660 DATA "At the bottom of the screen he sees:"
  465. 5670 DATA ".sp"
  466. 5680 DATA ".pk End of Program"
  467. 5690 DATA ".pk OK"
  468. 5700 DATA ".pk _"
  469. 5710 DATA ".pa"
  470. 5720 DATA ".h2 COMMANDS USED."
  471. 5730 DATA ".h3 basic/s:256"
  472. 5740 DATA ".sp"
  473. 5750 DATA "The basic command is used in order to"
  474. 5760 DATA "load the basic processor from either"
  475. 5770 DATA "the PCjr's BASIC Cartridge, from the"
  476. 5780 DATA "DOS diskette, into storage, and to"
  477. 5790 DATA "establish a buffer size for the data"
  478. 5800 DATA "files."
  479. 5810 DATA ".h3 load (or the F3 function-key)"
  480. 5820 DATA ".sp"
  481. 5830 DATA "The load command is used in order to"
  482. 5840 DATA "load the menu program from the Program"
  483. 5850 DATA "Diskette into storage, prior to saving"
  484. 5860 DATA "it on the Data Diskette."
  485. 5870 DATA ".h3 save (or the F4 function-key)"
  486. 5880 DATA ".sp"
  487. 5890 DATA "The save command is used in order to"
  488. 5900 DATA "save a copy of the 'menu' program on"
  489. 5910 DATA "the Data Diskette."
  490. 5920 DATA ".pa"
  491. 5930 DATA ".h3 run"
  492. 5940 DATA ".sp"
  493. 5950 DATA "The run command is used to cause any"
  494. 5960 DATA "of the Genealogy ON DISPLAY documen-"
  495. 5970 DATA "tation programs to begin."
  496. 5980 DATA ".sp"
  497. 5990 DATA "It is also used to cause the 'menu'"
  498. 6000 DATA "program to be run, and to cause the"
  499. 6010 DATA "menu itself to appear on the screen."
  500. 6020 DATA ".eof"
  501. 6030 END
  502.