PROGRAM HUECO;
{ lista los huecos de los registros borrados }
{ listing MFNs of deleted records }
{ Antonio Bayarri. RTVE. Espagna}
var i,X,desde,hasta,bor: real;
    tecla,BASE: string;
begin
CLEAR;
desde:=1; hasta:=maxmfn; bor:=0;
writeln('MUESTRA LOS HUECOS DEJADOS POR REGISTROS BORRADOS. BASE:
',DBN);
writeln('--------------------------------------------------------------');
writeln('');
writeln('');
writeln('');
WRITELN('indique intervalo de MFN a examinar');
writeln('DESDE:');
readln(desde);
writeln('HASTA:');
readln(hasta);
i:=desde;

assign('out',dbn|'.hue');
writeln(out,'REGISTROS BORRADOS EN LA BASE: ',DBN);
writeln(out,'-------------------------------------');

while (x <> -1) and (hasta>i) do begin
x:=record(i);
cursor(13,10); writeln('TRATANDO REGISTRO: ',I:5);
if (X=1) OR (X=2) THEN BEGIN
  writeln(out,'MFN: ',I:5);
  bor:=bor+1;
end;
i:=i+1;
end;
writeln(out,'');
cursor(13,10); writeln('TOTAL BORRADOS...: ',bor:5);
writeln(out,'TOTAL BORRADOS: ',bor:5);
writeln('');
writeln('(resultado en el directorio en uso, en el fichero: ',DBN|'.HUE)');
assign('out','');
end.