data "My dog has fleas", "Madam, I'm Adam.", "1 on 1", "In girum imus nocte et consumimur igni"

for i = 1 to 4
  read w$
  print w$;" is ";isPalindrome$(w$);" Palindrome"
next

function isPalindrome$(str$)
  for i = 1 to len(str$)
    a$ = upper$(mid$(str$,i,1))
    if (a$ >= "A" and a$ <= "Z") or (a$ >= "0" and a$ <= "9") then b$ = b$ + a$: c$ = a$ + c$
  next i
  if b$ <> c$ then isPalindrome$ = "not"
end function