10 lines
128 B
Text
10 lines
128 B
Text
MODULE CopyString;
|
|
TYPE
|
|
String = ARRAY 128 OF CHAR;
|
|
VAR
|
|
a,b: String;
|
|
|
|
BEGIN
|
|
a := "plain string";
|
|
COPY(a,b);
|
|
END CopyString.
|