10 FOR I = 3 TO 21
20   LOCATE I,10
30   PRINT "                                                                      "
40 NEXT I
50 '
60 FOR I = 3 TO 13
70   READ G$
80   LOCATE I,7
90   PRINT G$
100 NEXT I
110 '
120 DATA "De kwartierstaat is de laatste van de drie verwerkingsmogelijkheden"
130 DATA "Het is een overzichtsstaat waarmee van één persoon de voorvaderen"
140 DATA "kunnen worden laten zien, tot de betovergrootvaders-en moeders."
150 DATA "Het leuke van de kwartierstaat is ook dat er niet alleen van één lijn"
160 DATA "Gegevens kunnen worden ingetypt, maar nog van 16 andere lijnen."
170 DATA "Het tegenovergestelde van een echte stamboom dus."
180 DATA "Bij de Kwartierstaat zie je van een persoon 29 `voorkomelingen',"
190 DATA "terwijl je bij een stamboom van een persoon de nakomelingen komen.",
200 DATA "Omdat het erg veel ruimte in beslag nam om alle namen als grootvader"
210 DATA "etc. voluit te schrijven heeft MV-GEN daarvoor afkortingen gebruikt"
220 '
230 COLOR 8,7
240 LOCATE 21,25
250 PRINT " Druk een toets "
260 COLOR 7,8
270 '
280 A$ = INPUT$(1)
290 '
300 FOR I = 3 TO 20
310   LOCATE I,7
320   PRINT "                                                                      "
330 NEXT I
340 '
350 FOR I = 3 TO 18
360   READ G$
370   LOCATE I,7
380   PRINT G$
390 NEXT I
400 '
410 DATA "De volgende afkortingen zijn gebruikt :",
420 DATA "HP           Hoofpersoon, kwartier 1"
430 DATA "V            Vader"
440 DATA "M            Moeder"
450 DATA "GV           Grootvader"
460 DATA "GM           Grootmoeder"
470 DATA "OV           Overgrootvader"
480 DATA "OM           Overmoeder"
490 DATA "BOV          Betovergrootvader"
500 DATA "BOM          Betovergrootmoeder",
510 DATA "U kunt de gegevens intikken door I van Invullen in te drukken"
520 DATA "Denk eraan dat als u de gegevens opslaat, dat u dan geen codenaam"
530 DATA "intypt met een punt erin, anders zal het programma het file niet"
540 DATA "meer herkennen."
550 '
560 A$ = INPUT$(1)
570 '
580 CHAIN "HELP.MVG",700
