--  Dummy version that contains minimal output procedure (which do nothing).
package Textio is
   procedure New_Line;
   procedure Put (Item : in Character);
   procedure Put (Item : in String);
   procedure Put_Line (Item : in String);
end Textio;
