RosettaCodeData/Task/Reverse-a-string/BBC-BASIC/reverse-a-string.basic

      PRINT FNreverse("The five boxing wizards jump quickly")
      END

      DEF FNreverse(A$)
      LOCAL B$, C%
      FOR C% = LEN(A$) TO 1 STEP -1
        B$ += MID$(A$,C%,1)
      NEXT
      = B$