home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / MBUG / MBUG059.ARC / APPENDIX.DOC < prev    next >
Text File  |  1979-12-31  |  33KB  |  885 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 32000
  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. 13200 DATA ".h1 A.  MESSAGES"
  198. 13205 DATA ".pn 49"
  199. 13210 DATA ".h2 START-UP MESSAGES"
  200. 13220 DATA "The initial System Message, when the"
  201. 13230 DATA "system is turned on, is:"
  202. 13240 DATA ".sp"
  203. 13250 DATA ".pk Enter today's date (mm-dd-yy):"
  204. 13260 DATA ".sp"
  205. 13270 DATA "The user is expected to respond with an"
  206. 13280 DATA "appropriate date."
  207. 13281 DATA ".vt 2"
  208. 13282 DATA "The next system message asks for time."
  209. 13283 DATA ".sp"
  210. 13284 DATA ".pk Enter the time (hh:mm:ss):"
  211. 13285 DATA ".sp"
  212. 13286 DATA "The user is expected to respond with a"
  213. 13287 DATA "correct time."
  214. 13290 DATA ".vt 2"
  215. 13300 DATA "The message in response to the"
  216. 13310 DATA "basica/s:256"
  217. 13320 DATA "command is similar to:"
  218. 13330 DATA ".sp"
  219. 13340 DATA ".pk IBM Personal Computer Basic"
  220. 13350 DATA ".pk Version D1.05 Copyright IBM Corp. 1981, 1982
  221. 13360 DATA ".pk 61118 Bytes Free"
  222. 13370 DATA ".vt 2"
  223. 13380 DATA "The message in response to the"
  224. 13390 DATA "load"
  225. 13400 DATA "command is:"
  226. 13410 DATA ".sp"
  227. 13420 DATA ".pk Ok"
  228. 13430 DATA ".pa"
  229. 13440 DATA ".h2 Error Messages"
  230. 13450 DATA ".pk Illegal Function Call"
  231. 13455 DATA ".sp
  232. 13460 DATA "When loading BASIC, the user requested"
  233. 13470 DATA "'basic' or 'basica', without establish-
  234. 13480 DATA "ing the buffers necessary for reading"
  235. 13490 DATA "the data files.  The user should have"
  236. 13500 DATA "requested 'basic/s:256' or"
  237. 13501 DATA "'basica/s:256'"
  238. 13502 DATA ".vt 2"
  239. 13503 DATA ".pk Redo from Start"
  240. 13504 DATA ".sp"
  241. 13505 DATA "The user has entered a reply which"
  242. 13506 DATA "contains a comma.  He should re-enter"
  243. 13507 DATA "the data without the comma, or he"
  244. 13508 DATA "should enclose the reply in quotes."
  245. 13509 DATA ".sp"
  246. 13510 DATA "After re-entering the reply, he should"
  247. 13511 DATA "'save' the current information, and"
  248. 13512 DATA "call it out again to refresh the screen."
  249. 13519 DATA ".h1 B.  Summary"
  250. 13520 DATA ".h2 General Programs"
  251. 13530 DATA ".pk                                        BASIC       Data"
  252. 13540 DATA ".pk Routines                               Programs    Files"
  253. 13550 DATA ".pk -----------------------------------    --------    --------"
  254. 13560 DATA ".pk Initial File Creation"
  255. 13570 DATA ".pk   Persons File                         creatper    persfile"
  256. 13580 DATA ".pk   Marriages File                       creatmar    marrfile"
  257. 13590 DATA ".pk   Ordinances File                      creatord    ordfile"
  258. 13600 DATA ".sp"
  259. 13610 DATA ".pk File Update"
  260. 13620 DATA ".pk   Persons File                         updatper"
  261. 13630 DATA ".pk   Marriages File                       updatmar"
  262. 13640 DATA ".pk   Ordinances File                      updatord"
  263. 13650 DATA ".sp"
  264. 13660 DATA ".pk Print the Contents of the Files"
  265. 13670 DATA ".pk   Persons and Ordinances Files         printper"
  266. 13680 DATA ".pk   Marriages File                       printmar"
  267. 13690 DATA ".sp"
  268. 13700 DATA ".pk List the Records in the Files"
  269. 13710 DATA ".pk   Persons File                         listper"
  270. 13720 DATA ".pk   Marriages File                       listmar"
  271. 13730 DATA ".sp"
  272. 13732 DATA ".pk List the File Index"
  273. 13733 DATA ".pk   Parent/Child Index                   listpci"
  274. 13739 DATA ".sp"
  275. 13740 DATA ".pk Print an Alphabetic Name List"
  276. 13750 DATA ".pk   Persons File                         alphaper"
  277. 13760 DATA ".pk   Marriages File                       alphamar"
  278. 13770 DATA ".sp"
  279. 13772 DATA ".pk Create a File Index"
  280. 13774 DATA ".pk   Parent/Child Index                   indexpc    pcindex"
  281. 13775 DATA ".pk   Marriages Index                      indexmar   mindex"
  282. 13794 DATA ".pa"
  283. 13795 DATA ".h2 General Programs, Cont."
  284. 13801 DATA ".pk                                        BASIC       Data"
  285. 13802 DATA ".pk Routines                               Programs    Files"
  286. 13803 DATA ".pk -----------------------------------    --------    --------"
  287. 13810 DATA ".pk Display the Information                display"
  288. 13820 DATA ".pk   Personal Information"
  289. 13830 DATA ".pk   Pedigree Information"
  290. 13840 DATA ".pk   Family Group Information"
  291. 13850 DATA ".pk   Ordinances Information"
  292. 13860 DATA ".sp"
  293. 13870 DATA ".pk Print the Genealogical Forms"
  294. 13880 DATA ".pk   Print Pedigree Charts                pedigree"
  295. 13890 DATA ".pk   Print Family Group Sheets            family"
  296. 13900 DATA ".h2 Documentation"
  297. 13901 DATA ".pk Print a Program Directory              director"
  298. 13902 DATA ".sp"
  299. 13903 DATA ".pk Print a User's Manual"
  300. 13904 DATA ".pk   Table of Contents                    tableofc"
  301. 13905 DATA ".pk   Introduction                         introduc"
  302. 13906 DATA ".pk   General Information                  general"
  303. 13907 DATA ".pk   Using the Programs                   usingthe"
  304. 13908 DATA ".pk   Reference Material                   referenc"
  305. 13909 DATA ".pk   Appendices                           appendix"
  306. 14000 DATA ".h1 C.  HINTS"
  307. 14010 DATA ".h2 NAMES"
  308. 14020 DATA "It is best to enter surnames with all"
  309. 14030 DATA "capitals, such as:  ABLE"
  310. 14200 DATA ".h2 DATES"
  311. 14210 DATA "All of the programs expect dates in the"
  312. 14220 DATA "form dd Mmm yyyy, such as: 09 Jun 1928."
  313. 14400 DATA ".h2 COMMAS"
  314. 14410 DATA "Commas are to be avoided in all respon-"
  315. 14420 DATA "ses, since BASIC uses them to separate"
  316. 14430 DATA "answers.  It is suggested that dashes"
  317. 14440 DATA "be used in place of commas if at all"
  318. 14450 DATA "possible.  If it is necessary to include"
  319. 14460 DATA "a comma, the entire response should be"
  320. 14470 DATA "enclosed in quotes, making the response"
  321. 14480 DATA "a single one, rather than a multiple one."
  322. 14485 DATA ".pa"
  323. 14700 DATA ".h2 Replacing with Blanks"
  324. 14710 DATA "In the event that a user wishes to re-"
  325. 14720 DATA "place a current value with blanks (the"
  326. 14730 DATA "data was was not correct), one or more"
  327. 14740 DATA "blanks may be entered by enclosing them"
  328. 14750 DATA "within quotes."
  329. 14900 DATA ".h2 Suggested Organization of Programs."
  330. 14910 DATA "Since the Ordinances Diskette is about"
  331. 14915 DATA "half-full (on a single-sided, 160 KB"
  332. 14920 DATA "diskette), often-used programs may be"
  333. 14930 DATA "copied to the Ordinances Diskette, in"
  334. 14940 DATA "order to minimize diskette movement."
  335. 14950 DATA ".sp"
  336. 14960 DATA "The updatper, updatmar, and display"
  337. 14970 DATA "programs are likely candidates to be"
  338. 14980 DATA "moved to the Ordinances Diskette."
  339. 16000 DATA ".h1 D.  MODIFICATIONS"
  340. 16020 DATA ".h2 Changing the Number of Persons"
  341. 16030 DATA "The programs, as designed, provide"
  342. 16040 DATA "for 400 persons, and 400 ordinances."
  343. 16050 DATA ".sp"
  344. 16060 DATA "In order to change the number of"
  345. 16070 DATA "programs and ordinances, it is then"
  346. 16080 DATA "necessary to change the 400 to some"
  347. 16090 DATA "other, more desirable, number."
  348. 16100 DATA ".sp"
  349. 16110 DATA "This can be done in the following way:"
  350. 16120 DATA ".sp"
  351. 16130 DATA "Program:       creatper"
  352. 16140 DATA "Line-number:   1050"
  353. 16150 DATA "Old-value:     400"
  354. 16160 DATA "New-value:     you decide."
  355. 16161 DATA ".sp"
  356. 16162 DATA "Note:  A current file can be extended"
  357. 16163 DATA "by changing both the intial value and"
  358. 16164 DATA "ending value of the FOR statement in"
  359. 16165 DATA "line 1050."
  360. 16166 DATA ".sp"
  361. 16167 DATA "For example, expanding from 400 to 500"
  362. 16168 DATA "persons would require line 1050 to be:"
  363. 16169 DATA ".sp"
  364. 16170 DATA "  1050 FOR I = 401 TO 500"
  365. 16180 DATA ".pa"
  366. 16200 DATA "Program:       creatord"
  367. 16210 DATA "Line-number:   1060"
  368. 16220 DATA "Old-value:     400"
  369. 16230 DATA "New-value:     same as creatper"
  370. 16231 DATA ".sp"
  371. 16232 DATA "Note:  A current file can be extended"
  372. 16233 DATA "by changing both the intial value and"
  373. 16234 DATA "ending value of the FOR statement in"
  374. 16235 DATA "line 1060."
  375. 16236 DATA ".sp"
  376. 16237 DATA "For example, expanding from 400 to 500"
  377. 16238 DATA "ordinances would require line 1060 to be:"
  378. 16239 DATA ".sp"
  379. 16240 DATA "  1060 FOR I = 401 TO 500"
  380. 16241 DATA ".vt 2"
  381. 16250 DATA "Program:       updatper"
  382. 16260 DATA "Line-number:   1090"
  383. 16270 DATA "Old-value:     400"
  384. 16280 DATA "New-value:     same as creatper"
  385. 16290 DATA ".sp"
  386. 16300 DATA "Program:       updatord"
  387. 16310 DATA "Line-number:   1120"
  388. 16320 DATA "Old-value:     400"
  389. 16330 DATA "New-value:     same as creatper"
  390. 16340 DATA ".sp"
  391. 16350 DATA "Program:       indexpc"
  392. 16360 DATA "Line-number:   150"
  393. 16370 DATA "Old-value:     DIMs of 800"
  394. 16380 DATA "New-value:     twice creatper"
  395. 16390 DATA ".sp"
  396. 16400 DATA "Program:       indexpc"
  397. 16410 DATA "Line-number:   1070"
  398. 16420 DATA "Old-value:     400"
  399. 16430 DATA "New-value:     same as creatper"
  400. 16440 DATA ".pa"
  401. 16450 DATA "Program:       printper"
  402. 16460 DATA "Line-number:   1160"
  403. 16470 DATA "Old-value:     400"
  404. 16480 DATA "New-value:     same as creatper"
  405. 16490 DATA ".sp"
  406. 16500 DATA "Program:       listper"
  407. 16510 DATA "Line-number:   1150"
  408. 16520 DATA "Old-value:     400"
  409. 16530 DATA "New-value:     same as creatper"
  410. 16540 DATA ".sp"
  411. 16550 DATA "Program:       alphaper"
  412. 16560 DATA "Line-number:   150"
  413. 16570 DATA "Old-value:     DIMs of 400"
  414. 16580 DATA "New-value:     same as creatper"
  415. 16590 DATA ".sp"
  416. 16600 DATA "Program:       display"
  417. 16610 DATA "Line-number:   150"
  418. 16620 DATA "Old-value:     DIM PA.ID(800)"
  419. 16630 DATA "New-value:     twice creatper"
  420. 16640 DATA ".sp"
  421. 16650 DATA "Program:       display"
  422. 16660 DATA "Line-number:   150"
  423. 16670 DATA "Old-value:     DIM CH.ID(800)"
  424. 16680 DATA "New-value:     twice creatper"
  425. 16690 DATA ".sp"
  426. 16750 DATA "Program:       display"
  427. 16760 DATA "Line-number:   2800"
  428. 16770 DATA "Old-value:     400"
  429. 16780 DATA "New-value:     same as creatper"
  430. 16790 DATA ".pa"
  431. 16800 DATA "Program:       pedigree"
  432. 16810 DATA "Line-number:   150"
  433. 16820 DATA "Old-value:     DIM PA.ID(800)"
  434. 16830 DATA "New-value:     twice creatper"
  435. 16840 DATA ".sp"
  436. 16850 DATA "Program:       pedigree"
  437. 16860 DATA "Line-number:   150"
  438. 16870 DATA "Old-value:     DIM CH.ID(800)"
  439. 16880 DATA "New-value:     twice creatper"
  440. 16890 DATA ".sp"
  441. 16950 DATA "Program:       pedigree"
  442. 16960 DATA "Line-number:   1980"
  443. 16970 DATA "Old-value:     400"
  444. 16980 DATA "New-value:     same as creatper"
  445. 16990 DATA ".sp"
  446. 17000 DATA "Program:       family"
  447. 17010 DATA "Line-number:   150"
  448. 17020 DATA "Old-value:     DIM PA.ID(800)"
  449. 17030 DATA "New-value:     twice creatper"
  450. 17040 DATA ".sp"
  451. 17100 DATA "Program:       family"
  452. 17110 DATA "Line-number:   150"
  453. 17120 DATA "Old-value:     DIM CH.ID(800)"
  454. 17130 DATA "New-value:     twice creatper"
  455. 17140 DATA ".pa"
  456. 18000 DATA ".h2 Changing the Number of Marriages"
  457. 18010 DATA "The programs, as designed, provide"
  458. 18020 DATA "for 200 marriages."
  459. 18030 DATA ".sp"
  460. 18040 DATA "In order to change the number of"
  461. 18050 DATA "marriages, it is then necessary to"
  462. 18060 DATA "change the 200 to some other, more"
  463. 18070 DATA "desirable, number."
  464. 18080 DATA ".sp"
  465. 18100 DATA "Program:       creatmar"
  466. 18110 DATA "Line-number:   1060"
  467. 18120 DATA "Old-value:     200"
  468. 18130 DATA "New-value:     you decide."
  469. 18131 DATA ".sp"
  470. 18132 DATA "Note:  A current file can be extended"
  471. 18133 DATA "by changing both the intial value and"
  472. 18134 DATA "ending value of the FOR statement in"
  473. 18135 DATA "line 1060."
  474. 18140 DATA ".sp"
  475. 18141 DATA "For example, expanding from 200 to 250"
  476. 18142 DATA "marriages would require line 1060 to be:"
  477. 18143 DATA ".sp"
  478. 18144 DATA "  1060 FOR I = 201 TO 250"
  479. 18145 DATA ".vt 2"
  480. 18150 DATA "Program:       updatmar"
  481. 18160 DATA "Line-number:   1090"
  482. 18170 DATA "Old-value:     200"
  483. 18180 DATA "New-value:     same as creatmar"
  484. 18190 DATA ".sp"
  485. 18200 DATA "Program:       indexmar"
  486. 18210 DATA "Line-number:   150"
  487. 18220 DATA "Old-value:     DIMs of 400"
  488. 18230 DATA "New-value:     twice creatmar"
  489. 18240 DATA ".pa"
  490. 18250 DATA "Program:       indexmar"
  491. 18260 DATA "Line-number:   1070"
  492. 18270 DATA "Old-value:     200"
  493. 18280 DATA "New-value:     same as creatmar"
  494. 18290 DATA ".sp"
  495. 18300 DATA "Program:       printmar"
  496. 18310 DATA "Line-number:   1200 and 1240"
  497. 18320 DATA "Old-value:     200"
  498. 18330 DATA "New-value:     same as creatmar.
  499. 18340 DATA ".sp"
  500. 18350 DATA "Program:       listmar"
  501. 18360 DATA "Line-number:   1210"
  502. 18370 DATA "Old-value:     200"
  503. 18380 DATA "New-value:     same as creatmar"
  504. 18390 DATA ".sp"
  505. 18400 DATA "Program:       alphamar"
  506. 18410 DATA "Line-number:   150"
  507. 18420 DATA "Old-value:     DIMs of 400"
  508. 18430 DATA "New-value:     twice creatmar"
  509. 18440 DATA ".sp"
  510. 18450 DATA "Program:       display"
  511. 18460 DATA "Line-number:   150"
  512. 18470 DATA "Old-value:     DIM PERS.NO(400)"
  513. 18480 DATA "New-value:     twice creatmar"
  514. 18490 DATA ".sp"
  515. 18500 DATA "Program:       display"
  516. 18510 DATA "Line-number:   150"
  517. 18520 DATA "Old-value:     DIM M.NO(400)"
  518. 18530 DATA "New-value:     twice creatmar"
  519. 18540 DATA ".sp"
  520. 18550 DATA "Program:       pedigree"
  521. 18560 DATA "Line-number:   150"
  522. 18570 DATA "Old-value:     DIM PERS.NO(400)"
  523. 18580 DATA "New-value:     twice creatmar"
  524. 18590 DATA ".pa"
  525. 18600 DATA "Program:       pedigree"
  526. 18610 DATA "Line-number:   150"
  527. 18620 DATA "Old-value:     DIM M.NO(400)"
  528. 18630 DATA "New-value:     twice creatmar"
  529. 18640 DATA ".sp"
  530. 18650 DATA "Program:       family"
  531. 18660 DATA "Line-number:   150"
  532. 18670 DATA "Old-value:     DIM PERS.NO(400)"
  533. 18680 DATA "New-value:     twice creatmar"
  534. 18690 DATA ".sp"
  535. 18700 DATA "Program:       family"
  536. 18710 DATA "Line-number:   150"
  537. 18720 DATA "Old-value:     DIM M.NO(400)"
  538. 18730 DATA "New-value:     twice creatmar"
  539. 18740 DATA ".sp"
  540. 18750 DATA "Program:       family"
  541. 18760 DATA "Line-number:   2120"
  542. 18770 DATA "Old-value:     200"
  543. 18780 DATA "New-value:     same as creatmar"
  544. 18790 DATA ".pa"
  545. 20000 DATA ".h2 Repositioning the Data Files"
  546. 20005 DATA ".h3 Persons File"
  547. 20010 DATA "As designed, the Persons File is"
  548. 20020 DATA "located on drive a:.  In order to"
  549. 20030 DATA "change this to another drive, the"
  550. 20040 DATA "following changes must be made."
  551. 20050 DATA ".sp"
  552. 20060 DATA "Program     Line-number"
  553. 20070 DATA "--------    -----------"
  554. 20080 DATA "creatper    1020"
  555. 20090 DATA "updatper    1020"
  556. 20100 DATA "updatord    1050"
  557. 20110 DATA "indexpc     1020"
  558. 20120 DATA "printper    1050"
  559. 20130 DATA "printmar    1020"
  560. 20140 DATA "listper     1020"
  561. 20150 DATA "listmar     1030"
  562. 20160 DATA "listpci     1020"
  563. 20170 DATA "alphaper    1020"
  564. 20180 DATA "alphamar    1020"
  565. 20190 DATA "display     2670"
  566. 20200 DATA "pedigree    1890"
  567. 20210 DATA "family      1980"
  568. 20220 DATA ".sp"
  569. 20230 DATA "In all of the above, change a: to"
  570. 20240 DATA "the desired drive-letter."
  571. 20250 DATA ".pa"
  572. 20255 DATA ".h3 Marriages File"
  573. 20310 DATA "As designed, the Marriages File is"
  574. 20320 DATA "located on drive a:.  In order to"
  575. 20330 DATA "change this to another drive, the"
  576. 20340 DATA "following changes must be made."
  577. 20350 DATA ".sp"
  578. 20360 DATA "Program     Line-number"
  579. 20370 DATA "--------    -----------"
  580. 20380 DATA "creatmar    1020"
  581. 20390 DATA "updatmar    1020"
  582. 20400 DATA "indexmar    1020"
  583. 20410 DATA "printmar    1040"
  584. 20420 DATA "listmar     1060"
  585. 20430 DATA "display     2710"
  586. 20440 DATA "pedigree    1930"
  587. 20450 DATA "family      2020"
  588. 20460 DATA ".sp"
  589. 20470 DATA "In all of the above, change a: to"
  590. 20480 DATA "the desired drive-letter."
  591. 20490 DATA ".pa"
  592. 20495 DATA ".h3 Ordinances File"
  593. 20510 DATA "As designed, the Ordinances File is"
  594. 20520 DATA "located on drive b:.  In order to"
  595. 20530 DATA "change this to another drive, the"
  596. 20540 DATA "following changes must be made."
  597. 20550 DATA ".sp"
  598. 20560 DATA "Program     Line-number"
  599. 20570 DATA "--------    -----------"
  600. 20580 DATA "creatord    1020"
  601. 20590 DATA "updatord    1020"
  602. 20600 DATA "printper    1020"
  603. 20610 DATA "display     2750"
  604. 20620 DATA "family      2060"
  605. 20660 DATA ".sp"
  606. 20670 DATA "In all of the above, change b: to"
  607. 20680 DATA "the desired drive-letter."
  608. 20690 DATA ".pa"
  609. 20695 DATA ".h3 Parent/Child Index"
  610. 20710 DATA "As designed, the Parent/Child Index"
  611. 20720 DATA "is located on drive a:.  In order to"
  612. 20730 DATA "change this to another drive, the"
  613. 20740 DATA "following changes must be made."
  614. 20750 DATA ".sp"
  615. 20760 DATA "Program     Line-number"
  616. 20770 DATA "--------    -----------"
  617. 20780 DATA "indexpc     1940"
  618. 20790 DATA "listpci     1050"
  619. 20800 DATA "display     2480"
  620. 20810 DATA "family      1790"
  621. 20860 DATA ".sp"
  622. 20870 DATA "In all of the above, change a: to"
  623. 20880 DATA "the desired drive-letter."
  624. 20890 DATA ".pa"
  625. 20895 DATA ".h3 Marriages Index"
  626. 20910 DATA "As designed, the Marriages Index is"
  627. 20920 DATA "located on drive a:.  In order to"
  628. 20930 DATA "change this to another drive, the"
  629. 20940 DATA "following changes must be made."
  630. 20950 DATA ".sp"
  631. 20960 DATA "Program     Line-number"
  632. 20970 DATA "--------    -----------"
  633. 20980 DATA "indexmar    1950"
  634. 20990 DATA "alphamar    1060"
  635. 21000 DATA "display     2580"
  636. 21010 DATA "pedigree    1800"
  637. 21020 DATA "family      1890"
  638. 21060 DATA ".sp"
  639. 21070 DATA "In all of the above, change a: to"
  640. 21080 DATA "the desired drive-letter."
  641. 21090 DATA ".pa"
  642. 22000 DATA ".h2 Removing the Ordinances File"
  643. 22010 DATA "As designed, an Ordinances File is part"
  644. 22020 DATA "of Genealogy ON DISPLAY."
  645. 22030 DATA ".sp"
  646. 22040 DATA "In the event that the user does not wish"
  647. 22050 DATA "to have an Ordinances File, the follow-"
  648. 22060 DATA "ing changes should be made:"
  649. 22070 DATA ".sp"
  650. 22080 DATA "The creatord program should not be run."
  651. 22090 DATA ".sp"
  652. 22100 DATA "The updatord program should not be run."
  653. 22110 DATA ".sp"
  654. 22120 DATA "Program:      printper"
  655. 22130 DATA "delete statement 1020   (OPEN)"
  656. 22140 DATA "delete statement 2370   (CLOSE)"
  657. 22150 DATA "add statement 2015 GOTO 2330"
  658. 22160 DATA ".vt 2"
  659. 22170 DATA "Program:      display"
  660. 22180 DATA "delete statement 2750   (OPEN)"
  661. 22190 DATA "delete statement 7420   (CLOSE)"
  662. 22200 DATA "delete statement 3250   (test for 'o')"
  663. 22210 DATA ".vt 2"
  664. 22220 DATA "Program:      family"
  665. 22230 DATA "delete statement 2060   (OPEN)"
  666. 22240 DATA "delete statement 5100   (CLOSE)"
  667. 22250 DATA "add statement 4015 GOTO 4250"
  668. 22260 DATA "add statement 4525 GOTO 4600"
  669. 23990 DATA ".pa"
  670. 24000 DATA ".h2 Changing the Ordinances File"
  671. 24010 DATA "This modification is a major effort"
  672. 24020 DATA "and should be left to a programmer."
  673. 24030 DATA ".vt 2"
  674. 24040 DATA "The creatord program must be changed."
  675. 24050 DATA ".sp"
  676. 24060 DATA "The updatord program must be changed,"
  677. 24064 DATA "with a major revision."
  678. 24070 DATA ".sp"
  679. 24080 DATA "The printper program must be changed,"
  680. 24085 DATA "with a major revision."
  681. 24090 DATA ".sp"
  682. 24100 DATA "The display program must be changed,"
  683. 24110 DATA "with a major revision."
  684. 24120 DATA ".sp"
  685. 24130 DATA "The family program must be changed."
  686. 25990 DATA ".pa"
  687. 26000 DATA ".h2 Utilizing other Printers"
  688. 26010 DATA "As designed, an IBM Matrix Printer,"
  689. 26020 DATA "an EPSON MX-80 Printer, or an"
  690. 26030 DATA "EPSON MX-100 Printer is assumed."
  691. 26040 DATA ".sp"
  692. 26050 DATA "Control for Condensed Printing, for"
  693. 26055 DATA "Page Length, for Paper Sensing, and"
  694. 26060 DATA "for Page Ejection is provided in the"
  695. 26070 DATA "Pedigree program and in the Family"
  696. 26080 DATA "program."
  697. 26081 DATA ".sp"
  698. 26082 DATA "Page ejection is also provided in the"
  699. 26083 DATA "printper, printmar, listper, listmar,"
  700. 26084 DATA "listpci, alphaper, and alphamar"
  701. 26085 DATA "programs."
  702. 26086 DATA ".sp"
  703. 26087 DATA "Emphasized printing is used in the"
  704. 26088 DATA "printper program."
  705. 26090 DATA ".sp"
  706. 26100 DATA "In order to provide the same facility"
  707. 26110 DATA "for another printer, the following"
  708. 26120 DATA "changes should be made:"
  709. 26130 DATA ".sp"
  710. 26140 DATA "Program:    pedigree"
  711. 26150 DATA "Line:       2060"
  712. 26160 DATA "Purpose:    Paper Sensing OFF"
  713. 26170 DATA "Change to requirement of printer."
  714. 26180 DATA ".sp"
  715. 26200 DATA "Program:    pedigree"
  716. 26210 DATA "Line:       2080"
  717. 26220 DATA "Purpose:    Page Length 8-1/2"
  718. 26230 DATA "Change to requirement of printer."
  719. 26240 DATA ".pa"
  720. 26250 DATA "Program:    pedigree"
  721. 26260 DATA "Line:       2100"
  722. 26270 DATA "Purpose:    Condensed Printing"
  723. 26280 DATA "Change to requirement of printer."
  724. 26290 DATA ".sp"
  725. 26300 DATA "Program:    pedigree"
  726. 26310 DATA "Line:       6580"
  727. 26320 DATA "Purpose:    Normal Printing"
  728. 26330 DATA "Change to requirement of printer."
  729. 26340 DATA ".sp"
  730. 26350 DATA "Program:    pedigree"
  731. 26360 DATA "Line:       6590"
  732. 26370 DATA "Purpose:    Paper Sensing ON"
  733. 26380 DATA "Change to requirement of printer."
  734. 26390 DATA ".sp"
  735. 26400 DATA "Program:    pedigree"
  736. 26410 DATA "Line:       6600"
  737. 26420 DATA "Purpose:    Normal Page Length"
  738. 26430 DATA "Change to requirement of printer."
  739. 26440 DATA ".sp"
  740. 26450 DATA "Program:    pedigree"
  741. 26460 DATA "Lines:      6650 & 6660
  742. 26470 DATA "Purpose:    Page Eject"
  743. 26480 DATA "Change to requirement of printer."
  744. 26490 DATA ".sp"
  745. 26500 DATA "Program:    family"
  746. 26510 DATA "Line:       2200"
  747. 26520 DATA "Purpose:    Paper Sensing OFF"
  748. 26530 DATA "Change to requirement of printer."
  749. 26540 DATA ".sp"
  750. 26600 DATA "Program:    family"
  751. 26610 DATA "Line:       2220"
  752. 26620 DATA "Purpose:    Page Length 8-1/2"
  753. 26630 DATA "Change to requirement of printer."
  754. 26640 DATA ".pa"
  755. 26650 DATA "Program:    family"
  756. 26660 DATA "Line:       2240"
  757. 26670 DATA "Purpose:    Condensed Printing"
  758. 26680 DATA "Change to requirement of printer."
  759. 26690 DATA ".sp"
  760. 26700 DATA "Program:    family"
  761. 26710 DATA "Line:       5050"
  762. 26720 DATA "Purpose:    Normal Printing"
  763. 26730 DATA "Change to requirement of printer."
  764. 26740 DATA ".sp"
  765. 26750 DATA "Program:    family"
  766. 26760 DATA "Line:       5060"
  767. 26770 DATA "Purpose:    Paper Sensing ON"
  768. 26780 DATA "Change to requirement of printer."
  769. 26790 DATA ".sp"
  770. 26800 DATA "Program:    family"
  771. 26810 DATA "Line:       5070"
  772. 26820 DATA "Purpose:    Normal Page Length"
  773. 26830 DATA "Change to requirement of printer."
  774. 26840 DATA ".sp"
  775. 26850 DATA "Program:    family"
  776. 26860 DATA "Lines:      5130 & 5140"
  777. 26870 DATA "Purpose:    Page Eject"
  778. 26880 DATA "Change to requirement of printer."
  779. 26890 DATA ".sp"
  780. 26900 DATA "Program:    printper"
  781. 26910 DATA "Lines:      2330 & 2400"
  782. 26920 DATA "Purpose:    Page Eject"
  783. 26930 DATA "Change to requirement of printer."
  784. 26940 DATA ".sp"
  785. 26950 DATA "Program:    printmar"
  786. 26960 DATA "Lines:      1790 & 1910"
  787. 26970 DATA "Purpose:    Page Eject"
  788. 26980 DATA "Change to requirement of printer."
  789. 26990 DATA ".pa"
  790. 27000 DATA "Program:    listper"
  791. 27010 DATA "Lines:      1510 & 1540"
  792. 27020 DATA "Purpose:    Page Eject"
  793. 27030 DATA "Change to requirement of printer."
  794. 27040 DATA ".sp"
  795. 27050 DATA "Program:    listmar"
  796. 27060 DATA "Lines:      1420 & 1950"
  797. 27070 DATA "Purpose:    Page Eject"
  798. 27080 DATA "Change to requirement of printer."
  799. 27090 DATA ".sp"
  800. 27100 DATA "Program:    listpci"
  801. 27110 DATA "Lines:      1460 & 1520"
  802. 27120 DATA "Purpose:    Page Eject"
  803. 27130 DATA "Change to requirement of printer."
  804. 27140 DATA ".sp"
  805. 27150 DATA "Program:    alphaper"
  806. 27160 DATA "Lines:      1900 & 1970"
  807. 27170 DATA "Purpose:    Page Eject"
  808. 27180 DATA "Change to requirement of printer."
  809. 27190 DATA ".sp"
  810. 27200 DATA "Program:    alphamar"
  811. 27210 DATA "Lines:      1700 & 1760"
  812. 27220 DATA "Purpose:    Page Eject"
  813. 27230 DATA "Change to requirement of printer."
  814. 27240 DATA ".sp"
  815. 27250 DATA "Program:    printper"
  816. 27260 DATA "Lines:      1790 & 2030"
  817. 27270 DATA "Purpose:    Emphasized Printing"
  818. 27280 DATA "Change to requirement of printer."
  819. 27290 DATA ".sp"
  820. 27300 DATA "Program:    printper"
  821. 27310 DATA "Lines:      1810 & 2050"
  822. 27320 DATA "Purpose:    Normal Printing"
  823. 27330 DATA "Change to requirement of printer."
  824. 28000 DATA ".h1 E. TERMS & CONDITIONS"
  825. 28010 DATA ".h2 Terms"
  826. 28070 DATA "If you are using these programs, and"
  827. 28080 DATA "finding them of value, your contribution"
  828. 28090 DATA "($35 suggested) will be appreciated."
  829. 28100 DATA ".vt 3"
  830. 28110 DATA "     Melvin O. Duke"
  831. 28120 DATA "     P. O. Box 20836"
  832. 28130 DATA "     San Jose, CA  95160"
  833. 28140 DATA ".vt 3"
  834. 28150 DATA "Regardless of whether you make a contri-"
  835. 28160 DATA "bution, you are encouraged to copy and"
  836. 28170 DATA "share these programs."
  837. 28180 DATA ".sp"
  838. 28190 DATA "Anyone may request a copy of these"
  839. 28200 DATA "programs by sending two blank diskettes"
  840. 28210 DATA "to the author of the programs (one for"
  841. 28220 DATA "the programs and the second for the"
  842. 28230 DATA "documentation)."
  843. 28240 DATA ".sp"
  844. 28250 DATA "An addressed, postage-paid return"
  845. 28260 DATA "mailer must accompany the diskettes (no"
  846. 28270 DATA "exceptions, please)."
  847. 28280 DATA ".sp"
  848. 28290 DATA "A copy of the programs with documenta-"
  849. 28300 DATA "tion will be sent by return mail."
  850. 28310 DATA ".pa"
  851. 28500 DATA ".h2 Conditions"
  852. 28510 DATA "A limited license is granted to all users"
  853. 28520 DATA "of these programs, to make copies of"
  854. 28530 DATA "them, and distribute them to other users,"
  855. 28540 DATA "on the following conditions:"
  856. 28550 DATA ".sp"
  857. 28560 DATA "1.  The Genealogy ON DISPLAY programs"
  858. 28565 DATA "    are not to be distributed to others"
  859. 28570 DATA "    in a modified form."
  860. 28580 DATA ".sp"
  861. 28590 DATA "2.  No fee (or other consideration) is"
  862. 28600 DATA "    to be charged for copying or distri-"
  863. 28610 DATA "    buting the Genealogy ON DISPLAY"
  864. 28615 DATA "    programs."
  865. 28620 DATA ".sp"
  866. 28630 DATA "3.  The notices displayed at program"
  867. 28640 DATA "    start-up are not to be bypassed,"
  868. 28650 DATA "    altered, or removed."
  869. 29500 DATA ".h2 Disclaimer"
  870. 29510 DATA "In no event will the Author be liable to"
  871. 29520 DATA "you for any damages, including any lost"
  872. 29530 DATA "profits, lost savings or other inciden-"
  873. 29540 DATA "tal or consequential damages arising out"
  874. 29550 DATA "of the use of or inability to use these"
  875. 29560 DATA "programs, even if the Author has been"
  876. 29570 DATA "advised of the possibility of such"
  877. 29580 DATA "damages, or for any claim by any other"
  878. 29590 DATA "party."
  879. 30000 DATA ".eof"
  880. 32000 END
  881. 
  882. 16790 DATA ".pa"
  883. 16800 DATA "Program:       pedigree"
  884. 16810 DATA "Line-number:   150"
  885. 16820 DATA "Old-value:     DIM