-- -- Hello World with Flair -- -- $Id$ -- with Text_IO; use Text_IO; procedure Hello is begin Put_Line ("*** GNAT/RTEMS Hello World Test ***"); New_Line; Put_Line ("Welcome to the World of Lady Ada"); New_Line; Put_Line ("Initiating 2.5 second delay"); delay 2.5; Put_Line ("Delay Complete"); Put_Line ("*** END OF GNAT/RTEMS Hello World Test ***"); end Hello;