22 lines
540 B
Plaintext
22 lines
540 B
Plaintext
100 PROGRAM "Palindr.bas"
|
|
110 LINE INPUT PROMPT "Text: ":TX$
|
|
120 PRINT """";TX$;""" is ";
|
|
130 IF PALIND(TX$) THEN
|
|
140 PRINT "a palindrome."
|
|
150 ELSE
|
|
160 PRINT "not a palindrome."
|
|
170 END IF
|
|
180 DEF TRIM$(TX$)
|
|
190 LET T$=""
|
|
200 FOR I=1 TO LEN(TX$)
|
|
210 IF TX$(I)>="A" AND TX$(I)<="Z" THEN LET T$=T$&TX$(I)
|
|
220 NEXT
|
|
230 LET TRIM$=T$
|
|
240 END DEF
|
|
250 DEF PALIND(TX$)
|
|
260 LET PALIND=-1:LET TX$=TRIM$(UCASE$(TX$))
|
|
270 FOR I=1 TO LEN(TX$)/2
|
|
280 IF TX$(I)<>TX$(LEN(TX$)-I+1) THEN LET PALIND=0:EXIT FOR
|
|
290 NEXT
|
|
300 END DEF
|