home *** CD-ROM | disk | FTP | other *** search
/ PC-Blue - MS DOS Public Domain Library / PC-Blue MS-DOS Public Domain Library - NYACC.iso / vol117 / appendix.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1986-12-15  |  30.7 KB  |  1,006 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 December 1984.
  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 3.0"
  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. 303  REM First, change tildes to quotes
  34. 304  FOR Q = 1 TO LEN(REPLY$)
  35. 305   IF MID$(REPLY$,Q,1)="~"THEN MID$(REPLY$,Q,1)=CHR$(34)
  36. 306  NEXT Q
  37. 310  LPRINT TAB(TAB.POS);REPLY$
  38. 320  LINE.NO = LINE.NO + 1
  39. 330  IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
  40. 340  GOTO 270
  41. 350  REM Data for the Copyright Page
  42. 354  DATA ".pa"
  43. 358  DATA "Anyone may request a copy of these"
  44. 362  DATA "programs by sending a blank, double-"
  45. 366  DATA "sided, double-density diskette to the"
  46. 370  DATA "author of the programs."
  47. 378  DATA ".sp"
  48. 382  DATA "An addressed, postage-paid return"
  49. 386  DATA "mailer must accompany the diskette (no"
  50. 390  DATA "exceptions, please).
  51. 394  DATA ".sp"
  52. 398  DATA "A copy of the programs with documenta-"
  53. 402  DATA "tion will be sent by return mail."
  54. 410  DATA ".vt 2"
  55. 415  DATA "Users are encouraged to copy and share"
  56. 420  DATA "the programs with others."
  57. 430  DATA ".vt 6"
  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 anticipated."
  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, 1984, 1985, 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 3.0" '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 10070
  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. 2000  DATA ".h1 A.  MESSAGES"
  198. 2010  DATA ".pn 59"
  199. 2020  DATA ".h2 START-UP MESSAGES"
  200. 2030  DATA "The initial System Message, when the"
  201. 2040  DATA "system is turned on, is:"
  202. 2050  DATA ".sp"
  203. 2060  DATA ".pk Current date is Tue 1-01-1980"
  204. 2070  DATA ".pk Enter new date:"
  205. 2080  DATA ".sp"
  206. 2090  DATA "The user is expected to respond with an"
  207. 2100  DATA "appropriate date."
  208. 2110  DATA ".vt 2"
  209. 2120  DATA "The next system message is:"
  210. 2130  DATA ".sp"
  211. 2140  DATA ".pk Current time is 0:00:52.17"
  212. 2150  DATA ".pk Enter new time:"
  213. 2160  DATA ".sp"
  214. 2170  DATA "The user is expected to respond with a"
  215. 2180  DATA "correct time."
  216. 2190  DATA ".vt 2"
  217. 2200  DATA "The System then responds:"
  218. 2210  DATA ".sp"
  219. 2220  DATA ".pk The IBM Personal Computer DOS"
  220. 2230  DATA ".pk Version 2.10 (C) Copyright IBM Corp 1981, 1982, 1983"
  221. 2240  DATA ".vt 2"
  222. 2250  DATA "The message in response to the"
  223. 2260  DATA "basic/s:256"
  224. 2270  DATA "command is similar to:"
  225. 2280  DATA ".sp"
  226. 2290  DATA ".pk IBM Personal Computer Basic"
  227. 2300  DATA ".pk Version D2.00 Copyright IBM Corp. 1981, 1982, 1983"
  228. 2310  DATA ".pk 61118 Bytes Free"
  229. 2320  DATA ".pa"
  230. 2330  DATA ".h2 Error Messages"
  231. 2340  'ATA ".pk Illegal Function Call"
  232. 2350  'ATA ".sp
  233. 2360  'ATA "When loading BASIC, the user requested"
  234. 2370  'ATA "'basic' without establishing the"
  235. 2380  'ATA "buffers necessary for reading the data"
  236. 2390  'ATA "files.  The user should have requested"
  237. 2400  'ATA "'basic/s:256'."
  238. 2410  'ATA ".vt 2"
  239. 2420  DATA ".pk Redo from Start"
  240. 2430  DATA ".sp"
  241. 2440  DATA "The user has entered a reply which"
  242. 2450  DATA "contains a comma.  He should re-enter"
  243. 2460  DATA "the data without the comma, or he"
  244. 2470  DATA "should enclose the reply in quotes."
  245. 2480  DATA ".sp"
  246. 2490  DATA "After re-entering the reply, he should"
  247. 2500  DATA "'save' the current information, and"
  248. 2510  DATA "call it out again to refresh the screen."
  249. 2520  DATA ".h1 B.  Summary"
  250. 2530  DATA ".h2 General Programs"
  251. 2540  DATA ".pk                                        BASIC       Data"
  252. 2550  DATA ".pk Routines                               Programs    Files"
  253. 2560  DATA ".pk -----------------------------------    --------    --------"
  254. 2570  DATA ".pk Initial File Creation"
  255. 2580  DATA ".pk   Persons File                         creatper    persfile"
  256. 2590  DATA ".pk   Marriages File                       creatmar    marrfile"
  257. 2600  DATA ".pk   Ordinances File                      creatord    ordfile"
  258. 2610  DATA ".sp"
  259. 2620  DATA ".pk File Update"
  260. 2630  DATA ".pk   Persons File                         updatper"
  261. 2640  DATA ".pk   Marriages File                       updatmar"
  262. 2650  DATA ".pk   Ordinances File                      updatord"
  263. 2660  DATA ".sp"
  264. 2670  DATA ".pk Print the Contents of the Files"
  265. 2680  DATA ".pk   Persons and Ordinances Files         printper"
  266. 2690  DATA ".pk   Marriages File                       printmar"
  267. 2700  DATA ".sp"
  268. 2710  DATA ".pk List the Records in the Files"
  269. 2720  DATA ".pk   Persons File                         listper"
  270. 2730  DATA ".pk   Marriages File                       listmar"
  271. 2740  DATA ".sp"
  272. 2750  DATA ".pk List the File Index"
  273. 2760  DATA ".pk   Parent/Child Index                   listpci"
  274. 2770  DATA ".sp"
  275. 2780  DATA ".pk Print an Alphabetic Name List"
  276. 2790  DATA ".pk   Persons File                         alphaper"
  277. 2800  DATA ".pk   Marriages File                       alphamar"
  278. 2810  DATA ".sp"
  279. 2820  DATA ".pk Create a File Index"
  280. 2830  DATA ".pk   Parent/Child Index                   indexpc    pcindex"
  281. 2840  DATA ".pk   Marriages Index                      indexmar   mindex"
  282. 2850  DATA ".pa"
  283. 2860  DATA ".h2 General Programs, Cont."
  284. 2870  DATA ".pk                                        BASIC       Data"
  285. 2880  DATA ".pk Routines                               Programs    Files"
  286. 2890  DATA ".pk -----------------------------------    --------    --------"
  287. 2900  DATA ".pk Display the Information                display"
  288. 2910  DATA ".pk   Personal Information"
  289. 2920  DATA ".pk   Pedigree Information"
  290. 2930  DATA ".pk   Family Group Information"
  291. 2940  DATA ".pk   Ordinances Information"
  292. 2950  DATA ".sp"
  293. 2960  DATA ".pk Print the Genealogical Forms"
  294. 2970  DATA ".pk   Print Pedigree Charts                pedigree"
  295. 2980  DATA ".pk   Print Family Group Sheets            family"
  296. 2985  DATA ".sp"
  297. 2990  DATA ".pk Produce Descendents Charts             descend"
  298. 3000  DATA ".sp"
  299. 3010  DATA ".pk Display a Menu"
  300. 3020  DATA ".pk   Displays Available Programs          menu"
  301. 3030  DATA ".sp"
  302. 3040  DATA ".pk One-Record Testfile"
  303. 3050  DATA ".pk   Verifies the /s:256 Startup                      testfile"
  304. 3060  DATA ".h2 Documentation"
  305. 3070  DATA ".pk Display Initial Information            runfirst"
  306. 3080  DATA ".pk Change Printers for Documentation      printers"
  307. 3090  DATA ".pk Print a Program Directory              director"
  308. 3100  DATA ".sp"
  309. 3110  DATA ".pk Print a User's Manual"
  310. 3120  DATA ".pk   Table of Contents                    tableofc"
  311. 3130  DATA ".pk   Introduction                         introduc"
  312. 3140  DATA ".pk   General Information                  general"
  313. 3150  DATA ".pk   Using the Programs                   usingthe"
  314. 3160  DATA ".pk   Reference Material                   referenc"
  315. 3170  DATA ".pk   Appendices                           appendix"
  316. 3180  DATA ".h1 C.  HINTS"
  317. 3190  DATA ".h2 NAMES"
  318. 3200  DATA "It is best to enter surnames with all"
  319. 3210  DATA "capitals, such as:  ABLE"
  320. 3220  DATA ".h2 DATES"
  321. 3230  DATA "All of the programs expect dates in the"
  322. 3240  DATA "form dd Mmm yyyy, such as: 09 Jun 1928."
  323. 3250  DATA ".h2 COMMAS"
  324. 3260  DATA "Commas are to be avoided in all respon-"
  325. 3270  DATA "ses, since BASIC uses them to separate"
  326. 3280  DATA "answers.  It is suggested that dashes"
  327. 3290  DATA "be used in place of commas if at all"
  328. 3300  DATA "possible.  If it is necessary to include"
  329. 3310  DATA "a comma, the entire response should be"
  330. 3320  DATA "enclosed in quotes, making the response"
  331. 3330  DATA "a single one, rather than a multiple one."
  332. 3340  DATA ".pa"
  333. 3350  DATA ".h2 Replacing with Blanks"
  334. 3360  DATA "In the event that a user wishes to re-"
  335. 3370  DATA "place a current value with blanks (the"
  336. 3380  DATA "data was was not correct), one or more"
  337. 3390  DATA "blanks may be entered by enclosing them"
  338. 3400  DATA "within quotes."
  339. 3410  DATA ".h2 Removing a Record."
  340. 3420  DATA "In the rare event that a user wishes"
  341. 3430  DATA "to remove a record from the Persons"
  342. 3440  DATA "File or the Marriages File, changing"
  343. 3450  DATA "the record-number to the same number"
  344. 3460  DATA "preceded by a minus-sign will cause"
  345. 3470  DATA "the record to be cleared."
  346. 3480  DATA ".sp"
  347. 3490  DATA "Note: A Record in the Ordinances"
  348. 3500  DATA "File cannot be accessed if the"
  349. 3510  DATA "corresponding record in the Persons"
  350. 3520  DATA "File contains a negative record-"
  351. 3530  DATA "number."
  352. 3540  DATA ".h1 D.  MODIFICATIONS"
  353. 3550  DATA ".h2 Changing the Number of Persons"
  354. 3560  DATA "The programs, as distributed, provide"
  355. 3570  DATA "for 500 persons, and 500 ordinances."
  356. 3580  DATA ".sp"
  357. 3590  DATA "In order to change the number of"
  358. 3600  DATA "programs and ordinances, it is then"
  359. 3610  DATA "necessary to change the 500 to some"
  360. 3620  DATA "other, more desirable, number."
  361. 3630  DATA ".sp"
  362. 3640  DATA "This can be done in the following way:"
  363. 3650  DATA ".sp"
  364. 3660  DATA "Program:       creatper"
  365. 3670  DATA "Line-number:   1050"
  366. 3680  DATA "Old-value:     500"
  367. 3690  DATA "New-value:     you decide."
  368. 3700  DATA ".sp"
  369. 3710  DATA "Note:  A current file can be extended"
  370. 3720  DATA "by changing both the intial value and"
  371. 3730  DATA "ending value of the FOR statement in"
  372. 3740  DATA "line 1050."
  373. 3750  DATA ".sp"
  374. 3760  DATA "For example, expanding from 500 to 600"
  375. 3770  DATA "persons would require line 1050 to be:"
  376. 3780  DATA ".sp"
  377. 3790  DATA "  1050 FOR I = 501 TO 600"
  378. 3800  DATA ".pa"
  379. 3810  DATA "Program:       creatord"
  380. 3820  DATA "Line-number:   1060"
  381. 3830  DATA "Old-value:     500"
  382. 3840  DATA "New-value:     same as creatper"
  383. 3850  DATA ".sp"
  384. 3860  DATA "Note:  A current file can be extended"
  385. 3870  DATA "by changing both the intial value and"
  386. 3880  DATA "ending value of the FOR statement in"
  387. 3890  DATA "line 1060."
  388. 3900  DATA ".sp"
  389. 3910  DATA "For example, expanding from 500 to 600"
  390. 3920  DATA "ordinances would require line 1060 to be:"
  391. 3930  DATA ".sp"
  392. 3940  DATA "  1060 FOR I = 501 TO 600"
  393. 3950  DATA ".vt 2"
  394. 3960  DATA "Program:       updatper"
  395. 3970  DATA "Line-number:   1090"
  396. 3980  DATA "Old-value:     500"
  397. 3990  DATA "New-value:     same as creatper"
  398. 4000  DATA ".sp"
  399. 4010  DATA "Program:       updatper"
  400. 4020  DATA "Line-number:   1074"
  401. 4030  DATA "Old-value:     500"
  402. 4040  DATA "New-value:     same as creatper"
  403. 4050  DATA ".sp"
  404. 4060  DATA "Program:       updatper"
  405. 4070  DATA "Line-number:   1079"
  406. 4080  DATA "Old-value:     500"
  407. 4090  DATA "New-value:     same as creatper"
  408. 4100  DATA ".sp"
  409. 4110  DATA "Program:       updatord"
  410. 4120  DATA "Line-number:   1120"
  411. 4130  DATA "Old-value:     500"
  412. 4140  DATA "New-value:     same as creatper"
  413. 4150  DATA ".pa"
  414. 4160  DATA "Program:       updatord"
  415. 4170  DATA "Line-number:   1162"
  416. 4180  DATA "Old-value:     500"
  417. 4190  DATA "New-value:     same as creatper"
  418. 4200  DATA ".sp"
  419. 4210  DATA "Program:       indexpc"
  420. 4220  DATA "Line-number:   150"
  421. 4230  DATA "Old-value:     DIMs of 1000"
  422. 4240  DATA "New-value:     twice creatper"
  423. 4250  DATA ".sp"
  424. 4260  DATA "Program:       indexpc"
  425. 4270  DATA "Line-number:   1070"
  426. 4280  DATA "Old-value:     500"
  427. 4290  DATA "New-value:     same as creatper"
  428. 4300  DATA ".sp"
  429. 4310  DATA "Program:       printper"
  430. 4320  DATA "Line-number:   1160"
  431. 4330  DATA "Old-value:     500"
  432. 4340  DATA "New-value:     same as creatper"
  433. 4350  DATA ".sp"
  434. 4360  DATA "Program:       listper"
  435. 4370  DATA "Line-number:   1150"
  436. 4380  DATA "Old-value:     500"
  437. 4390  DATA "New-value:     same as creatper"
  438. 4400  DATA ".sp"
  439. 4410  DATA "Program:       alphaper"
  440. 4420  DATA "Line-number:   150"
  441. 4430  DATA "Old-value:     DIMs of 500"
  442. 4440  DATA "New-value:     same as creatper"
  443. 4450  DATA ".sp"
  444. 4460  DATA "Program:       alphaper"
  445. 4470  DATA "Line-number:   1070"
  446. 4480  DATA "Old-value:     500"
  447. 4490  DATA "New-value:     same as creatper"
  448. 4500  DATA ".pa"
  449. 4510  DATA "Program:       display"
  450. 4520  DATA "Line-number:   150"
  451. 4530  DATA "Old-value:     DIM PA.ID(1000)"
  452. 4540  DATA "New-value:     twice creatper"
  453. 4550  DATA ".sp"
  454. 4560  DATA "Program:       display"
  455. 4570  DATA "Line-number:   150"
  456. 4580  DATA "Old-value:     DIM CH.ID(1000)"
  457. 4590  DATA "New-value:     twice creatper"
  458. 4600  DATA ".sp"
  459. 4610  DATA "Program:       display"
  460. 4620  DATA "Line-number:   2800"
  461. 4630  DATA "Old-value:     500"
  462. 4640  DATA "New-value:     same as creatper"
  463. 4650  DATA ".sp"
  464. 4660  DATA "Program:       pedigree"
  465. 4670  DATA "Line-number:   150"
  466. 4680  DATA "Old-value:     DIM PA.ID(1000)"
  467. 4690  DATA "New-value:     twice creatper"
  468. 4700  DATA ".sp"
  469. 4710  DATA "Program:       pedigree"
  470. 4720  DATA "Line-number:   150"
  471. 4730  DATA "Old-value:     DIM CH.ID(1000)"
  472. 4740  DATA "New-value:     twice creatper"
  473. 4750  DATA ".sp"
  474. 4760  DATA "Program:       pedigree"
  475. 4770  DATA "Line-number:   1980"
  476. 4780  DATA "Old-value:     500"
  477. 4790  DATA "New-value:     same as creatper"
  478. 4800  DATA ".sp"
  479. 4810  DATA "Program:       family"
  480. 4820  DATA "Line-number:   150"
  481. 4830  DATA "Old-value:     DIM PA.ID(1000)"
  482. 4840  DATA "New-value:     twice creatper"
  483. 4850  DATA ".pa"
  484. 4860  DATA "Program:       family"
  485. 4870  DATA "Line-number:   150"
  486. 4880  DATA "Old-value:     DIM CH.ID(1000)"
  487. 4890  DATA "New-value:     twice creatper"
  488. 4900  DATA ".sp"
  489. 4910  DATA "Program:       descend"
  490. 4920  DATA "Line-number:   150"
  491. 4930  DATA "Old-value:     DIM PA.ID(1000)"
  492. 4940  DATA "New-value:     twice creatper"
  493. 4950  DATA ".sp"
  494. 4960  DATA "Program:       descend"
  495. 4970  DATA "Line-number:   150"
  496. 4980  DATA "Old-value:     DIM CH.ID(1000)"
  497. 4990  DATA "New-value:     twice creatper"
  498. 5000  DATA ".pa"
  499. 5010  DATA ".h2 Changing the Number of Marriages"
  500. 5020  DATA "The programs, as designed, provide"
  501. 5030  DATA "for 200 marriages."
  502. 5040  DATA ".sp"
  503. 5050  DATA "In order to change the number of"
  504. 5060  DATA "marriages, it is then necessary to"
  505. 5070  DATA "change the 200 to some other, more"
  506. 5080  DATA "desirable, number."
  507. 5090  DATA ".sp"
  508. 5100  DATA "Program:       creatmar"
  509. 5110  DATA "Line-number:   1060"
  510. 5120  DATA "Old-value:     200"
  511. 5130  DATA "New-value:     you decide."
  512. 5140  DATA ".sp"
  513. 5150  DATA "Note:  A current file can be extended"
  514. 5160  DATA "by changing both the intial value and"
  515. 5170  DATA "ending value of the FOR statement in"
  516. 5180  DATA "line 1060."
  517. 5190  DATA ".sp"
  518. 5200  DATA "For example, expanding from 200 to 250"
  519. 5210  DATA "marriages would require line 1060 to be:"
  520. 5220  DATA ".sp"
  521. 5230  DATA "  1060 FOR I = 201 TO 250"
  522. 5240  DATA ".vt 2"
  523. 5250  DATA "Program:       updatmar"
  524. 5260  DATA "Line-number:   1090"
  525. 5270  DATA "Old-value:     200"
  526. 5280  DATA "New-value:     same as creatmar"
  527. 5290  DATA ".sp"
  528. 5300  DATA "Program:       updatmar"
  529. 5310  DATA "Line-number:   1074"
  530. 5320  DATA "Old-value:     200"
  531. 5330  DATA "New-value:     same as creatmar"
  532. 5340  DATA ".pa"
  533. 5350  DATA "Program:       updatmar"
  534. 5360  DATA "Line-number:   1079"
  535. 5370  DATA "Old-value:     200"
  536. 5380  DATA "New-value:     same as creatmar"
  537. 5390  DATA ".sp"
  538. 5400  DATA "Program:       indexmar"
  539. 5410  DATA "Line-number:   150"
  540. 5420  DATA "Old-value:     DIMs of 400"
  541. 5430  DATA "New-value:     twice creatmar"
  542. 5440  DATA ".sp"
  543. 5450  DATA "Program:       indexmar"
  544. 5460  DATA "Line-number:   1070"
  545. 5470  DATA "Old-value:     200"
  546. 5480  DATA "New-value:     same as creatmar"
  547. 5490  DATA ".sp"
  548. 5500  DATA "Program:       printmar"
  549. 5510  DATA "Line-number:   1200 and 1240"
  550. 5520  DATA "Old-value:     200"
  551. 5530  DATA "New-value:     same as creatmar.
  552. 5540  DATA ".sp"
  553. 5550  DATA "Program:       listmar"
  554. 5560  DATA "Line-number:   1210"
  555. 5570  DATA "Old-value:     200"
  556. 5580  DATA "New-value:     same as creatmar"
  557. 5590  DATA ".sp"
  558. 5600  DATA "Program:       alphamar"
  559. 5610  DATA "Line-number:   150"
  560. 5620  DATA "Old-value:     DIMs of 400"
  561. 5630  DATA "New-value:     twice creatmar"
  562. 5640  DATA ".sp"
  563. 5650  DATA "Program:       display"
  564. 5660  DATA "Line-number:   150"
  565. 5670  DATA "Old-value:     DIM PERS.NO(400)"
  566. 5680  DATA "New-value:     twice creatmar"
  567. 5690  DATA ".pa"
  568. 5700  DATA "Program:       display"
  569. 5710  DATA "Line-number:   150"
  570. 5720  DATA "Old-value:     DIM M.NO(400)"
  571. 5730  DATA "New-value:     twice creatmar"
  572. 5740  DATA ".sp"
  573. 5750  DATA "Program:       pedigree"
  574. 5760  DATA "Line-number:   150"
  575. 5770  DATA "Old-value:     DIM PERS.NO(400)"
  576. 5780  DATA "New-value:     twice creatmar"
  577. 5790  DATA ".sp"
  578. 5800  DATA "Program:       pedigree"
  579. 5810  DATA "Line-number:   150"
  580. 5820  DATA "Old-value:     DIM M.NO(400)"
  581. 5830  DATA "New-value:     twice creatmar"
  582. 5840  DATA ".sp"
  583. 5850  DATA "Program:       family"
  584. 5860  DATA "Line-number:   150"
  585. 5870  DATA "Old-value:     DIM PERS.NO(400)"
  586. 5880  DATA "New-value:     twice creatmar"
  587. 5890  DATA ".sp"
  588. 5900  DATA "Program:       family"
  589. 5910  DATA "Line-number:   150"
  590. 5920  DATA "Old-value:     DIM M.NO(400)"
  591. 5930  DATA "New-value:     twice creatmar"
  592. 5940  DATA ".sp"
  593. 5950  DATA "Program:       family"
  594. 5960  DATA "Line-number:   2120"
  595. 5970  DATA "Old-value:     200"
  596. 5980  DATA "New-value:     same as creatmar"
  597. 5990  DATA ".sp"
  598. 6000  DATA "Program:       descend"
  599. 6010  DATA "Line-number:   150"
  600. 6020  DATA "Old-value:     DIM's of 400"
  601. 6030  DATA "New-value:     twice creatmar"
  602. 6040  DATA ".pa"
  603. 6050  DATA ".h2 Repositioning the Data Files"
  604. 6060  DATA ".h3 Persons File"
  605. 6070  DATA "As designed, the Persons File is"
  606. 6080  DATA "located on drive a:.  In order to"
  607. 6090  DATA "change this to another drive, the"
  608. 6100  DATA "following changes must be made."
  609. 6110  DATA ".sp"
  610. 6120  DATA "Program     Line-number"
  611. 6130  DATA "--------    -----------"
  612. 6140  DATA "creatper    1020"
  613. 6150  DATA "updatper    1020"
  614. 6160  DATA "updatmar    1026"
  615. 6170  DATA "updatord    1050"
  616. 6180  DATA "indexpc     1020"
  617. 6190  DATA "printper    1050"
  618. 6200  DATA "printmar    1020"
  619. 6210  DATA "listper     1020"
  620. 6220  DATA "listmar     1030"
  621. 6230  DATA "listpci     1020"
  622. 6240  DATA "alphaper    1020"
  623. 6250  DATA "alphamar    1020"
  624. 6260  DATA "display     2670"
  625. 6270  DATA "pedigree    1890"
  626. 6280  DATA "family      1980"
  627. 6290  DATA "descend     1380"
  628. 6300  DATA ".sp"
  629. 6310  DATA "In all of the above, change a: to"
  630. 6320  DATA "the desired drive-letter."
  631. 6330  DATA ".pa"
  632. 6340  DATA ".h3 Marriages File"
  633. 6350  DATA "As designed, the Marriages File is"
  634. 6360  DATA "located on drive a:.  In order to"
  635. 6370  DATA "change this to another drive, the"
  636. 6380  DATA "following changes must be made."
  637. 6390  DATA ".sp"
  638. 6400  DATA "Program     Line-number"
  639. 6410  DATA "--------    -----------"
  640. 6420  DATA "creatmar    1020"
  641. 6430  DATA "updatmar    1020"
  642. 6440  DATA "indexmar    1020"
  643. 6450  DATA "printmar    1040"
  644. 6460  DATA "listmar     1060"
  645. 6470  DATA "display     2710"
  646. 6480  DATA "pedigree    1930"
  647. 6490  DATA "family      2020"
  648. 6500  DATA "descend     1420"
  649. 6510  DATA ".sp"
  650. 6520  DATA "In all of the above, change a: to"
  651. 6530  DATA "the desired drive-letter."
  652. 6540  DATA ".pa"
  653. 6550  DATA ".h3 Ordinances File"
  654. 6560  DATA "As designed, the Ordinances File is"
  655. 6570  DATA "located on drive a:.  In order to"
  656. 6580  DATA "change this to another drive, the"
  657. 6590  DATA "following changes must be made."
  658. 6600  DATA ".sp"
  659. 6610  DATA "Program     Line-number"
  660. 6620  DATA "--------    -----------"
  661. 6630  DATA "creatord    1020"
  662. 6640  DATA "updatord    1020"
  663. 6650  DATA "printper    1020"
  664. 6660  DATA "display     2750"
  665. 6670  DATA "family      2060"
  666. 6680  DATA ".sp"
  667. 6690  DATA "In all of the above, change a: to"
  668. 6700  DATA "the desired drive-letter."
  669. 6710  DATA ".pa"
  670. 6720  DATA ".h3 Parent/Child Index"
  671. 6730  DATA "As designed, the Parent/Child Index"
  672. 6740  DATA "is located on drive a:.  In order to"
  673. 6750  DATA "change this to another drive, the"
  674. 6760  DATA "following changes must be made."
  675. 6770  DATA ".sp"
  676. 6780  DATA "Program     Line-number"
  677. 6790  DATA "--------    -----------"
  678. 6800  DATA "indexpc     1940"
  679. 6810  DATA "listpci     1050"
  680. 6820  DATA "display     2480"
  681. 6830  DATA "family      1790"
  682. 6840  DATA "descend     1190"
  683. 6850  DATA ".sp"
  684. 6860  DATA "In all of the above, change a: to"
  685. 6870  DATA "the desired drive-letter."
  686. 6880  DATA ".pa"
  687. 6890  DATA ".h3 Marriages Index"
  688. 6900  DATA "As designed, the Marriages Index is"
  689. 6910  DATA "located on drive a:.  In order to"
  690. 6920  DATA "change this to another drive, the"
  691. 6930  DATA "following changes must be made."
  692. 6940  DATA ".sp"
  693. 6950  DATA "Program     Line-number"
  694. 6960  DATA "--------    -----------"
  695. 6970  DATA "indexmar    1950"
  696. 6980  DATA "alphamar    1060"
  697. 6990  DATA "display     2580"
  698. 7000  DATA "pedigree    1800"
  699. 7010  DATA "family      1890"
  700. 7020  DATA "descend     1290"
  701. 7030  DATA ".sp"
  702. 7040  DATA "In all of the above, change a: to"
  703. 7050  DATA "the desired drive-letter."
  704. 7060  DATA ".pa"
  705. 7070  DATA ".h2 Removing the Ordinances File"
  706. 7080  DATA "As designed, an Ordinances File is part"
  707. 7090  DATA "of Genealogy ON DISPLAY."
  708. 7100  DATA ".sp"
  709. 7110  DATA "In the event that the user does not wish"
  710. 7120  DATA "to have an Ordinances File, the follow-"
  711. 7130  DATA "ing changes should be made:"
  712. 7140  DATA ".sp"
  713. 7150  DATA "The creatord program should not be run."
  714. 7160  DATA ".sp"
  715. 7170  DATA "The updatord program should not be run."
  716. 7180  DATA ".sp"
  717. 7190  DATA "Program:      printper"
  718. 7200  DATA "delete statement 1020   (OPEN)"
  719. 7210  DATA "delete statement 1030   (FIELD)"
  720. 7220  DATA "delete statement 2370   (CLOSE)"
  721. 7230  DATA "add statement 1515 GOTO 1780"
  722. 7240  DATA "add statement 2015 GOTO 2330"
  723. 7250  DATA ".vt 2"
  724. 7260  DATA "Program:      display"
  725. 7270  DATA "delete statement 2750   (OPEN)"
  726. 7280  DATA "delete statement 2760   (FIELD)"
  727. 7290  DATA "delete statement 7420   (CLOSE)"
  728. 7300  DATA "delete statement 3250   (test for 'o')"
  729. 7310  DATA "delete statement 3191   ('o' message)"
  730. 7320  DATA ".vt 2"
  731. 7330  DATA "Program:      family"
  732. 7340  DATA "delete statement 2060   (OPEN)"
  733. 7350  DATA "delete statement 2070   (FIELD)"
  734. 7360  DATA "delete statement 5100   (CLOSE)"
  735. 7370  DATA "add statement 4015 GOTO 4250"
  736. 7380  DATA "add statement 4525 GOTO 4600"
  737. 7390  DATA "add statement 8045 GOTO 8150"
  738. 7400  DATA ".pa"
  739. 7410  DATA ".h2 Changing the Ordinances File"
  740. 7420  DATA "This modification is a major effort"
  741. 7430  DATA "and should be left to a programmer."
  742. 7440  DATA ".vt 2"
  743. 7450  DATA "The creatord program must be changed."
  744. 7460  DATA ".sp"
  745. 7470  DATA "The updatord program must be changed,"
  746. 7480  DATA "with a major revision."
  747. 7490  DATA ".sp"
  748. 7500  DATA "The printper program must be changed,"
  749. 7510  DATA "with a major revision."
  750. 7520  DATA ".sp"
  751. 7530  DATA "The display program must be changed,"
  752. 7540  DATA "with a major revision."
  753. 7550  DATA ".sp"
  754. 7560  DATA "The family program must be changed."
  755. 7570  DATA ".pa"
  756. 7580  DATA ".h2 Repositioning the Programs"
  757. 7590  DATA "In the event that a user wishes the"
  758. 7600  DATA "programs to reside on a hard-disk, or"
  759. 7610  DATA "on a disk drive other than Drive 'a:',"
  760. 7620  DATA "the following changes must be made:"
  761. 7630  DATA ".sp"
  762. 7640  DATA "In each of the programs other than"
  763. 7650  DATA "the 'menu' program, there is a line"
  764. 7660  DATA "which is:"
  765. 7670  DATA ".sp"
  766. 7680  DATA "   nnnn run ~a:menu~"
  767. 7690  DATA ".sp"
  768. 7700  DATA "The line-numbers (nnnn) are at the"
  769. 7710  DATA "following locations:"
  770. 7720  DATA ".sp"
  771. 7730  DATA "   creatper  1360"
  772. 7740  DATA "   creatmar  1250"
  773. 7750  DATA "   creatord  1400"
  774. 7760  DATA "   updatper  4110"
  775. 7770  DATA "   updatmar  2820"
  776. 7780  DATA "   updatord  5110"
  777. 7790  DATA "   indexpc   2030"
  778. 7800  DATA "   indexmar  2040"
  779. 7810  DATA "   printper  2410"
  780. 7820  DATA "   printmar  1920"
  781. 7830  DATA "   listper   1570"
  782. 7840  DATA "   listmar   2000"
  783. 7850  DATA "   listpci   1530"
  784. 7860  DATA "   alphaper  1980"
  785. 7870  DATA "   alphamar  1770"
  786. 7880  DATA "   display   7450"
  787. 7890  DATA "   pedigree  6670"
  788. 7900  DATA "   family    5150"
  789. 7910  DATA "   descend   3910"
  790. 7920  DATA ".sp"
  791. 7930  DATA "In each program, change 'a:'"
  792. 7940  DATA "to the desired drive-letter."
  793. 7950  DATA ".pa"
  794. 7960  DATA "The 'menu' program selects the"
  795. 7970  DATA "next program to be run by testing"
  796. 7980  DATA "the user's reply.  On the basis"
  797. 7990  DATA "of this test, another program is"
  798. 8000  DATA "run."
  799. 8010  DATA ".sp"
  800. 8020  DATA "Lines 1790 through 1980 of the"
  801. 8030  DATA "'menu' program must be changed,"
  802. 8040  DATA "so that the references which"
  803. 8050  DATA "appear as:"
  804. 8060  DATA ".sp"
  805. 8070  DATA ".pk IF REPLY = nn THEN RUN a:program-name"
  806. 8080  DATA ".sp"
  807. 8090  DATA "contain the desired drive-letter,"
  808. 8100  DATA "such as:"
  809. 8110  DATA ".sp"
  810. 8120  DATA ".pk IF REPLY = 16 THEN RUN c:display"
  811. 8130  DATA ".pa"
  812. 8140  DATA ".h2 Utilizing other Printers"
  813. 8150  DATA "As designed, an IBM Matrix Printer,"
  814. 8160  DATA "an EPSON MX-80 Printer, or an"
  815. 8170  DATA "EPSON MX-100 Printer is assumed."
  816. 8180  DATA ".sp"
  817. 8190  DATA "Control for Condensed Printing, for"
  818. 8200  DATA "Page Length, for Paper Sensing, and"
  819. 8210  DATA "for Page Ejection is provided in the"
  820. 8220  DATA "Pedigree program and in the Family"
  821. 8230  DATA "program."
  822. 8240  DATA ".sp"
  823. 8250  DATA "Page ejection is also provided in the"
  824. 8260  DATA "printper, printmar, listper, listmar,"
  825. 8270  DATA "listpci, alphaper, and alphamar"
  826. 8280  DATA "programs."
  827. 8290  DATA ".sp"
  828. 8300  DATA "Emphasized printing is used in the"
  829. 8310  DATA "printper program."
  830. 8320  DATA ".sp"
  831. 8330  DATA "In order to provide the same facility"
  832. 8340  DATA "for another printer, the following"
  833. 8350  DATA "changes should be made:"
  834. 8360  DATA ".sp"
  835. 8370  DATA "Program:    pedigree"
  836. 8380  DATA "Line:       2060"
  837. 8390  DATA "Purpose:    Paper Sensing OFF"
  838. 8400  DATA "Change to requirement of printer."
  839. 8410  DATA ".sp"
  840. 8420  DATA "Program:    pedigree"
  841. 8430  DATA "Line:       2080"
  842. 8440  DATA "Purpose:    Page Length 8-1/2"
  843. 8450  DATA "Change to requirement of printer."
  844. 8460  DATA ".pa"
  845. 8470  DATA "Program:    pedigree"
  846. 8480  DATA "Line:       2100"
  847. 8490  DATA "Purpose:    Condensed Printing"
  848. 8500  DATA "Change to requirement of printer."
  849. 8510  DATA ".sp"
  850. 8520  DATA "Program:    pedigree"
  851. 8530  DATA "Line:       6580"
  852. 8540  DATA "Purpose:    Normal Printing"
  853. 8550  DATA "Change to requirement of printer."
  854. 8560  DATA ".sp"
  855. 8570  DATA "Program:    pedigree"
  856. 8580  DATA "Line:       6590"
  857. 8590  DATA "Purpose:    Paper Sensing ON"
  858. 8600  DATA "Change to requirement of printer."
  859. 8610  DATA ".sp"
  860. 8620  DATA "Program:    pedigree"
  861. 8630  DATA "Line:       6600"
  862. 8640  DATA "Purpose:    Normal Page Length"
  863. 8650  DATA "Change to requirement of printer."
  864. 8660  DATA ".sp"
  865. 8670  DATA "Program:    pedigree"
  866. 8680  DATA "Lines:      6650 & 6660
  867. 8690  DATA "Purpose:    Page Eject"
  868. 8700  DATA "Change to requirement of printer."
  869. 8710  DATA ".sp"
  870. 8720  DATA "Program:    family"
  871. 8730  DATA "Line:       2200"
  872. 8740  DATA "Purpose:    Paper Sensing OFF"
  873. 8750  DATA "Change to requirement of printer."
  874. 8760  DATA ".sp"
  875. 8770  DATA "Program:    family"
  876. 8780  DATA "Line:       2220"
  877. 8790  DATA "Purpose:    Page Length 8-1/2"
  878. 8800  DATA "Change to requirement of printer."
  879. 8810  DATA ".pa"
  880. 8820  DATA "Program:    family"
  881. 8830  DATA "Line:       2240"
  882. 8840  DATA "Purpose:    Condensed Printing"
  883. 8850  DATA "Change to requirement of printer."
  884. 8860  DATA ".sp"
  885. 8870  DATA "Program:    family"
  886. 8880  DATA "Line:       5050"
  887. 8890  DATA "Purpose:    Normal Printing"
  888. 8900  DATA "Change to requirement of printer."
  889. 8910  DATA ".sp"
  890. 8920  DATA "Program:    family"
  891. 8930  DATA "Line:       5060"
  892. 8940  DATA "Purpose:    Paper Sensing ON"
  893. 8950  DATA "Change to requirement of printer."
  894. 8960  DATA ".sp"
  895. 8970  DATA "Program:    family"
  896. 8980  DATA "Line:       5070"
  897. 8990  DATA "Purpose:    Normal Page Length"
  898. 9000  DATA "Change to requirement of printer."
  899. 9010  DATA ".sp"
  900. 9020  DATA "Program:    family"
  901. 9030  DATA "Lines:      5130 & 5140"
  902. 9040  DATA "Purpose:    Page Eject"
  903. 9050  DATA "Change to requirement of printer."
  904. 9060  DATA ".sp"
  905. 9070  DATA "Program:    printper"
  906. 9080  DATA "Lines:      2330 & 2400"
  907. 9090  DATA "Purpose:    Page Eject"
  908. 9100  DATA "Change to requirement of printer."
  909. 9110  DATA ".sp"
  910. 9120  DATA "Program:    printmar"
  911. 9130  DATA "Lines:      1790 & 1910"
  912. 9140  DATA "Purpose:    Page Eject"
  913. 9150  DATA "Change to requirement of printer."
  914. 9160  DATA ".pa"
  915. 9170  DATA "Program:    listper"
  916. 9180  DATA "Lines:      1510 & 1540"
  917. 9190  DATA "Purpose:    Page Eject"
  918. 9200  DATA "Change to requirement of printer."
  919. 9210  DATA ".sp"
  920. 9220  DATA "Program:    listmar"
  921. 9230  DATA "Lines:      1420 & 1950"
  922. 9240  DATA "Purpose:    Page Eject"
  923. 9250  DATA "Change to requirement of printer."
  924. 9260  DATA ".sp"
  925. 9270  DATA "Program:    listpci"
  926. 9280  DATA "Lines:      1460 & 1520"
  927. 9290  DATA "Purpose:    Page Eject"
  928. 9300  DATA "Change to requirement of printer."
  929. 9310  DATA ".sp"
  930. 9320  DATA "Program:    alphaper"
  931. 9330  DATA "Lines:      1900 & 1970"
  932. 9340  DATA "Purpose:    Page Eject"
  933. 9350  DATA "Change to requirement of printer."
  934. 9360  DATA ".sp"
  935. 9370  DATA "Program:    alphamar"
  936. 9380  DATA "Lines:      1700 & 1760"
  937. 9390  DATA "Purpose:    Page Eject"
  938. 9400  DATA "Change to requirement of printer."
  939. 9410  DATA ".sp"
  940. 9420  DATA "Program:    printper"
  941. 9430  DATA "Lines:      1790 & 2030"
  942. 9440  DATA "Purpose:    Emphasized Printing"
  943. 9450  DATA "Change to requirement of printer."
  944. 9460  DATA ".sp"
  945. 9470  DATA "Program:    printper"
  946. 9480  DATA "Lines:      1810 & 2050"
  947. 9490  DATA "Purpose:    Normal Printing"
  948. 9500  DATA "Change to requirement of printer."
  949. 9510  DATA ".pa"
  950. 9520  DATA "Program:    descend"
  951. 9530  DATA "Lines:      2500 & 3900"
  952. 9540  DATA "Purpose:    Page Eject"
  953. 9550  DATA "Change to requirement of printer."
  954. 9560  DATA ".h1 E. TERMS & CONDITIONS"
  955. 9570  DATA ".h2 Terms"
  956. 9580  DATA "If you are using these programs, and"
  957. 9590  DATA "finding them of value, your contribution"
  958. 9600  DATA "($35 suggested) will be anticipated."
  959. 9610  DATA ".vt 3"
  960. 9620  DATA "     Melvin O. Duke"
  961. 9630  DATA "     P. O. Box 20836"
  962. 9640  DATA "     San Jose, CA  95160"
  963. 9650  DATA ".vt 2"
  964. 9660  DATA "Anyone may request a copy of these"
  965. 9670  DATA "programs by sending a blank double-"
  966. 9680  DATA "sided, double-density diskette to the"
  967. 9690  DATA "author of the programs."
  968. 9700  DATA ".sp"
  969. 9710  DATA "An addressed, postage-paid return"
  970. 9720  DATA "mailer must accompany the diskette"
  971. 9730  DATA "(no exceptions, please)."
  972. 9740  DATA ".sp"
  973. 9750  DATA "A copy of the programs with documenta-"
  974. 9760  DATA "tion will be sent by return mail."
  975. 9770  DATA ".pa"
  976. 9780  DATA ".h2 Conditions"
  977. 9790  DATA "A limited license is granted to all users"
  978. 9800  DATA "of these programs, to make copies of"
  979. 9810  DATA "them, and distribute them to other users,"
  980. 9820  DATA "on the following conditions:"
  981. 9830  DATA ".sp"
  982. 9840  DATA "1.  The Genealogy ON DISPLAY programs"
  983. 9850  DATA "    are not to be distributed to others"
  984. 9860  DATA "    in a modified form."
  985. 9870  DATA ".sp"
  986. 9880  DATA "2.  No fee (or other consideration) is"
  987. 9890  DATA "    is to be charged for copying or dis-"
  988. 9900  DATA "    tributing the Genealogy ON DISPLAY"
  989. 9910  DATA "    programs."
  990. 9920  DATA ".sp"
  991. 9930  DATA "3.  The notices displayed at program"
  992. 9940  DATA "    start-up are not to be bypassed,"
  993. 9950  DATA "    altered, or removed."
  994. 9960  DATA ".h2 Disclaimer"
  995. 9970  DATA "In no event will the Author be liable to"
  996. 9980  DATA "you for any damages, including any lost"
  997. 9990  DATA "profits, lost savings or other inciden-"
  998. 10000  DATA "tal or consequential damages arising out"
  999. 10010  DATA "of the use of or inability to use these"
  1000. 10020  DATA "programs, even if the Author has been"
  1001. 10030  DATA "advised of the possibility of such"
  1002. 10040  DATA "damages, or for any claim by any other"
  1003. 10050  DATA "party."
  1004. 10060  DATA ".eof"
  1005. 10070  END
  1006.