Código en Visual Fox Pro de Como Saber si una Palabra es Palindromo
STORE SPACE(35) TO texto,substraer,concatenar
texto= LEN(ALLTRIM(ThisForm.Text1.Value))
FOR i =texto TO 1 STEP -1
substraer =SUBSTR(ALLTRIM(thisform.text1.Value),i,1)
concatenar=concatenar+substraer
NEXT
IF ALLTRIM(thisform.text1.Value)==ALLTRIM(concatenar) then
=MESSAGEBOX('Si es palindromo',0,'Haz encontrado una palabra palindromo')
ELSE
=MESSAGEBOX('No es palindromo',0,'intente con otra palabra')
