DEFINITION MODULE RealInOut;
VAR Done:BOOLEAN;
PROCEDURE ReadReal(VAR x:REAL);
PROCEDURE WriteReal(x:REAL;n:CARDINAL);
END RealInOut.
IMPLEMENTATION MODULE RealInOut;
FROM DRIVES IMPORT EOF;
FROM R5IO IMPORT WRR5,STRTOR5;
FROM InOut IMPORT ReadString;
PROCEDURE ReadReal(VAR x:REAL);
VAR S:ARRAY [0..31] OF CHAR;
BEGIN
IF EOF(1) THEN Done:=FALSE;
  RETURN END;
ReadString(S);
IF Done THEN x:=STRTOR5(S,Done) END
END ReadReal;
 
PROCEDURE WriteReal(x:REAL;n:CARDINAL);
BEGIN
WRR5(x,n,4)
END WriteReal;

BEGIN
Done:=TRUE;
END RealInOut.
