strUtils/test7.mod

MODULE test7;

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 droite");
  InOut.WriteCard(strUtils.Rpos(chaine,"c"),5);
  InOut.WriteLn;
END test7.