(*===================================================================================================*)
DEFINITION MODULE RealTerminal;      (* Christoph Fleischer 05.03.85 *)
                                     (* last modification   25.04.85 *)


EXPORT QUALIFIED
  RFormat,
  ReadR,ConvertToR,RealToString,WriteR;

TYPE RFormat = (RFixed,RFloat,RAuto);

(***** IMPLEMENTATION RESTRICTION
       type RAuto is currently not supported  ******)

PROCEDURE ReadR(VAR r: REAL);
PROCEDURE ConvertToR(VAR s: ARRAY OF CHAR; VAR r: REAL);
PROCEDURE RealToString(r: REAL; Field, Dec: CARDINAL;fmt :RFormat; VAR s: ARRAY OF CHAR );
PROCEDURE WriteR (value: REAL; length,dec: CARDINAL; fmt: RFormat);
(*
PROCEDURE FWriteR (f: File; value: REAL; length,dec: CARDINAL; fmt: RFormat); is in OutFile *)

END RealTerminal.
(*===================================================================================================*)
