RosettaCodeData/Task/Palindrome-detection/BASIC/palindrome-detection-3.basic

 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"
September Morn Update 2019-09-12 10:33:56 -07:00			`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"`