strUtils/test8.mod

MODULE test8;

IMPORT strUtils, InOut;

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

BEGIN
  chaine := " et voilà encore une petite chaîne";
  InOut.WriteString(" test de la position d'un caractère dans la chaine, commençant par la gauche");
  InOut.WriteCard(strUtils.Lpos(chaine,"o"),5);
  InOut.WriteLn;
END test8.