tests/Test6.obn

   1 MODULE Test6;
   2
   3 IMPORT Out;
   4
   5 VAR
   6   msg : ARRAY 20 OF CHAR;
   7
   8 BEGIN
   9   Out.Open;
  10   COPY("Hello World!", msg);
  11   Out.String(msg); Out.Ln;
  12   COPY("Hell!", msg);
  13   Out.String(msg); Out.Ln;
  14   COPY("The quick brown fox jumps over the lazy dog", msg);
  15   Out.String(msg); Out.Ln;
  16   msg := "Hello World!";
  17   Out.String(msg); Out.Ln;
  18 END Test6.
  19
  20 Проверка строк. COPY должен обрезать строки если не лезет.