RosettaCodeData/Task/Copy-a-string/Modula-3/copy-a-string.mod3

VAR src: TEXT := "Foo";
VAR dst: TEXT := src;