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

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