DECLARE SUB Rev(A$)
CLS
INPUT"Enter any string";A$
CALL Rev(A$)
END
SUB Rev(A$)
END
SUB Rev(A$)
FOR I = LEN(A$) to 1 Step-1
B$=B$ + MID$(A$,I,1)
NEXT I
PRINT"Reverse string is";B$
END SUB