clear ?ReverseStr("Gunnar", 1) FUNC ReverseStr PARA; StrToReverse; StrDelimiter LOCAL ; NewString, ; i NewString = "" IF TYPE("StrDelimiter") = "N" FOR i=1 TO LEN(StrToReverse) STEP StrDelimiter NewString = SUBS(StrToReverse, i, StrDelimiter) + NewString ENDFOR ELSE FOR i=1 TO words(StrToReverse, StrDelimiter) NewString = ALLT(wordnum(StrToReverse, i, StrDelimiter)) + NewString ENDFOR NewString = STRTRAN(NewString, StrDelimiter, "") ENDIF RETURN(NewString) ENDFUNC