programa en visual fox "programa para invertir una cadena de números"

CLOSE ALL
CLEAR
Accept "Ingrese un valor entero?" to cEntero
? 'valor invertido = ' + VaInv(cEntero)

FUNCTION VaInv
      PARAMETERS cEntero
      nN = LEN(Alltrim(cEntero))
      DECLARE cTemporal(nN)
      FOR nI = 1 TO nN
            cTemporal (nI) = SUBSTR(cEntero, nI, 1)
      NEXT
      cInvertida = ""
      FOR nJ = nN TO 1 STEP -1
           cInvertida = cInvertida + cTemporal(nJ)
      NEXT
 RETURN cInvertida