IMPLEMENTATION MODULE WholeIO;
(* Binds the shim integer routines directly. *)

PROCEDURE m2writeint(n : INTEGER);
  EXTERNAL;

PROCEDURE m2readint() : INTEGER;
  EXTERNAL;

PROCEDURE WriteInt(n : INTEGER);
BEGIN
  m2writeint(n)
END WriteInt;

PROCEDURE WriteCard(n : CARDINAL);
BEGIN
  m2writeint(n)
END WriteCard;

PROCEDURE ReadInt(VAR n : INTEGER);
BEGIN
  n := m2readint()
END ReadInt;

PROCEDURE ReadCard(VAR n : CARDINAL);
BEGIN
  n := m2readint()
END ReadCard;

END WholeIO.