To display the reverse of a string. (Qbasic Code)
- CLS
INPUT "Enter the string"; a$
FOR i = LEN(a$) TO 1 STEP -1
b$ = MID$(a$, i, 1)
r$ = r$ + b$
NEXT i
PRINT "The reverse of the string is "; r$
END