Package Floatio Is

    -- Floating Point I/O Package
    -- Written March 1983
    -- Last Modified  4/21/83

    -- Copyright 1982,1983  RR Software, Inc., P.O. Box 1512, Madison WI 53701
    -- Permission is hereby given to distribute Object Code produced from
    -- these libraries.  All Other rights reserved.

    Pragma Arithcheck(Off); Pragma Rangecheck(Off);
    @ Pragma Arithcheck(On); Pragma Rangecheck(On);

    Procedure Get(Fyle : In File; Value : Out Float);
    Procedure Get(Value : Out Float);
	-- Gets a value from the file

    Procedure Put(Fyle : In File; Value : In Float);
    Procedure Put(Value : In Float);
    Procedure Put(Fyle : In File; Value : In Float; Fore : In Integer);
    Procedure Put(Value : In Float; Fore : In Integer);
    Procedure Put(Fyle:In File; Value : In Float; Fore,Aft : In Integer);
    Procedure Put(Value : In Float; Fore,Aft : In Integer);
    Procedure Put(Value : In Float; Fore,Aft,Exp : In Integer);
    Procedure Put(Fyle : In File; Value : In Float;
				Fore,Aft,Exp : In Integer);
	-- Puts formatted value to file

    Function Float_to_String(Value : In Float) Return String;
    Function Float_to_String(Value : In Float; fore,aft,exp : Integer)
	Return String;
	-- Formats value into a string

    Procedure Get(Fyle : In File; Value : Out Long_Float);
    Procedure Get(Value : Out Long_Float);
	-- Gets a value from the file

    Procedure Put(Fyle : In File; Value : In Long_Float);
    Procedure Put(Value : In Long_Float);
    Procedure Put(Fyle : In File; Value : In Long_Float; Fore : In Integer);
    Procedure Put(Value : In Long_Float; Fore : In Integer);
    Procedure Put(Fyle:In File; Value : In Long_Float;
		Fore,Aft : In Integer);
    Procedure Put(Value : In Long_Float; Fore,Aft : In Integer);
    Procedure Put(Value : In Long_Float; Fore,Aft,Exp : In Integer);
    Procedure Put(Fyle : In File; Value : In Long_Float;
				Fore,Aft,Exp : In Integer);
	-- Puts formatted value into file

    Function Float_to_String(Value : In Long_Float) Return String;
    Function Float_to_String(Value : In Long_Float; fore,aft,exp : Integer)
	Return String;
	-- Formats value into a string

End FloatIo;
loat; Fore,Aft : In Integer);
    Procedure Put(Value : In Long_Float; Fore,Aft,Exp : In Integer);
    Procedure Put(Fyle : In File; Value : In Long_Float;
				Fore,Aft,Exp : In Integer);
	-- Puts formatted value into file

    Function Float_to_String(Value : In Long_Float) Return String;
    Function Float_to_String(Value : In Long_Float; fore,aft,exp : Integer)
	Return