(* $N- *)
DEFINITION MODULE InOut; (* jr/28mai87, cn/25juli87 *)
FROM SYSTEM IMPORT
 BYTE;
IMPORT ASCII;

CONST
 eol = ASCII.eol;
VAR
 done: BOOLEAN;
 termCh: CHAR;
 
PROCEDURE OpenInput(defExt: ARRAY OF CHAR);
PROCEDURE OpenOutput(defExt: ARRAY OF CHAR);

PROCEDURE CloseInput;
PROCEDURE CloseOutput;

PROCEDURE Write(ch: CHAR);
PROCEDURE WriteLn;
PROCEDURE WriteString(str: ARRAY OF CHAR);
PROCEDURE WriteInt(x: LONGINT; n: INTEGER);
PROCEDURE WriteCard(x: LONGCARD; n: INTEGER);
PROCEDURE WriteOct(x: LONGINT; n: INTEGER);
PROCEDURE WriteHex(x: LONGINT; n: INTEGER);
PROCEDURE WriteBytes(VAR blk: ARRAY OF BYTE);

PROCEDURE Read(VAR ch: CHAR);
PROCEDURE ReadString(VAR str: ARRAY OF CHAR);
PROCEDURE ReadInt(VAR x: INTEGER);
PROCEDURE ReadLongInt(VAR x: LONGINT);
PROCEDURE ReadCard(VAR x: CARDINAL);
PROCEDURE ReadLongCard(VAR x: LONGCARD);
PROCEDURE ReadBytes(VAR blk:ARRAY OF BYTE);

END InOut.def
