Палиндром — число (например, 404), буквосочетание, слово или текст (а роза упала на лапу Азора), одинаково читающееся в обоих направлениях — Basic(Бейсик)

LINE INPUT "Кандидат в палиндромы? "; p$
l$ = "абвгдежзийклмнопрстуфхцчшщъыьэюя"
u$ = "АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ"
m$ = " :,.+-;*?/\|~'`!@#$^&()[]{}%=" + CHR$(34)
 
FOR t = 1 TO LEN(p$)
  q$ = MID$(p$, t, 1)
  ln = INSTR(l$, q$)
  IF ln > 0 THEN q$ = MID$(u$, ln, 1) ELSE IF INSTR(m$, q$) > 0 THEN q$ = ""
  a1$ = a1$ + q$: a2$ = q$ + a2$
NEXT
IF a1$ = a2$ THEN PRINT "Палиндром!" ELSE PRINT "Не палиндром."