15 lines
421 B
Plaintext
15 lines
421 B
Plaintext
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
|