RosettaCodeData/Task/Literals-String/Modula-3/literals-string-3.mod3

VAR str: TEXT := "Foo";
VAR chrarray: ARRAY [1..3] OF CHAR;

Text.SetChars(chrarray, str);
(* chrarray now has the value ['F', 'o', 'o'] *)