home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / mbug / mbug059.arc / REFERENC.DOC < prev    next >
Text File  |  1979-12-31  |  17KB  |  401 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. 915 IF LEFT$(REPLY$,3) = ".pn" THEN PAGE.NO = VAL(RIGHT$(REPLY$,LEN(REPLY$)-3)) : RETURN
  114. 920 IF LEFT$(REPLY$,3) = ".vt" THEN 1480
  115. 930 IF LEFT$(REPLY$,3) = ".pk" THEN 1590
  116. 940 IF LEFT$(REPLY$,3) = ".in" THEN 1720
  117. 950 STOP
  118. 960 REM Head 1 Processor
  119. 970 FOR I = LINE.NO TO 44
  120. 980  LPRINT
  121. 990 NEXT I
  122. 1000 GOSUB 610  'Bottom of page Routine
  123. 1010 IF PAGE.NO MOD 2 = 0 THEN GOSUB 1410  'For h1 on Odd pages
  124. 1020 LPRINT CHR$(14);  'Set expanded print
  125. 1030 IF PAGE.NO MOD 2 = 0 THEN ADJUST = -4 ELSE ADJUST = -7
  126. 1040 LPRINT TAB(TAB.POS+ADJUST); RIGHT$(REPLY$,LEN(REPLY$)-4)
  127. 1050 LPRINT CHR$(18);  'Return to normal
  128. 1060 LINE.NO = LINE.NO+1
  129. 1070 IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  130. 1080 RETURN
  131. 1090 '
  132. 1100 REM Head 2 Processor
  133. 1110 IF LINE.NO = 7 THEN 1130 'skip spacing if at top of page
  134. 1120 IF LINE.NO > 43 THEN GOSUB 1410 ELSE LPRINT:LPRINT:LINE.NO = LINE.NO+2
  135. 1130 LPRINT CHR$(27); "E"; 'Set emphasized print
  136. 1140 LPRINT TAB(TAB.POS); RIGHT$(REPLY$,LEN(REPLY$)-4)
  137. 1150 LPRINT CHR$(27); "F"; 'Return to normal
  138. 1160 LPRINT
  139. 1170 LINE.NO = LINE.NO + 2
  140. 1180 IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  141. 1190 RETURN
  142. 1200 '
  143. 1210 REM Head 3 Processor
  144. 1220 IF LINE.NO = 7 THEN 1240 'skip spacing if at top of page
  145. 1230 IF LINE.NO > 43 THEN GOSUB 1410 ELSE LPRINT:LPRINT:LINE.NO = LINE.NO+2
  146. 1240 LPRINT CHR$(27); "E"; 'Set emphasized print
  147. 1250 LPRINT TAB(TAB.POS); RIGHT$(REPLY$,LEN(REPLY$)-4)
  148. 1260 LPRINT CHR$(27); "F"; 'Return to normal
  149. 1270 LPRINT
  150. 1280 LINE.NO = LINE.NO + 2
  151. 1290 IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  152. 1300 RETURN
  153. 1310 '
  154. 1320 REM Single Space Processor
  155. 1330 IF LINE.NO = 7 THEN 1350
  156. 1340 IF LINE.NO > 44 THEN GOSUB 1410 ELSE LPRINT : LINE.NO = LINE.NO + 1
  157. 1350 IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  158. 1360 RETURN
  159. 1370 REM End of File Processor
  160. 1380 GOSUB 1410 'Bottom of Page
  161. 1390 LPRINT CHR$(12);
  162. 1400 GOTO 15470
  163. 1410 REM Page Eject Processor
  164. 1420 FOR I = LINE.NO TO 44
  165. 1430  LPRINT
  166. 1440  LINE.NO = LINE.NO + 1
  167. 1450 NEXT I
  168. 1460 GOSUB 610  'Bottom of Page Processing
  169. 1470 RETURN
  170. 1480 REM Vertical Tab Processor
  171. 1490 IF LINE.NO = 7 THEN 1580
  172. 1500 IF LINE.NO > 44 THEN GOSUB 610  'End of page
  173. 1510 QTY = VAL(RIGHT$(REPLY$,LEN(REPLY$)-3))
  174. 1520 FOR I = 1 TO QTY
  175. 1530  LPRINT
  176. 1540  LINE.NO = LINE.NO + 1
  177. 1550  IF LINE.NO > 44 THEN I = QTY
  178. 1560 NEXT I
  179. 1570 IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  180. 1580 RETURN
  181. 1590 REM Pack Processor
  182. 1600 IF LINE.NO > 44 THEN GOSUB 610
  183. 1610 IF TAB.POS = 8 THEN ADJUST = 4
  184. 1620 IF TAB.POS = 13 THEN ADJUST = 7
  185. 1630 TAB.POS = TAB.POS + ADJUST + INDENT
  186. 1640 LPRINT CHR$(15); 'Packed printing
  187. 1650 WIDTH "lpt1:", 132 'set condensed width
  188. 1660 LPRINT TAB(TAB.POS); RIGHT$(REPLY$,LEN(REPLY$)-3)
  189. 1670 LPRINT CHR$(18); 'Return to normal
  190. 1680 WIDTH "lpt1:", 80  'return to normal
  191. 1690 LINE.NO = LINE.NO + 1
  192. 1700 IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  193. 1710 RETURN
  194. 1720 REM Indent Processor
  195. 1730 INDENT = VAL(RIGHT$(REPLY$,LEN(REPLY$)-3))
  196. 1740 RETURN
  197. 10750 DATA ".h1 REFERENCE MATERIAL"
  198. 10755 DATA ".pn 41"
  199. 10760 DATA ".h2 SAMPLE SCREENS AND PROMPTING MESSAGES"
  200. 10770 DATA "The following is a sample session, where"
  201. 10780 DATA "the user is displaying his Genealogy,"
  202. 10782 DATA "through the use of the 'display' program."
  203. 10790 DATA ".vt 2"
  204. 10800 DATA "After turning the sytems on, and asking"
  205. 10810 DATA "for basica/s:256, the user keys:"
  206. 10820 DATA ".sp"
  207. 10830 DATA ".pk F3 display"
  208. 10832 DATA ".pk (or he types 'load', quote, 'display')"
  209. 10833 DATA ".pk     and presses the 'enter' key.
  210. 10840 DATA ".vt 2"
  211. 10850 DATA "and then, after replacing the program"
  212. 10860 DATA "diskette with the data diskette in Drive"
  213. 10862 DATA "'a:', and making sure that the ordinances"
  214. 10863 DATA "diskette is in Drive 'b:', the user types:"
  215. 10880 DATA ".sp"
  216. 10888 DATA ".pk F2"
  217. 10890 DATA ".pk (or he types 'run' and presses the"
  218. 10891 DATA ".pk     'enter' key)."
  219. 10900 DATA ".pa"
  220. 10910 DATA "The display screen then appears as:"
  221. 10920 DATA ".sp"
  222. 10930 DATA ".vt 3"
  223. 10940 DATA ".pk                   Display Program ON DISPLAY"
  224. 10945 DATA ".pk                           Version 1.3"
  225. 10950 DATA ".vt 2"
  226. 10960 DATA ".pk               If you are using these programs, and"
  227. 10970 DATA ".pk             finding them of value, your contribution"
  228. 10975 DATA ".pk               ($35 suggested) will be appreciated."
  229. 10980 DATA ".vt 2"
  230. 10982 DATA ".pk                         Melvin O. Duke"
  231. 10984 DATA ".pk                         P. O. Box 20836"
  232. 10986 DATA ".pk                       San Jose, CA  95160"
  233. 10988 DATA ".sp"
  234. 10990 DATA ".pk                    Copyright (c) 1983 by:"
  235. 11000 DATA ".pk                        Melvin O. Duke"
  236. 11010 DATA ".vt 4"
  237. 11020 DATA ".pk Press any key to continue"
  238. 11030 DATA ".pa"
  239. 11040 DATA "After pressing any key, the user watches"
  240. 11050 DATA "the display as the indices are read, and"
  241. 11060 DATA "the data files are opened.  He sees:"
  242. 11070 DATA ".sp"
  243. 11080 DATA ".pk Open the Parent/Child Index"
  244. 11090 DATA ".pk Reading Index Record #: 500"
  245. 11100 DATA ".sp"
  246. 11110 DATA ".pk Open the Marriage Index"
  247. 11120 DATA ".pk Reading Marriage Index Record #: 180"
  248. 11130 DATA ".sp"
  249. 11140 DATA ".pk Open the Persons File"
  250. 11150 DATA ".sp"
  251. 11160 DATA ".pk Open the Marriages File"
  252. 11162 DATA ".sp"
  253. 11164 DATA ".pk Open the Ordinances File"
  254. 11170 DATA ".vt 4"
  255. 11180 DATA ".pk Enter the Record-number of a Person?"
  256. 11190 DATA ".vt 2"
  257. 11200 DATA "The user responds with a number, such as"
  258. 11210 DATA "1, as:"
  259. 11220 DATA ".sp"
  260. 11230 DATA ".pk Enter the Record-number of a Person? 1"
  261. 11240 DATA ".sp"
  262. 11250 DATA "He then sees:"
  263. 11260 DATA ".pa"
  264. 11270 DATA ".pk Personal Information for:  Melvin Otto ABLE"
  265. 11280 DATA ".sp"
  266. 11290 DATA ".pk Person:                                Person's Vital Statistics:"
  267. 11300 DATA ".sp"
  268. 11310 DATA ".pk Surname:     ABLE                      Birth-date:     05 Oct 1925"
  269. 11320 DATA ".pk Given Names: Melvin Otto               Birth-city:     Salt Lake City"
  270. 11330 DATA ".pk Sex:         M                         Birth-county:   Salt Lake"
  271. 11340 DATA ".pk                                        Birth-state:    Utah"
  272. 11350 DATA ".pk Person's Father:"
  273. 11360 DATA ".pk                                        Death-date:"
  274. 11370 DATA ".pk Surname:     ABLE                      Death-city:"
  275. 11380 DATA ".pk Given-names: Otto                      Death-county:"
  276. 11390 DATA ".pk Birth-date:  31 Mar 1899               Death-state:"
  277. 11400 DATA ".sp"
  278. 11410 DATA ".pk Person's Mother:                       Burial-date:"
  279. 11420 DATA ".pk                                        Burial-city:"
  280. 11430 DATA ".pk Surname:     BAKER                     Burial-county:"
  281. 11440 DATA ".pk Given-names: Beatrice                  Burial-state:"
  282. 11450 DATA ".pk Birth-date:  27 Sep 1902"
  283. 11460 DATA ".sp 2"
  284. 11470 DATA ".pk Next Action?"
  285. 11475 DATA ".pk (Possible Actions:  ps, pc, fg, o, p1...pn, m1...mn, q)"
  286. 11480 DATA ".pa
  287. 11490 DATA "The user asks for a pedigree chart, by"
  288. 11500 DATA "typing:  pc, as:"
  289. 11510 DATA ".sp"
  290. 11520 DATA ".pk Next Action? pc"
  291. 11530 DATA ".sp"
  292. 11540 DATA "The user then sees:"
  293. 11550 DATA ".vt 2
  294. 11560 DATA ".pk                                                     Birthdate:"
  295. 11570 DATA ".pk                      ABLE, John                     28 Nov 1834
  296. 11580 DATA ".pk               ABLE, James Alfred                    19 Jan 1866"
  297. 11590 DATA ".pk                      YOUNGER, Martha Vance          08 Feb 1842"
  298. 11600 DATA ".pk        ABLE, Otto                                   31 Mar 1899"
  299. 11610 DATA ".pk                      FARMER, Charles                19 Jan 1833
  300. 11620 DATA ".pk               FARMER, Janet                         18 Feb 1876
  301. 11630 DATA ".pk                      BIGBY, Susanna                 05 Nov 1834
  302. 11640 DATA ".pk ABLE, Melvin Otto                                   05 Oct 1925"
  303. 11650 DATA ".pk                      BAKER, William                 12 Apr 1803"
  304. 11660 DATA ".pk               BAKER, Jabez Thompson                 26 Apr 1840
  305. 11670 DATA ".pk                      THOMASON, Martha               22 Aug 1805
  306. 11680 DATA ".pk        BAKER, Beatrice                              27 Sep 1902
  307. 11690 DATA ".pk                      SWENSON, Karl Kristian         11 Jul 1834
  308. 11700 DATA ".pk               SWENSON, Anna Pauline                 08 Aug 1866
  309. 11710 DATA ".pk                      KRALL, Wilhelmina              23 Mar 1833
  310. 11720 DATA ".vt 2"
  311. 11730 DATA ".pk Next Action?"
  312. 11735 DATA ".pk (Possible Actions:  ps, fg, pc, l1...ln, p1...pn, m1...mn, q)"
  313. 11740 DATA ".pa"
  314. 11750 DATA "Instead of asking for a Pedigree Chart,"
  315. 11760 DATA "the user may have asked for a Family"
  316. 11770 DATA "Group (fg), as:"
  317. 11780 DATA ".sp"
  318. 11790 DATA ".pk Next Action? fg"
  319. 11800 DATA ".sp"
  320. 11810 DATA "The user would then have seen:"
  321. 11820 DATA ".vt 2"
  322. 11830 DATA ".pk                            Family Group Record"
  323. 11840 DATA ".sp"
  324. 11850 DATA ".pk Father: ABLE, Melvin Otto                           Birthdate: 05 Oct 1925"
  325. 11860 DATA ".pk Mother: LOVELY, Helen Lillian                       Birthdate: 13 Jun 1928"
  326. 11870 DATA ".sp"
  327. 11880 DATA ".pk Marriage Date: 16 Jun 1947      Location: Salt Lake City"
  328. 11890 DATA ".sp"
  329. 11900 DATA ".pk NO S Children:                        Birthdate:  Birth Location:"
  330. 11910 DATA ".sp"
  331. 11920 DATA ".pk  1 M ABLE, Melvin Kent                06 Jan 1949 Salt Lake City"
  332. 11930 DATA ".pk  2 M ABLE, Ronald Robert              24 Jun 1951 Oklahoma City"
  333. 11940 DATA ".pk  3 F ABLE, Carolyn Elizabeth          26 Apr 1955 Wichita"
  334. 11950 DATA ".pk  4 F ABLE, Linda Ann                  22 Aug 1962 Bellevue"
  335. 11960 DATA ".sp"
  336. 11970 DATA ".sp"
  337. 11980 DATA ".sp"
  338. 11990 DATA ".sp"
  339. 12000 DATA ".sp"
  340. 12010 DATA ".sp"
  341. 12020 DATA ".sp"
  342. 12030 DATA ".sp"
  343. 12040 DATA ".pk Next Action?"
  344. 12045 DATA ".pk (Possible Actions:  ps, f, m, p1...pn, c1...cn, m1...mn, q)"
  345. 12050 DATA ".pa"
  346. 12060 DATA "Instead of asking for a Pedigree Chart,"
  347. 12070 DATA "the user may have asked for Ordinances"
  348. 12080 DATA "for the person (o), as:"
  349. 12090 DATA ".sp"
  350. 12100 DATA ".pk Next Action? o"
  351. 12110 DATA ".sp"
  352. 12120 DATA "The user would have seen:"
  353. 12130 DATA ".sp"
  354. 12135 DATA ".in -3"
  355. 12140 DATA ".pk Ordinance Information for: Melvin Otto ABLE                    05 Oct 1925"
  356. 12150 DATA ".sp"
  357. 12160 DATA ".pk     Personal Record                        Priesthood Record"
  358. 12170 DATA ".pk Christening:                           Aaronic Priesthood:     10 Oct 1937"
  359. 12180 DATA ".pk Blessing:                 01 Nov 1925    Deacon:               10 Oct 1937"
  360. 12190 DATA ".pk Sealed to Parents:        BIC            Teacher:              16 Feb 1941"
  361. 12200 DATA ".pk   Father's Id:  7                        Priest:               18 Oct 1942"
  362. 12210 DATA ".pk     Name:  Otto ABLE"
  363. 12220 DATA ".pk   Mother's Id:  8                      Melchizedek Priesthood: 18 Apr 1944"
  364. 12230 DATA ".pk     Name:  Beatrice BAKER                Elder:                18 Apr 1944"
  365. 12240 DATA ".pk Baptism:                  04 Nov 1933    Seventy:"
  366. 12250 DATA ".pk Confirmation:             05 Nov 1933    High Priest:"
  367. 12260 DATA ".pk Patriarchical Blessing:   13 Jun 1939"
  368. 12270 DATA ".pk Endowment:                16 Jun 1947  Bishop:"
  369. 12280 DATA ".pk  Sealed to Spouse:        16 Jun 1947  Patriarch:"
  370. 12290 DATA ".pk   Spouse's Id:  2                      Apostle:"
  371. 12300 DATA ".pk    Name: Helen Lillian LOVELY"
  372. 12310 DATA ".sp"
  373. 12320 DATA ".pk Occupation: Author"
  374. 12330 DATA ".sp"
  375. 12340 DATA ".pk Next Action?"
  376. 12345 DATA ".pk (Possible Actions:  ps, pc, fg, o, p1...pn, m1...mn, q)"
  377. 12350 DATA ".in 0"
  378. 13000 DATA ".pa"
  379. 13010 DATA ".h2 COMMANDS USED."
  380. 13020 DATA ".h3 basica/s:256"
  381. 13030 DATA ".sp"
  382. 13040 DATA "The basic command is used in order to"
  383. 13050 DATA "load the basic processor from the PC"
  384. 13060 DATA "DOS diskette, into storage, and to"
  385. 13070 DATA "establish a buffer size for the data"
  386. 13080 DATA "files."
  387. 13090 DATA ".h3 load (or the F3 function-key)"
  388. 13100 DATA ".sp"
  389. 13110 DATA "The load command is used in order to"
  390. 13120 DATA "load any of the Genealogy ON DISPLAY"
  391. 13130 DATA "programs from the Program diskette,"
  392. 13140 DATA "into storage."
  393. 13150 DATA ".h3 run (or the F2 function-key)"
  394. 13160 DATA ".sp"
  395. 13170 DATA "The run command is used to cause any"
  396. 13180 DATA "of the Genealogy ON DISPLAY programs"
  397. 13190 DATA "to begin."
  398. 15460 DATA ".eof"
  399. 15470 END
  400. s.
  401. 30 REM By:  Melv