Código de Clipper/FiveWin - Invertir Cadena

CLEAR

ACCEPT "Teclee una cadena para invertirla: " TO cTexto

? cTexto

? "invertido es: "

? invStr( cTexto )

//

FUNCTION invStr( __cTexto )

   LOCAL aText1, cNew, n, cTemp, g, x

   aText1 = ARRAY (LEN ( __cTexto ) )

   cNew = ""

   FOR n = 1 TO LEN( __cTexto )

      cTemp = LEFT( __cTexto, n )

      aText1[ n ] = RIGHT( cTemp, 1 )

   NEXT n

   x = 1

   FOR g = LEN( __cTexto ) TO 1 STEP -1

      cNew =  aText1[ x ] + cNew

      x = x + 1

   NEXT g

RETURN cNew