strUtils/test1.mod

MODULE test1;

IMPORT strUtils, InOut;

VAR 
  chaine1, chaine2 : ARRAY[0..30]OF CHAR;
  
BEGIN
  InOut.WriteString("test1");
  InOut.WriteLn;
  chaine1 := "toto";
  chaine2 := "toto";
  InOut.WriteInt(strUtils.Compare(chaine1,chaine2),5);
  InOut.WriteLn;
  
  
  InOut.WriteString("test2");
  InOut.WriteLn;
  chaine1 := "toto";
  chaine2 := "tito";
  InOut.WriteInt(strUtils.Compare(chaine1,chaine2),5);
  InOut.WriteLn;
    
  InOut.WriteString("test3");
  InOut.WriteLn;
  chaine1 := "tito";
  chaine2 := "toto";
  InOut.WriteInt(strUtils.Compare(chaine1,chaine2),5);
  InOut.WriteLn;
  
  InOut.WriteString("test4");
  InOut.WriteLn;
  chaine1 := "toto";
  chaine2 := "totototo";
  InOut.WriteInt(strUtils.Compare(chaine1,chaine2),5);
  InOut.WriteLn;
  
END test1.