-- Chapter 14 - Programming exercise 2
with Ada.Text_IO, Ada.Float_Text_IO;
use Ada.Text_IO, Ada.Float_Text_IO;

procedure Ch14_2 is

   Float_File : FILE_TYPE;
   Float_Dat  : FLOAT;

begin

   Open(Float_File, In_File, "FLTDATA.TXT");

   while not End_Of_File(Float_File) loop
      if End_Of_Line(Float_File) then
         New_Line;
         Skip_Line(Float_File);
      else
         Get(Float_File, Float_Dat);
         Put("The value read in is");
         Put(Float_Dat);
         New_Line;
      end if;
   end loop;

   Close(Float_File);

end Ch14_2;




-- Result of execution

-- (The output depemds on the input values.)