DEFINITION MODULE InOut;
(* jr/28mai87, cn/25juli87 bp/14aug90 *)
(*$ LargeVars:=FALSE
    LongAlign:=FALSE
    NameChk:=FALSE
*)

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 SetInput(name:ARRAY OF CHAR);
PROCEDURE SetOutput(name: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