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

VAR done: BOOLEAN;

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

END RealInOut.def
