DEFINITION MODULE STstrings;  (*DEE 2014-01-22/2015-11-25*)
  FROM STchars IMPORT character;

  CONST (* Universal manifest constants. *)
    ENDSTR = 0;
    MAXSTR = 256;

  TYPE
    string = ARRAY [1..MAXSTR] OF character;

  PROCEDURE addstr(c: character; VAR outset: string;
    VAR j: INTEGER; maxset: INTEGER): BOOLEAN;
  PROCEDURE ctoi(VAR s: string; VAR i: INTEGER): INTEGER;
  PROCEDURE esc (VAR s: string; VAR i: INTEGER): character;
  PROCEDURE equal (VAR str1, str2: string): BOOLEAN;
  PROCEDURE itoc(n: INTEGER; VAR s: string; i: INTEGER): INTEGER;
  PROCEDURE index (VAR s: string; c: character): INTEGER;
  PROCEDURE length(VAR s: string): INTEGER;
  PROCEDURE putdec (n, w: INTEGER);
END STstrings.