1100 REM
1110 RESUME A-G:DELETE T-Z
1120 COMMON"R",#1,"PARLI.F01",90
1130 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
1135 OPTION #1,1
1137 IZ=^	+}(AJ):I=IZ
1140 DIM K(19)
1150 NAME:PRINT"   -MENU-":PRINT
1160 PRINT"1 INVOER"
1170 PRINT"2 WIJZIGING"
1180 PRINT"3 CLOSE"
1190 PRINT:INPUT"WELKE KEUZE";L
1200 NAME
1210 ON L GOTO 1230,1360,2360
1220 NAME
1230 I=I+1
1240 PUT AA="  ?":PUT AB="  ?":PUT AC="?":PUT AD="?"
1250 PUT AE=LOF(0):PUT AF=LOF(0):PUT AG=LOF(0)
1260 PUT AH=LOF(0):PUT AI=LOF(0):PUT AJ=LOF(0)
1270 PUT AK=LOF(0):PUT AL=LOF(0):PUT AM=LOF(0)
1280 PUT AN=LOF(0):PUT AO=LOF(0):PUT AP=LOF(0)
1290 PUT AQ=LOF(0):PUT AR=LOF(0):PUT AS=LOF(0)
1300 PUT AT=LOF(1):PUT AU=LOF(0):PUT AV=LOF(0)
1310 PUT AW=LOF(0):PUT AX=LOF(0):PUT AY=LOF(0):PUT AZ=LOF(0)
1320 REM
1330 IF I<1 @ 1150
1340 GOSUB 1410
1350 PRINT:GOTO 1230
1360 INPUT"WELK RECORDNO. :";I
1370 IF I<1 A 1150
1380 OPTION #1,I
1390 NAME:GOSUB 1410
1400 PRINT:GOTO 1360
1410 NAME:T1=^	+}(AT):IF T1>5 @ A5="V":T2=T1-6:GOTO 1440
1420 A5="M":T2=T1-1
1430 IF T1<1 B A5="?"
1435 IF L=1 B PRINT"                        S = STOP"
1440 PRINT"NO.";I;"       MAN OF VROUW (M/V):";A5;:INPUT A5
1450 IF POS(A5)<1 A 1480
1455 IF A5="S" > 1150
1460 IF A5="M" ? T1=1:GOTO 1480
1470 T1=6
1480 PRINT"AANW:DOC (1), FOTO (2), BEIDE (3)";T2;:INPUT DD
1490 IF POS(DD)<1 B GOTO 1500
1495 T2=STR$(DD)
1496 IF T1>5 D T1=6:GOTO 1500
1497 T1=1
1500 TT=T1+T2
1510 PUT AT=LOF(TT)
1520 PRINT"FAM.N:";AA;" ";:INPUT A1
1530 IF POS(A1)<1 C 1550
1540 PUT AA=A1
1550 PRINT"DOOPNAMEN  :";AB
1560 PRINT"           :";:INPUT A2
1570 IF POS(A2)<1 D 1590
1580 PUT AB=A2
1590 PRINT"GEB. OF DOOPDATUM ? (*/D) ";AC;":";:INPUT A6
1600 IF POS(A6)<1 C 1640
1610 IF POS(A6)<3 D A6=A6+" ":GOTO 1610
1620  IF LEFT$(A6,1)="D" D A6=ASC(126)+RIGHT$(A6,2)
1630 PUT AC=A6
1640 PRINT"POSTCODE GEB.PLAATS   :";^	+}(AU);:INPUT A7
1650 IF POS(A7)<1 D 1670
1660 PUT AU=LOF(STR$(A7))
1670 PRINT"DAG EN MAAND */D (DDMM) ";^	+}(AW);:INPUT A8
1680 IF POS(A8)<1 C 1700
1690 PUT AW=LOF(STR$(A8))
1700 PRINT"        JAAR */D (JJJJ) ";^	+}(AX);:INPUT A9
1710 IF POS(A9)<1 C 1730
1720 PUT AX=LOF(STR$(A9))
1730 PRINT
1740 PRINT"DAT.OVERL.OF BEGR ? (+/B) ";AD;":";:INPUT B1
1750 IF POS(B1)<1 C 1770
1760 PUT AD=B1
1770 PRINT"POSTCODE PL. OVERL.   :";^	+}(AV);:INPUT B2
1780 IF POS(B2)<1 D 1800
1790 PUT AV=LOF(STR$(B2))
1800 PRINT"DAG EN MAAND +/B (DDMM) ";^	+}(AY);:INPUT B3
1810 IF POS(B3)<1 C 1830
1820 PUT AY=LOF(STR$(B3))
1830 PRINT"        JAAR +/B (JJJJ) ";^	+}(AZ);:INPUT B4
1840 IF POS(B4)<1 C 1860
1850 PUT AZ=LOF(STR$(B4))
1860 PRINT
1870 PRINT"NO. VADER :";^	+}(AF);" :";:INPUT B5
1880 REM
1890 IF POS(B5)<1 D 1910
1900 PUT AF=LOF(STR$(B5))
1910 PRINT"NO. MOEDER:";^	+}(AG);" :";:INPUT B6
1920 IF POS(B6)<1 D 1940
1930 PUT AG=LOF(STR$(B6))
1940 PRINT"NO. ECHTG.:";^	+}(AE);" :";:INPUT B7
1950 PRINT
1960 IF POS(B7)<1 D 1980
1970 PUT AE=LOF(STR$(B7))
1980 IF ^	+}(AE)<1 E 2340
1990 REM
2000 K(1)=^	+}(AH):K(2)=^	+}(AI):K(3)=^	+}(AJ):K(4)=^	+}(AK):K(5)=^	+}(AL):K(6)=^	+}(AM):K(7)=^	+}(AN):K(8)=^	+}(AO):K(9)=^	+}(AP):K(10)=^	+}(AQ):K(11)=^	+}(AR)
2010 IF ^	+}(AS)<1 @ 2050
2011 IV=^	+}(AE):W
2012 COMMON"R",#1,"PARLI.F01",90
2020 OPTION #1,IV
2030 K(12)=^	+}(AL):K(13)=^	+}(AM):K(14)=^	+}(AN):K(15)=^	+}(AO):K(16)=^	+}(AP):K(17)=^	+}(AQ):K(18)=^	+}(AR)
2032 Y
2034 COMMON "R",#1,"PARLI.F01",90
2040 OPTION#1,I
2050 IF ^	+}(AT)>5 B 2240
2060 PRINT"KINDEREN VAN DE VADER MET NO. :";I
2065 IF L=1 B 2110
2070 FOR J=1 INKEY$ 9:PRINT K(J);:NEXT J:PRINT
2080 IF K(10)>0 D FOR J=10 INKEY$ 18:PRINT K(J);:NEXT J:PRINT
2090 INPUT"ACCOORD ? (J/N) ";B8
2100 IF B8<>"N" A 2340
2110 PRINT"TOETS NO'S IN, 0 IS GEEN KIND (MEER)"
2120 J=1
2130 INPUT K(J):IF K(J)<1 C FOR O=J INKEY$ 12:K(O)=0:NEXT O:GOTO 2150
2140 J=J+1:GOTO 2130
2150 PUT AH=LOF(K(1)):PUT AI=LOF(K(2)):PUT AJ=LOF(K(3))
2160 PUT AK=LOF(K(4)):PUT AL=LOF(K(5)):PUT AM=LOF(K(6))
2170 PUT AN=LOF(K(7)):PUT AO=LOF(K(8)):PUT AP=LOF(K(9))
2180 PUT AQ=LOF(K(10)):PUT AR=LOF(K(11))
2190 IF K(12)<1 D 2220
2195 PUT AS=LOF(1):RANDOMIZE #1,I
2196 ]
2198 COMMON"R",#1,"PARLI.F01",90
2200 OPTION #1,IV
2210 PUT AL=LOF(K(12)):PUT AM=LOF(K(13)):PUT AN=LOF(K(14)):PUT AO=LOF(K(15)):PUT AP=LOF(K(16)):PUT AQ=LOF(K(17)):PUT AR=LOF(K(18))
2215 RANDOMIZE #1,IV
2217 Z
2219 COMMON"R",#1,"PARLI.F01",90
2220 FOR J=1 INKEY$ 18:K(J)=0:NEXT J
2230 GOTO 2340
2240 PRINT"POSTCODE PLAATS HUWELIJK ";K(1);:INPUT B9
2250 IF POS(B9)<1 B 2270
2260 PUT AH=LOF(STR$(B9))
2270 PRINT"DAG EN MND. HUWELIJK (DDMM)";K(2);:INPUT C1
2280 IF POS(C1)<1 B 2310
2290 IF POS(C1)>4 C PRINT"TE LANG ";:GOTO 2270
2300 PUT AI=LOF(STR$(C1))
2310 PRINT"JAAR HUWELIJK        (JJJJ)";K(3);:INPUT C2
2320 IF POS(C2)<1 B 2340
2330 PUT AJ=LOF(STR$(C2))
2340 IF I>IZ ? IZ=I
2345 RANDOMIZE #1,I
2350 RETURN
2360 ]
2362 COMMON"R",#1,"PARLI.F01",90
2364 PUT AA="      ONBEKEND":PUT AB="                          "
2366 PUT AC="":PUT AD="":PUT AE="":PUT AF="":PUT AG="":PUT AH="":PUT AI="":PUT AJ=LOF(IZ)
2370 RANDOMIZE #1,1
2380 [:END
"
2366 PUT AC="":PUT AD="":PUT AE="":PUT AF="":PUT AG="":PUT AH="":PUT AI="":PUT AJ=LOF(IZ)
2370 RANDOMIZE #1,1
2380