Reverse Function

DECLARE FUNCTION REV$(N$)
CLS
INPUT "Enter any String"; N$
PRINT "Reversed string is"; REV$(N$)
END

FUNCTION REV$(N$)
FOR J = LEN (N$) TO 1 STEP -1
C$ = MID$(N$,J,1)
W$ = W$+C$
NEXT J
REV$ = W$
END FUNCION