XProfan

proc wordize

    parameters s$
    declare i&,l&,n$,o%
    s$:=trim$(s$)
    l&:=len(s$)

    if (l&)

        s$:=lower$(s$)
        for i&:=1 to l& do begin
        o%:=ord(mid$(s$,i&,1))

        if ( ((o%>96) and (o%<122)) or (o%==32) or (o%==223) or (o%==228) or (o%==246) or (o%=252) )

            n$:=n$+chr$(o%)

        endif

        end

        while instr("  ",n$)

            ;n$:=translate$(n$,"  "," ")

        wend

    endif

    return trim$(n$)

endproc