(*$M 32768, 0, 327680 *)

Program CP_TEXT;
Uses
  CRT, DOS;

(*
 *  19.02.1995: Creation TL
 *  12.10.2003:
 *
 *  1) Verifier si le programme est juste, le corriger eventuellement
 *     ( commande File Compare : faire FC /? )
 *
 *  2) Ajouter un traitement evitant d'ecraser un fichier destination 
 *     existant
 *
 *  3) Ajouter une mesure du temps mis pour effectuer la copie
 *     Temps final - Temps initial (Cf. procedure AFF_TIME)
 *
 *  4) Ecrire un fichier BAT avec appel de CP_TEXT
 *     sur 10 differents fichiers d'au moins 1 Mo
 *     Faire la moyenne des resultats obtenus
 *)

(*-----*)

Var KR :Integer;
    SS :String;
    NomENT, NomSOR :String;  FdENT, FdSOR :TEXT;

Begin  (* Debut *)
  If ParamCOUNT < 2 Then Begin
    WriteLN; WriteLN('Usage: CP_TEXT  ifile  ofile'); HALT;
  End;

  NomENT:=ParamSTR(1);
  (*$I-*) ASSIGN(FdENT, NomENT); ReSET(FdENT); (*$I+*) KR:=IOResult;
  If KR <> 0 Then Begin
    WriteLN(' Pb. Fichier '+NomENT); HALT(1);
  End;
  
  NomSOR:=ParamSTR(2);
  (*$I-*) ASSIGN(FdSOR, NomSOR); ReWRITE(FdSOR); (*$I+*) KR:=IOResult;
  If KR <> 0 Then Begin
    WriteLN(' Pb. Fichier '+NomSOR); HALT(2);
  End;

  (* Boucle WHILE a ecrire... *)

  CLOSE(FdENT);
  CLOSE(FdSOR);
End.   (* CP_TEXT *)