(****************************************************************************) (* *) (* 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.