home *** CD-ROM | disk | FTP | other *** search
/ PC-SIG Library 8 / PC-SIG Library CD-ROM (8th Edition) (1990-04).iso / 001_100 / disk0090 / overview.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1989-01-30  |  12.8 KB  |  399 lines
  1. 100  REM OVERVIEW Program
  2. 110  REM Screen Overview of Genealogy ON DISPLAY
  3. 120  REM Copyright 1986 ... 1989 by:  Melvin O. Duke
  4. 130  KEY OFF
  5. 140  SCREEN 0,1,0
  6. 150  SCREEN 1 : COLOR 1 : CLS
  7. 160  LOCATE  4,10 : PRINT "Genealogy ON DISPLAY";
  8. 170  LOCATE  6,14 : PRINT "Version 6.0";
  9. 180  LOCATE 10, 8 : PRINT "A User-Supported Program";
  10. 190  LOCATE 14,10 : PRINT "By:  Melvin O. Duke";
  11. 200  LOCATE 16,13 : PRINT "P.O. Box 2048";
  12. 210  LOCATE 18, 6 : PRINT "Morgan Hill, CA  95038-2048";
  13. 220  LOCATE 23, 1 : PRINT "Press the escape key (Esc) to end, or";
  14. 230  LOCATE 24, 1 : PRINT "Press any key to continue at each pause";
  15. 240  GOSUB 3870 'pause
  16. 250  CLS
  17. 260  LOCATE  1,10 : PRINT "CAPABILITIES";
  18. 270  LOCATE  4, 2 : PRINT "CHARTS:";
  19. 280  LOCATE  4,15 : PRINT "Ancestors";
  20. 290  LOCATE  6,15 : PRINT "Families";
  21. 300  LOCATE  8,15 : PRINT "Descendants";
  22. 310  GOSUB 3870 'pause
  23. 320  LOCATE 11, 2 : PRINT "LISTS:";
  24. 330  LOCATE 11,15 : PRINT "Persons (numeric)";
  25. 340  LOCATE 13,15 : PRINT "Persons (alphabetic)";
  26. 350  LOCATE 15,15 : PRINT "Marriages (numeric)";
  27. 360  LOCATE 17,15 : PRINT "Marriages (alphabetic)";
  28. 370  LOCATE 19,15 : PRINT "Parent/Child Index";
  29. 380  GOSUB 3870 'pause
  30. 390  LOCATE 22, 2 : PRINT "DETAILS:";
  31. 400  LOCATE 22,15 : PRINT "About Persons";
  32. 410  LOCATE 24,15 : PRINT "About Marriages";
  33. 420  GOSUB 3870 'pause
  34. 430  CLS
  35. 440  LOCATE  1,10 : PRINT "CAPABILITIES, Cont.";
  36. 450  LOCATE  4, 2 : PRINT "SCREEN:";
  37. 460  LOCATE  4,15 : PRINT "(This is where";
  38. 470  LOCATE  6,15 : PRINT "Genealogy ON DISPLAY";
  39. 480  LOCATE  8,15 : PRINT "Got its Name)";
  40. 490  LOCATE 12,15 : PRINT "Ancestors";
  41. 500  LOCATE 14,15 : PRINT "Families";
  42. 510  LOCATE 16,15 : PRINT "Descendants";
  43. 520  LOCATE 18,15 : PRINT "Personal Detail";
  44. 530  LOCATE 20,15 : PRINT "LDS Ordinances";
  45. 540  GOSUB 3870 'pause
  46. 550  CLS
  47. 560  LOCATE  2,10 : PRINT "DATA STORAGE PRINCIPLE";
  48. 570  LOCATE  6, 2 : PRINT "Information Must be Recorded one time";
  49. 580  LOCATE  8, 2 : PRINT "only.";
  50. 590  GOSUB 3870 'pause
  51. 600  LOCATE 13,10 : PRINT "DATA BASE PRINCIPLE";
  52. 610  LOCATE 17, 2 : PRINT "Data Storage Must be Separated from";
  53. 620  LOCATE 19, 2 : PRINT "Data Presentation.";
  54. 630  GOSUB 3870 'pause
  55. 640  CLS
  56. 650  LOCATE  2,10 : PRINT "FILES";
  57. 660  LOCATE  7, 2 : PRINT "DATA FILES:";
  58. 670  LOCATE  7,15 : PRINT "Persons File";
  59. 680  LOCATE  9,15 : PRINT "Marriages File";
  60. 690  LOCATE 11,15 : PRINT "Ordinances File (LDS)";
  61. 700  GOSUB 3870 'pause
  62. 710  LOCATE 17, 2 : PRINT "INDEXES:";
  63. 720  LOCATE 17,15 : PRINT "Parent/Child Index";
  64. 730  LOCATE 19,15 : PRINT "Marriage Index";
  65. 740  GOSUB 3870 'pause
  66. 750  CLS
  67. 760  LOCATE  2,10 : PRINT "RECORDS";
  68. 770  LOCATE  6, 2 : PRINT "Person Record";
  69. 780  R1 = 7 : C1 =  1 : R2 = 9 : C2 = 40 : GOSUB 3970 'box
  70. 790  R1 = 7 : C1 =  7 : R2 = 9 : C2 =  7 : GOSUB 4020 'line
  71. 800  R1 = 7 : C1 = 30 : R2 = 9 : C2 = 30 : GOSUB 3970 'line
  72. 810  R1 = 7 : C1 = 35 : R2 = 9 : C2 = 35 : GOSUB 3970 'line
  73. 820  LOCATE  8, 3 : PRINT "P.No";
  74. 830  LOCATE  8,10 : PRINT "Vital Statistics";
  75. 840  LOCATE  8,31 : PRINT "F.No";
  76. 850  LOCATE  8,36 : PRINT "M.No";
  77. 860  GOSUB 3870 'pause
  78. 870  LOCATE 13, 2 : PRINT "Marriage Record"
  79. 880  R1 = 14 : C1 =  1 : R2 = 16 : C2 = 40 : GOSUB 3970 'box
  80. 890  R1 = 14 : C1 =  7 : R2 = 16 : C2 =  7 : GOSUB 4020 'line
  81. 900  R1 = 14 : C1 = 30 : R2 = 16 : C2 = 30 : GOSUB 4020 'line
  82. 910  R1 = 14 : C1 = 35 : R2 = 16 : C2 = 35 : GOSUB 4020 'line
  83. 920  LOCATE 15, 3 : PRINT "M.No";
  84. 930  LOCATE 15,10 : PRINT "Vital Statistics";
  85. 940  LOCATE 15,31 : PRINT "H.No";
  86. 950  LOCATE 15,36 : PRINT "W.No";
  87. 960  GOSUB 3870 'pause
  88. 970  LOCATE 20, 2 : PRINT "Ordinance Record"
  89. 980  R1 = 21 : C1 = 1 : R2 = 23 : C2 = 40 : GOSUB 3970 'box
  90. 990  R1 = 21 : C1 = 7 : R2 = 23 : C2 =  7 : GOSUB 4020 'box
  91. 1000  LOCATE 22, 3 : PRINT "P.No";
  92. 1010  LOCATE 22,10 : PRINT "LDS Ordinances";
  93. 1020  GOSUB 3870 'pause
  94. 1030  CLS
  95. 1040  LOCATE  2,10 : PRINT "BUILDING A CHART OF ANCESTORS";
  96. 1050  REM Person
  97. 1060  LOCATE 14, 2 : PRINT "P       F M";
  98. 1070  R1 = 13 : C1 =  1 : R2 = 15 : C2 = 13 : GOSUB 3970 'box
  99. 1080  R1 = 13 : C1 =  9 : R2 = 15 : C2 =  9 : GOSUB 4020 'line
  100. 1090  R1 = 13 : C1 = 11 : R2 = 15 : C2 = 11 : GOSUB 4020 'line
  101. 1100  GOSUB 3870 'pause
  102. 1110  REM Father
  103. 1120  LOCATE  8,10 : PRINT "P       F M";
  104. 1130  R1 =  7 : C1 =  9 : R2 = 9 : C2 = 21 : GOSUB 3970 'box
  105. 1140  R1 =  7 : C1 = 17 : R2 = 9 : C2 = 17 : GOSUB 4020 'line
  106. 1150  R1 =  7 : C1 = 19 : R2 = 9 : C2 = 19 : GOSUB 4020 'line
  107. 1160  R1 = 13 : C1 = 10 : R2 = 9 : C2 = 10 : GOSUB 4020 'line
  108. 1170  GOSUB 3870 'pause
  109. 1180  REM Mother
  110. 1190  LOCATE 20,12 : PRINT "P       F M";
  111. 1200  R1 = 19 : C1 = 11 : R2 = 21 : C2 = 23 : GOSUB 3970 'box
  112. 1210  R1 = 19 : C1 = 19 : R2 = 21 : C2 = 19 : GOSUB 4020 'line
  113. 1220  R1 = 19 : C1 = 21 : R2 = 21 : C2 = 21 : GOSUB 4020 'line
  114. 1230  R1 = 15 : C1 = 12 : R2 = 19 : C2 = 12 : GOSUB 4020 'line
  115. 1240  GOSUB 3870 'pause
  116. 1250  REM Paternal Grandfather
  117. 1260  LOCATE  5,18 : PRINT "P       F M";
  118. 1270  R1 =  4 : C1 = 17 : R2 =  6 : C2 = 29 : GOSUB 3970 'box
  119. 1280  R1 =  4 : C1 = 25 : R2 =  6 : C2 = 25 : GOSUB 4020 'line
  120. 1290  R1 =  4 : C1 = 27 : R2 =  6 : C2 = 27 : GOSUB 4020 'line
  121. 1300  R1 =  6 : C1 = 18 : R2 =  7 : C2 = 18 : GOSUB 4020 'line
  122. 1310  GOSUB 3870 'pause
  123. 1320  REM Paternal Grandmother
  124. 1330  LOCATE 11,20 : PRINT "P       F M";
  125. 1340  R1 = 10 : C1 = 19 : R2 = 12 : C2 = 31 : GOSUB 3970 'box
  126. 1350  R1 = 10 : C1 = 27 : R2 = 12 : C2 = 27 : GOSUB 4020 'line
  127. 1360  R1 = 10 : C1 = 29 : R2 = 12 : C2 = 29 : GOSUB 4020 'line
  128. 1370  R1 =  9 : C1 = 20 : R2 = 10 : C2 = 20 : GOSUB 4020 'line
  129. 1380  GOSUB 3870 'pause
  130. 1390  REM Maternal Grandfather
  131. 1400  LOCATE 17,20 : PRINT "P       F M";
  132. 1410  R1 = 16 : C1 = 19 : R2 = 18 : C2 = 31 : GOSUB 3970 'box
  133. 1420  R1 = 16 : C1 = 27 : R2 = 18 : C2 = 27 : GOSUB 4020 'line
  134. 1430  R1 = 16 : C1 = 29 : R2 = 18 : C2 = 29 : GOSUB 4020 'line
  135. 1440  R1 = 18 : C1 = 20 : R2 = 19 : C2 = 20 : GOSUB 4020 'line
  136. 1450  GOSUB 3870 'pause
  137. 1460  REM Maternal Grandmother
  138. 1470  LOCATE 23,22 : PRINT "P       F M";
  139. 1480  R1 = 22 : C1 = 21 : R2 = 24 : C2 = 33 : GOSUB 3970 'box
  140. 1490  R1 = 22 : C1 = 29 : R2 = 24 : C2 = 29 : GOSUB 4020 'line
  141. 1500  R1 = 22 : C1 = 31 : R2 = 24 : C2 = 31 : GOSUB 4020 'line
  142. 1510  R1 = 22 : C1 = 22 : R2 = 21 : C2 = 22 : GOSUB 4020 'line
  143. 1520  GOSUB 3870 'pause
  144. 1530  CLS
  145. 1540  LOCATE  2,10 : PRINT "INDEXES";
  146. 1550  LOCATE  6, 2 : PRINT "Parent/Child Index";
  147. 1560  R1 =  7 : C1 =  8 : R2 = 13 : C2 = 28 : GOSUB 3970 'box
  148. 1570  R1 =  7 : C1 = 15 : R2 = 13 : C2 = 15 : GOSUB 4020 'line
  149. 1580  R1 =  7 : C1 = 21 : R2 = 13 : C2 = 21 : GOSUB 4020 'line
  150. 1590  R1 =  9 : C1 =  8 : R2 =  9 : C2 = 28 : GOSUB 4020 'line
  151. 1600  R1 = 11 : C1 =  8 : R2 = 11 : C2 = 28 : GOSUB 4020 'line
  152. 1610  LOCATE  8, 9 : PRINT "Parent";
  153. 1620  LOCATE  8,16 : PRINT "Child";
  154. 1630  LOCATE  8,22 : PRINT "B-Date";
  155. 1640  LOCATE 10, 9 : PRINT "Parent";
  156. 1650  LOCATE 10,16 : PRINT "Child";
  157. 1660  LOCATE 10,22 : PRINT "B-Date";
  158. 1670  LOCATE 12, 9 : PRINT "Parent";
  159. 1680  LOCATE 12,16 : PRINT "Child";
  160. 1690  LOCATE 12,22 : PRINT "B-Date";
  161. 1700  GOSUB 3870 'pause
  162. 1710  LOCATE 16, 2 : PRINT "Marriages Index";
  163. 1720  R1 = 17 : C1 =  8 : R2 = 23 : C2 = 28 : GOSUB 3970 'box
  164. 1730  R1 = 19 : C1 =  8 : R2 = 19 : C2 = 28 : GOSUB 4020 'line
  165. 1740  R1 = 21 : C1 =  8 : R2 = 21 : C2 = 28 : GOSUB 4020 'line
  166. 1750  R1 = 17 : C1 = 15 : R2 = 23 : C2 = 15 : GOSUB 4020 'line
  167. 1760  R1 = 17 : C1 = 21 : R2 = 23 : C2 = 21 : GOSUB 4020 'line
  168. 1770  LOCATE 18, 9 : PRINT "Person";
  169. 1780  LOCATE 18,16 : PRINT "Marr.";
  170. 1790  LOCATE 18,22 : PRINT "M-Date";
  171. 1800  LOCATE 20, 9 : PRINT "Person";
  172. 1810  LOCATE 20,16 : PRINT "Marr.";
  173. 1820  LOCATE 20,22 : PRINT "M-Date";
  174. 1830  LOCATE 22, 9 : PRINT "Person";
  175. 1840  LOCATE 22,16 : PRINT "Marr.";
  176. 1850  LOCATE 22,22 : PRINT "M-Date";
  177. 1860  GOSUB 3870 'pause
  178. 1870  CLS
  179. 1880  LOCATE  4,14 : PRINT "DATA BASE";
  180. 1890  LOCATE 10, 8 : PRINT "A Relationship-Indexed";
  181. 1900  LOCATE 12, 8 : PRINT "Data-base Organization";
  182. 1910  LOCATE 20, 9 : PRINT "Ties it all together";
  183. 1920  GOSUB 3870 'pause
  184. 1930  CLS
  185. 1940  LOCATE  2,10 : PRINT "BUILDING A CHART OF A FAMILY";
  186. 1950  R1 = 10 : C1 = 2 : R2 = 12 : C2 = 11 : GOSUB 3970 'box
  187. 1960  LOCATE 11, 3 : PRINT "Marriage";
  188. 1970  GOSUB 3870 'pause
  189. 1980  R1 =  5 : C1 =  2 : R2 =  7 : C2 = 11 : GOSUB 3970 'box
  190. 1990  LOCATE  6, 3 : PRINT "Person";
  191. 2000  R1 =  7 : C1 = 20 : R2 = 10 : C2 = 29 : GOSUB 3970 'box
  192. 2010  LOCATE  8,21 : PRINT "Marriage";
  193. 2020  LOCATE  9,21 : PRINT "Index";
  194. 2030  R1 =  7 : C1 = 11 : R2 =  7 : C2 = 20 : GOSUB 4020 'line
  195. 2040  R1 = 10 : C1 = 20 : R2 = 10 : C2 = 11 : GOSUB 4020 'line
  196. 2050  GOSUB 3870 'pause
  197. 2060  R1 = 12 : C1 = 20 : R2 = 16 : C2 = 29 : GOSUB 3970 'box
  198. 2070  LOCATE 13,21 : PRINT "Parent/";
  199. 2080  LOCATE 14,21 : PRINT " Child";
  200. 2090  LOCATE 15,21 : PRINT "Index";
  201. 2100  R1 = 16 : C1 =  2 : R2 = 18 : C2 = 11 : GOSUB 3970 'box
  202. 2110  LOCATE 17, 3 : PRINT "Child";
  203. 2120  R1 = 12 : C1 = 11 : R2 = 12 : C2 = 20 : GOSUB 4020 'line
  204. 2130  R1 = 16 : C1 = 20 : R2 = 16 : C2 = 11 : GOSUB 4020 'line
  205. 2140  GOSUB 3870 'pause
  206. 2150  R1 = 18 : C1 =  2 : R2 = 20 : C2 = 11 : GOSUB 3970 'box
  207. 2160  LOCATE 19, 3 : PRINT "Child";
  208. 2170  GOSUB 3870 'pause
  209. 2180  R1 = 20 : C1 =  2 : R2 = 22 : C2 = 11 : GOSUB 3970 'box
  210. 2190  LOCATE 21, 3 : PRINT "Child";
  211. 2200  GOSUB 3870 'pause
  212. 2210  R1 = 22 : C1 =  2 : R2 = 24 : C2 = 11 : GOSUB 3970 'box
  213. 2220  LOCATE 23, 3 : PRINT "Child";
  214. 2230  GOSUB 3870 'pause
  215. 2240  CLS
  216. 2250  LOCATE  2,10 : PRINT "GETTING STARTED";
  217. 2260  LOCATE  8, 2 : PRINT "List of Persons";
  218. 2270  LOCATE 12, 2 : PRINT "List of Marriages";
  219. 2280  LOCATE 16, 2 : PRINT "Available Space for Data";
  220. 2290  GOSUB 3870 'pause
  221. 2300  CLS
  222. 2310  LOCATE  2,10 : PRINT "LIST OF PERSONS";
  223. 2320  LOCATE  5, 2 : PRINT "Number  Name            F.No  M.No"
  224. 2330  LOCATE  7, 2 : PRINT "  1";
  225. 2340  LOCATE  9, 2 : PRINT "  2";
  226. 2350  LOCATE 11, 2 : PRINT "  3";
  227. 2360  LOCATE 13, 2 : PRINT "  4";
  228. 2370  LOCATE 15, 2 : PRINT "  5";
  229. 2380  LOCATE 17, 2 : PRINT "  6";
  230. 2390  LOCATE 19, 2 : PRINT "  7";
  231. 2400  LOCATE 21, 2 : PRINT "  8";
  232. 2410  GOSUB 3870 'pause
  233. 2420  LOCATE  7,10 : PRINT "You";
  234. 2430  GOSUB 3870 'pause
  235. 2440  LOCATE  9,10 : PRINT "Your Father";
  236. 2450  GOSUB 3870 'pause
  237. 2460  LOCATE 11,10 : PRINT "Your Mother";
  238. 2470  GOSUB 3870 'pause
  239. 2480  LOCATE  7,26 : PRINT "  2";
  240. 2490  LOCATE  7,32 : PRINT "  3";
  241. 2500  GOSUB 3870 'pause
  242. 2510  LOCATE 13,10 : PRINT "Your Spouse";
  243. 2520  GOSUB 3870 'pause
  244. 2530  CLS
  245. 2540  LOCATE  2,10 : PRINT "LIST OF MARRIAGES";
  246. 2550  LOCATE  5, 2 : PRINT "M.No.  H.No  Husband    W.No  Wife";
  247. 2560  LOCATE  7, 2 : PRINT "  1";
  248. 2570  LOCATE  9, 2 : PRINT "  2";
  249. 2580  LOCATE 11, 2 : PRINT "  3";
  250. 2590  LOCATE 13, 2 : PRINT "  4";
  251. 2600  LOCATE 15, 2 : PRINT "  5";
  252. 2610  LOCATE 17, 2 : PRINT "  6";
  253. 2620  LOCATE 19, 2 : PRINT "  7";
  254. 2630  LOCATE 21, 2 : PRINT "  8";
  255. 2640  GOSUB 3870 'pause
  256. 2650  LOCATE  7, 9 : PRINT "  2   Dad";
  257. 2660  LOCATE  7,26 : PRINT "  3   Mom";
  258. 2670  GOSUB 3870 'pause
  259. 2680  LOCATE  9, 9 : PRINT "  1   Mel";
  260. 2690  LOCATE  9,26 : PRINT "  4   Helen";
  261. 2700  GOSUB 3870 'pause
  262. 2710  CLS
  263. 2720  LOCATE 10,10 : PRINT "LET'S GET STARTED";
  264. 2730  GOSUB 3870 'pause
  265. 2740  CLS
  266. 2750  LOCATE  3, 6 : PRINT "BRING UP BASIC";
  267. 2760  LOCATE  7, 2 : PRINT "Type:   basic/s:256";
  268. 2770  LOCATE  9, 4 : PRINT "and press the 'enter' key.";
  269. 2780  LOCATE 13, 4 : PRINT "(Need a 256 byte file buffer"
  270. 2790  LOCATE 15, 4 : PRINT " for the Genealogy Records)"
  271. 2800  GOSUB 3870 'pause
  272. 2810  CLS
  273. 2820  LOCATE  3, 6 : PRINT "BRING UP THE GENEALOGY MENU";
  274. 2830  LOCATE  7, 2 : PRINT "Type:   run ";CHR$(34);"menu";CHR$(34);
  275. 2840  LOCATE  9, 4 : PRINT "and press the 'enter' key.";
  276. 2850  GOSUB 3870 'pause
  277. 2860  CLS
  278. 2870  LOCATE  2,10 : PRINT "CREATE THE DATA FILES";
  279. 2880  LOCATE  7, 2 : PRINT "Create (format) the Persons File";
  280. 2890  LOCATE  9, 4 : PRINT "Select the CREATPER Program";
  281. 2900  GOSUB 3870 'pause
  282. 2910  LOCATE 13, 2 : PRINT "Create (format) the Marriages File";
  283. 2920  LOCATE 15, 4 : PRINT "Select the CREATMAR Program";
  284. 2930  GOSUB 3870 'pause
  285. 2940  LOCATE 19, 2 : PRINT "Create (format) the Ordinances File";
  286. 2950  LOCATE 21, 4 : PRINT "Select the CREATORD Program";
  287. 2960  GOSUB 3870 'pause
  288. 2970  CLS
  289. 2980  LOCATE  2,10 : PRINT "ENTER YOUR DATA";
  290. 2990  LOCATE  6, 2 : PRINT "Enter Personal Information";
  291. 3000  LOCATE  8, 4 : PRINT "Select the UPDATPER Program";
  292. 3010  GOSUB 3870 'pause
  293. 3020  LOCATE 12, 2 : PRINT "Enter Marriage Information";
  294. 3030  LOCATE 14, 4 : PRINT "Select the UPDATMAR Program";
  295. 3040  GOSUB 3870 'pause
  296. 3050  LOCATE 18, 2 : PRINT "Enter Ordinances Information";
  297. 3060  LOCATE 20, 4 : PRINT "Select the UPDATORD Program";
  298. 3070  GOSUB 3870 'pause
  299. 3080  CLS
  300. 3090  LOCATE  2,10 : PRINT "FORM THE INDEXES";
  301. 3100  LOCATE  6, 2 : PRINT "Form the Parent/Child Index";
  302. 3110  LOCATE  8, 4 : PRINT "Select the INDEXPC Program";
  303. 3120  LOCATE 10, 6 : PRINT "(Run when Person Records Change)";
  304. 3130  GOSUB 3870 'pause
  305. 3140  LOCATE 16, 2 : PRINT "Form the Marriages Index";
  306. 3150  LOCATE 18, 4 : PRINT "Select the INDEXMAR Program";
  307. 3160  LOCATE 20, 6 : PRINT "(Run when Marriage Records Change)";
  308. 3170  GOSUB 3870 'pause
  309. 3180  CLS
  310. 3190  LOCATE 11,10 : PRINT "NOW THE FUN BEGINS";
  311. 3200  GOSUB 3870 'pause
  312. 3210  CLS
  313. 3220  LOCATE  2,10 : PRINT "VIEW YOUR GENEALOGY";
  314. 3230  LOCATE  5, 2 : PRINT "Select the DISPLAY Program";
  315. 3240  LOCATE  7, 4 : PRINT "View Personal Information";
  316. 3250  LOCATE  9, 4 : PRINT "View Ancestors";
  317. 3260  LOCATE 11, 4 : PRINT "View Families";
  318. 3270  LOCATE 13, 4 : PRINT "View Ordinances";
  319. 3280  GOSUB 3870 'pause
  320. 3290  LOCATE 18, 2 : PRINT "Select the DESCEND Program";
  321. 3300  LOCATE 20, 4 : PRINT "View Descendants";
  322. 3310  GOSUB 3870 'pause
  323. 3320  CLS
  324. 3330  LOCATE  2,10 : PRINT "PAPER FOR THE CHARTS";
  325. 3340  LOCATE  5, 2 : PRINT "Narrow (8-1/2 inch), or"
  326. 3350  LOCATE  7, 2 : PRINT "Wide (14 inch) Paper";
  327. 3360  LOCATE 11, 2 : PRINT "Long (11 inch), or";
  328. 3370  LOCATE 13, 2 : PRINT "Short (8-1/2 inch) Paper";
  329. 3380  LOCATE 17, 2 : PRINT "Continuous Forms, or";
  330. 3390  LOCATE 19, 2 : PRINT "Single Sheets";
  331. 3400  GOSUB 3870 'pause
  332. 3410  CLS
  333. 3420  LOCATE  2,10 : PRINT "PRINT THE CHARTS";
  334. 3430  LOCATE  5, 2 : PRINT "Print Charts of Ancestors";
  335. 3440  LOCATE  7, 4 : PRINT "Select the ANCESTOR Program";
  336. 3450  GOSUB 3870 'pause
  337. 3460  LOCATE 11, 2 : PRINT "Print Charts of Families";
  338. 3470  LOCATE 13, 4 : PRINT "Select the FAMILY Program";
  339. 3480  GOSUB 3870 'pause
  340. 3490  LOCATE 17, 2 : PRINT "Print Charts of Descendants";
  341. 3500  LOCATE 19, 4 : PRINT "Select the DESCEND Program";
  342. 3510  GOSUB 3870 'pause
  343. 3520  CLS
  344. 3530  LOCATE  2,10 : PRINT "LISTS";
  345. 3540  LOCATE  5, 2 : PRINT "List of Persons by Number";
  346. 3550  LOCATE  7, 4 : PRINT "Select the LISTPER Program";
  347. 3560  GOSUB 3870 'pause
  348. 3570  LOCATE  9, 2 : PRINT "Alphabetized List of Persons";
  349. 3580  LOCATE 11, 4 : PRINT "Select the ALPHAPER Program";
  350. 3590  GOSUB 3870 'pause
  351. 3600  LOCATE 13, 2 : PRINT "List of Marriages by Number";
  352. 3610  LOCATE 15, 4 : PRINT "Select the LISTMAR Program";
  353. 3620  GOSUB 3870 'pause
  354. 3630  LOCATE 17, 2 : PRINT "Alphabetized List of Marriages";
  355. 3640  LOCATE 19, 4 : PRINT "Select the ALPHAMAR Program";
  356. 3650  GOSUB 3870 'pause
  357. 3660  LOCATE 21, 2 : PRINT "List the Parent/Child Index";
  358. 3670  LOCATE 23, 4 : PRINT "Select the LISTPCI Program";
  359. 3680  GOSUB 3870 'pause
  360. 3690  CLS
  361. 3700  LOCATE  2, 5 : PRINT "PRINT DETAILED INFORMATION";
  362. 3710  LOCATE  6, 2 : PRINT "Print Detailed Personal Data";
  363. 3720  LOCATE  9, 4 : PRINT "Select the PRINTPER Program";
  364. 3730  GOSUB 3870 'pause
  365. 3740  LOCATE 14, 2 : PRINT "Print Detailed Marriage Data";
  366. 3750  LOCATE 17, 4 : PRINT "Select the PRINTMAR Program";
  367. 3760  GOSUB 3870 'pause
  368. 3770  CLS
  369. 3780  LOCATE  4,10 : PRINT "Genealogy ON DISPLAY";
  370. 3790  LOCATE  6,14 : PRINT "Version 6.0";
  371. 3800  LOCATE 10, 8 : PRINT "A User-Supported Program";
  372. 3810  LOCATE 14,10 : PRINT "By:  Melvin O. Duke";
  373. 3820  LOCATE 16,13 : PRINT "P.O. Box 2048";
  374. 3830  LOCATE 18, 6 : PRINT "Morgan Hill, CA  95038-2048";
  375. 3840  LOCATE 23, 1
  376. 3850  GOSUB 3870 'pause
  377. 3860  GOTO 3900
  378. 3870  REM Generalized Pause Routine
  379. 3880  A$ = INKEY$
  380. 3890  IF A$ = CHR$(27) THEN 3900 ELSE 3940
  381. 3900  CLS
  382. 3910  SCREEN 0,0,0,0
  383. 3920  WIDTH "scrn:",80
  384. 3930  GOTO 4070
  385. 3940  IF A$ = "" THEN 3880
  386. 3950  RETURN
  387. 3960  '
  388. 3970  REM Generalized Box Routine
  389. 3980  REM Entry is R1, C1, R2, C2
  390. 3990  LINE (8*C1-4,8*R1-4)-(8*C2-4,8*R2-4),,B
  391. 4000  RETURN
  392. 4010  '
  393. 4020  REM Generalized Line Routine
  394. 4030  REM Entry is R1, C1, R2, C2
  395. 4040  LINE (8*C1-4,8*R1-4)-(8*C2-4,8*R2-4)
  396. 4050  RETURN
  397. 4060  '
  398. 4070  END
  399.