DECLARE FUNCTION CHECK$(N$)
CLS
INPUT " ENTER ANY WORD "; N$
P$ = N$
IF P$ = CHECK$(N$) THEN
PRINT "The given word is palindrome "
ELSE
PRINT " The given word is not palindrome"
END IF

FUNCTION CHECK$ (N$)
FOR I = LEN(N$) TO 1 STEP -1
B$ = MID$ (N$, I,1)
C$ = C$ + B$
NEXT I
CHECK$ = C$
END FUNCTION