DEFINITION MODULE MYINOUT; (* FROM Files IMPORT File; VERSION SUN *) FROM FileIO IMPORT FILE; (* SOLARIS *) FROM NUM IMPORT LONGCARD; (* SOLARIS *) VAR OK : BOOLEAN; PROCEDURE OpenInput (Ext : ARRAY OF CHAR); PROCEDURE OpenOutput (Ext : ARRAY OF CHAR); PROCEDURE OpenAsInput (S : ARRAY OF CHAR); PROCEDURE OpenAsOutput (S : ARRAY OF CHAR); PROCEDURE CloseInput; PROCEDURE CloseOutput; PROCEDURE SetInput (f : FILE); PROCEDURE SetOutput (f : FILE); PROCEDURE GetInput (VAR f : FILE); PROCEDURE GetOutput (VAR f : FILE); PROCEDURE EOL () : BOOLEAN; PROCEDURE EOF () : BOOLEAN; PROCEDURE ReadLn; PROCEDURE Read (VAR C : CHAR); PROCEDURE ReadBool (VAR B : BOOLEAN); PROCEDURE ReadInt (VAR x : INTEGER); PROCEDURE ReadCard (VAR x : CARDINAL); PROCEDURE ReadLongInt (VAR x : LONGINT); PROCEDURE ReadLongCard (VAR x : LONGCARD); PROCEDURE ReadReal (VAR x : REAL); PROCEDURE ReadLongReal (VAR x : LONGREAL); PROCEDURE ReadString (VAR S : ARRAY OF CHAR); PROCEDURE ReadLine (VAR S : ARRAY OF CHAR); PROCEDURE WriteLn; PROCEDURE Write (C : CHAR); PROCEDURE WriteString (S : ARRAY OF CHAR); PROCEDURE WriteBool (B : BOOLEAN); PROCEDURE WriteInt (x : INTEGER; n : CARDINAL); PROCEDURE WriteCard (x, n : CARDINAL); PROCEDURE WriteLongInt (x : LONGINT; n : CARDINAL); PROCEDURE WriteLongCard (x : LONGCARD; n : CARDINAL); PROCEDURE WriteReal (x : REAL; p : CARDINAL; i : INTEGER); PROCEDURE WriteLongReal (x : LONGREAL; p : CARDINAL; i : INTEGER); PROCEDURE Error (S : ARRAY OF CHAR); PROCEDURE Assert (Assertion: BOOLEAN; S : ARRAY OF CHAR); END MYINOUT.