Help with Ada 95 & screen output & Win XP

Help with Ada 95 & screen output & Win XP

[Dennis]

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);

Re: Help with Ada 95 & screen output & Win XP

[Jerry van Dijk]

Dennis <> writes:

> 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.

The screen package relies on your screen supporting ANSI character codes.
Windows does, NT/W2K/XPro don't. Use the replacement Screen package from
my homepage. This works.

-- 
--  Jerry van Dijk   | email: jvandyk@attglobal.net
--  Leiden, Holland  | web:   users.ncrvnet.nl/gmvdijk