Reverse a string: Difference between revisions
Content deleted Content added
Added BBC BASIC |
|||
Line 143:
set %2=%chr%!%2!
goto loop</lang>
=={{header|BBC BASIC}}==
<lang bbcbasic> 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$</lang>
=={{header|Befunge}}==
|