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