comp.lang.ada
 help / color / mirror / Atom feed
From: Adrian Knoth <adi@drcomp.erfurt.thur.de>
Subject: Re: Clear screen
Date: 6 Nov 2001 21:25:04 GMT
Date: 2001-11-06T21:25:04+00:00	[thread overview]
Message-ID: <9s9kfg$pk9$1@drcomp.erfurt.thur.de> (raw)
In-Reply-To: 8BXF7.184242$5A3.69438929@news1.rdc2.pa.home.com

David Tumpa <dtumpa@home.com> wrote:

> I am using the Aonix compiler on Windows ME and NT 4.0.  Can anyone give me
> the code to clear the screen with this compiler.

Perhaps your screen understands some ESC-sequences... a general
solution would be:

  procedure ClearScreen is
  begin
    Text_IO.Put (Item => ASCII.ESC);
    Text_IO.Put (Item => "[2J");
  end ClearScreen;

Feel free to optimize it :)

Taken from:

--::::::::::
--screen.adb
--::::::::::
with Text_IO;
package body Screen is

  -- simple ANSI terminal emulator
  -- Michael Feldman, The George Washington University
  -- July, 1995

  -- These procedures will work correctly only if the actual
  -- terminal is ANSI compatible. ANSI.SYS on a DOS machine
  -- will suffice.



-- 
mail: adi@thur.de  	http://adi.thur.de	PGP: v2-key via keyserver

Wer im Glashaus sitzt sollte sein Klo im Keller haben.



  reply	other threads:[~2001-11-06 21:25 UTC|newest]

Thread overview: 56+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2001-11-06 20:19 Clear screen David Tumpa
2001-11-06 21:25 ` Adrian Knoth [this message]
2001-11-07  9:07 ` John McCabe
2001-11-07 16:37   ` Jeffrey Carter
2001-11-07 16:52 ` Darren New
2001-11-07 17:07   ` Preben Randhol
2001-11-07 18:59   ` tmoran
2001-11-07 19:42   ` Larry Kilgallen
2001-11-07 21:31     ` Darren New
2001-11-08  9:30       ` Preben Randhol
2001-11-08 16:40         ` Darren New
2001-11-08 19:36           ` Pascal Obry
2001-11-07 22:04     ` Jeffrey Carter
2001-11-13 15:34   ` John English
2001-11-25 22:05     ` Nick Roberts
2001-11-26 10:58       ` John English
2001-12-05 23:05       ` Daniel Krupke
2001-12-06  1:59         ` Larry Kilgallen
2001-12-06  8:13         ` John English
  -- strict thread matches above, loose matches on Subject: below --
2000-05-27  0:00 Clear Screen Karlene
2000-05-27  0:00 ` Robert Dewar
2000-05-27  0:00 ` David C. Hoos, Sr.
2000-05-28  0:00   ` MARIE Eric
2000-05-28  0:00     ` Sune Falck
2000-05-28  0:00       ` Tarjei Tj�stheim Jensen
2000-05-29  0:00       ` MARIE Eric
2000-05-29  0:00 ` Pascal Obry
1997-03-23  0:00 Brian Hyatt
1997-03-25  0:00 ` Albert K. Lee
1997-03-25  0:00   ` Michael F Brenner
1997-03-04  0:00 Marin David Condic, 561.796.8997, M/S 731-93
1997-03-06  0:00 ` Robert Dewar
1997-03-06  0:00   ` Larry Kilgallen
1997-03-06  0:00     ` Robert Dewar
1997-03-06  0:00 ` Robert Dewar
     [not found] <330D0C26.6331@videotron.ca>
1997-02-21  0:00 ` Larry Kilgallen
1997-02-22  0:00   ` Albert K. Lee
1997-02-22  0:00     ` Tom Moran
1997-02-23  0:00       ` Tom Moran
1997-02-24  0:00       ` Jean-Etienne Doucet
1997-02-25  0:00         ` Robert Dewar
1997-02-26  0:00           ` Geert Bosch
1997-02-27  0:00             ` Robert Dewar
1997-02-28  0:00               ` Norman H. Cohen
1997-03-03  0:00                 ` Keith Thompson
1997-03-03  0:00                   ` Robert Dewar
1997-03-05  0:00                     ` Keith Thompson
1997-02-27  0:00           ` Robert I. Eachus
1997-03-01  0:00             ` Robert Dewar
1997-02-28  0:00           ` Keith Thompson
1997-03-03  0:00           ` Robert I. Eachus
1997-03-05  0:00             ` Robert Dewar
1997-02-26  0:00       ` Keith Thompson
1997-02-24  0:00     ` Robert Dewar
1997-02-24  0:00 ` Thomas Koenig
1997-02-28  0:00   ` bill
replies disabled

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox