10 FOR I = 3 TO 21
20  LOCATE I,5
30  PRINT "                                                                        "
40 NEXT I
50 '
60 FOR I = 5 TO 12
70   LOCATE I,10
80   READ G$
90   PRINT G$
100 NEXT I
110 '
120 DATA "Het gezinsblad is er voor de gegevens van een heel gezin. Dit is"
130 DATA "handig voor het overzicht over wie de kinderen van wie zijn."
140 DATA "Ook is een gezinsblad heel handig omdat er bij kan worden geschreven"
150 DATA "wat de bronnen zijn.",
160 DATA "De belangrijke gegevens van de beide ouders, de geboorte-en doop data"
170 DATA "en de overlijdens-en sterfdata kunnen worden bewaard en er kan extra"
180 DATA "veel over de kinderen worden ingeschreven.(3 regels)"
190 '
200 COLOR 8,7
210 LOCATE 21,30
220 PRINT " Druk een toets "
230 COLOR 7,8
240 '
250 A$ = INPUT$(1)
260 '
270 FOR I = 4 TO 20
280  LOCATE I,5
290  PRINT "                                                                          "
300 NEXT I
310 '
320 FOR I = 5 TO 20
330   LOCATE I,10
340   READ G$
350   PRINT G$
360 NEXT I
370 '
380 DATA "Hieronder volgt een voorbeeld van een ingevuld gezinsblad:",
390 DATA "GEZINSBLAD VAN Maarten Pieterszoon van Delden en Antje Peters",
400 DATA "geboorte\doop man: 25-1-1645 te Dalfsen zoon van Pieter Jansz.v Delden
410 DATA "bron: provinciaal archief Zwolle"
420 DATA "overlijden\begraven man\vrouw: Man:voor 1709, Vrouw: 18-8-1723 Dalfsen
430 DATA "bron: provinciaal archief Zwolle"
440 DATA "geboorte\doop vrouw: 5-12-1653 te Deventer dochter v. Peter Petersz."
450 DATA "bron: gemeentelijk archief Deventer"
460 DATA "Huwelijk: 5-6-1670 `voor den Groote kerk' te Deventer"
470 DATA "bron: gemeentelijk archief Deventer"
480 DATA "kinderen: 1. Pieter, geb. 12-9-1671 (code: PIE1671S), 2. Antje,"
490 DATA "geb. 5-11-1673 (ANT1673N), 3. Maarten, geb. 23-5-1677 (MRT1677Y)"
500 DATA "beroep\functies man\vrouw: man: Turfsteker, vrouw -",
510 '
520 A$ = INPUT$(1)
530 '
540 FOR I = 4 TO 20
550   LOCATE I,10
560   PRINT "                                                                      "
570 NEXT I
580 '
590 FOR I = 5 TO 9
600   LOCATE I,10
610   READ G$
620   PRINT G$
630 NEXT I
640 '
650 DATA "U kunt het gezinsblad invullen door I van invullen in te typen."
660 DATA "Er kan gewijzigt worden nadat het gezinsblad volledig is ingevuld"
670 DATA "Daarna kunt u met F van file menu het gezinsblad opslaan.",
680 DATA "Denk er wel aan dat u nooit een punt in u code-bestandsnaam zet !!"
690 '
700 A$ = INPUT$(1)
710 '
720 CHAIN "HELP.MVG",700
