with Ada.Text_IO;
use Ada.Text_IO;

procedure MoreOut is

begin

   Put("This is a line of text to ");
   Put("output to the monitor.");
   New_Line;
   Put("This is another line.");
   New_Line(2);
   Put("And this is a third.");
   New_Line(1);

   Put_Line("This is the fourth line.");
   Put_Line("And this is the last line of this group.");

   New_Line;
   Set_Col(10);
   Put("This");
   Set_Col(22);
   Put("illustrates");
   Set_Col(Col + 4);
   Put_Line("columns.");

end;




-- Result of execution

-- This is a line of text to output to the monitor.
-- This is another line.
--
-- And this is a third.
-- This is the fourth line.
-- And this is the last line of this group.
--
--          This        illustrates    columns.