home *** CD-ROM | disk | FTP | other *** search
/ PC-Blue - MS DOS Public Domain Library / PC-Blue MS-DOS Public Domain Library - NYACC.iso / vol058 / appendix.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1987-01-13  |  27.1 KB  |  881 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.