home *** CD-ROM | disk | FTP | other *** search
/ PC-Blue - MS DOS Public Domain Library / PC-Blue MS-DOS Public Domain Library - NYACC.iso / vol218 / tableofc.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1986-11-30  |  12.2 KB  |  346 lines
  1. 100  REM Documentation for the Genealogy ON DISPLAY Programs
  2. 110  REM All data is in the form of DATA statements.
  3. 120  REM By:  Melvin O. Duke.  Updated February 1986.
  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 4.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 "Anyone may request a copy of these pro-"
  51. 650  DATA "grams, for trial, by sending a blank,"
  52. 660  DATA "double-sided, double-density, 5-1/4 in."
  53. 670  DATA "diskette to the author of the programs."
  54. 680  DATA ".sp"
  55. 690  DATA "An addressed, postage-paid return"
  56. 700  DATA "mailer must accompany the diskette (no"
  57. 710  DATA "exceptions, please).
  58. 720  DATA ".sp"
  59. 730  DATA "A copy of the programs with documenta-"
  60. 740  DATA "tion will be sent by return mail."
  61. 750  DATA ".vt 2"
  62. 760  DATA "Users are encouraged to copy and share"
  63. 770  DATA "the programs with others."
  64. 780  DATA ".vt 5"
  65. 790  DATA "If you are using these programs, you are"
  66. 800  DATA "expected to become a Registered User,"
  67. 810  DATA "by making a contribution to the author"
  68. 815  DATA "of the programs ($45.00 suggested)."
  69. 820  DATA ".sp"
  70. 830  DATA "Melvin O. Duke"
  71. 840  DATA "P. O. Box 20836"
  72. 850  DATA "San Jose, CA  95160"
  73. 860  DATA ".vt 4"
  74. 870  DATA "Copyright (c) 1983 through 1986, by:"
  75. 880  DATA "Melvin O. Duke."
  76. 890  DATA ".sp"
  77. 900  DATA "All rights reserved."
  78. 910  '
  79. 920  REM Top of each page routine
  80. 930  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  81. 940  LPRINT
  82. 950  LPRINT TAB(30); TRIM.LINE$
  83. 960  LPRINT DASHES$ 'Dashes
  84. 970  FOR I = 1 TO 6
  85. 980   LPRINT
  86. 990  NEXT I
  87. 1000  LINE.NO = LINE.NO + 6
  88. 1010  RETURN
  89. 1020  '
  90. 1030  REM Bottom of each page Routine
  91. 1040  IF PAGE.NO < 1 THEN LPRINT : LPRINT : LPRINT : GOTO 1160
  92. 1050  LPRINT TAB(TAB.POS); STRING$(40,45)  'on line 46
  93. 1060  LPRINT TAB(TAB.POS+3); TITLE$+" ON DISPLAY.  Version 4.0" 'on line 47
  94. 1070  IF PAGE.NO MOD 2 = 1 THEN 1110
  95. 1080  LPRINT TAB(TAB.POS);"Page";PAGE.NO;
  96. 1090  LPRINT TAB(TAB.POS+27);"User's Manual"
  97. 1100  GOTO 1160
  98. 1110  LPRINT TAB(TAB.POS); "User's Manual";
  99. 1120  IF PAGE.NO < 10 THEN DELTA = 34
  100. 1130  IF PAGE.NO >  9 THEN DELTA = 33
  101. 1140  IF PAGE.NO > 99 THEN DELTA = 32
  102. 1150  LPRINT TAB(TAB.POS+DELTA); "Page"; PAGE.NO  'on line 48
  103. 1160  LPRINT : LPRINT : LPRINT
  104. 1170  LPRINT DASHES$ 'dashes after 51
  105. 1180  LPRINT TAB(30); TRIM.LINE$
  106. 1190  LPRINT FORM.FEED$;
  107. 1200  PAGE.NO = PAGE.NO + 1
  108. 1210  LINE.NO = 1
  109. 1220  IF REPLY$ = ".eof" THEN 1240  'Bypass after last page
  110. 1230  GOSUB 920  'For top of next page
  111. 1240  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  112. 1250  RETURN
  113. 1260  '
  114. 1270  REM Command Processor
  115. 1280  IF LEFT$(REPLY$,3) = ".h1" THEN 1390
  116. 1290  IF LEFT$(REPLY$,3) = ".h2" THEN 1550
  117. 1300  IF LEFT$(REPLY$,3) = ".h3" THEN 1660
  118. 1310  IF LEFT$(REPLY$,3) = ".sp" THEN 1770
  119. 1320  IF LEFT$(REPLY$,4) = ".eof" THEN 1820
  120. 1330  IF LEFT$(REPLY$,3) = ".pa" THEN 1860
  121. 1340  '
  122. 1350  IF LEFT$(REPLY$,3) = ".vt" THEN 1930
  123. 1360  IF LEFT$(REPLY$,3) = ".pk" THEN 2040
  124. 1370  IF LEFT$(REPLY$,3) = ".in" THEN 2170
  125. 1380  STOP
  126. 1390  REM Head 1 Processor
  127. 1400  FOR I = LINE.NO TO 44
  128. 1410   LPRINT
  129. 1420  NEXT I
  130. 1430  GOSUB 1030  'Bottom of page Routine
  131. 1440  IF PAGE.NO MOD 2 = 0 THEN GOSUB 1860  'For h1 on Odd pages
  132. 1450  LPRINT BOLD.ON$;     'Set emphasized print
  133. 1460  LPRINT EXPAND.ON$;   'Set expanded print
  134. 1470  IF PAGE.NO MOD 2 = 0 THEN ADJUST = -2 ELSE ADJUST = -5
  135. 1480  LPRINT TAB(TAB.POS+ADJUST); RIGHT$(REPLY$,LEN(REPLY$)-4)
  136. 1490  LPRINT EXPAND.OFF$;  'Return to normal
  137. 1500  LPRINT BOLD.OFF$;    'Return to non-bold
  138. 1510  LINE.NO = LINE.NO+1
  139. 1520  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  140. 1530  RETURN
  141. 1540  '
  142. 1550  REM Head 2 Processor
  143. 1560  IF LINE.NO = 7 THEN 1580 'skip spacing if at top of page
  144. 1570  IF LINE.NO > 43 THEN GOSUB 1860 ELSE LPRINT:LPRINT:LINE.NO = LINE.NO+2
  145. 1580  LPRINT BOLD.ON$;  'Set emphasized print
  146. 1590  LPRINT TAB(TAB.POS+1); RIGHT$(REPLY$,LEN(REPLY$)-4)
  147. 1600  LPRINT BOLD.OFF$; 'Return to normal
  148. 1610  LPRINT
  149. 1620  LINE.NO = LINE.NO + 2
  150. 1630  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  151. 1640  RETURN
  152. 1650  '
  153. 1660  REM Head 3 Processor
  154. 1670  IF LINE.NO = 7 THEN 1690 'skip spacing if at top of page
  155. 1680  IF LINE.NO > 43 THEN GOSUB 1860 ELSE LPRINT:LPRINT:LINE.NO = LINE.NO+2
  156. 1690  LPRINT BOLD.ON$;  'Set emphasized print
  157. 1700  LPRINT TAB(TAB.POS+1); RIGHT$(REPLY$,LEN(REPLY$)-4)
  158. 1710  LPRINT BOLD.OFF$; 'Return to normal
  159. 1720  LPRINT
  160. 1730  LINE.NO = LINE.NO + 2
  161. 1740  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  162. 1750  RETURN
  163. 1760  '
  164. 1770  REM Single Space Processor
  165. 1780  IF LINE.NO = 7 THEN 1800
  166. 1790  IF LINE.NO > 44 THEN GOSUB 1860 ELSE LPRINT : LINE.NO = LINE.NO + 1
  167. 1800  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  168. 1810  RETURN
  169. 1820  REM End of File Processor
  170. 1830  GOSUB 1860 'Bottom of Page
  171. 1850  GOTO 4390
  172. 1860  REM Page Eject Processor
  173. 1870  FOR I = LINE.NO TO 44
  174. 1880   LPRINT
  175. 1890   LINE.NO = LINE.NO + 1
  176. 1900  NEXT I
  177. 1910  GOSUB 1030  'Bottom of Page Processing
  178. 1920  RETURN
  179. 1930  REM Vertical Tab Processor
  180. 1940  IF LINE.NO = 7 THEN 2030
  181. 1950  IF LINE.NO > 44 THEN GOSUB 1030  'End of page
  182. 1960  QTY = VAL(RIGHT$(REPLY$,LEN(REPLY$)-3))
  183. 1970  FOR I = 1 TO QTY
  184. 1980   LPRINT
  185. 1990   LINE.NO = LINE.NO + 1
  186. 2000   IF LINE.NO > 44 THEN I = QTY
  187. 2010  NEXT I
  188. 2020  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  189. 2030  RETURN
  190. 2040  REM Pack Processor
  191. 2050  IF LINE.NO > 44 THEN GOSUB 1030
  192. 2060  IF TAB.POS = 8 THEN ADJUST = 4
  193. 2070  IF TAB.POS = 13 THEN ADJUST = 7
  194. 2080  TAB.POS = TAB.POS + ADJUST + INDENT
  195. 2090  WIDTH "lpt1:", 132 'set condensed width
  196. 2100  LPRINT COMPR.ON$;  'Packed printing
  197. 2110  LPRINT TAB(TAB.POS); RIGHT$(REPLY$,LEN(REPLY$)-3)
  198. 2120  LPRINT COMPR.OFF$; 'Return to normal
  199. 2130  WIDTH "lpt1:", 80  'return to normal
  200. 2140  LINE.NO = LINE.NO + 1
  201. 2150  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  202. 2160  RETURN
  203. 2170  REM Indent Processor
  204. 2180  INDENT = VAL(RIGHT$(REPLY$,LEN(REPLY$)-3))
  205. 2190  RETURN
  206. 3000  DATA ".h1 TABLE OF CONTENTS"
  207. 3010  DATA ".sp"
  208. 3020  DATA "INTRODUCTION - - - - - - - - - - - -   1"
  209. 3030  DATA "  OVERVIEW - - - - - - - - - - - - -   1"
  210. 3040  DATA "  CAPABILITIES - - - - - - - - - - -   1"
  211. 3050  DATA "    Display the Genealogy  - - - - -   2"
  212. 3060  DATA "    Print Pedigree Charts (Family       "
  213. 3070  DATA "      Trees) - - - - - - - - - - - -   2"
  214. 3080  DATA "    Print Family Group Sheets  - - -   3"
  215. 3090  DATA "    Produce Descendents Charts - - -   3"
  216. 3100  DATA "    Format the Data Files  - - - - -   3"
  217. 3110  DATA "    Update the Data Files  - - - - -   4"
  218. 3120  DATA "    Prepare the Indexes  - - - - - -   4"
  219. 3130  DATA "    List the Records in the File - -   4"
  220. 3140  DATA "    Printing the Contents of the"
  221. 3150  DATA "      files  - - - - - - - - - - - -   5"
  222. 3160  DATA "    Alphabetical Lists - - - - - - -   5"
  223. 3170  DATA "    Parent/Child Index List  - - - -   5"
  224. 3180  DATA "  BENEFITS/ADVANTAGES  - - - - - - -   6"
  225. 3190  DATA "  RESULTS  - - - - - - - - - - - - -   6"
  226. 3200  DATA "  REQUIREMENTS - - - - - - - - - - -   7"
  227. 3210  DATA "    Hardware Requirements  - - - - -   7"
  228. 3220  DATA "    Software Requirements  - - - - -   8"
  229. 3230  DATA ".sp"
  230. 3240  DATA "GENERAL INFORMATION  - - - - - - - -   9"
  231. 3250  DATA "  DATA ACCESS REQUIREMENTS - - - - -   9"
  232. 3260  DATA "  DESCRIPTION OF FUNCTIONS - - - - -   9"
  233. 3270  DATA "    File Formatting  - - - - - - - -   9"
  234. 3280  DATA "    File Maintenance - - - - - - - -   9"
  235. 3290  DATA "    File Indexes - - - - - - - - - -   9"
  236. 3300  DATA "    Summary Lists  - - - - - - - - -  10"
  237. 3310  DATA "    Detailed Data  - - - - - - - - -  10"
  238. 3320  DATA "    Displaying the Genealogy - - - -  10"
  239. 3330  DATA "    Printing Pedigree Charts - - - -  11"
  240. 3340  DATA "    Printing Family Group Sheets - -  11"
  241. 3350  DATA "    Producing Descendents Charts - -  11"
  242. 3360  DATA ".pa"
  243. 3370  DATA "  DEFINITION OF TERMS  - - - - - - -  12"
  244. 3380  DATA "    Personal Information - - - - - -  12"
  245. 3390  DATA "    Pedigree Information - - - - - -  12"
  246. 3400  DATA "    Family Group Information - - - -  12"
  247. 3410  DATA "    Descendants Information  - - - -  13"
  248. 3420  DATA "    Ordinance Information  - - - - -  13"
  249. 3430  DATA "  EXPLANATION OF GENERAL CONCEPTS  -  14"
  250. 3440  DATA "    Persfile - - - - - - - - - - - -  15"
  251. 3450  DATA "    Marrfile - - - - - - - - - - - -  16"
  252. 3460  DATA "    Pcindex  - - - - - - - - - - - -  17"
  253. 3470  DATA "    Mindex - - - - - - - - - - - - -  17"
  254. 3480  DATA "    Ordfile  - - - - - - - - - - - -  18"
  255. 3490  DATA "    Relationships  - - - - - - - - -  19"
  256. 3500  DATA "  BEFORE YOU START - - - - - - - - -  20"
  257. 3510  DATA "    List of Persons  - - - - - - - -  20"
  258. 3520  DATA "    List of Marriages  - - - - - - -  22"
  259. 3530  DATA ".sp"
  260. 3540  DATA "USING THE PROGRAMS - - - - - - - - -  23"
  261. 3550  DATA "  GETTING STARTED  - - - - - - - - -  23"
  262. 3560  DATA "  FIRST TIME USAGE - - - - - - - - -  25"
  263. 3570  DATA "    Backing up the Diskettes - - - -  25"
  264. 3580  DATA "    Preparing a new Data Diskette  -  25"
  265. 3590  DATA "    Copying the Verifile Data File -  26"
  266. 3600  DATA "    Copying the Menu Program - - - -  27"
  267. 3610  DATA "    Formatting the Data Files  - - -  28"
  268. 3620  DATA "    Caution  - - - - - - - - - - - -  29"
  269. 3630  DATA "  HOW TO OPERATE - - - - - - - - - -  30"
  270. 3640  DATA "    Selecting an individual program   30"
  271. 3650  DATA "    Operating the updatper program -  31"
  272. 3660  DATA "    Operating the updatmar program -  33"
  273. 3670  DATA "    Operating the updatord program -  35"
  274. 3680  DATA "    Operating the indexpc program  -  36"
  275. 3690  DATA "    Operating the indexmar program -  37"
  276. 3700  DATA "    Operating the display program  -  38"
  277. 3710  DATA "    Operating the pedigree program -  41"
  278. 3720  DATA "    Operating the family program - -  42"
  279. 3730  DATA "    Operating the descend program  -  43"
  280. 3740  DATA "    Operating the other programs - -  43"
  281. 3750  DATA ".sp"
  282. 3760  DATA "  HOW TO STOP  - - - - - - - - - - -  44"
  283. 3770  DATA "    Stopping the update programs - -  44"
  284. 3780  DATA "    Stopping the display program - -  44"
  285. 3790  DATA "    Stopping the pedigree program  -  44"
  286. 3800  DATA "    Stopping the family program  - -  45"
  287. 3810  DATA "    Stopping the descend program - -  45"
  288. 3820  DATA "    Stopping the other programs  - -  45"
  289. 3830  DATA ".sp"
  290. 3840  DATA "REFERENCE MATERIAL - - - - - - - - -  47"
  291. 3850  DATA "  SAMPLE SCREENS AND PROMPTING"
  292. 3860  DATA "      MESSAGES - - - - - - - - - - -  47"
  293. 3870  DATA "    Menu Logo  - - - - - - - - - - -  48"
  294. 3880  DATA "    Menu of Programs - - - - - - - -  49"
  295. 3890  DATA "    Display Logo - - - - - - - - - -  50"
  296. 3900  DATA "    Personal Information - - - - - -  52"
  297. 3910  DATA "    Pedigree Information - - - - - -  53"
  298. 3920  DATA "    Family Group Information - - - -  54"
  299. 3930  DATA "    Ordinance Information  - - - - -  55"
  300. 3940  DATA "  COMMANDS USED  - - - - - - - - - -  57"
  301. 3950  DATA "    Basic Command  - - - - - - - - -  57"
  302. 3960  DATA "    Load Command - - - - - - - - - -  57"
  303. 3970  DATA "    Save Command - - - - - - - - - -  57"
  304. 3980  DATA "    Run Command  - - - - - - - - - -  58"
  305. 3990  DATA ".sp"
  306. 4000  DATA "APPENDIX A.  MESSAGES  - - - - - - -  59"
  307. 4010  DATA "  Start-up Messages  - - - - - - - -  59"
  308. 4020  DATA "  Error Messages - - - - - - - - - -  60"
  309. 4030  DATA ".sp"
  310. 4040  DATA "APPENDIX B. SUMMARY  - - - - - - - -  61"
  311. 4050  DATA "  General Programs - - - - - - - - -  61"
  312. 4060  DATA "  Data Files - - - - - - - - - - - -  62"
  313. 4070  DATA "  Indexes  - - - - - - - - - - - - -  63"
  314. 4080  DATA "  Documentation  - - - - - - - - - -  63"
  315. 4090  DATA "  Overview Information - - - - - - -  63"
  316. 4100  DATA ".pa"
  317. 4110  DATA "APPENDIX C. HINTS  - - - - - - - - -  65"
  318. 4120  DATA "  Names  - - - - - - - - - - - - - -  65"
  319. 4130  DATA "  Dates  - - - - - - - - - - - - - -  65"
  320. 4140  DATA "  Commas - - - - - - - - - - - - - -  65"
  321. 4150  DATA "  Replacing Information  - - - - - -  66"
  322. 4160  DATA "  Removing a Record  - - - - - - - -  66"
  323. 4170  DATA ".sp"
  324. 4180  DATA "APPENDIX D.  MODIFICATIONS - - - - -  67"
  325. 4190  DATA "  Making Changes - - - - - - - - - -  67"
  326. 4200  DATA "  Color Considerations - - - - - - -  67"
  327. 4210  DATA "  Color Definitions  - - - - - - - -  68"
  328. 4220  DATA "  Changing the Number of Persons - -  68"
  329. 4230  DATA "    Extending Existing Files - - - -  69"
  330. 4240  DATA "  Changing the Number of Marriages -  70"
  331. 4250  DATA "    Extending an Existing File - - -  71"
  332. 4260  DATA "  Repositioning the Files  - - - - -  72"
  333. 4270  DATA "  Changing the Descendent Chart  - -  73"
  334. 4280  DATA "   Making the Chart Continuous - - -  73"
  335. 4290  DATA "   Reducing the Generations Shown  -  73"
  336. 4300  DATA "  Changing the Pedigree Chart  - - -  74"
  337. 4310  DATA "  Removing the Ordinances File - - -  74"
  338. 4320  DATA "  Utilizing Other Printers - - - - -  75"
  339. 4330  DATA ".sp"
  340. 4340  DATA "APPENDIX E.  TERMS & CONDITIONS  - -  77"
  341. 4350  DATA "  Terms  - - - - - - - - - - - - - -  77"
  342. 4360  DATA "  Conditions - - - - - - - - - - - -  78"
  343. 4370  DATA "  Disclaimer - - - - - - - - - - - -  78"
  344. 4380  DATA ".eof"
  345. 4390  END
  346.