1MODULE LibStringsAssign1;
2
3IMPORT
4  Out := Out0, Strings;
5
6PROCEDURE Test* ();
7  VAR
8    dest4: ARRAY 4 OF CHAR;
9  BEGIN
10    Strings.Assign ("", dest4);
11    Out.String (dest4); Out.Ln;
12    Strings.Assign ("a", dest4);
13    Out.String (dest4); Out.Ln;
14    Strings.Assign ("ab", dest4);
15    Out.String (dest4); Out.Ln;
16    Strings.Assign ("abc", dest4);
17    Out.String (dest4); Out.Ln;
18    Strings.Assign ("abcd", dest4);
19    Out.String (dest4); Out.Ln;
20  END Test;
21
22END LibStringsAssign1.
23