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"