Testing Palindrome

CLS
INPUT "Enter string to be tested: ";t$
t$=LCASE$(t$)
FOR I=LEN(t$) TO 1 STEP -1
  r$=r$+MID$(t$, I, 1)
NEXT I
IF r$=t$ THEN
  PRINT t$; " is Palindrome!"
ELSE
  PRINT t$; " is not Palindrome!"
ENDIF
END