--
--  Filename:
--
--     hello3.adb
--
--  Description:
--
--     Example program showing how to write to the terminal.
--     Note: write is a system-level function in the ANSI C
--     library libc.
--

with System;

procedure Hello3 is

   use System;
   --  Needed to get type Address

   procedure Write (
      Stream : in Natural;
      Start : in Address;
      Len : in Natural);
   pragma Import (C, Write, "write");

   Mess : constant String := "Hello World" & ASCII.LF;

begin

   Write (1, Mess'Address, Mess'Length);

end Hello3;