-- Chapter 14 - Program 7
with Ada.Text_IO, Ada.Integer_Text_IO;
use Ada.Text_IO, Ada.Integer_Text_IO;

procedure PrintOut is

   Turkey : FILE_TYPE;

begin
                             -- First we create the file
   Create(Turkey, Out_File, "LPT1");
                             -- Then we write to it
   Put(Turkey, "This is a test of turkey");
   New_Line(Turkey);
   Put(Turkey, "and it should work well.");
   New_Line(Turkey, 2);
   Put("Half of the turkey test.");
   New_Line;

   Set_Output(Turkey);       -- Make Turkey the default output
      Put("This is another test of turkey");
      New_Line;
      Put("and it should work well.");
      New_Line(2);
      Put(Standard_Output, "Half of the turkey test.");
      New_Line(Standard_Output);
   Set_Output(Standard_Output); -- Return to the Standard default

   Put("Back to the standard default output.");

   Close(Turkey);

end PrintOut;




-- Results of execution

-- (Output to the monitor)
--
-- Half of the turkey test.
-- Half of the turkey test.
-- Back to the standard default output.

-- (Output to the printer)
--
-- This is a test of turkey
-- and it should work well.
--
-- This is another test of turkey
-- and it should work well.
--