cOriginal=ALLTRIM(thisform.text1.Value)
n=LEN(cOriginal)
cFinal=""
FOR i=n TO 1 STEP -1
cFinal=cFinal+SUBSTR(cOriginal,i,1)
ENDFOR
thisform.text2.Value=cFinal
thisform.text2.Refresh