This article has been dead for over three months
You
handy.ads
----------
with Ada.Text_IO;
package handy is
procedure pause;
end handy;
handy.adb
----------
with Ada.Text_IO;
package body handy is
procedure pause is
Wait: character;
begin
Ada.Text_IO.put("Press enter key to continue.");
Ada.Text_IO.new_line;
Ada.Text_IO.get_immediate(Wait);
end pause;
end handy;