17 lines
341 B
Text
17 lines
341 B
Text
|
MODULE Reverse EXPORTS Main;
|
||
|
|
|
||
|
|
IMPORT IO, Text;
|
||
|
|
|
||
|
|
PROCEDURE String(item: TEXT): TEXT =
|
||
|
|
VAR result: TEXT := "";
|
||
|
|
BEGIN
|
||
|
|
FOR i := Text.Length(item) - 1 TO 0 BY - 1 DO
|
||
|
|
result := Text.Cat(result, Text.FromChar(Text.GetChar(item, i)));
|
||
|
|
END;
|
||
|
|
RETURN result;
|
||
|
|
END String;
|
||
|
|
|
||
|
|
BEGIN
|
||
|
|
IO.Put(String("Foobarbaz") & "\n");
|
||
|
|
END Reverse.
|