strUtils/test2.mod

MODULE test2;

IMPORT strUtils, InOut;

VAR 
  chaine1 : ARRAY[0..255]OF CHAR;

BEGIN
  chaine1 := "ceci est une chaine de test de la fonction pos ";
  InOut.WriteCard(strUtils.Pos("u", chaine1, 12),5);
  InOut.WriteLn;
END test2.