RosettaCodeData/Task/Reverse-a-string/QuickBASIC/reverse-a-string.basic

function reverse$(a$)
   b$ = ""
   for i = 1 to len(a$)
      b$ = mid$(a$, i, 1) + b$
   next i
   reverse$ = b$
end function