>Hi Moises,
>

>PROCEDURE ReverseIt
> PARA cText
> cReversed=""
> FOR I = LEN(cText) TO 1 STEP -1
> cReversed=cReversed+SUBS(cText,i,1)
> ENDFOR
> RETURN cReversed
>ENDPROC
Or..

FUNCTION ReverseIt
  LPARAMETER cText

  LOCAL lcresult, lni, lnlast
  lnlast = LEN(cText)
  lcresult = ""
  FOR lni = 1 TO lnlast
   lcresult = SUBSTR(cText, lni, 1) + lcresult
  NEXT
  RETURN lcresult
ENDFUNC