19 lines
322 B
Ada
19 lines
322 B
Ada
with Ada.Text_IO;
|
|
|
|
package body Console is
|
|
procedure Initialize is
|
|
begin
|
|
null;
|
|
end Initialize;
|
|
|
|
procedure Write (Text : String) is
|
|
begin
|
|
Ada.Text_IO.Put (Text);
|
|
end Write;
|
|
|
|
procedure Write_Line (Text : String) is
|
|
begin
|
|
Ada.Text_IO.Put_Line (Text);
|
|
end Write_Line;
|
|
end Console;
|