Q BASIC PROGRAM: PALINDROME WORD

Q BASIC PROGRAM TO CHECK WHETHER THE GIVEN WORD IS PALINDROME OR NOT. FUNCTION

DECLARE FUNCTION PAL$(N$)
CLS
INPUT "ENTER ANY WORD";N$
P=PAL$(N$)
P=N THEN
PRINT "PALINDROME WORD"
ELSE
PRINT "NOT PALINDROME NUMBER"
END IF
END

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