----------------------------------------------------------------
--
-- Abstract     :  This package body contains one procedure that
--              :  allows the clearing of the screen on a terminal
--              :  being used.
--
----------------------------------------------------------------

with Machine_Dependencies;
package body Terminal_Interface is

    ----------------------------------------------------------------
    --
    -- Abstract     :  The screen is cleared by a call to TEXT_IO.
    --              :  NEW_LINE with a parameter of the screen length.
    --
    ----------------------------------------------------------------

    procedure New_Page is

    begin
        --Text_Io.New_Line (Machine_Dependencies.Screen_Length);
        --deleted because it creates disturbing paging on Rational screen
        null;
    end New_Page;

end Terminal_Interface;