home *** CD-ROM | disk | FTP | other *** search
/ PC-Blue - MS DOS Public Domain Library / PC-Blue MS-DOS Public Domain Library - NYACC.iso / vol285 / usingthe.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1987-03-15  |  27.0 KB  |  790 lines
  1. 100  REM USINGTHE Program.
  2. 110  REM Documentation.  Using the Programs.
  3. 120  REM Copyright (c) 1983 - 1987 by: Melvin O. Duke.
  4. 130  DATA Genealogy
  5. 140  DATA User's Manual
  6. 150  DATA -5
  7. 160  DATA 1
  8. 170  INDENT = 0
  9. 180  REM Printer Definitions
  10. 190  FORM.FEED$  = CHR$(12)
  11. 200  COMPR.OFF$  = CHR$(18)     : COMPR.ON$ = CHR$(15)
  12. 210  BOLD.OFF$   = CHR$(27)+"F" : BOLD.ON$ = CHR$(27)+"E"
  13. 220  EXPAND.OFF$ = CHR$(18)     : EXPAND.ON$ = CHR$(14)
  14. 230  DASHES$ = "+"+STRING$(54,45)+"+"
  15. 240  TRIM.LINE$ = "(Trim-line)"
  16. 300  REM Program begins here
  17. 310  READ TITLE$, DOC.NAME$, PAGE.NO, LINE.NO
  18. 320  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  19. 330  GOSUB 920  'For trim line and heading space
  20. 340  FOR I = 1 TO 6 : LPRINT : NEXT I
  21. 350  LPRINT BOLD.ON$;     'Set Emphasized mode
  22. 360  LPRINT EXPAND.ON$;   'Set Expanded Print
  23. 370  LPRINT TAB(TAB.POS-1);TITLE$
  24. 380  LPRINT EXPAND.OFF$;  'Return to normal
  25. 390  LPRINT BOLD.OFF$;    'Return to normal
  26. 400  FOR I = 1 TO 3 : LPRINT : NEXT I
  27. 410  LPRINT BOLD.ON$;     'Set Emphasized mode
  28. 420  LPRINT TAB(TAB.POS+12);"ON DISPLAY"
  29. 430  LPRINT BOLD.OFF$;    'Return to normal
  30. 440  LPRINT : LPRINT : LPRINT
  31. 450  LPRINT TAB(TAB.POS+11);"Version 5.0"
  32. 460  FOR I = 1 TO 11 : LPRINT : NEXT I
  33. 470  LPRINT TAB(TAB.POS+10); DOC.NAME$
  34. 480  LINE.NO = LINE.NO + 27
  35. 490  '
  36. 500  READ REPLY$
  37. 510  REM First, change tildes to quotes
  38. 520  FOR Q = 1 TO LEN(REPLY$)
  39. 530   IF MID$(REPLY$,Q,1)="~"THEN MID$(REPLY$,Q,1)=CHR$(34)
  40. 540  NEXT Q
  41. 550  IF LEFT$(REPLY$,1) = "." THEN GOSUB 1270: GOTO 500
  42. 560  IF LINE.NO > 44 THEN GOSUB 1030
  43. 570  REM Print the line if not a command
  44. 580  LPRINT TAB(TAB.POS);REPLY$
  45. 590  LINE.NO = LINE.NO + 1
  46. 600  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  47. 610  GOTO 500
  48. 620  REM Data for the Copyright Page
  49. 630  DATA ".pa"
  50. 640  DATA " "
  51. 750  DATA ".vt 12"
  52. 760  DATA "Users are encouraged to copy and share"
  53. 770  DATA "the programs with others."
  54. 780  DATA ".vt 5"
  55. 790  DATA "If you are using these programs, you are"
  56. 800  DATA "expected to become a Registered User,"
  57. 810  DATA "by making a contribution to the author"
  58. 815  DATA "of the programs ($45.00 suggested)."
  59. 820  DATA ".sp"
  60. 830  DATA "Melvin O. Duke"
  61. 840  DATA "P. O. Box 20836"
  62. 850  DATA "San Jose, CA  95160"
  63. 860  DATA ".vt 4"
  64. 870  DATA "Copyright (c) 1983 through 1987, by:"
  65. 880  DATA "Melvin O. Duke."
  66. 890  DATA ".sp"
  67. 900  DATA "All rights reserved."
  68. 910  '
  69. 920  REM Top of each page routine
  70. 930  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  71. 940  LPRINT
  72. 950  LPRINT TAB(30); TRIM.LINE$
  73. 960  LPRINT DASHES$ 'Dashes
  74. 970  FOR I = 1 TO 6
  75. 980   LPRINT
  76. 990  NEXT I
  77. 1000  LINE.NO = LINE.NO + 6
  78. 1010  RETURN
  79. 1020  '
  80. 1030  REM Bottom of each page Routine
  81. 1040  IF PAGE.NO < 1 THEN LPRINT : LPRINT : LPRINT : GOTO 1160
  82. 1050  LPRINT TAB(TAB.POS); STRING$(40,45)  'on line 46
  83. 1060  LPRINT TAB(TAB.POS+3); TITLE$+" ON DISPLAY.  Version 5.0" 'on line 47
  84. 1070  IF PAGE.NO MOD 2 = 1 THEN 1110
  85. 1080  LPRINT TAB(TAB.POS);"Page";PAGE.NO;
  86. 1090  LPRINT TAB(TAB.POS+27);"User's Manual"
  87. 1100  GOTO 1160
  88. 1110  LPRINT TAB(TAB.POS); "User's Manual";
  89. 1120  IF PAGE.NO < 10 THEN DELTA = 34
  90. 1130  IF PAGE.NO >  9 THEN DELTA = 33
  91. 1140  IF PAGE.NO > 99 THEN DELTA = 32
  92. 1150  LPRINT TAB(TAB.POS+DELTA); "Page"; PAGE.NO  'on line 48
  93. 1160  LPRINT : LPRINT : LPRINT
  94. 1170  LPRINT DASHES$ 'dashes after 51
  95. 1180  LPRINT TAB(30); TRIM.LINE$
  96. 1190  LPRINT FORM.FEED$;
  97. 1200  PAGE.NO = PAGE.NO + 1
  98. 1210  LINE.NO = 1
  99. 1220  IF REPLY$ = ".eof" THEN 1240  'Bypass after last page
  100. 1230  GOSUB 920  'For top of next page
  101. 1240  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  102. 1250  RETURN
  103. 1260  '
  104. 1270  REM Command Processor
  105. 1280  IF LEFT$(REPLY$,3) = ".h1" THEN 1390
  106. 1290  IF LEFT$(REPLY$,3) = ".h2" THEN 1550
  107. 1300  IF LEFT$(REPLY$,3) = ".h3" THEN 1660
  108. 1310  IF LEFT$(REPLY$,3) = ".sp" THEN 1770
  109. 1320  IF LEFT$(REPLY$,4) = ".eof" THEN 1820
  110. 1330  IF LEFT$(REPLY$,3) = ".pa" THEN 1860
  111. 1340  IF LEFT$(REPLY$,3) = ".pn" THEN PAGE.NO = VAL(RIGHT$(REPLY$,LEN(REPLY$)-3)) : RETURN
  112. 1350  IF LEFT$(REPLY$,3) = ".vt" THEN 1930
  113. 1360  IF LEFT$(REPLY$,3) = ".pk" THEN 2040
  114. 1370  IF LEFT$(REPLY$,3) = ".in" THEN 2170
  115. 1380  STOP
  116. 1390  REM Head 1 Processor
  117. 1400  FOR I = LINE.NO TO 44
  118. 1410   LPRINT
  119. 1420  NEXT I
  120. 1430  GOSUB 1030  'Bottom of page Routine
  121. 1440  IF PAGE.NO MOD 2 = 0 THEN GOSUB 1860  'For h1 on Odd pages
  122. 1450  LPRINT BOLD.ON$;     'Set emphasized print
  123. 1460  LPRINT EXPAND.ON$;   'Set expanded print
  124. 1470  IF PAGE.NO MOD 2 = 0 THEN ADJUST = -2 ELSE ADJUST = -5
  125. 1480  LPRINT TAB(TAB.POS+ADJUST); RIGHT$(REPLY$,LEN(REPLY$)-4)
  126. 1490  LPRINT EXPAND.OFF$;  'Return to normal
  127. 1500  LPRINT BOLD.OFF$;    'Return to non-bold
  128. 1510  LINE.NO = LINE.NO+1
  129. 1520  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  130. 1530  RETURN
  131. 1540  '
  132. 1550  REM Head 2 Processor
  133. 1560  IF LINE.NO = 7 THEN 1580 'skip spacing if at top of page
  134. 1570  IF LINE.NO > 43 THEN GOSUB 1860 ELSE LPRINT:LPRINT:LINE.NO = LINE.NO+2
  135. 1580  LPRINT BOLD.ON$;  'Set emphasized print
  136. 1590  LPRINT TAB(TAB.POS+1); RIGHT$(REPLY$,LEN(REPLY$)-4)
  137. 1600  LPRINT BOLD.OFF$; 'Return to normal
  138. 1610  LPRINT
  139. 1620  LINE.NO = LINE.NO + 2
  140. 1630  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  141. 1640  RETURN
  142. 1650  '
  143. 1660  REM Head 3 Processor
  144. 1670  IF LINE.NO = 7 THEN 1690 'skip spacing if at top of page
  145. 1680  IF LINE.NO > 43 THEN GOSUB 1860 ELSE LPRINT:LPRINT:LINE.NO = LINE.NO+2
  146. 1690  LPRINT BOLD.ON$;  'Set emphasized print
  147. 1700  LPRINT TAB(TAB.POS+1); RIGHT$(REPLY$,LEN(REPLY$)-4)
  148. 1710  LPRINT BOLD.OFF$; 'Return to normal
  149. 1720  LPRINT
  150. 1730  LINE.NO = LINE.NO + 2
  151. 1740  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  152. 1750  RETURN
  153. 1760  '
  154. 1770  REM Single Space Processor
  155. 1780  IF LINE.NO = 7 THEN 1800
  156. 1790  IF LINE.NO > 44 THEN GOSUB 1860 ELSE LPRINT : LINE.NO = LINE.NO + 1
  157. 1800  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  158. 1810  RETURN
  159. 1820  REM End of File Processor
  160. 1830  GOSUB 1860 'Bottom of Page
  161. 1850  GOTO 8930
  162. 1860  REM Page Eject Processor
  163. 1870  FOR I = LINE.NO TO 44
  164. 1880   LPRINT
  165. 1890   LINE.NO = LINE.NO + 1
  166. 1900  NEXT I
  167. 1910  GOSUB 1030  'Bottom of Page Processing
  168. 1920  RETURN
  169. 1930  REM Vertical Tab Processor
  170. 1940  IF LINE.NO = 7 THEN 2030
  171. 1950  IF LINE.NO > 44 THEN GOSUB 1030  'End of page
  172. 1960  QTY = VAL(RIGHT$(REPLY$,LEN(REPLY$)-3))
  173. 1970  FOR I = 1 TO QTY
  174. 1980   LPRINT
  175. 1990   LINE.NO = LINE.NO + 1
  176. 2000   IF LINE.NO > 44 THEN I = QTY
  177. 2010  NEXT I
  178. 2020  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  179. 2030  RETURN
  180. 2040  REM Pack Processor
  181. 2050  IF LINE.NO > 44 THEN GOSUB 1030
  182. 2060  IF TAB.POS = 8 THEN ADJUST = 4
  183. 2070  IF TAB.POS = 13 THEN ADJUST = 7
  184. 2080  TAB.POS = TAB.POS + ADJUST + INDENT
  185. 2090  WIDTH "lpt1:", 132 'set condensed width
  186. 2100  LPRINT COMPR.ON$;  'Packed printing
  187. 2110  LPRINT TAB(TAB.POS); RIGHT$(REPLY$,LEN(REPLY$)-3)
  188. 2120  LPRINT COMPR.OFF$; 'Return to normal
  189. 2130  WIDTH "lpt1:", 80  'return to normal
  190. 2140  LINE.NO = LINE.NO + 1
  191. 2150  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  192. 2160  RETURN
  193. 2170  REM Indent Processor
  194. 2180  INDENT = VAL(RIGHT$(REPLY$,LEN(REPLY$)-3))
  195. 2190  RETURN
  196. 3000  DATA ".h1 USING THE PROGRAMS"
  197. 3010  DATA ".pn 23"
  198. 3020  DATA ".h2 GETTING STARTED"
  199. 3030  DATA "The user should perform the following"
  200. 3040  DATA "steps in starting the Genealogy ON"
  201. 3050  DATA "DISPLAY programs.  (Note: The steps"
  202. 3060  DATA "essentially provide for making BASIC"
  203. 3070  DATA "available, and starting the menu.)"
  204. 3080  DATA ".sp
  205. 3090  DATA "1.  Insert the PC DOS diskette into"
  206. 3100  DATA "    Drive 'a:'."
  207. 3110  DATA ".sp
  208. 3120  DATA "2.  If using the PCjr, insert the"
  209. 3130  DATA "    BASIC Cartridge into either slot."
  210. 3140  DATA ".sp
  211. 3150  DATA "3.  Turn the Printer On."
  212. 3160  DATA ".sp"
  213. 3170  DATA "4.  Turn the System On."
  214. 3180  DATA ".sp"
  215. 3190  DATA "5.  Type today's date if the system"
  216. 3200  DATA "    asks the user to Enter today's date."
  217. 3210  DATA ".sp"
  218. 3220  DATA "6.  Type the correct time if the system"
  219. 3230  DATA "    asks the user to Enter the time."
  220. 3240  DATA ".sp"
  221. 3250  DATA "7.  Type: basic/s:256"
  222. 3260  DATA "          and press the enter key."
  223. 3270  DATA ".sp"
  224. 3280  DATA "Note:  The /s:256 is essential, in order"
  225. 3290  DATA "to use files whose records are as long"
  226. 3300  DATA "as those of Genealogy ON DISPLAY."
  227. 3310  DATA ".pa"
  228. 3320  DATA "Without the /s:256 the MENU program"
  229. 3330  DATA "gives an error message when it tries"
  230. 3340  DATA "to use the verifile (which has one"
  231. 3350  DATA "record which is 256 characters long)."
  232. 3360  DATA "The program is terminated, and it is"
  233. 3370  DATA "necessary to go back to DOS and to"
  234. 3380  DATA "bring up BASIC with /s:256."
  235. 3390  DATA ".sp"
  236. 3400  DATA "8.  Replace the DOS Diskette with the"
  237. 3410  DATA "    Genealogy ON DISPLAY diskette in"
  238. 3420  DATA "    Drive 'a:'."
  239. 3430  DATA ".sp"
  240. 3440  DATA "9.  Type: run ~menu~"
  241. 3450  DATA "           and press the enter key."
  242. 3460  DATA ".sp"
  243. 3470  DATA "10.  Follow any instructions which"
  244. 3480  DATA "     appear at the bottom of each"
  245. 3490  DATA "     screen."
  246. 3500  DATA ".pa"
  247. 3510  DATA ".h2 FIRST TIME USAGE"
  248. 3520  DATA ".h3 Backing up the Diskettes"
  249. 3530  DATA "Good procedures indicate that upon"
  250. 3540  DATA "receipt of any program or programs, it"
  251. 3550  DATA "is highly desirable for you to make"
  252. 3560  DATA "back-up copies for your own protection."
  253. 3570  DATA "Such is surely the case with the"
  254. 3580  DATA "Genealogy ON DISPLAY programs."
  255. 3590  DATA ".sp"
  256. 3600  DATA "Once you have entered genealogical data"
  257. 3610  DATA "into your Data Diskette (see below),"
  258. 3620  DATA "you will also want to back up that data"
  259. 3630  DATA "from time to time."
  260. 3640  DATA ".h3 Preparing a New Data Diskette"
  261. 3650  DATA "Begin with a formatted diskette,"
  262. 3660  DATA "which was formatted without including"
  263. 3670  DATA "DOS (no /s).
  264. 3680  DATA ".sp"
  265. 3690  DATA "If you do not have one available,"
  266. 3700  DATA "it will be necessary to format one."
  267. 3710  DATA "Refer to FORMAT Command in the DOS"
  268. 3720  DATA "Manual."
  269. 3730  DATA ".pa"
  270. 3740  DATA ".h3 Copying the Verifile Data File"
  271. 3750  DATA "The verifile must be copied to the data"
  272. 3760  DATA "diskette, so that it will be available"
  273. 3770  DATA "for verifying the /s:256 parameter when-"
  274. 3780  DATA "ever the Genealogy Programs are used."
  275. 3790  DATA ".sp"
  276. 3800  DATA "Copy the verifile to the Data Diskette"
  277. 3810  DATA "with the following:"
  278. 3820  DATA ".sp"
  279. 3830  DATA "1.  Bring up DOS (but not BASIC)."
  280. 3840  DATA ".sp"
  281. 3850  DATA "2.  Insert the Program Diskette in"
  282. 3860  DATA "      Drive 'a:' (and the Data Diskette"
  283. 3870  DATA "      in drive 'b:' if you have one)."
  284. 3880  DATA ".sp"
  285. 3890  DATA "3.  Type:  copy a:verifile b:"
  286. 3900  DATA "      and press the enter key."
  287. 3910  DATA ".sp"
  288. 3920  DATA "4.  On a one-drive system, replace the"
  289. 3930  DATA "      Program Diskette with the Data"
  290. 3940  DATA "      Diskette when asked to do so,"
  291. 3950  DATA "      and press the enter key."
  292. 3960  DATA ".pa"
  293. 3970  DATA ".h3 Copying the Menu Program"
  294. 3980  DATA "The Menu program must be copied to the"
  295. 3990  DATA "data diskette, so that it will be"
  296. 4000  DATA "available whenever any of the individual"
  297. 4010  DATA "programs are completed."
  298. 4020  DATA ".sp"
  299. 4030  DATA "Copy the Menu Program to the Data"
  300. 4040  DATA "diskette with the following:"
  301. 4050  DATA ".sp"
  302. 4060  DATA "1.  Bring up DOS and BASIC in the"
  303. 4070  DATA "    normal manner."
  304. 4080  DATA ".sp"
  305. 4090  DATA "2.  Insert the Program Diskette in"
  306. 4100  DATA "      Drive 'a:'."
  307. 4110  DATA ".sp"
  308. 4120  DATA "3.  Type:  load ~menu~"
  309. 4130  DATA "      and press the enter key."
  310. 4140  DATA ".sp"
  311. 4150  DATA "4.  Replace the Program Diskette with"
  312. 4160  DATA "      the Data Diskette (which was newly"
  313. 4170  DATA "      formatted) in Drive 'a:'."
  314. 4180  DATA ".sp"
  315. 4190  DATA "5.  Type:  save ~menu~"
  316. 4200  DATA "      and press the enter key."
  317. 4210  DATA ".pa"
  318. 4220  DATA ".h3 Formatting the Data Files"
  319. 4230  DATA "Assuming that the menu program has just"
  320. 4240  DATA "been saved from the previous step (if it"
  321. 4250  DATA "has not, bring up DOS and BASIC, have the"
  322. 4260  DATA "Program Diskette in place, and type:"
  323. 4270  DATA "load ~menu~ and press the enter key."
  324. 4280  DATA "Then,) type:"
  325. 4290  DATA ".sp"
  326. 4300  DATA "  run"
  327. 4310  DATA "    and press the enter key."
  328. 4320  DATA ".sp"
  329. 4330  DATA "Follow any directions which appear at"
  330. 4340  DATA "the bottom of the screen, which will show"
  331. 4350  DATA "you which diskette to have in place in"
  332. 4360  DATA "Drive 'a:'."
  333. 4370  DATA ".sp"
  334. 4380  DATA "When the menu is displayed, select the"
  335. 4390  DATA "'creatper' program by typing:"
  336. 4400  DATA ".sp"
  337. 4410  DATA "  1"
  338. 4420  DATA "    and press the enter key."
  339. 4430  DATA ".sp"
  340. 4440  DATA "This will cause the formatting of a"
  341. 4450  DATA "Persons File, which will contain 500"
  342. 4460  DATA "records, into which you will shortly be"
  343. 4470  DATA "entering data about the persons on your"
  344. 4480  DATA "list."
  345. 4490  DATA ".sp"
  346. 4500  DATA "Next, select the 'creatmar' program, by"
  347. 4510  DATA "typing:"
  348. 4520  DATA ".sp"
  349. 4530  DATA "  2"
  350. 4540  DATA "    and press the enter key."
  351. 4550  DATA ".pa"
  352. 4560  DATA "This will cause the formatting of a"
  353. 4570  DATA "Marriages File, which will contain 200"
  354. 4580  DATA "records, into which you will shortly"
  355. 4590  DATA "be entering data about the marriages"
  356. 4600  DATA "on your list."
  357. 4610  DATA ".sp"
  358. 4620  DATA "Finally, select the 'creatord' program,"
  359. 4630  DATA "by typing:"
  360. 4640  DATA ".sp"
  361. 4650  DATA "  3"
  362. 4660  DATA "    and press the enter key."
  363. 4670  DATA ".sp"
  364. 4680  DATA "This will cause the formatting of the"
  365. 4690  DATA "Ordinances File, which will contain"
  366. 4700  DATA "500 records, into which you will"
  367. 4710  DATA "shortly be entering data about ordi-"
  368. 4720  DATA "nances for the people on your list."
  369. 4730  DATA ".h3 Caution
  370. 4740  DATA "A word of extreme caution:  Once you"
  371. 4750  DATA "have run the 'creatper' program, the"
  372. 4760  DATA "'creatmar' program, and the 'creatord'"
  373. 4770  DATA "programs, you do NOT, repeat NOT, want"
  374. 4780  DATA "to run them again (at least not"
  375. 4790  DATA "against the same files)."
  376. 4800  DATA ".sp"
  377. 4810  DATA "To do so would mean that you would"
  378. 4820  DATA "wipe-out any previous data that was in"
  379. 4830  DATA "the files at the time that you ran the"
  380. 4840  DATA "programs again."
  381. 4850  DATA ".pa"
  382. 4860  DATA ".h2 HOW TO OPERATE."
  383. 4870  DATA ".h3 Selecting an individual program.
  384. 4880  DATA "Individual programs, which perform"
  385. 4890  DATA "individual functions, are selected by"
  386. 4900  DATA "the user through the use of a menu."
  387. 4910  DATA ".sp"
  388. 4920  DATA "Begin by bringing up DOS and BASIC in"
  389. 4930  DATA "a normal manner.  Have the Program"
  390. 4940  DATA "Diskette in place.  Then type:"
  391. 4950  DATA ".sp"
  392. 4960  DATA "  run ~menu~"
  393. 4970  DATA "    and press the enter key."
  394. 4980  DATA ".sp"
  395. 4990  DATA "Following a logo on the screen, there"
  396. 5000  DATA "will appear a menu, which numbers the"
  397. 5010  DATA "individual programs, identifies their"
  398. 5020  DATA "names, and describes their functions."
  399. 5030  DATA ".sp"
  400. 5040  DATA "A user selects the individual program"
  401. 5050  DATA "which he desires by typing a number,"
  402. 5060  DATA "and then he presses the enter key.  The"
  403. 5070  DATA "program which he selected is then loaded"
  404. 5080  DATA "and run."
  405. 5090  DATA ".pa"
  406. 5100  DATA ".h3 Operating the updatper program."
  407. 5110  DATA "After selecting the updatper program,"
  408. 5120  DATA "the user should make sure that the data"
  409. 5130  DATA "diskette is in Drive 'a:'.  He should"
  410. 5140  DATA "then press any key to continue."
  411. 5150  DATA ".sp"
  412. 5160  DATA "After the logo is displayed, the user"
  413. 5170  DATA "is asked which record he wants to up-"
  414. 5180  DATA "date.  He should respond with a valid"
  415. 5190  DATA "number in the range of 1 to 500."
  416. 5200  DATA ".sp"
  417. 5210  DATA "(Note:  If you just want to find an"
  418. 5220  DATA "unused record, you may type a question-"
  419. 5230  DATA "mark.  A search will be made from the"
  420. 5240  DATA "the beginning of the file, or from the"
  421. 5250  DATA "last record which you referenced, until"
  422. 5260  DATA "an unused record is found, or the top"
  423. 5270  DATA "of the file is reached.)"
  424. 5280  DATA ".sp"
  425. 5290  DATA "The current content of the record is"
  426. 5300  DATA "shown.  If the record has never been"
  427. 5310  DATA "used, the record-number shown will be"
  428. 5320  DATA "negative.  As long as this number is"
  429. 5330  DATA "negative, it will be bypassed for any"
  430. 5340  DATA "further processing.  The user should"
  431. 5350  DATA "enter the record-number."
  432. 5360  DATA ".sp"
  433. 5370  DATA "The user is prompted for input.  He may"
  434. 5380  DATA "bypass any field by pressing the enter"
  435. 5390  DATA "key.  He may also bypass all remaining"
  436. 5400  DATA "fields by typing / and then pressing"
  437. 5410  DATA "the enter key."
  438. 5420  DATA ".sp"
  439. 5430  DATA "Note:  Dates should be entered as:"
  440. 5440  DATA "dd Mmm yyyy, such as: 16 Jan 1943."
  441. 5450  DATA ".pa"
  442. 5460  DATA "When finished with his updating, he is"
  443. 5470  DATA "asked to indicate what he wants to do"
  444. 5480  DATA "with the record.  He may either 'save'"
  445. 5490  DATA "it, he may 'forget' it, or he may make"
  446. 5500  DATA "'more' changes to the record.  As soon"
  447. 5510  DATA "as he says 'save', the record is saved"
  448. 5520  DATA "and he is once more prompted about the"
  449. 5530  DATA "next record to update."
  450. 5540  DATA ".sp"
  451. 5550  DATA "When he is through, he should indicate"
  452. 5560  DATA "that he wants to update record 0."
  453. 5570  DATA ".pa"
  454. 5580  DATA ".h3 Operating the updatmar program."
  455. 5590  DATA "After selecting the updatmar program,"
  456. 5600  DATA "the user should make sure that the"
  457. 5610  DATA "data diskette is in Drive 'a:'.  He"
  458. 5620  DATA "should then press any key to continue."
  459. 5630  DATA ".sp"
  460. 5640  DATA "After the logo is displayed, the user"
  461. 5650  DATA "is asked which record he wants to up-"
  462. 5660  DATA "date.  He should respond with a valid"
  463. 5670  DATA "number in the range of 1 to 200."
  464. 5680  DATA ".sp"
  465. 5690  DATA "(Note:  If you just want to find an"
  466. 5700  DATA "unused record, you may type a question-"
  467. 5710  DATA "mark.  A search will be made from the"
  468. 5720  DATA "the beginning of the file, or from the"
  469. 5730  DATA "last record which you referenced, until"
  470. 5740  DATA "an unused record is found, or the top"
  471. 5750  DATA "of the file is reached.)"
  472. 5760  DATA ".sp"
  473. 5770  DATA "The current content of the record is"
  474. 5780  DATA "shown.  If the record has never been"
  475. 5790  DATA "used, the record-number shown will be"
  476. 5800  DATA "negative.  As long as this number is"
  477. 5810  DATA "negative, it will be bypassed for any"
  478. 5820  DATA "further processing.  The user should"
  479. 5830  DATA "enter the record-number."
  480. 5840  DATA ".sp"
  481. 5850  DATA "The user is prompted for input.  He may"
  482. 5860  DATA "bypass any field by pressing the enter"
  483. 5870  DATA "key.  He may also bypass all remaining"
  484. 5880  DATA "fields by typing / and then pressing"
  485. 5890  DATA "the enter key."
  486. 5900  DATA ".pa"
  487. 5910  DATA "When finished with his updating, he is"
  488. 5920  DATA "asked to indicate what he wants to do"
  489. 5930  DATA "with the record.  He may either 'save'"
  490. 5940  DATA "it, he may 'forget' it, or he may make"
  491. 5950  DATA "'more' changes to the record.  As soon"
  492. 5960  DATA "as he says 'save', the record is saved"
  493. 5970  DATA "and he is once more prompted about the"
  494. 5980  DATA "next record to update."
  495. 5990  DATA ".sp"
  496. 6000  DATA "When he is through, he should indicate"
  497. 6010  DATA "that he wants to update record 0."
  498. 6020  DATA ".pa"
  499. 6030  DATA ".h2 Operating the updatord program."
  500. 6040  DATA "After selecting the updatord program,"
  501. 6050  DATA "the user should make sure that the data"
  502. 6060  DATA "diskette is in Drive 'a:'.  He should"
  503. 6070  DATA "then press any key to continue."
  504. 6080  DATA ".sp"
  505. 6090  DATA "After the logo is displayed, the user"
  506. 6100  DATA "is asked which record he wants to up-"
  507. 6110  DATA "date.  He should respond with a valid"
  508. 6120  DATA "number in the range of 1 to 500."
  509. 6130  DATA ".sp"
  510. 6140  DATA "(Note:  You cannot search for an unused"
  511. 6150  DATA "ordinances record, since it is always"
  512. 6160  DATA "associated with a person's record.)"
  513. 6170  DATA ".sp"
  514. 6180  DATA "The user is prompted for input.  He may"
  515. 6190  DATA "bypass any field by pressing the enter"
  516. 6200  DATA "key.  He may also bypass all remaining"
  517. 6210  DATA "fields by typing / and then pressing"
  518. 6220  DATA "the enter key."
  519. 6230  DATA ".sp"
  520. 6240  DATA "Dates should be entered as: dd Mmm yyyy,"
  521. 6250  DATA "such as:  22 Aug 1922."
  522. 6260  DATA ".sp"
  523. 6270  DATA "When finished with his updating, he is"
  524. 6280  DATA "asked to indicate what he wants to do"
  525. 6290  DATA "with the record.  He may either 'save'"
  526. 6300  DATA "it, he may 'forget' it, or he may make"
  527. 6310  DATA "'more' changes to the record.  As soon"
  528. 6320  DATA "as he says 'save', the record is saved"
  529. 6330  DATA "and he is once more prompted about the"
  530. 6340  DATA "next record to update."
  531. 6350  DATA ".sp"
  532. 6360  DATA "When he is through, he should indicate"
  533. 6370  DATA "that he wants to update record 0."
  534. 6380  DATA ".pa"
  535. 6390  DATA ".h3 Operating the indexpc program."
  536. 6400  DATA "The 'indexpc' program is fundamental to"
  537. 6410  DATA "the preparation of a parent/child index,"
  538. 6420  DATA "which associates parents with their"
  539. 6430  DATA "children."
  540. 6440  DATA ".sp"
  541. 6450  DATA "It should be run after any additions"
  542. 6460  DATA "of persons to the Persons File, when-"
  543. 6470  DATA "ever birthdates are added or changed,"
  544. 6480  DATA "or when identification of parents have"
  545. 6490  DATA "been added or changed."
  546. 6500  DATA ".sp"
  547. 6510  DATA "Select the 'indexpc' program, and make"
  548. 6520  DATA "sure that the data diskette is in"
  549. 6530  DATA "Drive 'a:'.  Then press any key to"
  550. 6540  DATA "continue."
  551. 6550  DATA ".sp"
  552. 6560  DATA "A file named 'pcindex' will be created"
  553. 6570  DATA "on the data diskette on Drive 'a:'."
  554. 6580  DATA ".pa"
  555. 6590  DATA ".h3 Operating the indexmar program."
  556. 6600  DATA "The 'indexmar' program is fundamental"
  557. 6610  DATA "to the preparation of a marriages index,"
  558. 6620  DATA "which associates spouses with each"
  559. 6630  DATA "other."
  560. 6640  DATA ".sp"
  561. 6650  DATA "It should be run after marriages are"
  562. 6660  DATA "added to the Marriages File, whenever"
  563. 6670  DATA "marriage-dates are added or changed,"
  564. 6680  DATA "or whenever changes are made which re-"
  565. 6690  DATA "identify spouses."
  566. 6700  DATA ".sp"
  567. 6710  DATA "Select the 'indexmar' program, and make"
  568. 6720  DATA "sure that the data diskette is in"
  569. 6730  DATA "Drive 'a:'.  Then press any key to"
  570. 6740  DATA "continue."
  571. 6750  DATA ".sp"
  572. 6760  DATA "A data file named 'mindex' will be"
  573. 6770  DATA "created on the data diskette in Drive"
  574. 6780  DATA "'a:'."
  575. 6790  DATA ".pa"
  576. 6800  DATA ".h3 Operating the display program."
  577. 6810  DATA "Before running the display program,"
  578. 6820  DATA "the user should know that any changes"
  579. 6830  DATA "that he has made to the data files may"
  580. 6840  DATA "have made his indexes out-of-date."
  581. 6850  DATA "This will have happened if the user"
  582. 6860  DATA "has entered a new person, a new"
  583. 6870  DATA "marriage, a new relationship (such as"
  584. 6880  DATA "a reference to a parent), a new"
  585. 6890  DATA "birth-date, a new marriage-date, or"
  586. 6900  DATA "a new Name."
  587. 6910  DATA ".sp"
  588. 6920  DATA "The indexes are still correct if the"
  589. 6930  DATA "user has entered new death-dates,"
  590. 6940  DATA "burial-dates, or any information about"
  591. 6950  DATA "locations (cities, counties, states)"
  592. 6960  DATA "of births, deaths, ordinances, etc."
  593. 6970  DATA ".sp"
  594. 6980  DATA "If the indexes are out-of-date, the"
  595. 6990  DATA "user should update them before running"
  596. 7000  DATA "the 'display' program, by running the"
  597. 7010  DATA "'indexper' and 'indexmar' programs."
  598. 7020  DATA ".sp"
  599. 7030  DATA "After selecting the 'display' program,"
  600. 7040  DATA "the user should make sure that the Data"
  601. 7050  DATA "Diskette is in Drive 'a:'.  He should"
  602. 7060  DATA "then press any key to continue."
  603. 7070  DATA ".sp"
  604. 7080  DATA "After the logo is displayed, the user"
  605. 7090  DATA "is asked for the record-number of the"
  606. 7100  DATA "person that he wants to locate.  He"
  607. 7110  DATA "should enter a number which he knows to"
  608. 7120  DATA "be valid."
  609. 7130  DATA ".pa"
  610. 7140  DATA "The personal information about that"
  611. 7150  DATA "person will then be shown on the display."
  612. 7160  DATA ".sp"
  613. 7170  DATA "The user may then enter 'ps' (print"
  614. 7180  DATA "the screen), he may enter 'pc' (for a"
  615. 7190  DATA "pedigree chart), he may enter 'fg' (for"
  616. 7200  DATA "a family group), he may enter 'o' (for"
  617. 7210  DATA "ordinance information), he may enter 'p'"
  618. 7220  DATA "followed by a valid number (requesting"
  619. 7230  DATA "information about a person), he may enter"
  620. 7240  DATA "'m' followed by a valid number (requesting"
  621. 7250  DATA "information about a marriage), or he may"
  622. 7260  DATA "enter 'q' (asking to quit)."
  623. 7270  DATA ".sp"
  624. 7280  DATA "When the pedigree information appears,"
  625. 7290  DATA "the user may then enter 'ps' (print the"
  626. 7300  DATA "screen, he may enter 'fg' (requesting"
  627. 7310  DATA "a family group), he may enter 'pc'"
  628. 7320  DATA "(asking that the pedigree chart be"
  629. 7330  DATA "re-drawn), he may enter 'l' followed by"
  630. 7340  DATA "a valid number (requesting personal"
  631. 7350  DATA "information about a person on the stated"
  632. 7360  DATA "line), he may enter 'm' followed by a"
  633. 7370  DATA "valid number (requesting information"
  634. 7380  DATA "about a marriage), or he may enter 'q'"
  635. 7390  DATA "(asking to quit)."
  636. 7400  DATA ".pa"
  637. 7410  DATA "When the family group information appears,"
  638. 7420  DATA "the user may enter 'ps' (print the"
  639. 7430  DATA "screen), he may enter 'f' (asking for the"
  640. 7440  DATA "father), he may enter 'm' (asking for the"
  641. 7450  DATA "mother), he may enter 'p' followed by a"
  642. 7460  DATA "valid number (asking for about a person),"
  643. 7470  DATA "he may enter 'c' followed by a valid"
  644. 7480  DATA "number (asking for information about a"
  645. 7490  DATA "child), he may enter 'm' followed by a"
  646. 7500  DATA "valid number (requesting information"
  647. 7510  DATA "about a marriage, or he may enter 'q'"
  648. 7520  DATA "(asking to quit)."
  649. 7530  DATA ".sp"
  650. 7540  DATA "When the ordinance information appears,"
  651. 7550  DATA "The user may then enter 'ps' (print"
  652. 7560  DATA "the screen), he may enter 'pc' (for a"
  653. 7570  DATA "pedigree chart), he may enter 'fg' (for"
  654. 7580  DATA "a family group), he may enter 'o' (for"
  655. 7590  DATA "ordinance information), he may enter 'p'"
  656. 7600  DATA "followed by a valid number (requesting"
  657. 7610  DATA "information about a person), he may enter"
  658. 7620  DATA "'m' followed by a valid number (request-"
  659. 7630  DATA "ing information about a marriage), or he"
  660. 7640  DATA "may enter 'q' (asking to quit)."
  661. 7650  DATA ".pa"
  662. 7660  DATA ".h2 Operating the Pedigree Program"
  663. 7670  DATA "After selecting the 'pedigree' program,"
  664. 7680  DATA "the user should make sure that the"
  665. 7690  DATA "data diskette is in Drive 'a:'.  He"
  666. 7700  DATA "should then press any key to continue."
  667. 7710  DATA ".sp"
  668. 7720  DATA "He should then follow any instructions"
  669. 7730  DATA "which appear at the bottom of the screen,"
  670. 7740  DATA "specifying the person-number of the"
  671. 7750  DATA "person whose Pedigree Chart is desired."
  672. 7760  DATA "(Note:  If the record selected is empty,"
  673. 7770  DATA "a blank pedigree chart will be printed.)"
  674. 7780  DATA ".sp"
  675. 7790  DATA "Note:  The pedigree program was designed"
  676. 7800  DATA "to use a form which is Copyrighted, 1966,"
  677. 7810  DATA "The Genealogical Society of the Church"
  678. 7820  DATA "of Jesus Christ of Latter Day Saints,"
  679. 7830  DATA "Inc., Stock #GA-054"
  680. 7840  DATA ".sp"
  681. 7850  DATA "If such a form is not available, the"
  682. 7860  DATA "pedigree chart can be printed on any"
  683. 7870  DATA "available printer paper."
  684. 7880  DATA ".pa"
  685. 7890  DATA ".h2 Operating the Family Program"
  686. 7900  DATA "After selecting the 'family' program,"
  687. 7910  DATA "the user should make sure that the"
  688. 7920  DATA "data diskette is in Drive 'a:'.  He"
  689. 7930  DATA "should then press any key to continue."
  690. 7940  DATA ".sp"
  691. 7950  DATA "He should then follow any instructions"
  692. 7960  DATA "which appear at the bottom of the screen,"
  693. 7970  DATA "specifying the marriage-number of the"
  694. 7980  DATA "marriage whose Family Group Sheet is"
  695. 7990  DATA "desired.  (Note:  If the record selected"
  696. 8000  DATA "is empty, a blank Family Group Sheet will"
  697. 8010  DATA "be printed.)"
  698. 8020  DATA ".sp"
  699. 8030  DATA "Note:  The family program was designed"
  700. 8040  DATA "to use a Family Group Record form, which"
  701. 8050  DATA "was copyrighted 1972 by the Genealogical"
  702. 8060  DATA "Society of the Church of Jesus Christ of"
  703. 8070  DATA "Latter Day Saints, Inc., Stock #GA-032."
  704. 8080  DATA ".sp"
  705. 8090  DATA "If such a form is not available, the"
  706. 8100  DATA "family group can be printed on any"
  707. 8110  DATA "available printer paper."
  708. 8120  DATA ".pa"
  709. 8130  DATA ".h3 Operating the Descend Program"
  710. 8140  DATA "After selecting the 'descend' program,"
  711. 8150  DATA "the user should make sure that the"
  712. 8160  DATA "data diskette is in Drive 'a:'.  He"
  713. 8170  DATA "should then press any key to continue."
  714. 8180  DATA ".sp"
  715. 8190  DATA "He should then follow any instructions"
  716. 8200  DATA "which appear at the bottom of the screen,"
  717. 8210  DATA "specifying the person-number of the"
  718. 8220  DATA "person whose Descendents Chart is"
  719. 8230  DATA "desired."
  720. 8240  DATA ".h3 Operating the other programs."
  721. 8250  DATA "After selecting one of the other pro-"
  722. 8260  DATA "grams, the user should make sure that"
  723. 8270  DATA "the data diskette is in Drive 'a:'.  He"
  724. 8280  DATA "should then press any key to continue."
  725. 8290  DATA ".sp"
  726. 8300  DATA "Note:  See the Table of Contents for the"
  727. 8310  DATA "names of the other programs."
  728. 8320  DATA ".sp"
  729. 8330  DATA "After the logo is displayed, the user"
  730. 8340  DATA "observes the information that is being"
  731. 8350  DATA "shown on the display screen, and waits"
  732. 8360  DATA "for the program to complete."
  733. 8370  DATA ".pa"
  734. 8380  DATA ".h2 HOW TO STOP."
  735. 8390  DATA "The user may stop at any time, by"
  736. 8400  DATA "pressing (and holding down) the Function"
  737. 8410  DATA "(FN) key, and then pressing the Break"
  738. 8420  DATA "(B) key on the PCjr."
  739. 8430  DATA ".sp"
  740. 8440  DATA "The user may stop at any time, by"
  741. 8450  DATA "pressing (and holding down) the control"
  742. 8460  DATA "(Ctrl) key, and then pressing the Break"
  743. 8470  DATA "key on the PC, PPC, or PC/XT."
  744. 8480  DATA ".sp"
  745. 8490  DATA ".h3 Stopping the Update Programs."
  746. 8500  DATA "The user may stop one of the update"
  747. 8510  DATA "programs (updatper, updatmar, or"
  748. 8520  DATA "updatord) by requesting an update of"
  749. 8530  DATA "record 0."
  750. 8540  DATA ".h3 Stopping the Display Program."
  751. 8550  DATA "The user may stop the display program"
  752. 8560  DATA "by typing 'q' or 'quit' when he is asked"
  753. 8570  DATA "for his next action, or he may type"
  754. 8580  DATA "'p0', to request person-number 0."
  755. 8590  DATA ".h3 Stopping the Pedigree Program."
  756. 8600  DATA "The user may stop the pedigree program"
  757. 8610  DATA "by asking for a printout of the pedigree"
  758. 8620  DATA "for person-number 0."
  759. 8630  DATA ".pa"
  760. 8640  DATA ".h3 Stopping the Family Program."
  761. 8650  DATA "The user may stop the family program"
  762. 8660  DATA "by asking for a printout of the family"
  763. 8670  DATA "whose marriage-number is 0."
  764. 8680  DATA ".h3 Stopping the Descend Program."
  765. 8690  DATA "The user may stop the descend program"
  766. 8700  DATA "by asking for the display or printout"
  767. 8710  DATA "of the person whose person-number is 0."
  768. 8720  DATA ".h3 Stopping the Other Programs."
  769. 8730  DATA "The other programs may only be stopped"
  770. 8740  DATA "with the 'function-break' or the"
  771. 8750  DATA "'control-break' sequence, as indicated"
  772. 8760  DATA "above.  However, the user is cautioned"
  773. 8770  DATA "that if he does this while writing new"
  774. 8780  DATA "indexes to the diskette (during the"
  775. 8790  DATA "running of the 'indexpc' or 'indexmar'"
  776. 8800  DATA "programs), the index that is currently"
  777. 8810  DATA "being written may be destroyed, and"
  778. 8820  DATA "will have to be re-built before the"
  779. 8830  DATA "'display', 'pedigree', 'family', and"
  780. 8840  DATA "'alphamar' programs are run."
  781. 8850  DATA ".sp"
  782. 8860  DATA "The damaged index can be re-built by"
  783. 8870  DATA "re-running the 'indexpc' or 'indexmar'"
  784. 8880  DATA "program which was stopped with the"
  785. 8890  DATA "'function-break' or 'control-break'"
  786. 8900  DATA "sequence."
  787. 8910  DATA ".pa"
  788. 8920  DATA ".eof"
  789. 8930  END
  790.