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=-1.9 required=5.0 tests=BAYES_00 autolearn=ham autolearn_force=no version=3.4.4 X-Google-Language: ENGLISH,ASCII-7-bit X-Google-Thread: 103376,7cb9a3b53a2ac8f9 X-Google-Attributes: gid103376,public X-Google-ArrivalTime: 2001-11-07 02:14:02 PST Path: archiver1.google.com!news1.google.com!newsfeed.stanford.edu!news-spur1.maxwell.syr.edu!news.maxwell.syr.edu!newsfeed00.sul.t-online.de!t-online.de!blackbush.xlink.net!blackbush.de.kpnqwest.net!news.erfurt.thur.de!eastside.erfurt.thur.de!drcomp.erfurt.thur.de!not-for-mail From: Adrian Knoth Newsgroups: comp.lang.ada Subject: Re: Clear screen Date: 6 Nov 2001 21:25:04 GMT Organization: Modern Electronics Message-ID: <9s9kfg$pk9$1@drcomp.erfurt.thur.de> References: <8BXF7.184242$5A3.69438929@news1.rdc2.pa.home.com> NNTP-Posting-Host: drcomp.erfurt.thur.de X-Server-Date: 6 Nov 2001 21:25:04 GMT User-Agent: tin/1.4.5-20010409 ("One More Nightmare") (UNIX) (Linux/2.4.13 (i586)) Xref: archiver1.google.com comp.lang.ada:15979 Date: 2001-11-06T21:25:04+00:00 List-Id: David Tumpa 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.