DEFINITION MODULE LongRealInOut; (* jr/8jul87 *)
(*$ LongAlign:=FALSE
    LargeVars:=FALSE
    NameChk:=FALSE
*)

VAR done: BOOLEAN;

PROCEDURE WriteReal(r: LONGREAL; width, dec: INTEGER);
PROCEDURE ReadReal(VAR r: LONGREAL);

END LongRealInOut.
