thank, you,
but the cursor is not in line1, col 1 location after 25 new_line.

and the set_col and set_line ... ?




"Sune Falck" <Sune.Falck@swipnet.se> a �crit dans le message news:
Pc5Y4.1746$b55.4361@nntpserver.swip.net...
> In article <Nr3Y4.1974$GL4.5283952@nnrp5.proxad.net>, "MARIE Eric"
<e.marie@worldonline.fr> wrote:
> >what's Clearscreen for win 98, please.
> >and for Unix  HP UX with VT 100 Emulation.
> >
> >
> 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.
>
> Sune Falck
>