Function Backwards && reverses the text so "ABC " becomes " CBA" Lparameters lcIndata Local lnCounter,lcReturn lcReturn='' For lnCounter=Len(lcIndata) To 1 Step -1 lcReturn = lcReturn + Substr(lcIndata,lnCounter,1) Endfor Return lcReturn Function Backward1 && reverses and left justifies the text so "ABC " becomes "CBA " Lparameters lcIndata Local lnCounter,lcReturn lcReturn='' For lnCounter=Len(Trim(lcIndata)) To 1 Step -1 lcReturn = lcReturn + Substr(lcIndata,lnCounter,1) Endfor Return Padr(lcReturn,Len(lcIndata))>Hi all,