10 '
20 'MV-GEN hulpprogramma onderdeel PERSBLAD.HLP (bij persoonsblad)
30 '
40 LOCATE 21,25
50 PRINT "                              "
60 '
70 FOR I = 2 TO 20
80   LOCATE I,10
90   PRINT "                                                                      "
100 NEXT I
110 COLOR 8,7
120 LOCATE 21,30
130 PRINT " Druk een toets "
140 COLOR 7,8
150 '
160 FOR I = 3 TO 19
170   LOCATE I,7
180   READ A$
190   PRINT A$
200 NEXT I
210 '
220 DATA "                     Het persoonsblad",""
230 DATA "Met het persoonsblad kunnen alle gegevens van één persoon nauwkeurig"
240 DATA "bewaard worden."
250 DATA "Onder deze gegevens verstaan we:",""
260 DATA "Geboorte datum en plaats","Sterfdatum en plaats","Doopdatum en plaats"
270 DATA "Begraafdatum en plaats","beroep","kinderen","enzovoort enzovoort"
280 DATA "U ziet dat er een grote hoeveelheid gegevens kunnen worden verwerkt,"
290 DATA "maar ook maar voor een persoon."
300 DATA "Dit is bijvoorbeeld handig wanneer u naar één persoon een goed onder-"
310 DATA "zoek wil doen, maar onhandig voor een overzicht van uw stamboom."
320 '
330 A$ = INPUT$(1)
340 '
350 FOR I = 3 TO 19
360   LOCATE I,7
370   PRINT "                                                                     "
380 NEXT I
390 '
400 FOR I = 3 TO 16
410   LOCATE I,7
420   READ A$
430   PRINT A$
440 NEXT I
450 '
460 DATA "Hieronder staat een voorbeeld van een ingevuld persoonsblad :",""
470 DATA "1. Voornamen  : Johannes Cornelis Maria"
480 DATA "2. Achternaam : Kuiper"
490 DATA "3. Geboren    : 17 maart 1734 te Leiden"
500 DATA "4. Gedoopt    : 29 april 1734 St. Pieterskerk te Leiden"
510 DATA "5. Trouwdatum : 2 september 1756"
520 DATA "6. Gehuwd met : Anna Maria Hendriks. van Tilburg te Leiden"
530 DATA "7. Beroep     : Timmerman"
540 DATA "8. Overleden  : 18 october 1797 te Tilburg"
550 DATA "9. Begraven   : 21 october"
560 DATA "10.Kinderen   : 1. Johannes Cornelis, 2. Hendrikus Johannes, 3. Maria"
570 DATA "11.Kinderen   : 4. doodgeb. kind, 5. Johannes Cornelis Maria"
580 DATA "12.Kind van   : Johannes Cornelis Antonius Maria Kuiper"
590 '
600 A$ = INPUT$(1)
610 '
620 FOR I = 2 TO 16
630   LOCATE I,7
640   PRINT "                                                                     "
650 NEXT I
660 '
670 FOR I = 3 TO 18
680   LOCATE I,7
690   READ A$
700   PRINT A$
710 NEXT I
720 '
730 DATA "Zo'n persoonsblad kunt u invullen door I (van invullen) in te tikken"
740 DATA "bij het hoofdmenu. Er kan dan pas gewijzigd worden als het alle"
750 DATA "andere gegevens ook in zijn gevuld."
760 DATA "Als u uw gegevens wilt bewaren drukt u op O van opslaan en u komt in"
770 DATA "`opslaan' menu."
780 DATA "LET WEL: als u eenmaal in het opslaan-menu zit kunt u niet meer terug"
790 DATA "naar de gegevens, goed nakijken dus !"
800 DATA "mocht er toch nog een ongewijzigde fout zijn dan kunt u het bestand"
810 DATA "weer van de diskette opvragen en dan wijzigen."
820 DATA "Hier geldt weer voor: sla altijd alles op! ook na een bewerking op"
830 DATA "een al bestaand bestand. Anders zullen de oude gegevens op de disk"
840 DATA "blijven staan, en er zal niks opgeslagen worden.",""
850 DATA "Als u uw gegevens opslaat geef dan altijd een naam zonder punt erin!!"
860 DATA "Het MV-GEN persoonsblad-bestand heeft die punt namelijk zelf nodig om"
870 DATA "te kunnen herkennen of het een MV-GEN file is, of een ander file."
880 '
890 A$ = INPUT$(1)
900 '
910 CHAIN "HELP.MVG",700
