FUNCTION Reverse(sIn)
   LOCAL sOut := "", i
   FOR i := Len(sIn) TO 1 STEP -1
      sOut += Substr(sIn, i, 1)
   NEXT
RETURN sOut