26 lines
621 B
Text
26 lines
621 B
Text
100 DATA"MY DOG HAS FLEAS"
|
|
110 DATA"MADAM, I'M ADAM."
|
|
120 DATA"1 ON 1"
|
|
130 DATA"IN GIRUM IMUS NOCTE ET CONSUMIMUR IGNI"
|
|
140 DATA"A man, a plan, a canal: Panama!"
|
|
150 DATA"KAYAK"
|
|
160 DATA"REDDER"
|
|
170 DATA"H"
|
|
180 DATA""
|
|
|
|
200 FOR L1 = 1 TO 9
|
|
210 READ W$ : GOSUB 300" IS PALINDROME?
|
|
220 PRINT CHR$(34); W$; CHR$(34); " IS ";
|
|
230 IF NOT PALINDROME THEN PRINT "NOT ";
|
|
240 PRINT "A PALINDROME"
|
|
250 NEXT
|
|
260 END
|
|
|
|
300 REMIS PALINDROME?
|
|
310 PA = 1
|
|
320 L = LEN(W$)
|
|
330 IF L = 0 THEN RETURN
|
|
340 FOR L0 = 1 TO L / 2 + .5
|
|
350 PA = MID$(W$, L0, 1) = MID$(W$, L - L0 + 1, 1)
|
|
360 IF PALINDROME THEN NEXT L0
|
|
370 RETURN
|