(****************************************************************************)
(*                                                                          *)
(*                        Modula-2 Cross System V4.0                        *)
(*                                                                          *)
(*                                                                          *)
(*                           author: Dieter Jaeger                          *)
(****************************************************************************)

DEFINITION MODULE ConLR;


PROCEDURE lpten (e : INTEGER) : LONGREAL;

PROCEDURE LRealToStr (lreal:LONGREAL; decPlaces:INTEGER;
                     VAR str:ARRAY OF CHAR);
	(* if decplaces negative then scientific notation, *)
	(* if zero no decimal point.			   *)


PROCEDURE StrToLReal (str:ARRAY OF CHAR;
                     VAR lreal:LONGREAL; VAR success:BOOLEAN);


END ConLR.
