<pre>function removeDiacriticals sender  put "Removing the Diacriticals" into item 2 of msg  put "ACEINOU" into capmatches  put "aceinou" into matches  repeat with x = 1 to 7    put ((the number of chars of matches) - x) into item 3 of msg    put char x of matches into thisreplace    put char x of capmatches into thiscapreplace    put sender into reader    put empty into sender    repeat      put offset(thisreplace,reader) into thischar      if thischar = 0      then        put reader after sender        exit repeat      end if      put chartonum(char thischar of reader) into temp      if temp >= 65 and temp <= 90 then put thiscapreplace into char thischar of reader      if temp >= 97 and temp <= 122 then put thisreplace into char thischar of reader      if temp >= 128 and temp <= 134 then put thiscapreplace into char thischar of reader      if temp >= 135 and temp <= 159 then put thisreplace into char thischar of reader      put char 1 to thischar of reader after sender      delete char 1 to thischar of reader    end repeat  end repeat  put item 1 to 2 of msg into msg  return senderend removeDiacriticals</pre>