with Text_Io;
package Terminal_Interface is

    subtype Count_Type is Text_Io.Count;

    --exception declarations

    Status_Error : exception renames Text_Io.Status_Error;
    Mode_Error : exception renames Text_Io.Mode_Error;
    Name_Error : exception renames Text_Io.Name_Error;
    Use_Error : exception renames Text_Io.Use_Error;
    Device_Error : exception renames Text_Io.Device_Error;
    End_Error : exception renames Text_Io.End_Error;
    Data_Error : exception renames Text_Io.Data_Error;
    Layout_Error : exception renames Text_Io.Layout_Error;

    -- line and page control

    procedure New_Page;

    procedure New_Line (Spacing : Text_Io.Positive_Count := 1)
        renames Text_Io.New_Line;

    function End_Of_Line return Boolean renames Text_Io.End_Of_Line;

    -- character input-output

    procedure Get (Item : out Character) renames Text_Io.Get;

    procedure Put (Item : Character) renames Text_Io.Put;

    -- string input-output

    procedure Get (Item : out String) renames Text_Io.Get;

    procedure Put (Item : String) renames Text_Io.Put;

    procedure Get_Line (Item : out String; Last : out Natural)
        renames Text_Io.Get_Line;

    procedure Put_Line (Item : String) renames Text_Io.Put_Line;

    procedure Set_Col (To : in Text_Io.Positive_Count) renames Text_Io.Set_Col;

end Terminal_Interface;