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.1 required=5.0 tests=BAYES_00,FROM_NO_USER
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,edd226bb4cff9726,start
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2002-09-11 22:49:29 PST
From: Dennis <>
Newsgroups: comp.lang.ada
Subject: Help with Ada 95 & screen output & Win XP
Date: Wed, 11 Sep 2002 22:49:46 -0700
Message-ID: <jv70oucatpbp4hfgubkqlegf3362hqor7k@4ax.com>
X-Newsreader: Forte Agent 1.92/32.572
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
NNTP-Posting-Host: 207.34.146.19
X-Trace: binaries.vphos.net 1031809749 207.34.146.19 (11 Sep 2002 22:49:09
 -0700)
Organization: Axion Internet Services
X-Authenticated-User: 6l7ab1x
Path: 
 archiver1.google.com!news1.google.com!newsfeed.stanford.edu!cyclone.bc.net!newsfeed.bc.tac.net!binaries.vphos.net!not-for-mail
Xref: archiver1.google.com comp.lang.ada:28846
Date: 2002-09-11T22:49:46-07:00
List-Id: <comp.lang.ada>

I hope somebody might help me with a problem that I have With Ada 95,
ver:  gnat-3.14p-nt. When I compile & run a program using straight
text output everything is displayed fine. If I try to do the some with
a program that uses characters to display faces & things the screen
has some funny output. I use Windows XP Pro and I have been compiling
the programs using Gnatmake on the command line. I use the exact same
set-up at school and works fine. I will attach the output screen
results and the code for the program. If anybody could help me I would
it would be greatly appreciated.

Thanks, Dennis  

C:\Work>smiley
?[2J?[7;34fHAVE A NICE DAY!?[9;39f_____?[10;37f/       \?[11;36f/
\?[12;
35f|           |?[13;35f|   O   O   |?[14;36f\    o    /?[15;37f\
\___/ /?[16;38
f\     /?[17;39f-----?[24;1f

------------------------------------------------------------------------------------------------------------------

  --| Draws a "smiley face" in the center of the terminal screen
  --|
  --| Author: Michael B. Feldman, The George Washington University
  --| Last Modified: July 1995
  --|
  ------------------------------------------------------------------

BEGIN -- Smiley

  Screen.Clearscreen;
  Screen.Beep;
  DELAY 0.1;
  Screen.Beep;
  DELAY 0.1;
  Screen.Beep;
  DELAY 0.1;
  Screen.Movecursor (Row => 7, Column => 34);
  Ada.Text_Io.Put (Item =>    "HAVE A NICE DAY!");
  Screen.Movecursor (Row => 9, Column => 39);
  Ada.Text_Io.Put (Item =>     "_____");
  Screen.Movecursor (Row => 10, Column => 37);
  Ada.Text_Io.Put (Item =>   "/       \");
  Screen.Movecursor (Row => 11, Column => 36);
  Ada.Text_Io.Put (Item =>  "/         \");
  Screen.Movecursor (Row => 12, Column => 35);
  Ada.Text_Io.Put (Item => "|           |");
  Screen.Movecursor (Row => 13, Column => 35);
  Ada.Text_Io.Put (Item => "|   O   O   |");
  Screen.Movecursor (Row => 14, Column => 36);
  Ada.Text_Io.Put (Item =>  "\    o    /");
  Screen.Movecursor (Row => 15, Column => 37);
  Ada.Text_Io.Put (Item =>   "\ \___/ /");
  Screen.Movecursor (Row => 16, Column => 38);
  Ada.Text_Io.Put (Item =>    "\     /");
  Screen.Movecursor (Row => 17, Column => 39);
  Ada.Text_Io.Put (Item =>     "-----");
  Screen.Movecursor (Row => 24, Column => 1);