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: "Russell E. Hixon" <rehixon@cwix.com>
Subject: Re: NT,  ANSI.SYS, and Ada 95
Date: 1999/01/08
Message-ID: <D%ul2.194$9M5.4878@news.cwix.com>#1/1
X-Deja-AN: 430329955
References: <D2gl2.287$eu5.8083@news.cwix.com> <3695BCBC.4B77C8E9@grep.net>
 <774rne$das$1@tsunami.traveller.com>
X-MIMEOLE: Produced By Microsoft MimeOLE V4.72.3155.0
X-Complaints-To: news@cw.net
X-Trace: news.cwix.com 915831907 166.55.80.205 (Fri, 08 Jan 1999 16:45:07 EDT)
NNTP-Posting-Date: Fri, 08 Jan 1999 16:45:07 EDT
Newsgroups: comp.lang.ada
Date: 1999-01-08T00:00:00+00:00
List-Id: <comp.lang.ada>

I had tried adding this line to my config.nt file with no success.  I
downloaded the NT_Console package and it seems to work just great.  Thank
you pointing me in the right direction.

Russell E. Hixon,
Instructor

David C. Hoos, Sr. wrote in message <774rne$das$1@tsunami.traveller.com>...
>
>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.
>
>
>