58 lines
717 B
Plaintext
58 lines
717 B
Plaintext
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. |