7 lines
145 B
Text
7 lines
145 B
Text
10 INPUT S$
|
|
20 FOR I=1 TO LEN S$/2
|
|
30 IF S$(I)<>S$(LEN S$-I+1) THEN GOTO 60
|
|
40 NEXT I
|
|
50 GOTO 70
|
|
60 PRINT "NOT A ";
|
|
70 PRINT "PALINDROME"
|