RosettaCodeData/Task/Copy-a-string/Oberon/copy-a-string.oberon

MODULE CopyString;
TYPE
	String = ARRAY 128 OF CHAR;
VAR
	a,b: String;

BEGIN
	a := "plain string";
	COPY(a,b);
END CopyString.