uses crt;

const
 num_map = 6;

var
 fich_o1, fich_d : file of byte;
 buffer : byte;
 j : integer;
 i : longint;
 nom : string;

begin
 clrscr;

 asm { hide cursor }
   mov ax,0100h
   mov cx,0100h
   int 10h
 end;

 Write('UNINT MAPES ... ');

 Assign(fich_d,'total.map');
 Rewrite(fich_d);

 for j:=0 to num_map do
  begin
   GotoXY(17,1);
   Write((j*100) div num_map:3, '%');

   str(j,nom);

   nom := nom + '.map';

   Assign(fich_o1, nom);

   Reset(fich_o1);

   for i:=1 to FileSize(fich_o1) do
    begin
     Read(fich_o1,buffer);
     Write(fich_d,buffer);
    end;


   close(fich_o1);

  end;

 close(fich_d);

 GotoXY(1,3);
 Writeln('COMPLET.');
 Writeln('(Pulsa una tecla per acabar)');
 Readkey;

end.