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

FROM SYSTEM IMPORT FFP;

VAR done: BOOLEAN;

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

END FFPInOut.
