scusami:
ho creato due file x e y
in x ho inserito nome cognome data di nascita ecc ed un identificativo numerico

in y riferimento data di nascita ed identificatico uguale a x

ho creato un ciclo
open x for input #1
open y for input #2
open z for output #3
do until eof(1)
line input #1,str
id=righ(str,6)
gosub secondo
loop

secondo:
do until eof(2)
line input #2,str2


id2=right(str2,6)
if id=id2
-----
leggo le date
----


data3=data2-data
write #3,

chiudo tutto

ma mi legge solo il primo id poichè non riesco, o meglio non so come cancellare il record già letto
ho provato con replace ma forse ho sbagliato qualcosa

ho pensato di sostituire l'id letto, una volta scritto con la frase "fatto"

ma non mi riesce