5 PRINT:PRINT:PRINT:PRINT" PRINTER MOET AANSTAAN !!" 10 B"$$$$$$$ TOELICHTING PROGRAMMA'S VOOR GENEALOGISCHE BESTANDEN $$$$$$$" 20 B:B"DE PROGRAMMA'S ZIJN ZONDER MODIFICATIES TE GEBRUIKEN OP EEN APPLE MET Z80 KRT." 30 B"HET OUTPUTPROGRAMMA IS BIJNA GEHEEL PRINTER-GEORIENTEERD.":B"HET IS GESCHREVEN VOOR EEN PRINTER MET EEN REGELLENGTE VAN 132 TEKENS IN SLOT 1." 40 A"INDIEN DIT VOOR UW PRINTER TE VEEL IS, MOETEN DE PRINT STATEMENTS IN HET":A"PROGRAMMA WORDEN AANGEPAST." 50 B:B"DEZE DISKETTE BEVAT DE VOLGENDE PROGRAMMA'S:" 60 C" PARINP.V01 VOOR HET MAKEN EN WIJZIGEN VAN EEN BESTAND VAN PERSOONSRCRDS":B" PAROUT.V01 VOOR HET PRINTEN VAN EEN AANTAL GENEALOGISCHE STRUCTUREN" 70 A" PAR+T.V01 VOOR HET MAKEN VAN EEN FILE IN TABELV. VOOR UITGEBREIDE STAMB.":A" NAAML.V01 MAAKT EEN LIJST VAN ALLE IN DE FILE VOORKOMENDE FAMILIENAMEN":>"VERDER IS ER NOG EEN KLEINE DATAFILE:" 80 ?" PARLI.F01 WAARDOOR HET MOGELIJK IS EEN INDRUK TE KRIJGEN VAN DE":?" MOGELIJKHEDEN VAN HET 'PAROUT.V01' PROGRAMMA" 90 @:@"HET BESTAND BESTAAT UIT RECORDS MET EEN LENGTE VAN 90 BYTES. HET AANTAL EN DE":@"GROOTTE VAN DE RUBRIEKEN KAN LATER ALTIJD WORDEN VERGROOT. OOK ALS U AL" 100 @"VEEL PERSOONSGEGEVENS IN HET BESTAND HEEFT OPGENOMEN." 110 A"DAT KOST ECHTER RUIMTE OP DE DISKETTE. MET HET HIER GEBRUIKTE FORMAAT ZULT U":@"C.A. 1500 PERSOONSRECORDS OP EEN DISKETTE KRIJGEN." 120 A"VOORAL ALS ER SPRAKE IS VAN KWARTIERHERHALING IS HET STERK AAN TE BEVELEN OM ":A"HET HELE BESTAND OP EEN DISKETTE TE ZETTEN." 130 A:A" ******* INVOERPROGRAMMA *******":A"IEDER RECORD BEVAT DE RECORDNUMMERS VAN DE OUDERS, BIJ GEHUWDEN OOK VAN DE":@"PARTNER. BIJ MANNEN DE NUMMERS VAN EVENTUELE KINDEREN. BIJ GEHUWDE VROUWEN" 140 ="PLAATS EN DATUM VAN HUWELIJK OF ONDERTROUW.":="HET IS RAADZAAM OM ALVORENS MET INTOETSEN TE BEGINNEN AAN ALLE PERSONEN IN UW" 150 >"BESTAND EEN UNIEK VOLGNUMMER TOE TE KENNEN. OOK SCHRIJFT U DAN DE RECORDNUMMERS":>"(=VOLGNUMMERS) VAN OUDERS, ECHTGENOTEN EN KINDEREN BIJ DE BASISGEGEVENS WAARVAN" 160 >"U DE GEGEVENS GAAT INTOETSEN.":>"DOOR DEZE CONSTRUCTIE VAN PERSOONSRECORDS ":>"KUNNEN GEPASTE PROGRAMMA'S ALLE GEWENSTE GENEALOGISCHE STRUCTUREN SAMENSTELLEN." 170 ?"HIERBIJ KAN DAN IEDER GEWENST PERSOON ALS STAMOUDER OF KWARTIERDRAGER WORDEN":?"GEKOZEN." 180 @:@" ******* RECORDINDELING *******":@" AANTAL BYTES:" 190 @"GESLACHT 2" 200 A"BESCHIKBAARHEID SEC. FILE EN/OF FOTO'S 0":@" DE SECUNDAIRE FILE KAN ALLE RELEVANTE":@" INFORMATIE BEVATTEN DIE NIET IN DE" 210 @" PERSOONSRECORS PAST. MEN GEBRUIKE" 220 A" DAAR DAN HET ZELFDE RECORDNO." 230 B"FAMILIENAAM 15":@" TE LANGE INPUT WORDT INGEKORT" 240 A"DOOPNAMEN 25" 250 B"INFORMATIE BETREFFENDE GEBOORTE OF DOOP 3":A" B.V. DOK = DOOP OUD KATH.":A" *?< = GEB. MOGELIJK VOOR .." 260 A"DATUM GEB. OF DOOP 4" 270 B"POSTCODE PLAATS GEBOORTE OF DOOP 2":A" DE PLAATSNAMEN MOETEN EENMAAL":A" INGEVOERD WORDEN IN 'DATA STATEMENTS'" 280 A" ZIE REGEL 10000 E.V. IN PAROUT.V01" 290 B"INFORMATIE BETREFFENDE OVERL./BEGR. 3":A" B.V + > =OVERL. NA ..":A" B R = BEGRAAFREKENING" 300 B"DATUM OVERL. OF BEGR. 4" 310 C"RECORDNUMMER VADER 2" 320 C"RECORDNUMMER MOEDER 2" 330 C"RECORDNUMMER ECHTGEN. 2":B" INDIEN ER NOG GEEN PARTNER BEKEND":B" IS EN ER WEL KINDEREN ZIJN MOET EEN" 340 A" 'DUMMY' PARTNER WORDEN GECREEERD" 350 B" MET EEN REC.N0. EN OMSCHRIJVING ":A" (B.V. ECHTG.V XXX) IN DE":A" DOOPNAAM KOLOM" 360 B" -BIJ MANNEN INDIEN GEHUWD-" 370 C"RECORDNUMMERS KINDEREN (MAX.18 P.GEZIN) 24":B" -BIJ VROUWEN INDIEN GEHUWD-" 380 C"POSTCODE PLAATS VAN HUWELIJK OF ONDERTROUW (2)" 390 D"DATUM ONDERTR. OF HUWELIJK (4)" 400 D" INDIEN ER MEER DAN 12 KINDEREN ZIJN":D" DAN ZET HET PROGRAMMA DE NUMMERS":C" VAN DE RESTERENDE KINDEREN IN HET":A" RECORD VAN DE VROUW" 410 @:@"--INDIEN DE DOOR HET PROGRAMMA GEVRAAGDE GEGEVENS NIET BEKEND ZIJN RESPECT.":@"--NIET GEWIJZIGD BEHOEVEN TE WORDEN, MOET ALLEEN EEN 'RETURN' WORDEN GETOETST.":> 420 ?" ******* UITVOERPROGRAMMA *******":?"MENU-OPTIE 1":?"GEEFT KORTE INHOUD VAN EEN RECORD OP HET SCHERM.":?" OPTIE 2":?"PRINT ALLE RECORDS IN GECOMPRIMEERDE VORM VANAF (EERSTE REC.N0.) TOT (TWEEDE" 430 8"REC.N0.). VERGEET NIET EEN KOMMA TUSSEN DEZE NUMMERS TE TOETSEN !":8" OPTIE 3 KLEINE KWARTIERSTAAT (TOT KW.NO.512).":8"EEN WERKDOCUMENT VOOR GEBRUIK IN ARCHIEVEN EN BIJ UITWISSELING VAN GEGEVENS." 440 9" OPTIE 4 KWARTIERSTAAT TOT NO. 512. (CONTROLEREN EN ONDERDRUKKEN VAN ":9"KWARTIERHERHALING KOST C.A.25 MIN.)." 450 :"INDIEN DE GEHEUGENCAPACITEIT HET TOELAAT KUNT U MET DEZE OPTIE (NA AANPASSING"::"VAN ENKELE REGELS IN HET PROGRAMMA) OOK MET HOGERE KWARTIERNUMMERS WERKEN." 460 :"HET RESULTAAT VAN OPTIES 3 EN 4 KUNT U ZIEN DOOR B.V. N0. 95 ALS KWARTIER-"::"DRAGER IN TE TOETSEN."::" OPTIE 5 GENEALOGIE VAN MAXIMAAL 15 FAMILIES - LEVERT WERKDOCUMENT." 470 :" OPTIE 6 GENEALOGIE VAN ONBEPERKTE GROOTTE."::"VOORDAT U DEZE OPTIE KUNT BENUTTEN MOET U EERST MET HET PROGRAMMA 'PAR+T.V01'" 480 ;"EEN TABEL OP DE DISKETTE ZETTEN.":;"HET RESULTAAT VAN DE OPTIES 5 EN 6 KUNT U":;"ZIEN NA INTOETSEN VAN B.V. N0. 31 ALS STAMVADER." 490 ;" OPTIE 7 ALFABETISCH GESORTEERDE DOOPNAMEN PER GEVRAAGDE FAMILIENAAM":;" OPTIE 8 PLAATSNAMENLIJST. NAARMATE DE FILE VAN PERSOONSRECORDS GROEIT IS" 500 ;"HET HANDIG AF EN TOE EEN ALFABETISCHE LIJST TE MAKEN VAN ALLE PLAATSNAMEN DIE":;"AL IN DE DATA-STATEMENTS ZIJN OPGENOMEN." 510 <:<" ******* STAMBOOM IN TABELVORM *******":<"PROGRAMMA 'PAR+T.V01' GEEFT NA INTOETSEN VAN HET NUMMER VAN DE BETREFFENDE" 520 <"STAMOUDER DE MOGELIJKHEID OM TE KIEZEN TUSSEN STAMBOOM OF PARENTEEL.":<"NADAT HET PROGRAMMA ALLE RECORDNUMMERS IN DE VEREISTE VOLGORDE OP DE DISKETTE" 530 <"HEEFT GEZET KUNT U DE STAMBOOM OF PARENTEEL MET OPTIE 6 VAN 'PAROUT.V01'":<"UITPRINTEN.":< 540 =" ******* NAAMLIJST *******":="PROGR. 'NAAML.V01' GEEFT EEN LIJST VAN ALLE IN HET BESTAND VOORKOMENDE FAMILIE-":<"NAMEN. TEVENS WORDT ER EEN AANTAL (MAX 28) RECORDNUMMERS AFGEDRUKT WAAR DEZE" 550 9"NAMEN VOORKOMEN. (HET SORTEREN VAN 100 VERSCHILLENDE FAMILIENAMEN KOST C.A.":9"10 MINUTEN.)":9:9 560 :"N.B.1 MEERMAALS GEHUWDE PERSONEN MOETEN OOK MEERMAALS WORDEN INGEVOERD."::"MAAR WEL ONDER VERSCHILLENDE RECORDNUMMERS.":9" DEZE RECORDNUMMERS MOETEN OOK AANWEZIG ZIJN ALS 'KINDNUMMERS'" 570 :"IN HET RECORD VAN DE VADER. DEZE VADER HEEFT DAN MEER ADMINISTRATIEVE DAN "::"LIJFELIJKE KINDEREN. IN DE RUBRIEK DOOPNAAM MOET B.V. BIJ EEN 3E HUWELIJK" 580 ;"WORDEN VERMELD (3E ECHT).":;:;"N.B. 2 AL OF NIET GERELATEERDE DOOP EN HUWELIJKSGETUIGEN KUNNEN WORDEN" 590 <"OPGENOMEN MET IN DE DOOPNAAMKOLOM DE VERMELDING @DXXX OF @HXXX (XXX = ":<"REC.N0. VAN DOPELING RESP. BRUIDEGOM." 600 <"DIT GEEFT DE MOGELIJKHEID VOOR LATERE ZOEKPROCEDURES.":<:<"N.B.3 DOOR INTOETSEN VAN '? IZ' NADAT EEN PROGRAMMA IS GESTOPT KRIJGT U HET" 610 <"HOOGSTE RECORDNUMMER OP HET SCHERM.":<:<" ******* TENSLOTTE *******":<"OM MET EEN EIGEN BESTAND TE STARTEN KUNT U HET BESTE EEN COPIE MAKEN VAN DEZE" 615 ;"DISKETTE. DAARNA WIST U DE DATAFILE 'PARLI.FO1'. BEGIN DAN MET 'PARINP.V01." 620 <"EN TOETS BIJ RECORDNUMMER 1 ALS FAMILIENAAM IN 'ONBEKEND'. VERDER MOET U BIJ":;"ALLE VRAGEN MET RETURN ANTWOORDEN IN DIT RECORD. UW EERSTE PERSOONSRECORD KAN" 630 <"DAN NORMAAL ONDER N0. 2 WORDEN INGETOETST.":<:<:<"COMMENTAAR EN WENSEN TEN AANZIEN VAN ANDERE VORMEN VAN OUTPUT WORDEN DOOR MIJ" 640 ="OP PRIJS GESTELD. DIT KAN DAN WELLICHT WORDEN VERWERKT IN EEN LATERE VERSIE":="VAN DIT PROGRAMMA.":="HET IS DE BEDOELING OM OOK EEN CONVERSIE-PROGRAMMA TE MAKEN DAT EEN EENMAAL" 650 ;"INGETOETST BESTAND KAN OMZETTEN NAAR HET FORMAAT VAN HET DOOR EEN WERKGROEP ":;"VAN DE NED. GENEAL. VER. TE SCHRIJVEN PROGRAMMA." 660 <:<"J.H. LUIJERINK BURG. V. ERPSTR. 66":<"TEL.04123-1338 5351AX BERGHEM HRIJVEN PR