numberio.mod 413 B

12345678910111213141516
  1. IMPLEMENTATION MODULE NumberIO;
  2. IMPORT InOut;
  3. PROCEDURE ReadInt (VAR x : INTEGER);
  4. BEGIN InOut.ReadInt(x) END ReadInt;
  5. PROCEDURE ReadCard (VAR x : CARDINAL);
  6. BEGIN InOut.ReadCard(x) END ReadCard;
  7. PROCEDURE WriteInt (x : INTEGER; width : CARDINAL);
  8. BEGIN InOut.WriteInt(x, width) END WriteInt;
  9. PROCEDURE WriteCard (x : CARDINAL; width : CARDINAL);
  10. BEGIN InOut.WriteCard(x, width) END WriteCard;
  11. END NumberIO.