1MODULE LibStringsInsert1;
2
3IMPORT
4  Out := Out0, Strings;
5
6PROCEDURE Insert (source, dest: ARRAY OF CHAR; startPos: INTEGER);
7  BEGIN
8    Out.String ("src:"); Out.String (source); Out.Ln;
9    Out.String ("in :"); Out.String (dest); Out.Ln;
10    Strings.Insert (source, startPos, dest);
11    Out.String ("out:"); Out.String (dest); Out.Ln;
12  END Insert;
13
14PROCEDURE Test* ();
15  VAR
16    dest4: ARRAY 4 OF CHAR;
17  BEGIN
18    dest4[0] := 0X;
19    Insert ("abc", dest4, 0);
20    dest4[0] := "a"; dest4[1] := 0X;
21    Insert ("bc", dest4, 1);
22    dest4[0] := "c"; dest4[1] := 0X;
23    Insert ("ab", dest4, 0);
24    dest4[0] := "a"; dest4[1] := "c"; dest4[2] := 0X;
25    Insert ("b", dest4, 1);
26  END Test;
27
28END LibStringsInsert1.
29