(***************************************************************************)
(*                                                                         *)
(*                        DEFINITION MODULE InOut			   *)
(*                                                                         *)
(*                                                                         *)
(*                    Modula-2 Standard Library Module			   *)
(*                                                                         *)
(*                                for the				   *)
(*                                                                         *)
(*                     Modula-2 System for Z80 / CP/M 			   *)
(*                                                                         *)
(*                                   by					   *)
(*                                                                         *)
(*                       Hochstrasser Computing AG			   *)
(*                           Leonhardshalde 21				   *)
(*                              8001 Zuerich				   *)
(*                              Switzerland				   *)
(*                                                                         *)
(*                                                                         *)
(*                                                                         *)
(*                                                                         *)
(* created	Jan - 31 - 1985 pwh                                        *)
(* updated	Mar - 26 - 1985 pwh                                        *)
(***************************************************************************)
DEFINITION MODULE InOut;


  EXPORT QUALIFIED
	EOL, Done, termCH,
	OpenInput, OpenOutput, CloseInput, CloseOutput,
        Read, ReadString, ReadInt, ReadCard,
        Write, WriteLn, WriteString, 
	WriteInt, WriteCard, WriteOct, WriteHex;


  CONST
    EOL =15C;


  VAR
    Done: BOOLEAN;
    termCH: CHAR;

  
  PROCEDURE OpenInput  (defext: ARRAY OF CHAR);
  PROCEDURE OpenOutput (defext: ARRAY OF CHAR);
  PROCEDURE CloseInput;
  PROCEDURE CloseOutput;

  PROCEDURE Read       (VAR ch: CHAR);
  PROCEDURE ReadString (VAR s: ARRAY OF CHAR);
  PROCEDURE ReadInt    (VAR x: INTEGER);
  PROCEDURE ReadCard   (VAR x: CARDINAL);
 
  PROCEDURE Write      (ch: CHAR);
  PROCEDURE WriteLn;
  PROCEDURE WriteString(s: ARRAY OF CHAR);
  PROCEDURE WriteInt   (x: INTEGER; n: CARDINAL);
  PROCEDURE WriteCard  (x, n: CARDINAL);
  PROCEDURE WriteOct   (x,n: CARDINAL);
  PROCEDURE WriteHex   (x,n: CARDINAL);

END InOut.
