900 REM J.H.LUIJERINK 04123-1338 8-1-1984 1000 RESUME A-G: DELETE T-Z 1010 DIM K(19),X(21,21),Y(512) 1020 INPUT"STAAT PRINTER AAN ? (J/N)";GP 1030 IF GP<>"J" h PRINT "DOEN !":GOTO 1020 1040 NAME 1050 & ASC(128+29) 1060 COMMON "R",#1,"PARLI.F01",90 1070 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 1080 PRINT"MENU VOOR OUTPUT" 1090 PRINT:PRINT"1-EEN RECORD" 1100 PRINT"2-DEEL VAN FILE" 1110 PRINT"3-KWARTIERSTAAT TOT NO.32" 1120 PRINT"4-KWARTIERSTAAT TOT NO.512" 1130 PRINT"5-GENEALOGIE (MAX 15 FAMILIES)" 1140 PRINT"6-GENEALOGIE VANAF TABEL (>15 FAMILIES)" 1150 PRINT"7-EEN FAMILIENAAM GES. OP DOOPNAMEN" 1160 PRINT"8-PLAATSNAMENLIJST" 1180 PRINT"9-EINDE" 1190 INPUT L 1200 ON L GOSUB 3460,1220,1430,4520,2230,4160,4870,3860,3450 1210 NAME:GOTO 1080 1220 REM OUTPUT DEEL VAN FILE 1230 INPUT"(1E NO.),(LAATSTE NO)";V,W 1240 FOR I=V INKEY$ W 1250 OPTION #1,I 1260 ' I ;^ +}(AT);AA;AB;AC ^ +}(AU) ^ +}(AW);^ +}(AX) A 1R 70) AD;^ +}(AV);^ +}(AY);^ +}(AZ); 1270 $ " ";^ +}(AE);^ +}(AF);^ +}(AG); 1280 IF ^ +}(AT)>5 h 1350 1290 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):K(12)=^ +}(AS) 1300 IF K(6)>0 i (:( E 1R 48); 1310 J=1 1320 IF K(J)=0 j ):GOTO 1410 1330 $ K(J);:J=J+1:GOTO 1320 1340 GOTO 1410 1350 % "X TE";^ +}(AH);"0P";^ +}(AI);^ +}(AJ); 1360 IF ^ +}(AL)<1 h ':GOTO 1410 1370 K(12)=^ +}(AL):K(13)=^ +}(AM):K(14)=^ +}(AN):K(15)=^ +}(AO):K(16)=^ +}(AP):K(17)=^ +}(AQ):K(18)=^ +}(AR) 1380 %"^";:J=12 1390 IF K(J)<1 h ':GOTO 1410 1400 $ K(J);:J=J+1:GOTO 1390 1410 PRINT:NEXT I 1420 RETURN 1430 REM BEGIN KWARTIERSTAAT 1440 INPUT "KWARTIER DRAGER";Y(1) 1450 FOR I=1 INKEY$ 15 1460 OPTION #1,Y(I) 1470 U=^ +}(AF):IF U<1 j U=1 1480 Y(2*I)=U 1490 U=^ +}(AG):IF U<1 k U=1 1500 Y(2*I+1)=U 1510 NEXT I 1520 A8=" ---*---" 1530 A9=" -----" 1540 ("= --- KWARTIERSTAAT VAN ---":PRINT 1550 OPTION #1,Y(1):TX=1:PUT AT=LOF(1):GOSUB 2070 1560 $:$ A8:$ A8:$ 1570 %" OUDERS:":$ 1580 OPTION #1,Y(2):TX=2:GOSUB 2070 1590 OPTION #1,Y(3):TX=3:GOSUB 2070 1600 %:% A8:% A8:% 1610 &" GROOTOUDERS:":$ 1620 OPTION #1,Y(4):TX=4:GOSUB 2070 1630 OPTION #1,Y(5):TX=5:GOSUB 2070 1640 & A9 1650 OPTION #1,Y(6):TX=6:GOSUB 2070 1660 OPTION #1,Y(7):TX=7:GOSUB 2070 1670 &:& A8:& A8:& 1680 '" OVERGROOTOUDERS:":$ 1690 OPTION #1,Y(8):TX=8:GOSUB 2070 1700 OPTION #1,Y(9):TX=9:GOSUB 2070 1710 & A9 1720 OPTION #1,Y(10):TX=10:GOSUB 2070 1730 OPTION #1,Y(11):TX=11:GOSUB 2070 1740 & A9 1750 OPTION #1,Y(12):TX=12:GOSUB 2070 1760 OPTION #1,Y(13):TX=13:GOSUB 2070 1770 & A9 1780 OPTION #1,Y(14):TX=14:GOSUB 2070 1790 OPTION #1,Y(15):TX=15:GOSUB 2070 1800 &:& A8:& A8:& 1810 '" BETOVERGROOTOUDERS:":$ 1820 OPTION #1,Y(16):TX=16:GOSUB 2070 1830 OPTION #1,Y(17):TX=17:GOSUB 2070 1840 & A9 1850 OPTION #1,Y(18):TX=18:GOSUB 2070 1860 OPTION #1,Y(19):TX=19:GOSUB 2070 1870 & A9 1880 OPTION #1,Y(20):TX=20:GOSUB 2070 1890 OPTION #1,Y(21):TX=21:GOSUB 2070 1900 & A9 1910 OPTION #1,Y(22):TX=22:GOSUB 2070 1920 OPTION #1,Y(23):TX=23:GOSUB 2070 1930 & A9 1940 OPTION #1,Y(24):TX=24:GOSUB 2070 1950 OPTION #1,Y(25):TX=25:GOSUB 2070 1960 & A9 1970 OPTION #1,Y(26):TX=26:GOSUB 2070 1980 OPTION #1,Y(27):TX=27:GOSUB 2070 1990 & A9 2000 OPTION #1,Y(28):TX=28:GOSUB 2070 2010 OPTION #1,Y(29):TX=29:GOSUB 2070 2020 & A9 2030 OPTION #1,Y(30):TX=30:GOSUB 2070 2040 OPTION #1,Y(31):TX=31:GOSUB 2070 2050 &:& "----------------------------------------------------------------------------------------------------" 2060 RETURN 2070 REM 2080 IF ^ +}(AT)<5 h 2100 2090 V5=^ +}(AI):V6=INT(V5/100):A4=LEN(V6):' " GEHUWD TE ";:T=^ +}(AH):GOSUB 3800:% C3;" 0P";:C4=LEN(^ +}(AI)):$ A4 ;"-";RIGHT$(C4,2);^ +}(AJ) 2100 A4=LEN(^ +}(AW)):T5=^ +}(AW):T4=INT(T5/100):A6=LEN(T4) 2110 TI=1:TI=^ +}(AT):IF TI>5 i TI=TI-5 2120 IF TI=1 j BT=" ":GOTO 2160 2130 IF TI=2 k BT="DOC.":GOTO 2160 2140 IF TI=3 k BT="F":GOTO 2160 2150 BT="DOC.+F" 2160 ( TX;"-";AA;AB; 2170 IF ^ +}(AU)+^ +}(AX)<1 l 2190 2180 & AC;" TE ";:T=^ +}(AU):GOSUB 3800:& C3;" ";A6;"-";RIGHT$(A4,2);^ +}(AX); 2190 IF ^ +}(AV)+^ +}(AZ)<1 i ( E 1R 120) "(";Y(TX);")";BT: GOTO 2220 2200 T7=^ +}(AY):T8=INT(T7/100):A5=LEN(^ +}(AY)):A7=LEN(T8) 2210 ( E 1R 76) AD;" TE ";:T=^ +}(AV):GOSUB 3800:( " ";C3;" ";A7;"-";RIGHT$(A5,2);^ +}(AZ) D 1R 120) "(";Y(TX);")";BT 2220 RETURN 2230 REM BEGIN STAMBOOM 2240 V=2:W=1:REM KOLOM KINDEREN 2250 Y=1:Z=3:REM KOLOM OUDERS 2260 INPUT"STAMVADER";X 2270 IF X<1 END 2280 X(1,1)=X:X(1,0)=1 2290 OPTION #1,X 2300 X(1,2)=^ +}(AE):X(1,3)=^ +}(AH):X(1,4)=^ +}(AI):X(1,5)=^ +}(AJ):X(1,6)=^ +}(AK) 2310 X(1,7)=^ +}(AL):X(1,8)=^ +}(AM):X(1,9)=^ +}(AN):X(1,10)=^ +}(AO):X(1,11)=^ +}(AP) 2320 X(1,12)=^ +}(AQ):X(1,13)=^ +}(AR) 2330 IF ^ +}(AS)<1 k 2390 2340 IV=^ +}(AE) 2350 REM ?CLOSE 2360 REM ?OPEN"R",#1,"PARLI.F01",90 2370 OPTION #1,IV 2380 X(1,14)=^ +}(AL):X(1,15)=^ +}(AM):X(1,16)=^ +}(AN):X(1,17)=^ +}(AO):X(1,18)=^ +}(AP):X(1,19)=^ +}(AQ):X(1,20)=^ +}(AR) 2390 IF X(1,2)=<1 i X(1,2)=300 2400 GOTO 2440:REM NAAR BEGIN LUS 2410 IF X(Y,Z)<1 j Y=Y+1:Z=3 2420 IF Y>15 k *:GOSUB 3110 2430 IF X(Y,Z)<1 l 2410 2440 OPTION #1,X(Y,Z) 2450 IF ^ +}(AE)<1 m Z=Z+1:GOTO 2410 2460 IF ^ +}(AT)<5 j 2490 2470 X1=X(Y,Z):X2=^ +}(AE) 2480 OPTION #1,X2 2490 TV=2 2500 IF X(Y,Z)=X(TV,1) k Z=Z+1:GOTO 2410:REM ECHTPAAR AL VERWERKT ? 2510 TV=TV+1:IF TV<15 j 2500 2520 X(V,W)=X(Y,Z) 2530 X(V,0)=X(Y,0)+1:REM GENERATIE-TELLER 2540 W=W+1:X(V,W)=^ +}(AE) 2550 IF X1>0 n X(V,2)=X1:X(V,1)=X2:X1=0 2560 U=^ +}(AH):IF U<1 l 2950 2570 W=W+1:X(V,W)=U 2580 U=^ +}(AI):IF U<1 m 2950 2590 W=W+1:X(V,W)=U 2600 U=^ +}(AJ):IF U<1 m 2950 2610 W=W+1:X(V,W)=U 2620 U=^ +}(AK):IF U<1 m 2950 2630 W=W+1:X(V,W)=U 2640 U=^ +}(AL):IF U<1 m 2950 2650 W=W+1:X(V,W)=U 2660 U=^ +}(AM):IF U<1 m 2950 2670 W=W+1:X(V,W)=U 2680 U=^ +}(AN):IF U<1 m 2950 2690 W=W+1:X(V,W)=U 2700 U=^ +}(AO):IF U<1 m 2950 2710 W=W+1:X(V,W)=U 2720 U=^ +}(AP):IF U<1 m 2950 2730 W=W+1:X(V,W)=U 2740 U=^ +}(AQ):IF U<1 m 2950 2750 W=W+1:X(V,W)=U 2760 U=^ +}(AR):IF U<1 m 2950 2770 W=W+1:X(V,W)=U 2780 IF ^ +}(AS)<1 m 2950 2790 IV=^ +}(AE):OPTION #1,IV 2800 U=^ +}(AL):IF U<1 m 2950 2810 W=W+1:X(V,W)=U 2820 U=^ +}(AM):IF U<1 m 2950 2830 W=W+1:X(V,W)=U 2840 U=^ +}(AN):IF U<1 m 2950 2850 W=W+1:X(V,W)=U 2860 U=^ +}(AO):IF U<1 m 2950 2870 W=W+1:X(V,W)=U 2880 U=^ +}(AP):IF U<1 m 2950 2890 W=W+1:X(V,W)=U 2900 U=^ +}(AQ):IF U<1 m 2950 2910 W=W+1:X(V,W)=U 2920 U=^ +}(AR):GOTO 2950 2930 IF V>15 n -"1440":GOTO 2990 2940 GOTO 2410 2950 V=V+1:Z=Z+1:W=1 2960 IF V>15 n - "EVENTUELE VOORTZETTING VANAF JONGERE GENERATIE":GOTO 2990 2970 GOTO 2410 2980 REM PLAATS CONTOLEPRINT 1530 2990 GOTO 3110 3010 END 3090 END 3110 FOR I=1 INKEY$ 15 3120 ):) " ";X(I,0);"E GENERATIE":+ 3130 J=1 3140 U=X(I,J):IF U<1 k *:* "EIND":GOSUB 3730:GOTO 2260 3150 OPTION #1,U 3160 GOSUB 3310 3170 U=X(I,2) 3180 OPTION #1,U 3190 V5=^ +}(AI):V6=INT(V5/100):A4=LEN(V6):*" GEHUWD TE ";:T=^ +}(AH):GOSUB 3800:& C3;" OP ";:C4=LEN(^ +}(AI)):& A4;"-";RIGHT$(C4,2);^ +}(AJ) 3200 GOSUB 3310 3210 % 3220 FOR J=3 INKEY$ 20 3230 U=X(I,J):IF U<1 i 3270 3240 IF U>999 i (:GOTO 3270 3250 OPTION #1,U 3260 GOSUB 3310 3270 NEXT J 3280 NEXT I 3290 RETURN 3300 IF ^ +}(AU)+^ +}(AX)<1 i 2190 3310 A4=LEN(^ +}(AW)):T5=^ +}(AW):T4=INT(T5/100):A6=LEN(T4) 3320 TI=1:TI=(^ +}(AT)):IF TI>5 j TI=TI-5 3330 IF TI=1 k BT=" ":GOTO 3370 3340 IF TI=2 l BT="DOC.":GOTO 3370 3350 IF TI=3 l BT="F":GOTO 3370 3360 IF TI=4 m BT="DOC.+F" 3370 IF LEFT$(AC,1)="D" n AC=ASC(126)+RIGHT$(AC,2) 3380 ( " ";AA;AB; 3390 IF ^ +}(AU)+^ +}(AX)<1 k 3410 3400 ' " ";AC;" TE ";:T=^ +}(AU):GOSUB 3800:( C3;" ";A6;"-";RIGHT$(A4,2);^ +}(AX); 3410 IF ^ +}(AV)+^ +}(AZ)<1 j ) F 1R 120);"(";U;")";BT:GOTO 3440 3420 T7=^ +}(AY):T8=INT(T7/100):A5=LEN(^ +}(AY)):A7=LEN(T8) 3430 ) F 1R 77) AD;" TE ";:T=^ +}(AV):GOSUB 3800:) ;" ";C3;" ";A7;"-";RIGHT$(A5,2);^ +}(AZ) E 1R 120) "(";U;")";BT 3440 RETURN 3450 END 3460 REM BEGIN 1 REC. OP SCHERM 3470 INPUT "WELK REC.NO.(0 VOOR STOP)";X 3480 NAME 3490 IF X=0 n RETURN 3500 OPTION #1,X 3510 A9=LEN(X)+"-"+AA+AB 3520 PRINT:PRINT A9 G 1R 38) ^ +}(AT) 3530 A4=LEN(^ +}(AW)):T5=^ +}(AW):T4=INT(T5/100):A6=LEN(T4):T7=^ +}(AY):T8=INT(T7/100):A5=LEN(^ +}(AY)):A7=LEN(T8) 3540 PRINT AC;" ";:T=^ +}(AU):GOSUB 3800:PRINT C3 E 1R 22) A6;"-";RIGHT$(A4,2);^ +}(AX) 3550 PRINT AD;" ";:T=^ +}(AV):GOSUB 3800:PRINT C3 F 1R 22) A7;"-";RIGHT$(A5,2);^ +}(AZ) 3560 IF ^ +}(AT)>5 l PRINT:GOTO 3700 3570 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):TF =^ +}(AS) 3580 IF TF<1 g 3650 :REM VOOR >11 KINDEREN GAAN WE NAAR REC.ECHTG. 3590 IV=^ +}(AE):~ 3600 COMMON "R",#1,"PARLI.F01",90 3610 OPTION #1,IV 3620 K(12)=^ +}(AL):K(13)=^ +}(AM):K(14)=^ +}(AN):K(15)=^ +}(AO):K(16)=^ +}(AP):K(17)=^ +}(AQ):K(18)=^ +}(AR) 3630 3640 COMMON "R",#1,"PARLI.F01",90 3650 PRINT:PRINT"KINDEREN: "; 3660 J=1 3670 IF K(J)=0 l PRINT:GOTO 3710 3680 PRINT K(J);:J=J+1:GOTO 3670 3690 PRINT:GOTO 3710 3700 PRINT"GEH.TE ";:T=^ +}(AH):GOSUB 3800:PRINT C3;" OP";^ +}(AI) ^ +}(AJ) 3710 PRINT:PRINT"ECHTG.:";^ +}(AE);" VADER:";^ +}(AF);" MOEDER:";^ +}(AG) 3720 PRINT:PRINT:PRINT:PRINT:GOTO 3470 3730 FOR I=0 INKEY$ 15 3740 FOR J=0 INKEY$ 14 3750 X(I,J)=0 3760 NEXT J 3770 NEXT I 3780 PRINT:PRINT 3790 RETURN 3800 IF T<1000 j T=T*10 3810 READ TL,C3 3820 IF T=TL j RESTORE:RETURN 3830 IF TL <1 k C3=LEN(T):RESTORE:RETURN 3840 GOTO 3810 3850 RETURN 3860 I=1:REM TELLEN EN VERVOLGENS PRINTEN VAN DATA STATEMENTS 3870 READ U,E$ 3880 IF U<1 k 3900 3890 I=I+1 :GOTO 3870 3900 PRINT"ER ZIJN ";I;" PLAATSNAMEN DIE NU GESORTEERD":PRINT"WORDEN" 3910 RESTORE 3920 DIM S$(I) 3930 FOR TI=1 INKEY$ I 3940 READ U,E$ 3950 S$(TI)=E$+" "+LEN(U) 3960 PRINT S$(I); 3970 NEXT TI 3980 N=0 3990 TG=0 4000 N=N+1 4010 FOR K=I-1 INKEY$ N e-1 4020 IF S$(K-1)<=S$(K) k 4080 4030 EH=S$(K-1) 4040 S$(K-1)=S$(K) 4050 S$(K)=EH 4060 TG=1 4070 PRINT"*"; 4080 NEXT K 4090 IF TG=1 l 3990 4100 RESTORE 4110 ( " ";I;" PLAATSNAMEN REEDS IN DATA":% 4120 FOR TI=0 INKEY$ I 4130 READ U,E$:* " ";S$(TI) F 1R 70) U E$ 4140 NEXT TI 4150 RETURN 4160 NAME:PRINT"HET PRINTEN VAN EEN 'GROTE' STAMBOOM OF":PRINT"PARENTEEL KAN ALLEEN NADAT HIERVOOR" 4170 PRINT"MET HET HULPPROGRAMMA 'PAR+T.V01' EEN":PRINT"TABEL OP DE SCHIJF IS GEZET" 4180 PRINT:INPUT"GEEF NUMMER VAN STAMVADER";F$ 4190 FP="PAR+T."+F$ 4200 COMMON"R",#2,FP,30 4210 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 4220 DIM D(12) 4230 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" 4240 REM 4250 I=1:GOSUB 4480 4260 TS=Y(0):TG=1:T0=96 4270 FOR I=2 INKEY$ TS 4280 GOSUB 4480 4290 IF TG=Y(0) m T0=T0+1:GOTO 4310 4300 TG=TG+1:T0=97 4310 ( D(Y(0));ASC(T0) 4320 OPTION #1,Y(1) 4330 U=Y(1) 4340 GOSUB 3310 4350 OPTION #1,Y(2) 4360 U=Y(2) 4370 V5=^ +}(AI):V6=INT(V5/100):A4=LEN(V6):(" GEHUWT TE ";:T=^ +}(AH):GOSUB 3800:& C3;" OP ";:C4=LEN(^ +}(AI)):& A4;"-";RIGHT$(C4,2);^ +}(AJ) 4380 GOSUB 3310 4390 TE=3 4400 IF Y(TE)<1 h 4450 4410 U=Y(TE) 4420 OPTION #1,Y(TE) 4430 ' TE-2;:GOSUB 3310 4440 TE=TE+1:GOTO 4400 4450 NEXT I 4460 &:&" --------------------------------------------------------------------------------":END 4470 RETURN 4480 OPTION #2,I 4490 Y(0)=^ +}(F0):Y(1)=^ +}(F1):Y(2)=^ +}(F2):Y(3)=^ +}(F3):Y(4)=^ +}(F4):Y(5)=^ +}(F5):Y(6)=^ +}(F6):Y(7)=^ +}(F7) 4500 Y(8)=^ +}(F8):Y(9)=^ +}(F9):Y(10)=^ +}(F10):Y(11)=^ +}(F11):Y(12)=^ +}(F12):Y(13)=^ +}(F13):Y(14)=^ +}(F14) 4510 RETURN 4520 INPUT"GEEF NUMMER VAN KWARTIERDRAGER";Y(1) 4530 PRINT"MOET ER NOG GEKEKEN WORDEN OF ER" 4540 INPUT"KWARTIERHERHALING IS (J/N):";JN$ 4550 FOR I=1 INKEY$ 255 4560 IF Y(I)<2 n Y(2*I)=1:Y(2*I+1)=1:GOTO 4600 4570 OPTION #1,Y(I) 4580 Y(2*I)=^ +}(AF):Y(2*I+1)=^ +}(AG) 4590 PRINT Y(I); 4600 NEXT I 4610 IF JN$<>"J" k 4720 4620 PRINT"NU WORDT GEKEKEN OF ER":PRINT"KWARTIERHERHALING IS.":PRINT"DE GECONTROLEERDE KWARTIERNUMMERS":PRINT"WORDEN OP HET SCHERM GEZET ...":PRINT 4630 #"(EVENTUEELE) KWARTIERHERHALING TREEDT OP BIJ DE VOLGENDE NUMMERS :" 4640 TZ=4 4650 FOR J=TZ+1 INKEY$ 511 4660 IF Y(J)<2 j 4680 4670 IF Y(TZ)=Y(J) g % TZ;"=";J;" ";:PRINT TZ;:Y(J)=0 4680 NEXT J 4700 TZ=TZ+1 :IF TZ>510 i 4720 4710 GOTO 4650 4720 ':':'" *** DE KWARTIERDRAGER IS ***" 4730 OPTION #1,Y(1) 4740 TX=1:GOSUB 2100 4750 & 4760 FOR TX=2 INKEY$ 512 4770 IF Y(TX)<2 k 4850 4780 IF INT(TX/2)*2=TX j ):OPTION #1,Y(TX):GOSUB 2080:GOTO 4850 4790 OPTION #1,Y(TX):GOSUB 2080 4850 NEXT TX 4860 RETURN 4870 PRINT"VAN WELKE FAMILIENAAM WIL JE":REM BEGIN DOOPNAAMSORT. 4880 INPUT"DE VOORNAMEN SORTEREN";F1 4890 L=POS(F1):LD=15-L:G(1)=" ":G(2)=" ":G(3)=" ":G(4)=" ":G(5)=" ":G(6)=" ":G(7)=" ":G(8)=" ":G(9)=" ":G(10)=" " 4900 F1=F1+G(LD) 4910 INPUT "HOEVEEL ZIJN DAT ER TEN HOOGSTE";NN 4920 DIM F(NN),H(NN,2) 4930 J=1 4932 OPTION #1,1 4934 IZ=^ +}(AJ) 4936 FOR I=2 INKEY$ IZ 4940 OPTION #1,I 4950 IF I=IZ i 5020 4960 IF AA<>F1 g 5010 4970 K=^ +}(AW):L=^ +}(AX):CK=LEN(K):M=STR$(RIGHT$(CK,2)):N=K-M 4980 F(J)=AB:H(J,1)=I:H(J,2)=(L*10000+M*100+N/100) 4990 PRINT H(J,1); 5000 J=J+1 5010 NEXT I 5020 PRINT "ER ZIJN NU";J-1;"RECORDS INGELEZEN MET DE FAMILIENAAM ";F1 5030 PRINT"DEZE WORDEN EERST OP DATUM GESORTEERD" 5040 GOTO 5180 5050 A4=LEN(^ +}(AW)):T5=^ +}(AW):T4=INT(T5/100):A6=LEN(T4) 5060 TI=1:TI=^ +}(AT):IF TI>5 j TI=TI-5 5070 IF TI=1 k BT=" ":GOTO 5110 5080 IF TI=2 l BT="DOC.":GOTO 5110 5090 IF TI=3 l BT="F":GOTO 5110 5100 BT="DOC.+F" 5110 ) "- ";AB; 5120 IF ^ +}(AU)+^ +}(AX)<1 m 5140 5130 ' AC;" TE ";:T=^ +}(AU):GOSUB 5540:' C3;" ";A6;"-";RIGHT$(A4,2);^ +}(AX); 5140 IF ^ +}(AV)+^ +}(AZ)<1 i ( E 1R 100) "V=" ^ +}(AF) " M=" ^ +}(AG) E 1R 120) "(";H(I,1);")";BT: GOTO 5170 5150 T7=^ +}(AY):T8=INT(T7/100):A5=LEN(^ +}(AY)):A7=LEN(T8) 5160 ' D 1R 61) AD;" TE ";:T=^ +}(AV):GOSUB 5540:' " ";C3;" ";A7;"-";RIGHT$(A5,2);^ +}(AZ) E 1R 100) "V=";^ +}(AF);" M=";^ +}(AG) D 1R 120) "(";H(I,1);")";BT 5170 RETURN 5180 N=0 5190 TG=0 5200 N=N+1 5210 FOR K=J-1 INKEY$ N b-1 5220 IF H(K-1,2)<=H(K,2) i 5290 5230 REM 5240 RH=H(K-1,2):SH=H(K-1,1):EH=F(K-1) 5250 H(K-1,2)=H(K,2):H(K-1,1)=H(K,1):F(K-1)=F(K) 5260 H(K,2)=RH:H(K,1)=SH:F(K)=EH 5270 TG=1 5280 PRINT "*"; 5290 NEXT K 5300 PRINT:PRINT "NU OP VOORNAAM ..." 5310 N=0 5320 TG=0 5330 N=N+1 5340 FOR K=J-1 INKEY$ N d-1 5350 IF F(K-1)