home *** CD-ROM | disk | FTP | other *** search
/ Collection of Hack-Phreak Scene Programs / cleanhpvac.zip / cleanhpvac / PINBSRC.ZIP / PICTURES / BMP2VGA1.PAS < prev    next >
Pascal/Delphi Source File  |  1996-02-02  |  656b  |  37 lines
  1. uses dos,crt;
  2.     {$M $8000,0,0 }   { 16K stack, no heap }
  3. var f1,f2:file;
  4.     z:longint;
  5.     b:byte;
  6.  
  7. var buffer:array[0..319] of byte;
  8. var y,size:longint;
  9.     check : word;
  10.  
  11.  
  12. procedure los(n1,n2:string);
  13. begin
  14.   assign(f1,n1);
  15.   assign(f2,n2);
  16.   reset(f1,1);
  17.   rewrite(f2,1);
  18.   size:=filesize(f1);
  19.   z:=size;
  20.   for y := 199 downto 0 do
  21.   begin
  22.     writeln('Process:',y,'%'); gotoxy(1,wherey-1);
  23.     z := z - 320;
  24.     seek(f1,z);
  25.     blockread(f1,buffer,sizeof(buffer),check);
  26.     blockwrite(f2,buffer,sizeof(buffer),check);
  27.   end;
  28.   close(f1);
  29.   close(f2);
  30.   writeln;
  31. end;
  32.  
  33. begin
  34.   los(paramstr(1),paramstr(2));
  35. end.
  36.  
  37.