home *** CD-ROM | disk | FTP | other *** search
/ PC-Blue - MS DOS Public Domain Library / PC-Blue MS-DOS Public Domain Library - NYACC.iso / vol285 / appendix.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1987-03-15  |  26.6 KB  |  771 lines
  1. 100  REM APPENDIX Program.
  2. 110  REM Documentation.  Appendices.
  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 8740
  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  REM APPENDIX
  197. 3010  DATA ".h1 A.  MESSAGES"
  198. 3020  DATA ".pn 59"
  199. 3030  DATA ".h2 START-UP MESSAGES"
  200. 3040  DATA "The initial System Message, when the"
  201. 3050  DATA "system is turned on, is:"
  202. 3060  DATA ".sp"
  203. 3070  DATA ".pk Current date is Tue 1-01-1980"
  204. 3080  DATA ".pk Enter new date:"
  205. 3090  DATA ".sp"
  206. 3100  DATA "The user is expected to respond with an"
  207. 3110  DATA "appropriate date."
  208. 3120  DATA ".sp"
  209. 3130  DATA "The next system message is:"
  210. 3140  DATA ".sp"
  211. 3150  DATA ".pk Current time is 0:00:52.17"
  212. 3160  DATA ".pk Enter new time:"
  213. 3170  DATA ".sp"
  214. 3180  DATA "The user is expected to respond with a"
  215. 3190  DATA "correct time."
  216. 3200  DATA ".sp"
  217. 3210  DATA "The System then responds:"
  218. 3220  DATA ".sp"
  219. 3230  DATA ".pk The IBM Personal Computer DOS"
  220. 3240  DATA ".pk Version 2.10 (C) Copyright IBM Corp 1981, 1982, 1983"
  221. 3250  DATA ".sp"
  222. 3260  DATA "When Starting BASIC, the message"
  223. 3270  DATA "in response to"
  224. 3280  DATA ".sp"
  225. 3290  DATA ".pk basic/s:256"
  226. 3300  DATA ".sp"
  227. 3310  DATA "is similar to:"
  228. 3320  DATA ".sp"
  229. 3330  DATA ".pk IBM Personal Computer Basic"
  230. 3340  DATA ".pk Version D2.00 Copyright IBM Corp. 1981, 1982, 1983"
  231. 3350  DATA ".pk 61118 Bytes Free"
  232. 3360  DATA ".h1 B.  Summary"
  233. 3370  DATA ".h2 General Programs"
  234. 3380  DATA ".pk Function Performed                     Filename"
  235. 3390  DATA ".pk -----------------------------------    --------"
  236. 3400  DATA ".pk Initial File Formatting"
  237. 3410  DATA ".pk   Persons File                         creatper"
  238. 3420  DATA ".pk   Marriages File                       creatmar"
  239. 3430  DATA ".pk   Ordinances File                      creatord"
  240. 3440  DATA ".sp"
  241. 3450  DATA ".pk Entry of Data"
  242. 3460  DATA ".pk   Persons File                         updatper"
  243. 3470  DATA ".pk   Marriages File                       updatmar"
  244. 3480  DATA ".pk   Ordinances File                      updatord"
  245. 3490  DATA ".sp"
  246. 3500  DATA ".pk Print Detailed Information"
  247. 3510  DATA ".pk   Detailed Personal Information        printper"
  248. 3520  DATA ".pk   Detailed Marriage Information        printmar"
  249. 3530  DATA ".sp"
  250. 3540  DATA ".pk List the Records in the Files"
  251. 3550  DATA ".pk   Persons File                         listper"
  252. 3560  DATA ".pk   Marriages File                       listmar"
  253. 3570  DATA ".sp"
  254. 3580  DATA ".pk List the File Index"
  255. 3590  DATA ".pk   Parent/Child Index                   listpci"
  256. 3600  DATA ".sp"
  257. 3610  DATA ".pk Print Alphabetic Lists"
  258. 3620  DATA ".pk   List of Persons                      alphaper"
  259. 3630  DATA ".pk   Persons in Marriages                 alphamar"
  260. 3640  DATA ".sp"
  261. 3650  DATA ".pk Prepare an Index"
  262. 3660  DATA ".pk   Parent/Child Index                   indexpc"
  263. 3670  DATA ".pk   Marriages Index                      indexmar"
  264. 3680  DATA ".pa"
  265. 3690  DATA ".h2 General Programs, Cont."
  266. 3700  DATA ".pk Function Performed                     Filename"
  267. 3710  DATA ".pk -----------------------------------    --------"
  268. 3720  DATA ".pk Display the Information                display"
  269. 3730  DATA ".pk   Personal Information"
  270. 3740  DATA ".pk   Pedigree Information"
  271. 3750  DATA ".pk   Family Group Information"
  272. 3760  DATA ".pk   Ordinances Information"
  273. 3770  DATA ".sp"
  274. 3780  DATA ".pk Print the Genealogical Forms"
  275. 3790  DATA ".pk   Print Pedigree Charts                pedigree"
  276. 3800  DATA ".pk   Print Family Group Sheets            family"
  277. 3810  DATA ".sp"
  278. 3820  DATA ".pk Produce Descendents Charts             descend"
  279. 3830  DATA ".pk   Display on the Screen"
  280. 3840  DATA ".pk   Print the Charts"
  281. 3850  DATA ".sp"
  282. 3860  DATA ".pk Display a Menu"
  283. 3870  DATA ".pk   Displays Available Programs          menu"
  284. 3880  DATA ".h2 Data Files"
  285. 3890  DATA ".pk File Usage                             Filename"
  286. 3900  DATA ".pk ------------------------------------   --------"
  287. 3910  DATA ".pk Personal Vital Statistics              persfile"
  288. 3920  DATA ".pk Marriage Vital Statistics              marrfile"
  289. 3930  DATA ".pk Life Events (LDS Ordinances)           ordfile"
  290. 3940  DATA ".pk Verify BASIC has 256 byte buffer       verifile"
  291. 3950  DATA ".pa"
  292. 3960  DATA ".h2 Indexes"
  293. 3970  DATA ".pk Function Performed                     Filename"
  294. 3980  DATA ".pk ------------------------------------   --------"
  295. 3990  DATA ".pk Relates Parents and Children           pcindex"
  296. 4000  DATA ".pk Relates Spouses by Marriage            mindex"
  297. 4010  DATA ".h2 Documentation"
  298. 4020  DATA ".pk Purpose of Documentation               Filename"
  299. 4030  DATA ".pk ------------------------------------   --------"
  300. 4040  DATA ".pk Display Initial Information            runfirst"
  301. 4050  DATA ".sp"
  302. 4060  DATA ".pk Change Printers for Documentation      printers"
  303. 4070  DATA ".sp"
  304. 4080  DATA ".pk Print a Program Directory              director"
  305. 4090  DATA ".sp"
  306. 4100  DATA ".pk Print a User's Manual"
  307. 4110  DATA ".pk   Table of Contents                    tableofc"
  308. 4120  DATA ".pk   Introduction                         introduc"
  309. 4130  DATA ".pk   General Information                  general"
  310. 4140  DATA ".pk   Using the Programs                   usingthe"
  311. 4150  DATA ".pk   Reference Material                   referenc"
  312. 4160  DATA ".pk   Appendices                           appendix"
  313. 4170  DATA ".h2 Overview Information"
  314. 4180  DATA ".pk Function Perfomed                      Filename"
  315. 4190  DATA ".pk ------------------------------------   --------"
  316. 4200  DATA ".pk Overview on the Display Screen         overview"
  317. 4210  DATA ".h1 C.  HINTS"
  318. 4220  DATA ".h2 NAMES"
  319. 4230  DATA "It is best to enter surnames with all"
  320. 4240  DATA "capitals, such as:  ABLE"
  321. 4250  DATA ".sp"
  322. 4260  DATA "(Note: It is common practice to use the"
  323. 4270  DATA "Maiden name of a woman, and the surname"
  324. 4280  DATA "given at birth for a child.)"
  325. 4290  DATA ".h2 DATES"
  326. 4300  DATA "All of the programs expect dates in the"
  327. 4310  DATA "form dd Mmm yyyy, such as: 19 Jun 1928."
  328. 4320  DATA "However, partial dates, or approximate"
  329. 4330  DATA "dates, may be entered.  They will be"
  330. 4340  DATA "moved as far to the right as possible."
  331. 4350  DATA ".h2 Replacing Information"
  332. 4360  DATA "When using one of the update-programs,"
  333. 4370  DATA "information (with the exception of the"
  334. 4380  DATA "record-number) can be replaced by"
  335. 4390  DATA "entering the new information.  The new"
  336. 4400  DATA "information simply replaces the old."
  337. 4410  DATA ".sp"
  338. 4420  DATA "In the event that a user wishes to re-"
  339. 4430  DATA "place a current value with blanks (the"
  340. 4440  DATA "data was not correct), one or more"
  341. 4450  DATA "blanks may be entered by enclosing them"
  342. 4460  DATA "within quotes."
  343. 4470  DATA ".pa"
  344. 4480  DATA ".h2 Removing a Record."
  345. 4490  DATA "In the rare event that a user wishes"
  346. 4500  DATA "to remove a record from the Persons"
  347. 4510  DATA "File, the Marriages File, or the Ord-"
  348. 4520  DATA "inances File, he may do so by chang-"
  349. 4530  DATA "ing the record-number to the same num-"
  350. 4540  DATA "ber preceded by a minus-sign.  This"
  351. 4550  DATA "will cause the record to be cleared,"
  352. 4560  DATA "and it may then be 'saved'."
  353. 4570  DATA ".sp"
  354. 4580  DATA "(Note:  Remove an Ordinance Record be-"
  355. 4590  DATA "fore removing its Corresponding Person"
  356. 4600  DATA "Record, because an Ordinance Record"
  357. 4610  DATA "cannot be accessed if its Person Record"
  358. 4620  DATA "does not exist.)"
  359. 4630  DATA ".sp"
  360. 4640  DATA "After a record is removed, it may be"
  361. 4650  DATA "necessary to change any references to"
  362. 4660  DATA "the removed record (in persons and"
  363. 4670  DATA "marriage records), and you may have"
  364. 4680  DATA "to prepare the indexes again."
  365. 4690  DATA ".h1 D.  MODIFICATIONS"
  366. 4700  DATA ".h2 Making Changes"
  367. 4710  DATA "In all of the following examples, the"
  368. 4720  DATA "MENU program has to be loaded and"
  369. 4730  DATA "edited.  If you desire the changes to"
  370. 4740  DATA "be permanent, you must then save the"
  371. 4750  DATA "MENU again.  Unless you save the MENU,"
  372. 4760  DATA "the changes will be only temporary"
  373. 4770  DATA "(gone the next time that the MENU is"
  374. 4780  DATA "loaded)."
  375. 4790  DATA ".sp"
  376. 4800  DATA "Since the MENU Program is a BASIC"
  377. 4810  DATA "program, you will need to use the"
  378. 4820  DATA "BASIC Editor (see the BASIC Manual"
  379. 4830  DATA "for details) to make the changes."
  380. 4840  DATA ".h2 Color Considerations"
  381. 4850  DATA "Line 260 in the MENU Program establish-"
  382. 4860  DATA "es color, through the use of a SCREEN"
  383. 4870  DATA "Statement, which is:"
  384. 4880  DATA ".sp"
  385. 4890  DATA "  SCREEN S1,S2,S3,S4
  386. 4900  DATA ".sp"
  387. 4910  DATA "For many display screens, color can be"
  388. 4920  DATA "disabled by editing the definition of"
  389. 4930  DATA "S2 in Line 220 of the MENU Program."
  390. 4940  DATA "It can be changed from S2 = 1, to"
  391. 4950  DATA "S2 = 0."
  392. 4960  DATA ".pa"
  393. 4970  DATA ".h2 Color Definitions"
  394. 4980  DATA "Lines 300 through 380 of the MENU pro-"
  395. 4990  DATA "gram establishe color for a number of"
  396. 5000  DATA "variables, which are then used by all"
  397. 5010  DATA "of the programs."
  398. 5020  DATA ".sp"
  399. 5030  DATA "Color can be disabled, or it can be"
  400. 5040  DATA "changed, by changing the numbers for"
  401. 5050  DATA "the variables.  For example, color"
  402. 5060  DATA "can be disabled by changing each of"
  403. 5070  DATA "the numbers which is not a zero (0)"
  404. 5080  DATA "to a seven (7)."
  405. 5090  DATA ".h2 Changing the Number of Persons"
  406. 5100  DATA "The programs, as distributed, provide"
  407. 5110  DATA "for 500 persons, and 500 ordinances."
  408. 5120  DATA ".sp"
  409. 5130  DATA "In order to change the number of"
  410. 5140  DATA "persons and ordinances, it is then"
  411. 5150  DATA "necessary to change the 500 to some"
  412. 5160  DATA "other, more desirable, number."
  413. 5170  DATA ".sp"
  414. 5180  DATA "This can be done in the following way:"
  415. 5190  DATA ".sp"
  416. 5200  DATA "In the MENU program:"
  417. 5210  DATA ".sp"
  418. 5220  DATA "Line-number:   610"
  419. 5230  DATA "Old-value:     MAX.PER = 500"
  420. 5240  DATA "New-value:     you decide."
  421. 5250  DATA ".pa"
  422. 5260  DATA ".h2 Extending Existing Files"
  423. 5270  DATA "Before extending any existing file,"
  424. 5280  DATA "it is always wise to make a back-up"
  425. 5290  DATA "copy of that file, in case you make"
  426. 5300  DATA "any mistakes."
  427. 5310  DATA ".sp"
  428. 5320  DATA "A current file can be extended by"
  429. 5330  DATA "changing the old maximum and setting"
  430. 5340  DATA "a new upper limit.  Once set, the"
  431. 5350  DATA "CREATPER and CREATORD programs must"
  432. 5360  DATA "then be ~run~."
  433. 5370  DATA ".sp"
  434. 5380  DATA "For example, expanding from 500 to 600"
  435. 5390  DATA "persons would require a change in the"
  436. 5400  DATA "the MENU program in line 610 and line"
  437. 5410  DATA "630."
  438. 5420  DATA ".sp"
  439. 5430  DATA "Line-number:   610"
  440. 5440  DATA "Old-value:     MAX.PER = 500"
  441. 5450  DATA "New-value:     MAX.PER = 600"
  442. 5460  DATA ".sp"
  443. 5470  DATA "Line-number:   630"
  444. 5480  DATA "Old-value:     OLD.MAX.PER = 0"
  445. 5490  DATA "New-value:     OLD.MAX.PER = 500"
  446. 5500  DATA ".pa"
  447. 5510  DATA ".h2 Printing A Partial Alphabetic List"
  448. 5520  DATA "The beginning and ending letters, to"
  449. 5530  DATA "be used when printing an alphabetic"
  450. 5540  DATA "list of persons, are set in lines 720"
  451. 5550  DATA "and 730 of the MENU.  These may be"
  452. 5560  DATA "changed, in order to print a partial"
  453. 5570  DATA "list (e.g. F through M)."
  454. 5580  DATA ".h2 Changing the Number of Marriages"
  455. 5590  DATA "The programs, as designed, provide"
  456. 5600  DATA "for 200 marriages."
  457. 5610  DATA ".sp"
  458. 5620  DATA "In order to change the number of"
  459. 5630  DATA "marriages, it is then necessary to"
  460. 5640  DATA "change the 200 to some other, more"
  461. 5650  DATA "desirable, number."
  462. 5660  DATA ".sp"
  463. 5670  DATA "In the MENU program:"
  464. 5680  DATA ".sp"
  465. 5690  DATA "Line-number:   620"
  466. 5700  DATA "Old-value:     MAX.MAR = 200"
  467. 5710  DATA "New-value:     you decide."
  468. 5720  DATA ".pa"
  469. 5730  DATA ".h2 Extending an Existing File"
  470. 5740  DATA "Before extending any existing file,"
  471. 5750  DATA "it is always wise to make a back-up"
  472. 5760  DATA "copy of that file, in case you make"
  473. 5770  DATA "any mistakes."
  474. 5780  DATA ".sp"
  475. 5790  DATA "A current file of marriages can be ex-"
  476. 5800  DATA "tended by changing the old maximum and"
  477. 5810  DATA "establishing a new upper limit.  Then"
  478. 5820  DATA "the CREATMAR Program must be ~run~."
  479. 5830  DATA ".sp"
  480. 5840  DATA "For example, expanding from 200 to 300"
  481. 5850  DATA "marriages would require a change in"
  482. 5860  DATA "the MENU program in line 620 and line"
  483. 5870  DATA "640."
  484. 5880  DATA ".sp"
  485. 5890  DATA "Line-number:   620"
  486. 5900  DATA "Old-value:     MAX.MAR = 200"
  487. 5910  DATA "New-value:     MAX.MAR = 300"
  488. 5920  DATA ".sp"
  489. 5930  DATA "Line-number:   640"
  490. 5940  DATA "Old-value:     OLD.MAX.MAR = 0"
  491. 5950  DATA "New-value:     OLD.MAX.MAR = 200"
  492. 5960  DATA ".pa"
  493. 5970  DATA ".h2 Printing Partial Files"
  494. 5980  DATA "As your files grow in size, you may want"
  495. 5990  DATA "printouts of just the new information,"
  496. 6000  DATA "rather than of entire files."
  497. 6010  DATA ".h2 Partial Printout of Persons"
  498. 6020  DATA "Line 680 in the MENU Program defines"
  499. 6030  DATA "the beginning Person Number for use by"
  500. 6040  DATA "the PRINTPER and LISTPER Programs.  It"
  501. 6050  DATA "is 1.  If you change this number to a"
  502. 6060  DATA "higher number (such as 201), the print-"
  503. 6070  DATA "outs will begin at the higher number,"
  504. 6080  DATA "rather than at 1."
  505. 6090  DATA ".h2 Partial Printout of Marriages"
  506. 6100  DATA "Line 690 in the MENU Program defines"
  507. 6110  DATA "the beginning Marriage Number for use by"
  508. 6120  DATA "the PRINTMAR and LISTMAR Programs.  It"
  509. 6130  DATA "is 1.  If you change this number to a"
  510. 6140  DATA "higher number (such as 101), the print-"
  511. 6150  DATA "outs will begin at the higher number,"
  512. 6160  DATA "rather than at 1."
  513. 6170  DATA ".pa"
  514. 6180  DATA ".h2 Repositioning the Files"
  515. 6190  DATA "As released, all files are located on"
  516. 6200  DATA "drive a:.  In order to change this to"
  517. 6210  DATA "another drive, the letter which iden-"
  518. 6220  DATA "tifies the drive must be changed."
  519. 6230  DATA ".sp"
  520. 6240  DATA "In the MENU program, these drive-"
  521. 6250  DATA "letters are located in line numbers"
  522. 6260  DATA "410-480.  They are:"
  523. 6270  DATA ".sp"
  524. 6280  DATA "Name         Ltr.    Reference"
  525. 6290  DATA "------------------   -------------------"
  526. 6300  DATA "DD.PROG$   = ~a:\~   The Programs"
  527. 6310  DATA "DD.VERI$   = ~a:\~   Verify s/256: file"
  528. 6320  DATA "DD.MENU$   = ~a:\~   Menu"
  529. 6330  DATA "DD.PERS$   = ~a:\~   Persons File"
  530. 6340  DATA "DD.MARR$   = ~a:\~   Marriages File"
  531. 6350  DATA "DD.ORD$    = ~a:\~   Ordinances File"
  532. 6360  DATA "DD.PCIDX$  = ~a:\~   Parent/Child Index"
  533. 6370  DATA "DD.MARIDX$ = ~a:\~   Marriages Index"
  534. 6380  DATA ".sp"
  535. 6390  DATA "The disk-drive letter for any of the"
  536. 6400  DATA "above programs and files may be changed"
  537. 6410  DATA "by changing each a: to the desired"
  538. 6420  DATA "letter."
  539. 6430  DATA ".sp"
  540. 6440  DATA "If you are using sub-directories, then"
  541. 6450  DATA "change the letters to the paths.  For"
  542. 6460  DATA "example:"
  543. 6470  DATA ".sp"
  544. 6480  DATA "DD.PROG$ = ~c:\GENONDIS\~"
  545. 6490  DATA ".pa"
  546. 6500  DATA ".h2 Removing Person and Marriage Numbers"
  547. 6510  DATA "As distributed, numbers for both the"
  548. 6520  DATA "Person and Marriage are shown.  These"
  549. 6530  DATA "numbers may be removed by changing line"
  550. 6540  DATA "670 in the MENU.BAS program,"
  551. 6550  DATA ".sp"
  552. 6560  DATA "  from:  670 CHART.NOS$ = ~n~"
  553. 6570  DATA "  to:    670 CHART.NOS$ = ~y~"
  554. 6580  DATA ".sp"
  555. 6590  DATA "One other effect is that after this"
  556. 6600  DATA "change, Ancestral Numbers (e.g. 1,2,4,"
  557. 6610  DATA "8,16) will be shown in Pedigree Charts"
  558. 6620  DATA "instead of Person Numbers."
  559. 6630  DATA ".h2 Changing the Descendents Chart"
  560. 6640  DATA "As distributed, the Descendents Chart"
  561. 6650  DATA "prints 30 generations.  It also prints"
  562. 6660  DATA "in pages.  Both of these may be changed"
  563. 6670  DATA "by the user."
  564. 6680  DATA ".h2 Making the Descendents Chart Continuous"
  565. 6690  DATA "Line 660 of the MENU program contains"
  566. 6700  DATA "a definition of the number of lines on"
  567. 6710  DATA "a page, which is 58.  By changing this"
  568. 6720  DATA "to a very large number (e.g. 9999),"
  569. 6730  DATA "continuous charts may be produced."
  570. 6740  DATA ".pa"
  571. 6750  DATA ".h2 Changing the Generations Shown"
  572. 6760  DATA "Line number 650 of the MENU program"
  573. 6770  DATA "contains a definition of the maximum"
  574. 6780  DATA "number of generations to be shown,"
  575. 6790  DATA "which is 30.  This number may be re-"
  576. 6800  DATA "duced to as few as 1.  Making the num-"
  577. 6810  DATA "ber more than 30 may cause interfer-"
  578. 6820  DATA "ence between names and dates.  Making"
  579. 6830  DATA "the number greater than 50 may exceed"
  580. 6840  DATA "the printer width definition."
  581. 6850  DATA ".h2 Family Group Binding Space"
  582. 6860  DATA "When Family Group Sheets are printed"
  583. 6870  DATA "without the LDS Ordinances, the part of"
  584. 6880  DATA "the sheets which contain those LDS"
  585. 6890  DATA "Ordinances is removed, and the form is"
  586. 6900  DATA "shifted to the right to provide for"
  587. 6910  DATA "space for binding (3-hole punching)."
  588. 6920  DATA ".sp"
  589. 6930  DATA "Line 710 in the MENU program contains"
  590. 6940  DATA "the definition of the number of char-"
  591. 6950  DATA "acters removed on each side of the"
  592. 6960  DATA "chart (18).  This number may be redu-"
  593. 6970  DATA "ced.  Less binding space will result,"
  594. 6980  DATA "but more information will be shown."
  595. 6990  DATA ".pa"
  596. 7000  DATA ".h2 Removing the Ordinances File"
  597. 7010  DATA "As designed, an Ordinances File is part"
  598. 7020  DATA "of Genealogy ON DISPLAY."
  599. 7030  DATA ".sp"
  600. 7040  DATA "In the event that the user does not wish"
  601. 7050  DATA "to have an Ordinances File, line 460 in"
  602. 7060  DATA "the MENU program must be changed."
  603. 7070  DATA ".sp"
  604. 7080  DATA "Line 460 contains a definition of where"
  605. 7090  DATA "the Ordinances file is located.  It is:"
  606. 7100  DATA ".sp"
  607. 7110  DATA "   DD.ORD$ = ~a:\~"
  608. 7120  DATA ".sp"
  609. 7130  DATA "By changing this to:"
  610. 7140  DATA ".sp"
  611. 7150  DATA "   DD.ORD$ = ~no~"
  612. 7160  DATA ".sp"
  613. 7170  DATA "in the MENU program, the ability to for-"
  614. 7180  DATA "mat and update an Ordinances File is re-"
  615. 7190  DATA "moved from the menu.  In addition, no"
  616. 7200  DATA "information about ordinances will be"
  617. 7210  DATA "displayed or printed."
  618. 7220  DATA ".sp"
  619. 7230  DATA "When no Ordinances File is used, then"
  620. 7240  DATA "both the Family Group Sheet and the"
  621. 7250  DATA "Pedigree Chart are reduced in size, with"
  622. 7260  DATA "additional space for binding provided on"
  623. 7270  DATA "the left.  The number of generations on"
  624. 7280  DATA "the Pedigree Chart is reduced by one."
  625. 7290  DATA ".pa"
  626. 7300  DATA ".h2 Changing Sex Designations"
  627. 7310  DATA "Lines 740 and 750 in the MENU Program"
  628. 7320  DATA "contain one-letter abbreviations, and"
  629. 7330  DATA "full-word designations for male and"
  630. 7340  DATA "female sex.  These designations may be"
  631. 7350  DATA "changed for other uses, such as for"
  632. 7360  DATA "animal and bird genealogies.  (Note:"
  633. 7370  DATA "The same abbreviation cannot be used"
  634. 7380  DATA "for both the male and female sex.)"
  635. 7390  DATA ".h2 Utilizing other Printers"
  636. 7400  DATA "As designed, an IBM Matrix Printer,"
  637. 7410  DATA "an EPSON MX-100 Printer, or some"
  638. 7420  DATA "equivalent printer is assumed."
  639. 7430  DATA ".sp"
  640. 7440  DATA "Control for Compressed Printing, for"
  641. 7450  DATA "Page Length, for Paper Sensing, and"
  642. 7460  DATA "for Form Feeding is provided in the"
  643. 7470  DATA "Pedigree program, in the Family pro-"
  644. 7480  DATA "gram, and in the Descend program."
  645. 7490  DATA ".sp"
  646. 7500  DATA "Form Feeding is also provided in the"
  647. 7510  DATA "printper, printmar, listper, listmar,"
  648. 7520  DATA "listpci, alphaper, alphamar, and dis-"
  649. 7530  DATA "play programs."
  650. 7540  DATA ".sp"
  651. 7550  DATA "Emphasized (bold) printing is used in"
  652. 7560  DATA "the printper program."
  653. 7570  DATA ".sp"
  654. 7580  DATA "In order to provide the same facility"
  655. 7590  DATA "for another printer, these controls"
  656. 7600  DATA "may need to be changed.  They are"
  657. 7610  DATA "found in lines 510-590 of the MENU"
  658. 7620  DATA "program."
  659. 7630  DATA ".pa"
  660. 7640  DATA "The variable names, and their purposes,"
  661. 7650  DATA "are as follows:"
  662. 7660  DATA ".sp"
  663. 7670  DATA "Name:           Purpose"
  664. 7680  DATA "-------------   -----------------------"
  665. 7690  DATA "FORM.FEED$      To Top of the Next Page"
  666. 7700  DATA "PAP.SEN.ON$     Paper Sensing ON"
  667. 7710  DATA "PAP.SEN.OFF$    Paper Sensing OFF"
  668. 7720  DATA "PAP.LONG$       Long (11 inch) Paper"
  669. 7730  DATA "PAP.SHORT$      Short (8-1/2 in.) Paper"
  670. 7740  DATA "COMPR.ON$       Compressed Print ON"
  671. 7750  DATA "COMPR.OFF$      Compressed Print OFF"
  672. 7760  DATA "BOLD.ON$        Emphasized Print ON"
  673. 7770  DATA "BOLD.OFF$       Emphasized Print OFF"
  674. 7780  DATA ".sp"
  675. 7790  DATA "For each of the above, change the"
  676. 7800  DATA "definition to that of your printer."
  677. 7810  DATA ".h2 Paper Considerations"
  678. 7820  DATA "The definition of the paper being used"
  679. 7830  DATA "is continuous, 8-1/2 x 11 inch paper."
  680. 7840  DATA "This is the normal printer paper for"
  681. 7850  DATA "most printers in use.  However, when-"
  682. 7860  DATA "ever a printer has the capabilities of"
  683. 7870  DATA "using wider paper (and single sheets)"
  684. 7880  DATA "changes can be made to the MENU, to"
  685. 7890  DATA "use these features in the PEDIGREE,"
  686. 7900  DATA "FAMILY, and DESCEND Programs."
  687. 7910  DATA ".sp"
  688. 7920  DATA "Lines 760 through 780 of the MENU pro-"
  689. 7930  DATA "gram contain coded definitions for"
  690. 7940  DATA "different paper characteristics."
  691. 7950  DATA ".pa"
  692. 7960  DATA ".h2 Use of Wide Paper"
  693. 7970  DATA "Line 760 defines paper with a width"
  694. 7980  DATA "of 8-1/2 inches.  By changing the 1"
  695. 7990  DATA "to a 2, the paper will then be de-"
  696. 8000  DATA "fined with a 14 inch width."
  697. 8010  DATA ".h2 Use of Short Paper"
  698. 8020  DATA "Line 770 defines paper with a length"
  699. 8030  DATA "of 11 inches.  By changing the 2 to"
  700. 8040  DATA "a 1, the paper will then be defined"
  701. 8050  DATA "with an 8-1/2 inch length."
  702. 8060  DATA ".h2 Use of Single Sheets"
  703. 8070  DATA "Line 780 defines continuous paper."
  704. 8080  DATA "By changing the 1 to a 2, the paper"
  705. 8090  DATA "will then be defined as existing in"
  706. 8100  DATA "single sheets (such as pre-printed"
  707. 8110  DATA "forms)."
  708. 8120  DATA ".pa"
  709. 8130  DATA ".h2 Defining Function Keys"
  710. 8140  DATA "Lines 810-900 of the MENU Program con-"
  711. 8150  DATA "tain definitions of the content of the"
  712. 8160  DATA "ten function keys, and are empty.  These"
  713. 8170  DATA "definitions may be changed to contain"
  714. 8180  DATA "the names and places which are used the"
  715. 8190  DATA "most (e.g. TAYLOR, Mary, Ohio)."
  716. 8200  DATA ".h1 E. TERMS & CONDITIONS"
  717. 8210  DATA ".h2 Terms"
  718. 8220  DATA "If you are using these programs, you are"
  719. 8230  DATA "expected to become a Registered User,"
  720. 8240  DATA "by making a contribution to the author"
  721. 8250  DATA "of the programs ($45.00 suggested)."
  722. 8260  DATA ".vt 3"
  723. 8270  DATA "     Melvin O. Duke"
  724. 8280  DATA "     P. O. Box 20836"
  725. 8290  DATA "     San Jose, CA  95160"
  726. 8300  DATA "     (408) 268-6637"
  727. 8310  DATA ".vt 2"
  728. 8320  DATA "Anyone may request a copy of these pro-"
  729. 8330  DATA "grams, for trial, by sending a blank,"
  730. 8340  DATA "double-sided, double-density, 5-1/4 inch"
  731. 8350  DATA "diskette to the author of the programs,"
  732. 8360  DATA "together with $10.00 (for copying).  A"
  733. 8370  DATA "self-addressed, postage-paid return"
  734. 8380  DATA "diskette-mailer must accompany the"
  735. 8390  DATA "diskette (no exceptions, please)."
  736. 8400  DATA ".sp"
  737. 8410  DATA "A copy of the programs with documenta-"
  738. 8420  DATA "tion will be sent by return mail."
  739. 8430  DATA ".pa"
  740. 8440  DATA ".h2 Conditions"
  741. 8450  DATA "A limited license is granted to all users"
  742. 8460  DATA "of these programs, to make copies of"
  743. 8470  DATA "them, and distribute them to other users,"
  744. 8480  DATA "on the following conditions:"
  745. 8490  DATA ".sp"
  746. 8500  DATA "1.  The Genealogy ON DISPLAY programs"
  747. 8510  DATA "    are not to be distributed to others"
  748. 8520  DATA "    in a modified form."
  749. 8530  DATA ".sp"
  750. 8540  DATA "2.  No fee is to be charged for the Gene-"
  751. 8550  DATA "    alogy ON DISPLAY programs themselves."
  752. 8560  DATA "    However, a nominal copying charge (not"
  753. 8570  DATA "    to exceed $10.) may be charged to de-"
  754. 8580  DATA "    fray copying expenses."
  755. 8590  DATA ".sp"
  756. 8600  DATA "3.  The notices displayed at program"
  757. 8610  DATA "    start-up are not to be bypassed,"
  758. 8620  DATA "    altered, or removed."
  759. 8630  DATA ".h2 Disclaimer"
  760. 8640  DATA "In no event will the Author be liable to"
  761. 8650  DATA "you for any damages, including any lost"
  762. 8660  DATA "profits, lost savings or other inciden-"
  763. 8670  DATA "tal or consequential damages arising out"
  764. 8680  DATA "of the use of or inability to use these"
  765. 8690  DATA "programs, even if the Author has been"
  766. 8700  DATA "advised of the possibility of such"
  767. 8710  DATA "damages, or for any claim by any other"
  768. 8720  DATA "party."
  769. 8730  DATA ".eof"
  770. 8740  END
  771.