1010 REM By: Melvin O. Duke. Updated 26 June, 1983.
1020 OPEN "a:persfile" AS #1 LEN = 256
1030 FIELD 1, 5 AS F1$, 20 AS F2$, 30 AS F3$, 2 AS F4$, 5 AS F5$, 5 AS F6$, 5 AS F7$, 11 AS F8$, 18 AS F9$, 16 AS F10$, 16 AS F11$, 11 AS F12$, 18 AS F13$, 16 AS F14$, 16 AS F15$, 11 AS F16$, 18 AS F17$, 16 AS F18$, 16 AS F19$
1040 OPEN "a:marrfile" AS #2 LEN = 128
1050 FIELD 2, 5 AS M1$, 5 AS M2$, 5 AS M3$, 5 AS M4$, 11 AS M5$, 18 AS M6$, 16 AS M7$, 16 AS M8$, 45 AS M9$
1060 REM Determine User Wants
1070 CLS : LOCATE 21,1
1080 INPUT "Enter the Marriage Number to be Printed (0 to quit), or 'all'"; REPLY$
1090 IF REPLY$ = "0" THEN 1880
1100 K = 0
1110 GOTO 1160
1120 LPRINT TAB(10);"Print-out of Contents of the Marriages File"
1130 LPRINT TAB(10);DATE$,TIME$
1140 LPRINT
1150 RETURN
1160 IF REPLY$ = "all" THEN 1230
1170 K = 4
1180 I = VAL(REPLY$)
1190 IF I = 0 THEN 1880
1200 IF I < 1 OR I > 200 THEN 1060
1210 GOSUB 1120
1220 GOSUB 1270 : GOTO 1070
1230 REM Read all records, and print the actual ones
1240 FOR I = 1 TO 200
1250 GOSUB 1270
1260 GOTO 1810
1270 GET #2, I
1280 REM Extract information from the file for use
1290 T1 = CVS(M1$)
1300 IF T1 < 1 THEN 1800
1310 K = K + 1
1320 IF K MOD 5 = 1 THEN GOSUB 1120
1330 T2 = CVS(M2$)
1340 T3 = CVS(M3$)
1350 T4 = CVS(M4$)
1360 T5$ = M5$
1370 T6$ = M6$
1380 T7$ = M7$
1390 T8$ = M8$
1400 T9$ = M9$
1410 REM obtain the name of the husband
1420 GET #1, T2
1430 REM obtain the last and given names
1440 TEMP$ = F2$ 'Husband`s last name
1450 TMP$ = F2$
1460 GOSUB 1830
1470 TT2$ = TMP$
1480 TEMP$ = F3$ 'Husband's given names
1490 TMP$ = F3$
1500 GOSUB 1830
1510 TT3$ = TMP$
1520 REM obtain the name of the wife
1530 GET #1, T3
1540 REM obtain the last and given names
1550 TEMP$ = F2$ 'Wife`s last name
1560 TMP$ = F2$
1570 GOSUB 1830
1580 TT4$ = TMP$
1590 TEMP$ = F3$ 'Wife's given names
1600 TMP$ = F3$
1610 GOSUB 1830
1620 TT5$ = TMP$
1630 REM Now Print the Information
1640 LPRINT TAB(10);"Marriage Record-number : ";
1650 LPRINT USING "###"; T1
1660 LPRINT TAB(10);"Husband's Record Number: ";
1670 LPRINT USING "###"; T2;
1680 LPRINT TAB(42); TT2$+", "+TT3$
1690 LPRINT TAB(10);"Wife`s Record Number : ";
1700 LPRINT USING "###"; T3;
1710 LPRINT TAB(42); TT4$+", "+TT5$
1720 LPRINT TAB(10);"Marriage-date : ";T5$
1730 LPRINT TAB(10);"Marriage-city : ";T6$
1740 LPRINT TAB(10);"Marriage-county : ";T7$
1750 LPRINT TAB(10);"Marriage-state : ";T8$
1760 LPRINT TAB(10);"Comments: ";T9$
1770 LPRINT
1780 LPRINT : LPRINT
1790 IF K MOD 5 = 0 THEN LPRINT CHR$(12);
1800 RETURN
1810 NEXT I
1820 GOTO 1880
1830 REM rtrim$ subroutine
1840 FOR J = 1 TO LEN(TEMP$)-1
1850 IF RIGHT$(TMP$,1)=" " THEN TMP$ = LEFT$(TMP$,LEN(TMP$)-1) ELSE J = LEN(TEMP$)-1