(********************************************************************************

Name         : InOut.DEF
Version      : 1.0
Purpose      : Fromatted Input Output
Author       : ms
State        : Only procedures implemented that are needed by dec68k
Modified     : 26.3.86  10:45  ms

********************************************************************************)

DEFINITION MODULE InOut;

VAR inOutDone: BOOLEAN;

PROCEDURE OpenInput(ext: ARRAY OF CHAR);
PROCEDURE CloseInput;

PROCEDURE OpenOutput(ext: ARRAY OF CHAR);
PROCEDURE CloseOutput;

PROCEDURE Read(VAR ch: CHAR);
PROCEDURE ReadString(VAR st: ARRAY OF CHAR);

PROCEDURE Write(ch: CHAR);
PROCEDURE WriteLn;
PROCEDURE WriteString(st: ARRAY OF CHAR);
PROCEDURE WriteCard(c: LONGCARD; s: CARDINAL);
PROCEDURE WriteInt(i: LONGINT; s: CARDINAL);
PROCEDURE WriteHex(i: LONGINT; s: CARDINAL);

END InOut.