16 lines
241 B
Text
16 lines
241 B
Text
|
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
|