home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 November / Chip_1998-11_cd.bin / zkuste / pascal / RT / RT.ARJ / RTE05SRC.ZIP / VYKRADNI.PAS < prev   
Pascal/Delphi Source File  |  1997-04-13  |  404b  |  17 lines
  1. {vykrade z 8192b dlouheho souboru pouze font (4096b)}
  2. {paulsoft/no!future}
  3.  
  4. var f,f1:file;
  5.     i,j,k:integer;
  6.     pole:array[1..16]of byte;
  7. begin
  8.   assign(f,paramstr(1));
  9.   assign(f1,paramstr(2));
  10.   reset(f,1);
  11.   rewrite(f1,1);
  12.   for i:=1 to 512 do begin
  13.     blockread(f,pole,sizeof(pole),j);
  14.     if (i mod 2)<>0 then blockwrite(f1,pole,sizeof(pole),j);
  15.   end;
  16.   close(f); close(f1);
  17. end.