DEFINITION MODULE LongInOut;

VAR Done: BOOLEAN;

PROCEDURE ReadReal(VAR r: LONGREAL);

PROCEDURE WriteReal(r: LONGREAL; w: CARDINAL);

END LongInOut.
