MODULE Test6;

IMPORT Out;

VAR
  msg : ARRAY 20 OF CHAR;

BEGIN
  Out.Open;
  COPY("Hello World!", msg);
  Out.String(msg); Out.Ln;
  COPY("Hell!", msg);
  Out.String(msg); Out.Ln;
  COPY("The quick brown fox jumps over the lazy dog", msg);
  Out.String(msg); Out.Ln;
  msg := "Hello World!";
  Out.String(msg); Out.Ln;
END Test6.

Проверка строк. COPY должен обрезать строки если не лезет.