<pre>function testChar testString,validChars  put true into valid  repeat with C = 1 to the number of chars in testString    get char C of testString    if it is not in validChars then      put false into valid      answer "Le caractere " & it & " n'est pas valide !"      exit repeat    end if  end repeat  return validend testChar</pre>