1100 RESUME A-G: DELETE T-Z
1110 DIM K(19),X(21),Y(250),D(12)
1120 D(1)="I":D(2)="II":D(3)="III":D(4)="IV":D(5)="V":D(6)="VI":D(7)="VII":D(8)="VIII":D(9)="IX":D(10)="X":D(11)="XI":D(12)="XII"
1130 NAME
1135 PRINT"PRINTER MOET AANSTAAN"
1140 
1150 COMMON "R",#1,"PARLI.F01",90
1160 CHAIN #1,15 AS AA,25 AS AB,3 AS AC,3 AS AD,2 AS AE,2 AS AF,2 AS AG,2 AS AH,2 AS AI,2 AS AJ,2 AS AK,2 AS AL,2 AS AM,2 AS AN,2 AS AO,2 AS AP,2 AS AQ,2 AS AR,2 AS AS,2 AS AT,2 AS AU,2 AS AV,2 AS AW,2 AS AX,2 AS AY,2 AS AZ
1170 INPUT "NUMMER VAN STAMVADER :";F$
1180 FP="PAR+T."+F$
1190 X=STR$(F$)
1200 COMMON"R",#2,FP,30
1210 CHAIN #2,2 AS F0,2 AS F1,2 AS F2,2 AS F3,2 AS F4,2 AS F5,2 AS F6,2 AS F7,2 AS F8,2 AS F9,2 AS F10,2 AS F11,2 AS F12, 2 AS F13,2 AS F14
1220 PUT F12=LOF(X(12)):PUT F13=LOF(X(13)):PUT F14=LOF(X(14))
1230 REM                  BEGIN STAMBOOM
1240 INPUT"GENEALOGIE OF PARENTAGE (G/P)";GP
1250 IF GP="G" @ P$="GENEALOGIE":GOTO 1270
1260 P$="PARENTEEL"
1270 V=2:W=1:REM     KOLOM SCHRIJVEN=V * LEZEN=Y
1280 Y=2:T=1:REM     REGEL  LEZEN=Z * SCHRIJVEN=W
1290 X(0)=1:REM    GENERATIETELLER
1300 IF X<1 C END
1310 X(1)=X
1320 OPTION #1,X
1330 X(2)=^	+}(AE):X(3)=^	+}(AH):X(4)=^	+}(AI):X(5)=^	+}(AJ):X(6)=^	+}(AK)
1340 X(7)=^	+}(AL):X(8)=^	+}(AM):X(9)=^	+}(AN):X(10)=^	+}(AO):X(11)=^	+}(AP)
1350 X(12)=^	+}(AQ):X(13)=^	+}(AR):X(14)=^	+}(AS):TG=^	+}(AF)
1360 FOR J=1 INKEY$ 12:K(J)=X(J+2):NEXT J
1370 Y(1)=X:GOSUB 2150:REM         WEGSCHR.#2
1380 V=3
1390 GOTO 1420
1400 IF Y(Y)<1  C 1970:REM        NIETS MEER 
1410 I=Y:GOSUB 2200:REM                OPHALEN #2
1420 TG=^	+}(F0):REM             GEN. TELLER
1430 T=1
1440 IF K(T)<1 D Y=Y+1:GOTO 1400
1470 OPTION #1,K(T):REM               OPHALEN #1
1490 IF ^	+}(AE)<1 D 1920
1500 IF ^	+}(AT)>5 AND GP="G" D  1920
1510 IF ^	+}(AT)>5 E K(T)=^	+}(AE):OPTION #1,K(T)
1520 X(1)=K(T):X(2)=^	+}(AE)
1540 TE=1
1550 IF Y(TE)=X(1) D  1920:REM   ECHTPAAR AL VERWERKT ?
1560 TE=TE+1:IF TE<V+1 C 1550
1570 W=2
1580 X(0)=TG+1
1590 ] #1
1600 COMMON "R",#1,"PARLI.F01",90
1610 REM
1620 REM
1630 U=^	+}(AH):IF U<1 D 1880
1640 W=W+1:X(W)=U
1650 U=^	+}(AI):IF U<1 E 1880
1660 W=W+1:X(W)=U
1670 U=^	+}(AJ):IF U<1 E 1880
1680 W=W+1:X(W)=U
1690 U=^	+}(AK):IF U<1 E 1880
1700 W=W+1:X(W)=U
1710 U=^	+}(AL):IF U<1 E 1880
1720 W=W+1:X(W)=U
1730 U=^	+}(AM):IF U<1 E 1880
1740 W=W+1:X(W)=U
1750 U=^	+}(AN):IF U<1 E 1880
1760 W=W+1:X(W)=U
1770 U=^	+}(AO):IF U<1 E 1880
1780 W=W+1:X(W)=U
1790 U=^	+}(AP):IF U<1 E 1880
1800 W=W+1:X(W)=U
1810 U=^	+}(AQ):IF U<1 E 1880
1820 W=W+1:X(W)=U
1830 U=^	+}(AR):IF U<1 E 1880
1840 W=W+1:X(W)=U
1850 U=^	+}(AS):IF U<1 E 1880
1860 W=W+1:X(W)=U
1870 GOTO 1520
1880 FOR J=W +1 INKEY$ 14:X(J)=0:NEXT J
1890 Y(V)=X(1):GOSUB 2150
1900 V=V+1
1910 IF V>250 D  "ARRAY Y(250) VOL":GOTO 1970
1920 T=T+1
1930 GOTO 1440
1940 REM -------------------
1950 GOTO 1520
1960 \:END
1970 PUT F0=LOF(V-1)
1980 RANDOMIZE #2,1
1990 PRINT"DE TABEL STAAT NU OP DE SCHIJF":PRINT"EN KAN EVENTUEEL OOK WORDEN GEPRINT"
2000 INPUT"STOP=1   TABEL=2";O
2010 ON O GOTO 1960,2020
2020 T0=96:TG=1
2030 
"DEZE LIJST BEVAT ALLE REC. NO'S VAN DE ";P$:~J
2040 J "      OUDERS      KINDEREN":J
2050 FOR I=2 INKEY$ V-1
2060 GOSUB 2200
2070 IF TG<TI @ TG=TI:T0=96
2080 T0=T0+1
2090  D(TI);ASC(T0);
1R 7);VA;M;
1R 17);"!";:TK=1
2100 IF K(TK)>1 B 
 K(TK);:TK=TK+1:GOTO 2100
