DIM NAME$[17]

DIM AGE$[17]
DIM SEX$[17]
DIM COUNTRY$[17]
OPEN "databank.dat" FOR INPUT AS 1
FOR 1 TO 17
 READ 1 , NAME$[INDEX]
 READ 1 , AGE$[INDEX]
 READ 1 , SEX$[INDEX]
 READ 1 , COUNTRY$[INDEX]
NEXT
CLOSE 1
PRINT "Gegevens invoeren"
INPUT "Welk record (1--->17)? " , GETAL
PRINT "Huidige naam : " ; NAME$[GETAL]
INPUT "Naam? " , NAME$[GETAL]
PRINT "Huidige leeftijd : " ; AGE$[GETAL]
INPUT "Leeftijd? " , AGE$[GETAL]
PRINT "Huidig geslacht : " ; SEX$[GETAL]
PRINT "Huidig land : " ; COUNTRY$[GETAL]
INPUT "land? : " ; COUNTRY$[GETAL]
OPEN "databank.dat" FOR OUTPUT AS 2
FOR 1 TO 17
 WRITE 2 , NAME$[INDEX]
 WRITE 2 , AGE$[INDEX]
 WRITE 2 , SEX$[INDEX]
 WRITE 2 , COUNTRY$[INDEX]
NEXT
CLOSE 2
