MODULE test4;

IMPORT strUtils, InOut;

VAR
  chaine1 : ARRAY[0..255] OF CHAR;
  chaine2 : ARRAY[0..255] OF CHAR;
  chaine3 : ARRAY[0..3] OF CHAR;
  
BEGIN 
  chaine1 := "";
  chaine2 := "";
  chaine1 := "encore un essai";
  strUtils.Assign(chaine1, chaine2);
  InOut.WriteString(chaine1);
  InOut.WriteLn;
  InOut.WriteString(chaine2);
  InOut.WriteLn; 
  InOut.WriteString("Essai 2 avec destination plus courte que source");
  InOut.WriteLn;
  strUtils.Assign(chaine1, chaine3);
  InOut.WriteString(chaine3);
  InOut.WriteLn; 
  END test4.