CP/M/CPM_CDROM.iso/mbug/mbug059.arc/USINGTHE.DOC

Text File | 1979-12-31 | 26.3 KB | 658 lines

10 REM Documentation for the Genealogy ON DISPLAY Programs
20 REM All data is in the form of DATA statements.
30 REM By:  Melvin O. Duke.  Updated June 1983.
40 DATA Genealogy
50 DATA User's Manual
60 DATA -5
70 DATA 1
80 INDENT = 0
90 DASHES$ = "+"+STRING$(54,45)+"+"
100 TRIM.LINE$ = "(Trim-line)"
110 REM Program begins here
120 READ TITLE$, DOC.NAME$, PAGE.NO, LINE.NO
130 IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
140 GOSUB 500  'For trim line and heading space
150 FOR I = 1 TO 6 : LPRINT : NEXT I
160 LPRINT CHR$(14);  'Set Expanded Print
170 LPRINT TAB(TAB.POS-2);TITLE$
180 LPRINT CHR$(18);  'Return to normal
190 FOR I = 1 TO 3 : LPRINT : NEXT I
200 LPRINT CHR$(27); "E"; 'Set Emphasized mode
210 LPRINT TAB(TAB.POS+12);"ON DISPLAY"
220 LPRINT CHR$(27); "F"; 'Return to normal
222 LPRINT : LPRINT : LPRINT
224 LPRINT TAB(TAB.POS+11);"Version 1.3"
230 FOR I = 1 TO 11 : LPRINT : NEXT I
240 LPRINT TAB(TAB.POS+10); DOC.NAME$
250 LINE.NO = LINE.NO + 27
260 '
270 READ REPLY$
280 IF LEFT$(REPLY$,1) = "." THEN GOSUB 850: GOTO 270
290 IF LINE.NO > 44 THEN GOSUB 610
300 REM Print the line if not a command
310 LPRINT TAB(TAB.POS);REPLY$
320 LINE.NO = LINE.NO + 1
330 IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
340 GOTO 270
350 REM Data for the Copyright Page
354 DATA ".pa"
358 DATA "Anyone may request a copy of these"
362 DATA "programs by sending two blank diskettes"
366 DATA "to the author of the programs (one for"
370 DATA "the programs, and the second for the"
374 DATA "documentation)."
378 DATA ".sp"
382 DATA "An addressed, postage-paid return"
386 DATA "mailer must accompany the diskettes (no"
390 DATA "exceptions, please).
394 DATA ".sp"
398 DATA "A copy of the programs with documenta-"
402 DATA "tion will be sent by return mail."
406 DATA ".sp"
410 DATA "Regardless of whether a contribution"
414 DATA "is made, the user is encouraged to"
418 DATA "copy and share the program with others."
422 DATA "Payment for use is discretionary on"
426 DATA "the part of each subsequent user."
430 DATA ".vt 4"
434 DATA "If you are using these programs, and"
438 DATA "finding them of value, your contribution"
442 DATA "($35 suggested) will be appreciated."
446 DATA ".sp"
450 DATA "Melvin O. Duke"
454 DATA "P. O. Box 20836"
458 DATA "San Jose, CA  95160"
462 DATA ".vt 4"
466 DATA "Copyright (c) 1983, by:"
470 DATA "Melvin O. Duke."
474 DATA ".sp"
478 DATA "All rights reserved."
482 '
500 REM Top of each page routine
510 IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
520 LPRINT
530 LPRINT TAB(30); TRIM.LINE$
540 LPRINT DASHES$ 'Dashes
550 FOR I = 1 TO 6
560  LPRINT
570 NEXT I
580 LINE.NO = LINE.NO + 6
590 RETURN
600 '
610 REM Bottom of each page Routine
620 IF PAGE.NO < 1 THEN LPRINT : LPRINT : LPRINT : GOTO 740
630 LPRINT TAB(TAB.POS); STRING$(40,45)  'on line 46
640 LPRINT TAB(TAB.POS+3); TITLE$+" ON DISPLAY.  Version 1.3" 'on line 47
650 IF PAGE.NO MOD 2 = 1 THEN 690
660 LPRINT TAB(TAB.POS);"Page";PAGE.NO;
670 LPRINT TAB(TAB.POS+27);"User's Manual"
680 GOTO 740
690 LPRINT TAB(TAB.POS); "User's Manual";
700 IF PAGE.NO < 10 THEN DELTA = 34
710 IF PAGE.NO >  9 THEN DELTA = 33
720 IF PAGE.NO > 99 THEN DELTA = 32
730 LPRINT TAB(TAB.POS+DELTA); "Page"; PAGE.NO  'on line 48
740 LPRINT : LPRINT : LPRINT
750 LPRINT DASHES$ 'dashes after 51
760 LPRINT TAB(30); TRIM.LINE$
770 LPRINT CHR$(12);
780 PAGE.NO = PAGE.NO + 1
790 LINE.NO = 1
800 IF REPLY$ = ".eof" THEN 820  'Bypass after last page
810 GOSUB 500  'For top of next page
820 IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
830 RETURN
840 '
850 REM Command Processor
860 IF LEFT$(REPLY$,3) = ".h1" THEN 960
870 IF LEFT$(REPLY$,3) = ".h2" THEN 1100
880 IF LEFT$(REPLY$,3) = ".h3" THEN 1210
890 IF LEFT$(REPLY$,3) = ".sp" THEN 1320
900 IF LEFT$(REPLY$,4) = ".eof" THEN 1370
910 IF LEFT$(REPLY$,3) = ".pa" THEN 1410
915 IF LEFT$(REPLY$,3) = ".pn" THEN PAGE.NO = VAL(RIGHT$(REPLY$,LEN(REPLY$)-3)) : RETURN
920 IF LEFT$(REPLY$,3) = ".vt" THEN 1480
930 IF LEFT$(REPLY$,3) = ".pk" THEN 1590
940 IF LEFT$(REPLY$,3) = ".in" THEN 1720
950 STOP
960 REM Head 1 Processor
970 FOR I = LINE.NO TO 44
980  LPRINT
990 NEXT I
1000 GOSUB 610  'Bottom of page Routine
1010 IF PAGE.NO MOD 2 = 0 THEN GOSUB 1410  'For h1 on Odd pages
1020 LPRINT CHR$(14);  'Set expanded print
1030 IF PAGE.NO MOD 2 = 0 THEN ADJUST = -4 ELSE ADJUST = -7
1040 LPRINT TAB(TAB.POS+ADJUST); RIGHT$(REPLY$,LEN(REPLY$)-4)
1050 LPRINT CHR$(18);  'Return to normal
1060 LINE.NO = LINE.NO+1
1070 IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
1080 RETURN
1090 '
1100 REM Head 2 Processor
1110 IF LINE.NO = 7 THEN 1130 'skip spacing if at top of page
1120 IF LINE.NO > 43 THEN GOSUB 1410 ELSE LPRINT:LPRINT:LINE.NO = LINE.NO+2
1130 LPRINT CHR$(27); "E"; 'Set emphasized print
1140 LPRINT TAB(TAB.POS); RIGHT$(REPLY$,LEN(REPLY$)-4)
1150 LPRINT CHR$(27); "F"; 'Return to normal
1160 LPRINT
1170 LINE.NO = LINE.NO + 2
1180 IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
1190 RETURN
1200 '
1210 REM Head 3 Processor
1220 IF LINE.NO = 7 THEN 1240 'skip spacing if at top of page
1230 IF LINE.NO > 43 THEN GOSUB 1410 ELSE LPRINT:LPRINT:LINE.NO = LINE.NO+2
1240 LPRINT CHR$(27); "E"; 'Set emphasized print
1250 LPRINT TAB(TAB.POS); RIGHT$(REPLY$,LEN(REPLY$)-4)
1260 LPRINT CHR$(27); "F"; 'Return to normal
1270 LPRINT
1280 LINE.NO = LINE.NO + 2
1290 IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
1300 RETURN
1310 '
1320 REM Single Space Processor
1330 IF LINE.NO = 7 THEN 1350
1340 IF LINE.NO > 44 THEN GOSUB 1410 ELSE LPRINT : LINE.NO = LINE.NO + 1
1350 IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
1360 RETURN
1370 REM End of File Processor
1380 GOSUB 1410 'Bottom of Page
1390 LPRINT CHR$(12);
1400 GOTO 11820
1410 REM Page Eject Processor
1420 FOR I = LINE.NO TO 44
1430  LPRINT
1440  LINE.NO = LINE.NO + 1
1450 NEXT I
1460 GOSUB 610  'Bottom of Page Processing
1470 RETURN
1480 REM Vertical Tab Processor
1490 IF LINE.NO = 7 THEN 1580
1500 IF LINE.NO > 44 THEN GOSUB 610  'End of page
1510 QTY = VAL(RIGHT$(REPLY$,LEN(REPLY$)-3))
1520 FOR I = 1 TO QTY
1530  LPRINT
1540  LINE.NO = LINE.NO + 1
1550  IF LINE.NO > 44 THEN I = QTY
1560 NEXT I
1570 IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
1580 RETURN
1590 REM Pack Processor
1600 IF LINE.NO > 44 THEN GOSUB 610
1610 IF TAB.POS = 8 THEN ADJUST = 4
1620 IF TAB.POS = 13 THEN ADJUST = 7
1630 TAB.POS = TAB.POS + ADJUST + INDENT
1640 LPRINT CHR$(15); 'Packed printing
1650 WIDTH "lpt1:", 132 'set condensed width
1660 LPRINT TAB(TAB.POS); RIGHT$(REPLY$,LEN(REPLY$)-3)
1670 LPRINT CHR$(18); 'Return to normal
1680 WIDTH "lpt1:", 80  'return to normal
1690 LINE.NO = LINE.NO + 1
1700 IF PAGE.NO MOD 2 = 0 THEN TAB.POS = 8 ELSE TAB.POS = 13
1710 RETURN
1720 REM Indent Processor
1730 INDENT = VAL(RIGHT$(REPLY$,LEN(REPLY$)-3))
1740 RETURN
5980 DATA ".h1 USING THE PROGRAM"
5990 DATA ".pn 23"
6000 DATA ".h2 GETTING STARTED"
6010 DATA "The user should perform the following"
6020 DATA "steps in starting any of the Genealogy"
6030 DATA "ON DISPLAY programs."
6040 DATA ".sp
6050 DATA "1.  Insert the PC DOS diskette into"
6060 DATA "    Drive 'a:'."
6070 DATA ".sp
6080 DATA "2.  Turn the Printer On."
6090 DATA ".sp"
6100 DATA "3.  Turn the System-unit On."
6110 DATA ".sp"
6120 DATA "4.  Type today's date when the system"
6130 DATA "    asks the user to Enter today's date"
6140 DATA "    (mm-dd-yy):"
6150 DATA ".sp"
6151 DATA "5.  Type the correct time if the system"
6152 DATA "    asks the user to Enter the time."
6153 DATA "    (hh:mm:ss):"
6154 DATA ".sp"
6160 DATA "6.  Type: basica/s:256"
6170 DATA "          and press the enter key"
6180 DATA ".sp"
6190 DATA "7.  Replace the DOS Diskette with the"
6200 DATA "    Genealogy ON DISPLAY diskette."
6210 DATA ".sp"
6220 DATA "8.  Type: load, followed by the name of"
6230 DATA "           one of the programs, and"
6240 DATA "           press the enter key."
6250 DATA ".sp"
6251 DATA "    (or press key F3 , type the name"
6252 DATA "    of the desired program) and press"
6253 DATA "    the enter key."
6254 DATA ".sp"
6260 DATA "9.  Replace the Program Diskette with"
6270 DATA "    the Data Diskette in Drive 'a:', and"
6280 DATA "    place the Ordinances Diskette in"
6290 DATA "    Drive 'b:'."
6300 DATA ".sp"
6310 DATA "10.  Type: run"
6320 DATA "          and press the enter key."
6321 DATA "    (or press key F2)."
6330 DATA ".sp"
6340 DATA "11.  Follow any instructions which appear"
6350 DATA "     at the bottom of each screen."
6360 DATA ".pa"
7400 DATA ".h2 FIRST TIME USAGE"
7410 DATA "Good procedures indicate that upon"
7420 DATA "receipt of any program or programs, it"
7430 DATA "is highly desirable for you to make"
7440 DATA "back-up copies for your own protection."
7450 DATA "Such is surely the case with the"
7460 DATA "Genealogy ON DISPLAY programs."
7470 DATA ".sp"
7480 DATA "Following the backup of the programs"
7490 DATA "themselves, start with a formatted"
7500 DATA "diskette, which is empty of programs"
7505 DATA "and data.  Do not include DOS (/s)."
7510 DATA "(This diskette will be filled with"
7520 DATA "genealogical data very shortly.)"
7540 DATA ".sp"
7550 DATA "Load the 'creatper' program by typing"
7551 DATA "'load' followed by a quote and 'creatper'"
7552 DATA "or by pressing the F3 key and typing"
7553 DATA "'creatper', and press the enter key."
7554 DATA "Then, after making sure that the for-"
7560 DATA "matted diskette is in Drive a:, type"
7570 DATA "'run' (or press the F2 key), and press"
7571 DATA "the enter key."
7572 DATA ".sp"
7580 DATA "This will cause the creation of a Persons"
7590 DATA "File, which will contain 400 'empty'"
7600 DATA "records, into which you will shortly be"
7610 DATA "entering data about the persons on your"
7620 DATA "list."
7630 DATA ".sp"
7640 DATA "Next, load the 'creatmar' program, by"
7641 DATA "typing 'load' followed by a quote and"
7642 DATA "'creatmar', or by pressing the F3 key"
7643 DATA "and they typing 'creatmar'."
7644 DATA ".sp"
7650 DATA "Then, after making sure that the data"
7660 DATA "diskette (which contains the Persons"
7665 DATA "File) is in Drive 'a:', run the"
7667 DATA "'creatmar' program by typing 'run' and"
7668 DATA "press the enter key, or press the F2"
7670 DATA "key.  This will cause the creation of a"
7680 DATA "Marriages File, which will contain 200"
7690 DATA "'empty' records, into which you will"
7700 DATA "shortly be entering data about the"
7710 DATA "marriages on your list."
7720 DATA ".sp"
7730 DATA "Finally, load the 'creatord' program."
7740 DATA "Make sure that a second data diskette"
7750 DATA "(the one for the ordinance file) is in"
7760 DATA "Drive 'b:'.  Then run the 'creatord'"
7770 DATA "program.  This will cause the creation"
7780 DATA "of the Ordinances File, which will"
7790 DATA "contain 400 'empty' records, into"
7800 DATA "which you will shortly be entering"
7810 DATA "data about ordinances for the people"
7820 DATA "on your list."
7840 DATA ".h3 Caution
7850 DATA "A word of extreme caution:  Once you"
7860 DATA "have run the 'creatper' program, the"
7870 DATA "'creatmar' program, and the 'creatord'"
7880 DATA "programs, you do NOT, repeat NOT, want"
7890 DATA "to run them again (at least not"
7900 DATA "against the same files)."
7910 DATA ".sp"
7920 DATA "To do so would mean that you would"
7930 DATA "wipe-out any previous data that was in"
7940 DATA "the files at the time that you ran the"
7950 DATA "programs again."
7960 DATA ".pa"
8340 DATA ".h2 HOW TO OPERATE."
8350 DATA ".h3 Operating the updatper program."
8360 DATA "After loading the updatper program, the"
8370 DATA "user should make sure that the data"
8380 DATA "diskette is in Drive 'a:'.  He then"
8390 DATA "will 'run' the program."
8400 DATA ".sp"
8410 DATA "After the logo is displayed, the user"
8420 DATA "is asked which record he wants to up-"
8430 DATA "date.  He should respond with a valid"
8440 DATA "number in the range of 1 to 400."
8450 DATA ".sp"
8460 DATA "The current content of the record is"
8470 DATA "shown.  If the record has never been"
8480 DATA "used, the record-number shown will be"
8490 DATA "negative.  As long as this number is"
8500 DATA "negative, it will be bypassed for any"
8510 DATA "further processing.  The user should"
8520 DATA "enter the record-number."
8530 DATA ".sp"
8540 DATA "The user is prompted for input.  He may"
8550 DATA "bypass any field by pressing the enter"
8560 DATA "key.  He may also bypass all remaining"
8570 DATA "fields by typing / and then pressing"
8580 DATA "the enter key."
8581 DATA ".sp"
8582 DATA "Note:  Dates should be entered as:"
8583 DATA "dd Mmm yyyy, such as: 06 Jan 1943."
8590 DATA ".pa"
8600 DATA "When finished with his updating, he is"
8610 DATA "asked to indicate what he wants to do"
8620 DATA "with the record.  He may either 'save'"
8630 DATA "it, he may 'forget' it, or he may make"
8640 DATA "'more' changes to the record.  As soon"
8650 DATA "as he says 'save', the record is saved"
8660 DATA "and he is once more prompted about the"
8670 DATA "next record to update."
8680 DATA ".sp"
8690 DATA "When he is through, he should indicate"
8700 DATA "that he wants to update record 0."
8710 DATA ".pa"
8720 DATA ".h3 Operating the updatmar program."
8730 DATA "After loading the updatmar program,"
8740 DATA "the user should make sure that the"
8750 DATA "data diskette is in Drive 'a:'."
8760 DATA "He will then 'run' the program."
8770 DATA ".sp"
8780 DATA "After the logo is displayed, the user"
8790 DATA "is asked which record he wants to up-"
8800 DATA "date.  He should respond with a valid"
8810 DATA "number in the range of 1 to 400."
8820 DATA ".sp"
8830 DATA "The current content of the record is"
8840 DATA "shown.  If the record has never been"
8850 DATA "used, the record-number shown will be"
8860 DATA "negative.  As long as this number is"
8870 DATA "negative, it will be bypassed for any"
8880 DATA "further processing.  The user should"
8890 DATA "enter the record-number."
8900 DATA ".sp"
8910 DATA "The user is prompted for input.  He may"
8920 DATA "bypass any field by pressing the enter"
8930 DATA "key.  He may also bypass all remaining"
8940 DATA "fields by typing / and then pressing"
8960 DATA "the enter key."
8970 DATA ".sp"
8980 DATA "When finished with his updating, he is"
8990 DATA "asked to indicate what he wants to do"
9000 DATA "with the record.  He may either 'save'"
9010 DATA "it, he may 'forget' it, or he may make"
9020 DATA "'more' changes to the record.  As soon"
9030 DATA "as he says 'save', the record is saved"
9040 DATA "and he is once more prompted about the"
9050 DATA "next record to update."
9060 DATA ".sp"
9070 DATA "When he is through, he should indicate"
9080 DATA "that he wants to update record 0."
9090 DATA ".pa"
9100 DATA ".h2 Operating the updatord program."
9110 DATA "After loading the updatord program, the"
9120 DATA "user should make sure that the data"
9130 DATA "diskette is in Drive 'a:', and that"
9135 DATA "the ordinances diskette is in Drive"
9140 DATA "'b:'.  He will then 'run' the program."
9150 DATA ".sp"
9160 DATA "After the logo is displayed, the user"
9170 DATA "is asked which record he wants to up-"
9180 DATA "date.  He should respond with a valid"
9190 DATA "number in the range of 1 to 400."
9200 DATA ".sp"
9210 DATA "The user is prompted for input.  He may"
9220 DATA "bypass any field by pressing the enter"
9230 DATA "key.  He may also bypass all remaining"
9240 DATA "fields by typing / and then pressing"
9250 DATA "the enter key."
9260 DATA ".sp"
9261 DATA "Dates should be entered as: dd Mmm yyyy,"
9262 DATA "such as:  05 Aug 1922."
9263 DATA ".sp"
9270 DATA "When finished with his updating, he is"
9280 DATA "asked to indicate what he wants to do"
9290 DATA "with the record.  He may either 'save'"
9300 DATA "it, he may 'forget' it, or he may make"
9310 DATA "'more' changes to the record.  As soon"
9320 DATA "as he says 'save', the record is saved"
9330 DATA "and he is once more prompted about the"
9340 DATA "next record to update."
9350 DATA ".sp"
9360 DATA "When he is through, he should indicate"
9370 DATA "that he wants to update record 0."
9380 DATA ".pa"
9390 DATA ".h3 Operating the indexpc program."
9400 DATA "The 'indexpc' program is fundamental to"
9410 DATA "the creation of a parent/child index,"
9420 DATA "which associates parents with their"
9430 DATA "children."
9440 DATA ".sp"
9445 DATA "It should be run after any additions"
9450 DATA "of persons to the Persons File, when-"
9460 DATA "ever birthdates are added or changed,"
9470 DATA "or when identification of parents have"
9475 DATA "been added or changed."
9480 DATA ".sp"
9490 DATA "Load the 'indexpc' program, and make"
9500 DATA "sure that the data diskette (contain-"
9502 DATA "ing the Persons File and the Marriages"
9503 DATA "File) is in Drive 'a:'.  Then 'run' the"
9510 DATA "'indexpc' program."
9512 DATA ".sp"
9513 DATA "A file named 'pcindex' will be created"
9514 DATA "on the data diskette on Drive 'a;'."
9520 DATA ".pa"
9590 DATA ".h3 Operating the indexmar program."
9600 DATA "The 'indexmar' program is fundamental"
9610 DATA "to the creation of a marriages index,"
9620 DATA "which associates spouses with each"
9621 DATA "other."
9630 DATA ".sp"
9640 DATA "It should be run after marriages are"
9645 DATA "added to the Marriages File, whenever"
9650 DATA "marriage-dates are added or changed,"
9660 DATA "or whenever changes are made which re-"
9670 DATA "identify spouses."
9680 DATA ".sp"
9690 DATA "Load the 'indexmar' program, and make"
9700 DATA "sure that the data diskette (containing"
9710 DATA "the Persons File and the Marriages File)"
9720 DATA "is in Drive 'a:'.  Then 'run' the"
9730 DATA "program."
9740 DATA ".sp"
9750 DATA "A data file named 'mindex' will be"
9760 DATA "created on the data diskette in Drive"
9770 DATA "'a:'."
10000 DATA ".pa"
10010 DATA ".h3 Operating the display program."
10020 DATA "Before running the display program,"
10030 DATA "the user should know that any changes"
10040 DATA "that he has made to the data files may"
10050 DATA "have made his indices out-of-date."
10060 DATA "This will have happened if the user"
10070 DATA "has entered a new person, a new"
10080 DATA "marriage, a new relationship (such as"
10090 DATA "a reference to a parent), a new"
10100 DATA "birth-date, a new marriage-date, or"
10110 DATA "a new Name."
10120 DATA ".sp"
10130 DATA "The indices are still correct if the"
10140 DATA "user has entered new death-dates,"
10150 DATA "burial-dates, or any information about"
10160 DATA "locations (cities, counties, states)"
10170 DATA "of births, deaths, ordinances, etc."
10180 DATA ".sp"
10190 DATA "If the indices are out-of-date, the"
10200 DATA "user should update them before running"
10210 DATA "the 'display' program, by running the"
10211 DATA "'indexper' and 'indexmar' programs."
10220 DATA ".sp"
10230 DATA "After loading the 'display' program, the"
10240 DATA "user should make sure that the data"
10250 DATA "diskette is in Drive 'a:', and the ordi-"
10260 DATA "nances diskette in Drive 'b:'.  He"
10270 DATA "should then 'run' the program."
10280 DATA ".sp"
10290 DATA "After the logo is displayed, the user"
10300 DATA "is asked for the record-number of the"
10310 DATA "person that he wants to locate.  He"
10320 DATA "should enter a number which he knows to"
10330 DATA "be valid."
10340 DATA ".pa"
10350 DATA "The personal information about that"
10360 DATA "person will then be shown on the display."
10370 DATA ".sp"
10380 DATA "The user may then enter 'ps' (print"
10390 DATA "the screen), he may enter 'pc' (for a"
10400 DATA "pedigree chart), he may enter 'fg' (for"
10410 DATA "a family group), he may enter 'o' (for"
10420 DATA "ordinance information), he may enter 'p'"
10430 DATA "followed by a valid number (requesting"
10440 DATA "information about a person), he may enter"
10450 DATA "'m' followed by a valid number (requesting"
10460 DATA "information about a marriage), or he may"
10470 DATA "enter 'q' (asking to quit)."
10480 DATA ".sp"
10490 DATA "When the pedigree information appears,"
10500 DATA "the user may then enter 'ps' (print the"
10510 DATA "screen, he may enter 'fg' (requesting"
10520 DATA "a family group), he may enter 'pc'"
10530 DATA "(asking that the pedigree chart be"
10540 DATA "re-drawn), he may enter 'l' followed by"
10550 DATA "a valid number (requesting personal"
10560 DATA "information about a person on the stated"
10570 DATA "line), he may enter 'm' followed by a"
10580 DATA "valid number (requesting information"
10590 DATA "about a marriage), or he may enter 'q'"
10600 DATA "(asking to quit)."
10610 DATA ".pa"
10620 DATA "When the family group information appears,"
10630 DATA "the user may enter 'ps' (print the"
10640 DATA "screen), he may enter 'f' (asking for the"
10650 DATA "father), he may enter 'm' (asking for the"
10660 DATA "mother), he may enter 'p' followed by a"
10670 DATA "valid number (asking for about a person),"
10680 DATA "he may enter 'c' followed by a valid"
10690 DATA "number (asking for information about a"
10700 DATA "child), he may enter 'm' followed by a"
10710 DATA "valid number (requesting information"
10720 DATA "about a marriage, or he may enter 'q'"
10730 DATA "(asking to quit)."
10750 DATA ".sp"
10760 DATA "When the ordinance information appears,"
10780 DATA "The user may then enter 'ps' (print"
10790 DATA "the screen), he may enter 'pc' (for a"
10800 DATA "pedigree chart), he may enter 'fg' (for"
10810 DATA "a family group), he may enter 'o' (for"
10820 DATA "ordinance information), he may enter 'p'"
10830 DATA "followed by a valid number (requesting"
10840 DATA "information about a person), he may enter"
10850 DATA "'m' followed by a valid number (requesting"
10860 DATA "information about a marriage), or he may"
10870 DATA "enter 'q' (asking to quit)."
10880 DATA ".pa"
10890 DATA ".h2 Operating the Pedigree Program"
10900 DATA "After loading the 'pedigree' program,"
10910 DATA "the user should make sure that the"
10920 DATA "data diskette is in Drive 'a:', that the"
10930 DATA "ordinances diskette is in Drive 'b:',"
10940 DATA "and that the printer is on and ready."
10950 DATA ".sp"
10960 DATA "He should then 'run' the program, and"
10970 DATA "follow any instructions which appear at"
10980 DATA "the bottom of the display."
10990 DATA ".sp"
11000 DATA "Note:  The pedigree program was designed"
11010 DATA "to use a form which is Copyrighted, 1966,"
11020 DATA "The Genealogical Society of the Church of"
11030 DATA "Jesus Christ of Latter Day Saints, Inc."
11040 DATA "Stock #GA-054"
11050 DATA ".sp"
11060 DATA "If such a form is not available, the"
11070 DATA "content of the pedigree can be printed"
11080 DATA "on any available printer paper."
11090 DATA ".pa"
11100 DATA ".h2 Operating the Family Program"
11110 DATA "After loading the 'family' program,"
11120 DATA "the user should make sure that the"
11130 DATA "data diskette is in Drive 'a:', that the"
11140 DATA "ordinances diskette is in Drive `b:', and"
11150 DATA "that the printer is on and ready."
11160 DATA ".sp"
11170 DATA "He should then 'run' the program, and"
11180 DATA "follow any instructions which appear at"
11190 DATA "the bottom of the display."
11200 DATA ".sp"
11210 DATA "Note:  The family program was designed"
11220 DATA "to use a Family Group Record form, which"
11230 DATA "was copyrighted 1972 by the Genealogical"
11240 DATA "Society of the Church of Jesus Christ of"
11250 DATA "Latter Day Saints, Inc.  Stock #GA-032."
11260 DATA ".sp"
11270 DATA "If such a form is not available, the"
11280 DATA "content of the pedigree can be printed"
11290 DATA "on any available printer paper."
11300 DATA ".pa"
11310 DATA ".h3 Operating the other programs."
11320 DATA "After loading one of the other programs,"
11330 DATA "the user should make sure that the data"
11340 DATA "diskette is in Drive 'a:', that the"
11350 DATA "ordinances diskette is in Drive 'b:',"
11360 DATA "and that the printer is on and ready."
11370 DATA "He will then 'run' the program."
11380 DATA ".sp"
11390 DATA "Note:  See the Table of Contents for the"
11400 DATA "names of the other programs."
11410 DATA ".sp"
11420 DATA "After the logo is displayed, the user"
11430 DATA "observes the information that is being"
11440 DATA "shown on the display screen, and waits"
11450 DATA "for the program to complete."
11460 DATA ".pa"
11470 DATA ".h2 HOW TO STOP."
11480 DATA "The user may stop at any time, by"
11490 DATA "pressing (and holding down) the control"
11500 DATA "(Ctrl) key, and then pressing the Break"
11510 DATA "key."
11520 DATA ".sp"
11530 DATA ".h3 Stopping the Update Programs."
11540 DATA "The user may stop one of the update"
11550 DATA "programs (updatper, updatmar, or"
11560 DATA "updatord) by requesting an update of"
11561 DATA "record 0."
11570 DATA ".h3 Stopping the Display Program."
11580 DATA "The user may stop the display program"
11590 DATA "by keying 'q' or 'quit' when he is"
11600 DATA "asked for his next action."
11610 DATA ".h3 Stopping the Pedigree Program."
11620 DATA "The user may stop the pedigree program"
11630 DATA "by asking for a printout of the pedigree"
11640 DATA "for person-number 0."
11650 DATA ".h3 Stopping the Family Program."
11660 DATA "The user may stop the family program"
11670 DATA "by asking for a printout of the family"
11680 DATA "whose marriage-number was 0."
11690 DATA ".pa"
11700 DATA ".h3 Stopping the Other Programs."
11710 DATA "The other programs may only be stopped"
11720 DATA "with the 'control-break' sequence, as"
11730 DATA "indicated above.  However, the user"
11740 DATA "is cautioned that if he does this while"
11750 DATA "writing new indices to the diskette"
11751 DATA "(during the running of the 'indexpc'"
11752 DATA "or 'indexmar' programs), the indices"
11760 DATA "that are currently being written may be"
11770 DATA "destroyed, and will have to be re-built"
11780 DATA "before the 'display', 'pedigree',"
11790 DATA "'family', and 'alphamar' programs are"
11800 DATA "run."
11801 DATA ".sp"
11802 DATA "The damaged index can be re-built by"
11803 DATA "re-running the 'indexpc' or 'indexmar'"
11804 DATA "program which was stopped with the"
11805 DATA "'control-break' sequence."
11810 DATA ".eof"
11820 END
ss the F2"
76