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