DEFINITION MODULE CE; (* DEE 2014-08-06/2015-12-02/2022-09-23 *)
  (* Shared module of compress and expand commands. *)
  FROM STchars IMPORT TILDE, character;

  CONST
    WARNING = TILDE;
    FIRSTREP = 49; (* where does isrep start? *)

  PROCEDURE isrep(c: character): BOOLEAN;
  PROCEDURE putrep(n: INTEGER; c: character);
END CE.