From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=0.2 required=5.0 tests=BAYES_00,INVALID_MSGID,
	REPLYTO_WITHOUT_TO_CC autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,794a4cb8f6cfe39b
X-Google-Attributes: gid103376,public
From: doucet@ripolin.laas.fr (Jean-Etienne Doucet)
Subject: Re: Clear Screen
Date: 1997/02/24
Message-ID: <5erk3a$a29@news.cict.fr>#1/1
X-Deja-AN: 221017014
Distribution: world
References: <330FE569.29FA@bix.com>
Organization: LAAS-CNRS, Toulouse (France)
Reply-To: doucet@laas.fr
Newsgroups: comp.lang.ada
Date: 1997-02-24T00:00:00+00:00
List-Id: <comp.lang.ada>


In article 29FA@bix.com, Tom Moran <tmoran@bix.com> () writes:
| for i in 1 .. 50 loop
|   text_io.put_line(" ");
| end loop;
| -- would probably work on most systems.


Depending upon which computer I'm using, the following bits work OK
or not:

on the Sparc, Ada.Text_IO.New_Page does the work;

on a PC, I use the escape sequence:
	Ada.Text_IO.Put (Character'Val(27) & "[2J");

Good luck.

JED.