11 lines
334 B
Text
11 lines
334 B
Text
OPTION COMPARE TRUE
|
|
|
|
INPUT "Enter your line... ", word$
|
|
|
|
IF word$ = REVERSE$(word$) THEN
|
|
PRINT "This is an exact palindrome!"
|
|
ELIF EXTRACT$(word$, "[[:punct:]]|[[:blank:]]", TRUE) = REVERSE$(EXTRACT$(word$, "[[:punct:]]|[[:blank:]]", TRUE)) THEN
|
|
PRINT "This is an inexact palindrome!"
|
|
ELSE
|
|
PRINT "Not a palindrome."
|
|
ENDIF
|