Re: Clear Screen

["Tarjei Tj�stheim Jensen" <tarjei@online.no>]

Sune Falck wrote:
> The simple and "portable" way to clear the screen is to
> write enough New_Line:s to scroll the the visible text
> out of the screen.
> 
> Example:
> 
> with Ada.Text_IO;
> procedure Clear_Screen is
> begin
>    Ada.Text_IO.New_Line (25);
>    Ada.Text_IO.Put_Line ("The screen was cleared");
> end Clear_Screen;
> 
> This works for Windows 98 in a console window and
> for all different terminal emulations in the unix world.

It does not work for my terminal windows which are routinely both higher
and wider than 80x25.

The only simple reasonably portable way is to clear the screen with the
correct escape sequence and then position the cursor in the upper left
corner with another escape sequence.

A more complicated way would be to test for environment variables and
see whether they contain TERMCAP information. If that fails one could
look for termcap/terminfo. Newer unix telnetd/shell versions keep track
of the width and size of the window and store them in a couple of
environment variables.


Greetings,