(*$M 32768, 0, 327680 *)

Program CP_CHAR;
Uses
  CRT, DOS;

(*
 *  19.02.1995: Creation TL
 *  12.10.2003: 
 *
 *  1) Completer le programme en utilsant READ et WRITE
 *
 *  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_CHAR
 *     sur 10 differents fichiers d'au moins 1 Mo
 *     Faire la moyenne des resultats obtenus
 *)

(*-----*)

Var KR :Integer;
    CH :Char;
    NomENT, NomSOR :String;  FdENT, FdSOR :File Of CHAR;

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

  NomENT:=ParamSTR(1);
  (*$I-*) Assign(FdENT, NomENT); ReSET(FdENT); (*$I+*) KR:=IOResult;
  If KR <> 0 Then Begin
  End;
  
  NomSOR:=ParamSTR(2);
  (*$I-*) Assign(FdSOR, NomSOR); ReWRITE(FdSOR); (*$I+*) KR:=IOResult;
  If KR <> 0 Then Begin
  End;

  (* Boucle WHILE a ecrire... *)

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