Display reverse of input string using sub.

Display reverse of input string using sub procedure.

DECLARE SUB REV(N$)
CLS
INPUT"ENTER ANY WORD";N$
CALL REV(N$)
END

SUB REV(N$)
FOR I= LEN(N$) TO 1 STEP -1
B$=MID$ (N$,I,1)
C$= C$+B$
NEXT I
PRINT"REVERSED WORD I";C$
END SUB