home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 462b.lha / AmyGen_v5.0 / director.bas < prev    next >
BASIC Source File  |  1990-12-27  |  19KB  |  525 lines
  1. 100 REM DIRECTOR Program.
  2. 110 REM Program Directory for the Genealogy ON DISPLAY Programs
  3. 120 REM Copyright (c) 1983 - 1987 by: Melvin O. Duke.
  4. ' Ported to the Amiga in March 1988 by Nathan Barber
  5. ' Adaptions for Amiga graphics (c) 1988 by Nathan Barber
  6. 130 DATA Genealogy
  7. 140 DATA Program Directory
  8. 150 DATA -1
  9. 160 DATA 1
  10. 170 INDENT = 0
  11. 180 REM Printer Definitions
  12. 190 FORM.FEED$  = CHR$(12)
  13. 200 COMPR.OFF$  = CHR$(18)     : COMPR.ON$ = CHR$(15)
  14. 210 BOLD.OFF$   = CHR$(27)+"F" : BOLD.ON$ = CHR$(27)+"E"
  15. 220 EXPAND.OFF$ = CHR$(18)     : EXPAND.ON$ = CHR$(14)
  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  :REM'For trim line and heading space
  20. 340 FOR I = 1 TO 6 : LPRINT : NEXT I
  21. 350 LPRINT BOLD.ON$;    :REM'Set Emphasized Print
  22. 360 LPRINT EXPAND.ON$;  :REM'Set Expanded Print
  23. 370 LPRINT TAB(TAB.POS-1);TITLE$
  24. 380 LPRINT EXPAND.OFF$;  :REM'Return to normal
  25. 390 LPRINT BOLD.OFF$;    :REM'Return to normal
  26. 400 FOR I = 1 TO 3 : LPRINT : NEXT I
  27. 410 LPRINT BOLD.ON$; :REM'Set Emphasized mode
  28. 420 LPRINT TAB(TAB.POS+12);"ON DISPLAY"
  29. 430 LPRINT BOLD.OFF$; :REM'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+8); DOC.NAME$
  34. 480 LINE.NO = LINE.NO + 27
  35. 490 :REM'
  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 3"
  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 :REM'
  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 "+"+STRING$(54,45)+"+" :REM'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 :REM'
  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)  :REM'on line 46
  83. 1060 LPRINT TAB(TAB.POS+3); TITLE$+" ON DISPLAY.  Version 5.0" :REM'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+23);"Program Directory"
  87. 1100 GOTO 1160
  88. 1110 LPRINT TAB(TAB.POS); "Program Directory";
  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  :REM'on line 48
  93. 1160 LPRINT : LPRINT : LPRINT
  94. 1170 LPRINT "+"+STRING$(54,45)+"+" :REM'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  :REM'Bypass after last page
  100. 1230 GOSUB 920  :REM'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 :REM'
  104. 1270 REM Command Processor
  105. 1280 IF LEFT$(REPLY$,3) = ".h1" THEN 1380
  106. 1290 IF LEFT$(REPLY$,3) = ".h2" THEN 1540
  107. 1300 IF LEFT$(REPLY$,3) = ".h3" THEN 1650
  108. 1310 IF LEFT$(REPLY$,3) = ".sp" THEN 1760
  109. 1320 IF LEFT$(REPLY$,4) = ".eof" THEN 1810
  110. 1330 IF LEFT$(REPLY$,3) = ".pa" THEN 1850
  111. 1340 IF LEFT$(REPLY$,3) = ".vt" THEN 1920
  112. 1350 IF LEFT$(REPLY$,3) = ".pk" THEN 2020
  113. 1360 IF LEFT$(REPLY$,3) = ".in" THEN 2150
  114. 1370 STOP
  115. 1380 REM Head 1 Processor
  116. 1390 FOR I = LINE.NO TO 44
  117. 1400  LPRINT
  118. 1410 NEXT I
  119. 1420 GOSUB 1030  :REM'Bottom of page Routine
  120. 1430 IF PAGE.NO MOD 2 = 0 THEN GOSUB 1850  :REM'For h1 on Odd pages
  121. 1440 LPRINT BOLD.ON$;     :REM'Set Emphasized Printing
  122. 1450 LPRINT EXPAND.ON$;   :REM'Set expanded print
  123. 1460 IF PAGE.NO MOD 2 = 0 THEN ADJUST = -2 :ELSE ADJUST = -5
  124. 1470 LPRINT TAB(TAB.POS+ADJUST); RIGHT$(REPLY$,LEN(REPLY$)-4)
  125. 1480 LPRINT EXPAND.OFF$;  :REM'Return to normal
  126. 1490 LPRINT BOLD.OFF$;    :REM'Return to non-bold
  127. 1500 LINE.NO = LINE.NO+1
  128. 1510 IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 :ELSE TAB.POS = 13
  129. 1520 RETURN
  130. 1530 :REM'
  131. 1540 REM Head 2 Processor
  132. 1550 IF LINE.NO = 7 THEN 1570 :REM'skip spacing if at top of page
  133. 1560 IF LINE.NO > 43 THEN GOSUB 1850 :ELSE LPRINT:LPRINT:LINE.NO = LINE.NO+2
  134. 1570 LPRINT BOLD.ON$;    :REM'Set emphasized print
  135. 1580 LPRINT TAB(TAB.POS+1); RIGHT$(REPLY$,LEN(REPLY$)-4)
  136. 1590 LPRINT BOLD.OFF$;   :REM'Return to normal
  137. 1600 LPRINT
  138. 1610 LINE.NO = LINE.NO + 2
  139. 1620 IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 :ELSE TAB.POS = 13
  140. 1630 RETURN
  141. 1640 :REM'
  142. 1650 REM Head 3 Processor
  143. 1660 IF LINE.NO = 7 THEN 1680 :REM'skip spacing if at top of page
  144. 1670 IF LINE.NO > 43 THEN GOSUB 1850 :ELSE LPRINT:LPRINT:LINE.NO = LINE.NO+2
  145. 1680 LPRINT BOLD.ON$;    :REM'Set emphasized print
  146. 1690 LPRINT TAB(TAB.POS+1); RIGHT$(REPLY$,LEN(REPLY$)-4)
  147. 1700 LPRINT BOLD.OFF$;   :REM'Return to normal
  148. 1710 LPRINT
  149. 1720 LINE.NO = LINE.NO + 2
  150. 1730 IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 :ELSE TAB.POS = 13
  151. 1740 RETURN
  152. 1750 :REM'
  153. 1760 REM Single Space Processor
  154. 1770 IF LINE.NO = 7 THEN 1790
  155. 1780 IF LINE.NO > 44 THEN GOSUB 1850 :ELSE LPRINT : LINE.NO = LINE.NO + 1
  156. 1790 IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 :ELSE TAB.POS = 13
  157. 1800 RETURN
  158. 1810 REM End of File Processor
  159. 1820 GOSUB 1850 :REM'Bottom of Page
  160. 1840 GOTO 6300
  161. 1850 REM Page Eject Processor
  162. 1860 FOR I = LINE.NO TO 44
  163. 1870  LPRINT
  164. 1880  LINE.NO = LINE.NO + 1
  165. 1890 NEXT I
  166. 1900 GOSUB 1030  :REM'Bottom of Page Processing
  167. 1910 RETURN
  168. 1920 REM Vertical Tab Processor
  169. 1930 IF LINE.NO = 7 THEN 2010
  170. 1940 QTY = VAL(RIGHT$(REPLY$,LEN(REPLY$)-3))
  171. 1950 FOR I = 1 TO QTY
  172. 1960  LPRINT
  173. 1970  LINE.NO = LINE.NO + 1
  174. 1980  IF LINE.NO > 44 THEN I = QTY
  175. 1990 NEXT I
  176. 2000 IF LINE.NO > 44 THEN GOSUB 1030  :REM'End of page
  177. 2010 RETURN
  178. 2020 REM Pack Processor
  179. 2030 IF LINE.NO > 44 THEN GOSUB 1030
  180. 2040 IF TAB.POS = 8 THEN ADJUST = 4
  181. 2050 IF TAB.POS = 13 THEN ADJUST = 7
  182. 2060 TAB.POS = TAB.POS + ADJUST + INDENT
  183. 2070 WIDTH "lpt1:", 132  :REM'set condensed width
  184. 2080 LPRINT COMPR.ON$;   :REM'Packed printing
  185. 2090 LPRINT TAB(TAB.POS); RIGHT$(REPLY$,LEN(REPLY$)-3)
  186. 2100 LPRINT COMPR.OFF$;  :REM'Return to normal
  187. 2110 WIDTH "lpt1:", 80   :REM'return to normal
  188. 2120 LINE.NO = LINE.NO + 1
  189. 2130 IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 :ELSE TAB.POS = 13
  190. 2140 RETURN
  191. 2150 REM Indent Processor
  192. 2160 INDENT = VAL(RIGHT$(REPLY$,LEN(REPLY$)-3))
  193. 2170 RETURN
  194. 3000 REM DIRECTOR
  195. 3010 DATA ".h1 INTRODUCTION"
  196. 3020 DATA ".h2 OVERVIEW"
  197. 3030 DATA "This Program Directory contains the"
  198. 3040 DATA "information about the contents of the"
  199. 3050 DATA "Distribution Diskette for the Genealogy"
  200. 3060 DATA "ON DISPLAY programs and documentation."
  201. 3070 DATA ".h2 CONTENT"
  202. 3080 DATA "The Distribution Diskette contains the"
  203. 3090 DATA "following Documentation Programs:"
  204. 3100 DATA ".sp"
  205. 3110 DATA "  Program    Program      Program"
  206. 3120 DATA "  Name       Language        Size"
  207. 3130 DATA "  --------   --------   ---------"
  208. 3140 DATA "  runfirst   basic          1,291"
  209. 3150 DATA "  printers   basic          1,352"
  210. 3160 DATA "  director   basic         16,505"
  211. 3170 DATA "  tableofc   basic         12,564"
  212. 3180 DATA "  introduc   basic         12,908"
  213. 3190 DATA "  general    basic         19,178"
  214. 3200 DATA "  usingthe   basic         27,661"
  215. 3210 DATA "  referenc   basic         18,324"
  216. 3220 DATA "  appendix   basic         27,275"
  217. 3230 DATA ".vt 2"
  218. 3240 DATA "The Distribution Diskette contains the"
  219. 3250 DATA "following Overview program:"
  220. 3260 DATA ".sp"
  221. 3270 DATA "  Program    Program      Program"
  222. 3280 DATA "  Name       Language        Size"
  223. 3290 DATA "  --------   --------   ---------"
  224. 3300 DATA "  overview   basic         13,753"
  225. 3310 DATA ".pa"
  226. 3320 DATA "The Distribution Diskette contains the"
  227. 3330 DATA "following Genealogy programs:"
  228. 3340 DATA ".sp"
  229. 3350 DATA "  Program    Program      Program"
  230. 3360 DATA "  Name       Language        Size"
  231. 3370 DATA "  --------   --------   ---------"
  232. 3380 DATA "  menu       basic          9,918"
  233. 3390 DATA "  creatper   basic          3,807"
  234. 3400 DATA "  creatmar   basic          3,276"
  235. 3410 DATA "  creatord   basic          4,070"
  236. 3420 DATA "  updatper   basic         14,959"
  237. 3430 DATA "  updatmar   basic         11,814"
  238. 3440 DATA "  updatord   basic         16,812"
  239. 3450 DATA "  indexpc    basic          4,688"
  240. 3460 DATA "  indexmar   basic          4,582"
  241. 3470 DATA "  printper   basic          7,423"
  242. 3480 DATA "  printmar   basic          4,625"
  243. 3490 DATA "  listper    basic          3,234"
  244. 3500 DATA "  listmar    basic          3,871"
  245. 3510 DATA "  listpci    basic          3,428"
  246. 3520 DATA "  alphaper   basic          5,389"
  247. 3530 DATA "  alphamar   basic          4,921"
  248. 3540 DATA "  display    basic         24,519"
  249. 3550 DATA "  pedigree   basic         24,489"
  250. 3560 DATA "  family     basic         22,885"
  251. 3570 DATA "  descend    basic         13,558"
  252. 3580 DATA ".vt 3"
  253. 3590 DATA "The Distribution Diskette contains the"
  254. 3600 DATA "following Data File:"
  255. 3610 DATA ".sp"
  256. 3620 DATA "  Data File             Data File"
  257. 3630 DATA "  Name                       Size"
  258. 3640 DATA "  --------              ---------"
  259. 3650 DATA "  verifile                    256"
  260. 3660 DATA ".pa"
  261. 3670 DATA ".h2 REQUIREMENTS"
  262. 3680 DATA ".h3 Hardware Requirements"
  263. 3690 DATA "IBM PCjr, PC, PC/XT or PC/AT with:"
  264. 3700 DATA ".sp"
  265. 3710 DATA "   One double-sided Diskette Drive."
  266. 3720 DATA ".sp"
  267. 3730 DATA "   Either the IBM Graphics Printer, the"
  268. 3740 DATA "   IBM Matrix Printer (or equivalents)."
  269. 3750 DATA ".sp"
  270. 3760 DATA "     Note:  The IBM Graphics Printer"
  271. 3770 DATA "     and the IBM Matrix Printer"
  272. 3780 DATA "     provide for condensed printing"
  273. 3790 DATA "     of Pedigree Charts and Family"
  274. 3800 DATA "     Group Sheets."
  275. 3810 DATA ".sp"
  276. 3820 DATA "     For full-sized printouts of the"
  277. 3830 DATA "     Pedigree Charts and Family"
  278. 3840 DATA "     Group Sheets, a 132 character"
  279. 3850 DATA "     (10 char/in) printer is required."
  280. 3860 DATA ".sp"
  281. 3870 DATA "   At least 96 K of Memory (128 K is"
  282. 3880 DATA "   recommended)."
  283. 3890 DATA ".sp"
  284. 3900 DATA "   Either the IBM Color Display,"
  285. 3910 DATA "   the IBM Monochrome Display (or"
  286. 3920 DATA "   equivalents)."
  287. 3930 DATA ".pa"
  288. 3940 DATA ".h2 Software Requirements."
  289. 3950 DATA "IBM PC-DOS.
  290. 3960 DATA "  Version 2.1 or later."
  291. 3970 DATA ".sp"
  292. 3980 DATA "BASIC"
  293. 3990 DATA "  (on Cartridge or Diskette)."
  294. 4000 DATA ".h1 GENERAL INFORMATION"
  295. 4010 DATA ".h2 DOCUMENTATION PROGRAMS"
  296. 4020 DATA "Nine documentation programs are included"
  297. 4030 DATA "on the Distribution Diskette.  These are"
  298. 4040 DATA "BASIC programs, which can be 'run'."
  299. 4050 DATA ".sp"
  300. 4060 DATA "The documentation programs contain their"
  301. 4070 DATA "own formatting capability, as well as"
  302. 4080 DATA "the content of the documents which they"
  303. 4090 DATA "will produce."
  304. 4100 DATA ".sp"
  305. 4110 DATA "By 'running' each of the documentation"
  306. 4120 DATA "programs, the user is able to obtain one"
  307. 4130 DATA "or more copies of each chapter of the"
  308. 4140 DATA "documentation as he desires."
  309. 4150 DATA ".vt 2"
  310. 4160 DATA "These documentation programs are:"
  311. 4170 DATA ".sp
  312. 4180 DATA "  1.  runfirst  (causes a display of the"
  313. 4190 DATA "      cover letter, showing how to get"
  314. 4200 DATA "      started.)"
  315. 4210 DATA ".sp"
  316. 4220 DATA "  2.  printers  (shows the changes to"
  317. 4230 DATA "      the documentation programs for"
  318. 4240 DATA "      printing on other printers.)"
  319. 4250 DATA ".pa"
  320. 4260 DATA "  3.  director  (documentation of the"
  321. 4270 DATA "      content of the Distribution"
  322. 4280 DATA "      Diskette)."
  323. 4290 DATA ".sp"
  324. 4300 DATA "      Produces this document."
  325. 4310 DATA ".vt 2"
  326. 4320 DATA "  4 through 9.  Documentation for the"
  327. 4330 DATA "      Genealogy ON DISPLAY Programs."
  328. 4340 DATA ".sp"
  329. 4350 DATA "      Produces an 80 Page User's Manual"
  330. 4360 DATA "      for use with the Genealogy ON"
  331. 4370 DATA "      DISPLAY, Version 5.0 programs."
  332. 4380 DATA ".sp"
  333. 4390 DATA "  4.  tableofc  (table of contents for"
  334. 4400 DATA "      the User's Manual)."
  335. 4410 DATA ".sp"
  336. 4420 DATA "  5.  introduc  (introduction for the"
  337. 4430 DATA "      User's Manual)."
  338. 4440 DATA ".sp"
  339. 4450 DATA "  6.  general  (general information for"
  340. 4460 DATA "      the User's Manual)."
  341. 4470 DATA ".sp"
  342. 4480 DATA "  7.  usingthe  (using the programs, for"
  343. 4490 DATA "      the User's Manual)."
  344. 4500 DATA ".sp"
  345. 4510 DATA "  8.  referenc  (reference material for"
  346. 4520 DATA "      the User's Manual)."
  347. 4530 DATA ".sp"
  348. 4540 DATA "  9.  appendix  (appendixes for the"
  349. 4550 DATA "      User's Manual)."
  350. 4560 DATA ".pa"
  351. 4570 DATA ".h2 GENEALOGY PROGRAMS"
  352. 4580 DATA "Twenty Genealogy programs are"
  353. 4590 DATA "included on the Distribution"
  354. 4600 DATA "Diskette.  They are:"
  355. 4610 DATA ".sp"
  356. 4620 DATA "  1.  creatper"
  357. 4630 DATA "      Formats a Persons File."
  358. 4640 DATA ".vt 2"
  359. 4650 DATA "  2.  creatmar"
  360. 4660 DATA "      Formats a Marriages File."
  361. 4670 DATA ".vt 2"
  362. 4680 DATA "  3.  creatord"
  363. 4690 DATA "      Formats an Ordinances File."
  364. 4700 DATA ".vt 2"
  365. 4710 DATA "  4.  updatper"
  366. 4720 DATA "      Updates the Persons File."
  367. 4730 DATA ".vt 2"
  368. 4740 DATA "  5.  updatmar"
  369. 4750 DATA "      Updates the Marriages File."
  370. 4760 DATA ".vt 2"
  371. 4770 DATA "  6.  updatord"
  372. 4780 DATA "      Updates an Ordinances File."
  373. 4790 DATA ".vt 2"
  374. 4800 DATA "  7.  indexpc"
  375. 4810 DATA "      Prepares a Parent/Child Index."
  376. 4820 DATA ".pa"
  377. 4830 DATA "  8.  indexmar"
  378. 4840 DATA "      Prepares a Marriages Index."
  379. 4850 DATA ".vt 2"
  380. 4860 DATA "  9.  printper"
  381. 4870 DATA "      Prints the combined contents of the"
  382. 4880 DATA "      Persons and Ordinances Files."
  383. 4890 DATA ".vt 2"
  384. 4900 DATA " 10.  printmar"
  385. 4910 DATA "      Prints the contents of the Marriages"
  386. 4920 DATA "      File."
  387. 4930 DATA ".vt 2"
  388. 4940 DATA " 11.  listper"
  389. 4950 DATA "      Prints a List of the Persons in the"
  390. 4960 DATA "      Persons File."
  391. 4970 DATA ".vt 2"
  392. 4980 DATA " 12.  listmar"
  393. 4990 DATA "      Prints a List of the Marriages in"
  394. 5000 DATA "      the Marriages File."
  395. 5010 DATA ".vt 2"
  396. 5020 DATA " 13.  listpci"
  397. 5030 DATA "      Lists the Parent/Child Index."
  398. 5040 DATA ".vt 2"
  399. 5050 DATA " 14.  alphaper"
  400. 5060 DATA "      Provides an alphabetical list of the"
  401. 5070 DATA "      persons in the Persons File."
  402. 5080 DATA ".vt 2"
  403. 5090 DATA " 15.  alphamar"
  404. 5100 DATA "      Provides an alphabetical list of the"
  405. 5110 DATA "      marriages in the Marriages File."
  406. 5120 DATA ".pa"
  407. 5130 DATA " 16.  display"
  408. 5140 DATA "      Provides for displaying all of the"
  409. 5150 DATA "      information in all of the files,"
  410. 5160 DATA "      in the form of pedigrees, family"
  411. 5170 DATA "      groups, personal, and ordinance"
  412. 5180 DATA "      information."
  413. 5190 DATA ".vt 2"
  414. 5200 DATA " 17.  pedigree"
  415. 5210 DATA "      Provides a printout of a Pedigree"
  416. 5220 DATA "      Chart for any person."
  417. 5230 DATA ".vt 2"
  418. 5240 DATA " 18.  family"
  419. 5250 DATA "      Provides a printout of a Family"
  420. 5260 DATA "      Group Sheet for any marriage."
  421. 5270 DATA ".vt 2"
  422. 5280 DATA " 19.  descend"
  423. 5290 DATA "      Provides a display and an op-"
  424. 5300 DATA "      tional printout of a Descendents"
  425. 5310 DATA "      Chart for any person."
  426. 5320 DATA ".vt 2"
  427. 5330 DATA " 20.  menu"
  428. 5340 DATA "      Provides for user selection of"
  429. 5350 DATA "      any of the other programs to be"
  430. 5360 DATA "      run."
  431. 5370 DATA ".pa"
  432. 5380 DATA ".h2 DATA FILE"
  433. 5390 DATA "One data file is included on the Distri-"
  434. 5400 DATA "bution Diskette.  It is:"
  435. 5410 DATA ".sp"
  436. 5420 DATA "  1.  verifile"
  437. 5430 DATA ".sp"
  438. 5440 DATA "Its purpose is to verify that BASIC was"
  439. 5450 DATA "brought up with the /s:256 parameter."
  440. 5460 DATA ".h2 OVERVIEW PROGRAM"
  441. 5470 DATA "One overview program is provided, which"
  442. 5480 DATA "may be used to show your friends just"
  443. 5490 DATA "what 'Genealogy ON DISPLAY' is all"
  444. 5500 DATA "about.  The overview program may also"
  445. 5510 DATA "be used for presentations, such as at"
  446. 5520 DATA "Association or Club Meetings."
  447. 5530 DATA ".sp"
  448. 5540 DATA "While the overview program makes a"
  449. 5550 DATA "better presentation in color, it is"
  450. 5560 DATA "also suitable for use on a Monochrome"
  451. 5570 DATA "Monitor."
  452. 5580 DATA ".sp"
  453. 5590 DATA "In order to use this program, type:"
  454. 5600 DATA ".sp"
  455. 5610 DATA "  run ~overview~"
  456. 5620 DATA ".sp"
  457. 5630 DATA "and press the 'enter' key."
  458. 5640 DATA ".h1 USING THE PROGRAMS"
  459. 5650 DATA ".h2 FIRST TIME USAGE"
  460. 5660 DATA "The following steps are necessary when"
  461. 5670 DATA "a new user receives the Distribution"
  462. 5680 DATA "Diskette.  (Details of the steps are"
  463. 5690 DATA "shown in the User's Manual.)"
  464. 5700 DATA ".sp"
  465. 5710 DATA "1.  Backup the Distribution Diskette."
  466. 5720 DATA ".sp"
  467. 5730 DATA "2.  Have a new, double-sided, formatted"
  468. 5740 DATA "diskette available (without DOS)."
  469. 5750 DATA "(This will become the Data Diskette.)"
  470. 5760 DATA ".sp"
  471. 5770 DATA "3.  Copy the 'menu' program from the"
  472. 5780 DATA "Distribution Diskette to the new Data"
  473. 5790 DATA "Diskette."
  474. 5800 DATA ".sp"
  475. 5810 DATA "4.  Copy the 'verifile' data file from"
  476. 5820 DATA "the Distribution Diskette to the new"
  477. 5830 DATA "Data Diskette."
  478. 5840 DATA ".sp"
  479. 5850 DATA "5.  Format the data files (persfile,"
  480. 5860 DATA "marrfile, and ordfile), through the"
  481. 5870 DATA "use of the 'creatper', 'creatmar',"
  482. 5880 DATA "and 'creatord' programs respectively."
  483. 5890 DATA ".sp"
  484. 5900 DATA "6.  Begin entry of Genealogical Data,"
  485. 5910 DATA "through the use of the 'updatper',"
  486. 5920 DATA "'updatmar', and 'updatord' programs."
  487. 5930 DATA ".pa"
  488. 5940 DATA ".h2 GETTING STARTED"
  489. 5950 DATA "The user should perform the following"
  490. 5960 DATA "steps in starting the Genealogy ON"
  491. 5970 DATA "DISPLAY programs.  (Note:  The steps"
  492. 5980 DATA "essentially provide for making BASIC"
  493. 5990 DATA "available, and starting the menu)."
  494. 6000 DATA ".sp"
  495. 6010 DATA "1.  Insert the PC DOS diskette into"
  496. 6020 DATA "    Drive 'a:'."
  497. 6030 DATA ".sp"
  498. 6040 DATA "2.  If using the PCjr, insert the"
  499. 6050 DATA "    BASIC Cartridge into either slot."
  500. 6060 DATA ".sp"
  501. 6070 DATA "3.  Turn the Printer On."
  502. 6080 DATA ".sp"
  503. 6090 DATA "4.  Turn the System On."
  504. 6100 DATA ".sp"
  505. 6110 DATA "5.  Type today's date if the system"
  506. 6120 DATA "    asks the user to Enter today's date."
  507. 6130 DATA ".sp"
  508. 6140 DATA "6.  Type the correct time if the system"
  509. 6150 DATA "    asks the user to Enter the time."
  510. 6160 DATA ".sp"
  511. 6170 DATA "7.  Type: basic/s:256"
  512. 6180 DATA "          and press the 'enter' key."
  513. 6190 DATA ".pa"
  514. 6200 DATA "8.  Replace the DOS Diskette with the"
  515. 6210 DATA "    Genealogy ON DISPLAY diskette in"
  516. 6220 DATA "    Drive 'a:'."
  517. 6230 DATA ".sp"
  518. 6240 DATA "9.  Type:  run ~menu~"
  519. 6250 DATA "            and press the 'enter' key."
  520. 6260 DATA ".sp"
  521. 6270 DATA "10.  Follow any instructions which appear"
  522. 6280 DATA "     at the bottom of each screen."
  523. 6290 DATA ".eof"
  524. 6300 END
  525.