RosettaCodeData/Task/Reverse-a-string/ERRE/reverse-a-string.erre

PROGRAM REVERSE_STRING

PROCEDURE REVERSE(A$->R$)
   LOCAL I%
   R$=""
   FOR I=1 TO LEN(A$) DO
     R$=MID$(A$,I,1)+R$
   END FOR
END PROCEDURE

BEGIN
   A$="THE FIVE BOXING WIZARDS JUMP QUICKLY"
   REVERSE(A$->R$)
   PRINT(R$)
END PROGRAM