stock
            replaceaccent(ch)
    {
            switch(ch)
            {
                    case \'á\': return \'a\';
                    case \'é\': return \'e\';
                    case \'í\': return \'i\';
                    case \'ó\',\'ö\',\'õ\': return \'o\';
                    case \'ú\',\'ü\',\'û\': return \'u\';
            }
            return ch;
    }

       while (cmdtext[++pos] > \' \')
{
funcname[pos-1] = tolower(cmdtext[pos]);
funcname[pos-1] = replaceaccent(funcname[pos-1]);
}

stock
    replaceaccent(ch)
    {
       switch(ch)
        {
                case \'á\': return \'a\';
                case \'é\': return \'e\';
                case \'í\': return \'i\';
                case \'ó\',\'ö\',\'õ\': return \'o\';
           case \'ú\',\'ü\',\'û\': return \'u\';
        }
        return ch;
    }

    while (cmdtext[++pos] > \' \')
{
funcname[pos-1] = tolower(cmdtext[pos]);
funcname[pos-1] = replaceaccent(funcname[pos-1]);
}