home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 2 BBS / 02-BBS.zip / MFMP110A.ZIP / MFMCOPY.PAS < prev    next >
Pascal/Delphi Source File  |  1992-05-31  |  1KB  |  40 lines
  1. (*#module(turbo_comp=>off)*)
  2. Implementation Unit MfmCopy;
  3.  
  4. IMPORT
  5.   DOS,
  6.   TURBODOS(pathstr)
  7. {  TURBOSYS(_R_BLOCKREAD,_R_BLOCKWRITE)}
  8.   ;
  9.  
  10. Type
  11.   BufPtrType = ^BufRecordType;
  12.   BufRecordType = Record
  13.     Next : BufPtrType;
  14.     Buffer : Array[1..7FFFH] Of Byte;
  15.     NumRead : Word;
  16.   End;
  17. Var
  18.   InFile, OutFile : FILE OF char;
  19.   NumRead, NumWritten : Word;
  20.   FromFileName, ToFileName : PathStr;
  21.   zstrin, zstrout : array[1..256] of char;
  22.   cpymode, cpyrtn, rsrvd  : word;
  23.   Current, First, Old : BufPtrType;
  24.   TimeTransfer : INTEGER;
  25.  
  26. {========================================================================}
  27. Procedure DoFileCopy { (FromFileName, ToFileName : PathStr); };
  28.   Begin
  29.     StrToZ(FromFileName, zstrin);
  30.     StrToZ(ToFileName, zstrout);
  31.     cpymode := 0;
  32.     cpyrtn := DOS.COPY(zstrin, zstrout, cpymode, rsrvd);
  33. {      GetFTime(InFile,TimeTransfer); SetFTime(OutFile,TimeTransfer); }
  34. {      Close(InFile); }
  35. {      Close(OutFile); }
  36.   End;
  37. {========================================================================}
  38. End.
  39. {========================================================================}
  40.