Program for reverse a strings

Program to reverse a string

CLS

INPUT "Enter a String"; a$

FOR i = LEN(a$) TO 1 STEP -1

    d$ = d$ + MID$(a$, i, 1)

NEXT i

PRINT "String after reverse is", d$

END