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