2110 ~J       
2120 FOR J=1 INKEY$ 12:K(J)=0:NEXT J
2130 NEXT I
2140  ::GOTO 1960
2150 PUT F0=LOF(X(0)):PUT F1=LOF(X(1)):PUT F2=LOF(X(2)):PUT F3=LOF(X(3)):PUT F4=LOF(X(4)):PUT F5=LOF(X(5)):PUT F6=LOF(X(6))
2160 PUT F7=LOF(X(7)):PUT F8=LOF(X(8)):PUT F9=LOF(X(9)):PUT F10=LOF(X(10)):PUT F11=LOF(X(11))
2170 PUT F12=LOF(X(12)):PUT F13=LOF(X(13)):PUT F14=LOF(X(14))
2180 RANDOMIZE #2,V
2190 RETURN
2200 OPTION #2,I
2210 TI=^	+}(F0):VA=^	+}(F1):M=^	+}(F2):K(1)=^	+}(F3):K(2)=^	+}(F4):K(3)=^	+}(F5):K(4)=^	+}(F6)
2220 K(5)=^	+}(F7):K(6)=^	+}(F8):K(7)=^	+}(F9):K(8)=^	+}(F10):K(9)=^	+}(F11):K(10)=^	+}(F12):K(11)=^	+}(F13):K(12)=^	+}(F14)
2230 RETURN
2240 FOR I=1 INKEY$ 7
2250 OPTION #2,I
2260 PRINT ^	+}(F0);^	+}(F1);^	+}(F2);^	+}(F3);^	+}(F4);^	+}(F5);^	+}(F6)
2270 NEXT I
40 FOR I=1 INKEY$ 7
2250 OPTION #2,I
2260 PRINT