M2compiler-V3/compiler/tests/strings_prog.mod

MODULE StringsProg;
(* String library tour: assign, concat, length, compare. *)
FROM SysIO IMPORT Write, WriteLn, WriteInt;
FROM Strings IMPORT Length, Assign, Concat, Compare;
VAR s : ARRAY [0..15] OF CHAR;
VAR t : ARRAY [0..15] OF CHAR;
VAR u : ARRAY [0..31] OF CHAR;
BEGIN
  Assign("Hello", s);
  Assign(" World", t);
  Concat(s, t, u);
  Write(u);        (* Hello World *)
  WriteLn;
  WriteInt(Length(u));   (* 11 *)
  WriteLn;
  WriteInt(Compare(s, t));  (* 'H' > ' ' -> 1 *)
  WriteLn
END StringsProg.