home *** CD-ROM | disk | FTP | other *** search
/ Fujiology Archive / fujiology_archive_v1_0.iso / !FALCON / TOYS / DB4K.ZIP / DB4K / SOURCE / MAKE4K.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1999-06-08  |  359 b   |  26 lines
  1. program make4k;
  2.  
  3. uses
  4.   dos;
  5.   
  6. var
  7.   SF,DF: File;
  8.   sn: string[80];
  9.   buf: packed array[0..4095] of byte;
  10.   dummy: integer;
  11.   
  12. begin
  13.   if paramcount<>1 then halt(1);
  14.   
  15.   sn:=paramstr(1);
  16.   
  17.   reset(SF,sn);
  18.   blockread(SF,buf[0],4096,dummy);
  19.   close(SF);
  20.   
  21.   rewrite(DF,sn);
  22.   blockwrite(DF,buf[0],4096,dummy);
  23.   close(DF);
  24.   
  25.  
  26. end.