afegit intèrpret ascii, doc d'API i fonts Pascal originals

original_turbopascal/APPEND.BAK

@@ -0,0 +1,58 @@
+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.