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.3 required=5.0 tests=BAYES_00,INVALID_MSGID
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,8d4d5d24bf23592
X-Google-Attributes: gid103376,public
From: "David C. Hoos, Sr." <david.c.hoos.sr@ada95.com>
Subject: Re: NT,  ANSI.SYS, and Ada 95
Date: 1999/01/08
Message-ID: <774rne$das$1@tsunami.traveller.com>#1/1
X-Deja-AN: 430162630
References: <D2gl2.287$eu5.8083@news.cwix.com> <3695BCBC.4B77C8E9@grep.net>
X-MimeOLE: Produced By Microsoft MimeOLE V4.72.3110.3
Organization: Traveller Information Services
Newsgroups: comp.lang.ada
Date: 1999-01-08T00:00:00+00:00
List-Id: <comp.lang.ada>


Paul Whittington wrote in message <3695BCBC.4B77C8E9@grep.net>...
>Try adding the line
>
>device=%SystemRoot%\system32\ansi.sys
>
>to the file
>
>c:\winnt\system32\config.nt
>
>
>"Russell E. Hixon" wrote:
>>
>> I am using Feldman's book - Ada 95 Problem Solving and Program Design in
an
>> introductory Ada 95 course.  In the book, Feldman includes a package
>> (Screen) which utilizes ansi.sys.  I have not found a way to get this to
>> work in a Windows NT environment.  Any suggestions?
>>
This advice regarding ANSI.SYS on NT is only useful for MS-DOS applications,
which gnat programs compiled under NT are not.  The gnat examples are NT
console applications, and it is possible to write NT GUI applications with
gnat, as well.

The quickest solution is to write a replacement body for Feldman's screen
package to call the subprograms in Jerry Van Dyke's NT_Console package
(8KB Zip) available at http://stad.dsl.nl/~jvandyk/nt_con02.zip

Such a body rewrite might look like:

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

  procedure Beep is
  begin
    Nt_Console.Bleep;
  end Beep;

  procedure ClearScreen is
  begin
     Nt_Console.Clear_Screen;
  end ClearScreen;

  procedure MoveCursor (To: in Position) is
  begin
   Nt_Console.Goto_XY
     (X => To.Column,
      Y => To.Row);
  end MoveCursor;

end Screen;

Hope this helps.

David C. Hoos, Sr.