home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug059.arc / TABLEOFC.DOC < prev    next >
Text File  |  1979-12-31  |  13KB  |  315 lines
  1. 10 REM Documentation for the Genealogy ON DISPLAY Programs
  2. 20 REM All data is in the form of DATA statements.
  3. 30 REM By:  Melvin O. Duke.  Updated June 1983.
  4. 40 DATA Genealogy
  5. 50 DATA User's Manual
  6. 60 DATA -5
  7. 70 DATA 1
  8. 80 INDENT = 0
  9. 90 DASHES$ = "+"+STRING$(54,45)+"+"
  10. 100 TRIM.LINE$ = "(Trim-line)"
  11. 110 REM Program begins here
  12. 120 READ TITLE$, DOC.NAME$, PAGE.NO, LINE.NO
  13. 130 IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  14. 140 GOSUB 500  'For trim line and heading space
  15. 150 FOR I = 1 TO 6 : LPRINT : NEXT I
  16. 160 LPRINT CHR$(14);  'Set Expanded Print
  17. 170 LPRINT TAB(TAB.POS-2);TITLE$
  18. 180 LPRINT CHR$(18);  'Return to normal
  19. 190 FOR I = 1 TO 3 : LPRINT : NEXT I
  20. 200 LPRINT CHR$(27); "E"; 'Set Emphasized mode
  21. 210 LPRINT TAB(TAB.POS+12);"ON DISPLAY"
  22. 220 LPRINT CHR$(27); "F"; 'Return to normal
  23. 222 LPRINT : LPRINT : LPRINT
  24. 224 LPRINT TAB(TAB.POS+11);"Version 1.3"
  25. 230 FOR I = 1 TO 11 : LPRINT : NEXT I
  26. 240 LPRINT TAB(TAB.POS+10); DOC.NAME$
  27. 250 LINE.NO = LINE.NO + 27
  28. 260 '
  29. 270 READ REPLY$
  30. 280 IF LEFT$(REPLY$,1) = "." THEN GOSUB 850: GOTO 270
  31. 290 IF LINE.NO > 44 THEN GOSUB 610
  32. 300 REM Print the line if not a command
  33. 310 LPRINT TAB(TAB.POS);REPLY$
  34. 320 LINE.NO = LINE.NO + 1
  35. 330 IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  36. 340 GOTO 270
  37. 350 REM Data for the Copyright Page
  38. 354 DATA ".pa"
  39. 358 DATA "Anyone may request a copy of these"
  40. 362 DATA "programs by sending two blank diskettes"
  41. 366 DATA "to the author of the programs (one for"
  42. 370 DATA "the programs, and the second for the"
  43. 374 DATA "documentation)."
  44. 378 DATA ".sp"
  45. 382 DATA "An addressed, postage-paid return"
  46. 386 DATA "mailer must accompany the diskettes (no"
  47. 390 DATA "exceptions, please).
  48. 394 DATA ".sp"
  49. 398 DATA "A copy of the programs with documenta-"
  50. 402 DATA "tion will be sent by return mail."
  51. 406 DATA ".sp"
  52. 410 DATA "Regardless of whether a contribution"
  53. 414 DATA "is made, the user is encouraged to"
  54. 418 DATA "copy and share the program with others."
  55. 422 DATA "Payment for use is discretionary on"
  56. 426 DATA "the part of each subsequent user."
  57. 430 DATA ".vt 4"
  58. 434 DATA "If you are using these programs, and"
  59. 438 DATA "finding them of value, your contribution"
  60. 442 DATA "($35 suggested) will be appreciated."
  61. 446 DATA ".sp"
  62. 450 DATA "Melvin O. Duke"
  63. 454 DATA "P. O. Box 20836"
  64. 458 DATA "San Jose, CA  95160"
  65. 462 DATA ".vt 4"
  66. 466 DATA "Copyright (c) 1983, by:"
  67. 470 DATA "Melvin O. Duke."
  68. 474 DATA ".sp"
  69. 478 DATA "All rights reserved."
  70. 482 '
  71. 500 REM Top of each page routine
  72. 510 IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  73. 520 LPRINT
  74. 530 LPRINT TAB(30); TRIM.LINE$
  75. 540 LPRINT DASHES$ 'Dashes
  76. 550 FOR I = 1 TO 6
  77. 560  LPRINT
  78. 570 NEXT I
  79. 580 LINE.NO = LINE.NO + 6
  80. 590 RETURN
  81. 600 '
  82. 610 REM Bottom of each page Routine
  83. 620 IF PAGE.NO < 1 THEN LPRINT : LPRINT : LPRINT : GOTO 740
  84. 630 LPRINT TAB(TAB.POS); STRING$(40,45)  'on line 46
  85. 640 LPRINT TAB(TAB.POS+3); TITLE$+" ON DISPLAY.  Version 1.3" 'on line 47
  86. 650 IF PAGE.NO MOD 2 = 1 THEN 690
  87. 660 LPRINT TAB(TAB.POS);"Page";PAGE.NO;
  88. 670 LPRINT TAB(TAB.POS+27);"User's Manual"
  89. 680 GOTO 740
  90. 690 LPRINT TAB(TAB.POS); "User's Manual";
  91. 700 IF PAGE.NO < 10 THEN DELTA = 34
  92. 710 IF PAGE.NO >  9 THEN DELTA = 33
  93. 720 IF PAGE.NO > 99 THEN DELTA = 32
  94. 730 LPRINT TAB(TAB.POS+DELTA); "Page"; PAGE.NO  'on line 48
  95. 740 LPRINT : LPRINT : LPRINT
  96. 750 LPRINT DASHES$ 'dashes after 51
  97. 760 LPRINT TAB(30); TRIM.LINE$
  98. 770 LPRINT CHR$(12);
  99. 780 PAGE.NO = PAGE.NO + 1
  100. 790 LINE.NO = 1
  101. 800 IF REPLY$ = ".eof" THEN 820  'Bypass after last page
  102. 810 GOSUB 500  'For top of next page
  103. 820 IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  104. 830 RETURN
  105. 840 '
  106. 850 REM Command Processor
  107. 860 IF LEFT$(REPLY$,3) = ".h1" THEN 960
  108. 870 IF LEFT$(REPLY$,3) = ".h2" THEN 1100
  109. 880 IF LEFT$(REPLY$,3) = ".h3" THEN 1210
  110. 890 IF LEFT$(REPLY$,3) = ".sp" THEN 1320
  111. 900 IF LEFT$(REPLY$,4) = ".eof" THEN 1370
  112. 910 IF LEFT$(REPLY$,3) = ".pa" THEN 1410
  113. 920 IF LEFT$(REPLY$,3) = ".vt" THEN 1480
  114. 930 IF LEFT$(REPLY$,3) = ".pk" THEN 1590
  115. 940 IF LEFT$(REPLY$,3) = ".in" THEN 1720
  116. 950 STOP
  117. 960 REM Head 1 Processor
  118. 970 FOR I = LINE.NO TO 44
  119. 980  LPRINT
  120. 990 NEXT I
  121. 1000 GOSUB 610  'Bottom of page Routine
  122. 1010 IF PAGE.NO MOD 2 = 0 THEN GOSUB 1410  'For h1 on Odd pages
  123. 1020 LPRINT CHR$(14);  'Set expanded print
  124. 1030 IF PAGE.NO MOD 2 = 0 THEN ADJUST = -4 ELSE ADJUST = -7
  125. 1040 LPRINT TAB(TAB.POS+ADJUST); RIGHT$(REPLY$,LEN(REPLY$)-4)
  126. 1050 LPRINT CHR$(18);  'Return to normal
  127. 1060 LINE.NO = LINE.NO+1
  128. 1070 IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  129. 1080 RETURN
  130. 1090 '
  131. 1100 REM Head 2 Processor
  132. 1110 IF LINE.NO = 7 THEN 1130 'skip spacing if at top of page
  133. 1120 IF LINE.NO > 43 THEN GOSUB 1410 ELSE LPRINT:LPRINT:LINE.NO = LINE.NO+2
  134. 1130 LPRINT CHR$(27); "E"; 'Set emphasized print
  135. 1140 LPRINT TAB(TAB.POS); RIGHT$(REPLY$,LEN(REPLY$)-4)
  136. 1150 LPRINT CHR$(27); "F"; 'Return to normal
  137. 1160 LPRINT
  138. 1170 LINE.NO = LINE.NO + 2
  139. 1180 IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  140. 1190 RETURN
  141. 1200 '
  142. 1210 REM Head 3 Processor
  143. 1220 IF LINE.NO = 7 THEN 1240 'skip spacing if at top of page
  144. 1230 IF LINE.NO > 43 THEN GOSUB 1410 ELSE LPRINT:LPRINT:LINE.NO = LINE.NO+2
  145. 1240 LPRINT CHR$(27); "E"; 'Set emphasized print
  146. 1250 LPRINT TAB(TAB.POS); RIGHT$(REPLY$,LEN(REPLY$)-4)
  147. 1260 LPRINT CHR$(27); "F"; 'Return to normal
  148. 1270 LPRINT
  149. 1280 LINE.NO = LINE.NO + 2
  150. 1290 IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  151. 1300 RETURN
  152. 1310 '
  153. 1320 REM Single Space Processor
  154. 1330 IF LINE.NO = 7 THEN 1350
  155. 1340 IF LINE.NO > 44 THEN GOSUB 1410 ELSE LPRINT : LINE.NO = LINE.NO + 1
  156. 1350 IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  157. 1360 RETURN
  158. 1370 REM End of File Processor
  159. 1380 GOSUB 1410 'Bottom of Page
  160. 1390 LPRINT CHR$(12);
  161. 1400 GOTO 15470
  162. 1410 REM Page Eject Processor
  163. 1420 FOR I = LINE.NO TO 44
  164. 1430  LPRINT
  165. 1440  LINE.NO = LINE.NO + 1
  166. 1450 NEXT I
  167. 1460 GOSUB 610  'Bottom of Page Processing
  168. 1470 RETURN
  169. 1480 REM Vertical Tab Processor
  170. 1490 IF LINE.NO = 7 THEN 1580
  171. 1500 IF LINE.NO > 44 THEN GOSUB 610  'End of page
  172. 1510 QTY = VAL(RIGHT$(REPLY$,LEN(REPLY$)-3))
  173. 1520 FOR I = 1 TO QTY
  174. 1530  LPRINT
  175. 1540  LINE.NO = LINE.NO + 1
  176. 1550  IF LINE.NO > 44 THEN I = QTY
  177. 1560 NEXT I
  178. 1570 IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  179. 1580 RETURN
  180. 1590 REM Pack Processor
  181. 1600 IF LINE.NO > 44 THEN GOSUB 610
  182. 1610 IF TAB.POS = 8 THEN ADJUST = 4
  183. 1620 IF TAB.POS = 13 THEN ADJUST = 7
  184. 1630 TAB.POS = TAB.POS + ADJUST + INDENT
  185. 1640 LPRINT CHR$(15); 'Packed printing
  186. 1650 WIDTH "lpt1:", 132 'set condensed width
  187. 1660 LPRINT TAB(TAB.POS); RIGHT$(REPLY$,LEN(REPLY$)-3)
  188. 1670 LPRINT CHR$(18); 'Return to normal
  189. 1680 WIDTH "lpt1:", 80  'return to normal
  190. 1690 LINE.NO = LINE.NO + 1
  191. 1700 IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  192. 1710 RETURN
  193. 1720 REM Indent Processor
  194. 1730 INDENT = VAL(RIGHT$(REPLY$,LEN(REPLY$)-3))
  195. 1740 RETURN
  196. 1750 DATA ".h1 TABLE OF CONTENTS"
  197. 1760 DATA ".sp"
  198. 1770 DATA "INTRODUCTION - - - - - - - - - - - -   1"
  199. 1780 DATA "  OVERVIEW - - - - - - - - - - - - -   1"
  200. 1790 DATA "  CAPABILITIES - - - - - - - - - - -   1"
  201. 1800 DATA "    Display the Genealogy  - - - - -   2"
  202. 1810 DATA "    Print Pedigree Charts  - - - - -   2"
  203. 1820 DATA "    Print Family Group Sheets  - - -   3"
  204. 1830 DATA "    Create the Data Files  - - - - -   3"
  205. 1840 DATA "    Update the Data Files  - - - - -   3"
  206. 1850 DATA "    Create the Indices - - - - - - -   4"
  207. 1860 DATA "    List the Records in the File - -   4"
  208. 1870 DATA "    Printing the Contents of the"
  209. 1880 DATA "      files  - - - - - - - - - - - -   4"
  210. 1890 DATA "    Alphabetical Lists - - - - - - -   5"
  211. 1900 DATA "    Parent/Child Index List  - - - -   5"
  212. 1910 DATA "  BENEFITS/ADVANTAGES  - - - - - - -   6"
  213. 1920 DATA "  RESULTS  - - - - - - - - - - - - -   6"
  214. 1930 DATA "  REQUIREMENTS - - - - - - - - - - -   7"
  215. 1940 DATA "    Hardware Requirements  - - - - -   7"
  216. 1950 DATA "    Software Requirements  - - - - -   8"
  217. 1960 DATA ".sp"
  218. 1970 DATA "GENERAL INFORMATION  - - - - - - - -   9"
  219. 1980 DATA "  DESCRIPTION OF FUNCTIONS - - - - -   9"
  220. 1990 DATA "    File Creation  - - - - - - - - -   9"
  221. 2000 DATA "    File Maintenance - - - - - - - -   9"
  222. 2010 DATA "    File Indices - - - - - - - - - -   9"
  223. 2020 DATA "    Summary Lists  - - - - - - - - -  10"
  224. 2030 DATA "    Detailed Data  - - - - - - - - -  10"
  225. 2040 DATA "    Displaying the Genealogy - - - -  10"
  226. 2050 DATA "    Printing Pedigree Charts - - - -  11"
  227. 2060 DATA "    Printing Family Group Sheets - -  11"
  228. 2070 DATA ".pa"
  229. 2080 DATA "  DEFINITION OF TERMS  - - - - - - -  12"
  230. 2090 DATA "    Personal Information - - - - - -  12"
  231. 2100 DATA "    Pedigree Information - - - - - -  12"
  232. 2110 DATA "    Family Group Information - - - -  12"
  233. 2120 DATA "    Ordinance Information  - - - - -  13"
  234. 2130 DATA "  EXPLANATION OF GENERAL CONCEPTS  -  14"
  235. 2140 DATA "    Persfile - - - - - - - - - - - -  15"
  236. 2150 DATA "    Marrfile - - - - - - - - - - - -  16"
  237. 2160 DATA "    Pcindex  - - - - - - - - - - - -  17"
  238. 2170 DATA "    Mindex - - - - - - - - - - - - -  17"
  239. 2180 DATA "    Ordfile  - - - - - - - - - - - -  18"
  240. 2190 DATA "    Relationships  - - - - - - - - -  19"
  241. 2200 DATA "  BEFORE YOU START - - - - - - - - -  20"
  242. 2205 DATA "    List of Persons  - - - - - - - -  20"
  243. 2207 DATA "    List of Marriages  - - - - - - -  22"
  244. 2210 DATA ".sp"
  245. 2220 DATA "USING THE PROGRAM  - - - - - - - - -  23"
  246. 2225 DATA "  GETTING STARTED  - - - - - - - - -  23"
  247. 2230 DATA "  FIRST TIME USAGE - - - - - - - - -  25"
  248. 2240 DATA "    Caution  - - - - - - - - - - - -  26"
  249. 2260 DATA "  HOW TO OPERATE - - - - - - - - - -  27"
  250. 2270 DATA "    Operating the updatper program -  27"
  251. 2280 DATA "    Operating the updatmar program -  29"
  252. 2290 DATA "    Operating the updatord program -  30"
  253. 2295 DATA "    Operating the indexpc program  -  31"
  254. 2296 DATA "    Operating the indexmar program -  32"
  255. 2300 DATA "    Operating the display program  -  33"
  256. 2310 DATA "    Operating the pedigree program -  36"
  257. 2320 DATA "    Operating the family program - -  37"
  258. 2330 DATA "    Operating the other programs - -  38"
  259. 2340 DATA "  HOW TO STOP  - - - - - - - - - - -  39"
  260. 2350 DATA "    Stopping the update programs - -  39"
  261. 2370 DATA "    Stopping the display program - -  39"
  262. 2380 DATA "    Stopping the pedigree program  -  39"
  263. 2390 DATA "    Stopping the family program  - -  39"
  264. 2400 DATA "    Stopping the other programs  - -  40"
  265. 2410 DATA ".pa"
  266. 2420 DATA "REFERENCE MATERIAL - - - - - - - - -  41"
  267. 2430 DATA "  SAMPLE SCREENS AND PROMPTING"
  268. 2440 DATA "      MESSAGES - - - - - - - - - - -  41"
  269. 2450 DATA "    Personal Information - - - - - -  44"
  270. 2460 DATA "    Pedigree Information - - - - - -  45"
  271. 2470 DATA "    Family Group Information - - - -  46"
  272. 2480 DATA "    Ordinance Information  - - - - -  47"
  273. 2490 DATA "  COMMANDS USED  - - - - - - - - - -  48"
  274. 2500 DATA "    Basic Command  - - - - - - - - -  48"
  275. 2510 DATA "    Load Command - - - - - - - - - -  48"
  276. 2520 DATA "    Run Command  - - - - - - - - - -  48"
  277. 2530 DATA ".sp"
  278. 2540 DATA "APPENDIX A.  MESSAGES  - - - - - - -  49"
  279. 2550 DATA "  Start-up Messages  - - - - - - - -  49"
  280. 2560 DATA "  Error Messages - - - - - - - - - -  50"
  281. 2570 DATA ".sp"
  282. 2580 DATA "APPENDIX B. SUMMARY  - - - - - - - -  51"
  283. 2590 DATA "  General Programs - - - - - - - - -  51"
  284. 2600 DATA "  Documentation  - - - - - - - - - -  52"
  285. 2620 DATA ".sp"
  286. 2630 DATA "APPENDIX C. HINTS  - - - - - - - - -  53"
  287. 2640 DATA "  Names  - - - - - - - - - - - - - -  53"
  288. 2650 DATA "  Dates  - - - - - - - - - - - - - -  53"
  289. 2660 DATA "  Commas - - - - - - - - - - - - - -  53"
  290. 2670 DATA "  Replacing with Blanks  - - - - - -  54"
  291. 2680 DATA "  Placement of Programs  - - - - - -  54"
  292. 2800 DATA ".pa"
  293. 2810 DATA "APPENDIX D.  MODIFICATIONS - - - - -  55"
  294. 2820 DATA "  Changing the Number of Persons - -  55"
  295. 2830 DATA "  Changing the Number of Marriages -  59"
  296. 2840 DATA "  Repositioning the Data Files - - -  62"
  297. 2850 DATA "    Persons File - - - - - - - - - -  62"
  298. 2860 DATA "    Marriages File - - - - - - - - -  63"
  299. 2870 DATA "    Ordinances File  - - - - - - - -  64"
  300. 2880 DATA "    Parent/Child Index - - - - - - -  65"
  301. 2890 DATA "    Marriages Index  - - - - - - - -  66"
  302. 2900 DATA "  Removing the Ordinances File - - -  67"
  303. 2910 DATA "  Changing the Ordinances File - - -  68"
  304. 2920 DATA "  Utilizing Other Printers - - - - -  69"
  305. 2930 DATA ".sp"
  306. 2940 DATA "APPENDIX E.  TERMS & CONDITIONS  - -  73"
  307. 2950 DATA "  Terms  - - - - - - - - - - - - - -  73"
  308. 2960 DATA "  Conditions - - - - - - - - - - - -  74"
  309. 2980 DATA "  Disclaimer - - - - - - - - - - - -  74"
  310. 15460 DATA ".eof"
  311. 15470 END
  312. 60 DATA "the user may have asked for a Family"
  313. 11770 DATA "Group (fg), as:"
  314. 11780 DATA ".sp"
  315. 11790 DAT