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