From: Dennis <>
Subject: Help with Ada 95 & screen output & Win XP
Date: Wed, 11 Sep 2002 22:49:46 -0700
Date: 2002-09-11T22:49:46-07:00 [thread overview]
Message-ID: <jv70oucatpbp4hfgubkqlegf3362hqor7k@4ax.com> (raw)
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);
next reply other threads:[~2002-09-12 5:49 UTC|newest]
Thread overview: 2+ messages / expand[flat|nested] mbox.gz Atom feed top
2002-09-12 5:49 Dennis [this message]
2002-09-12 8:59 ` Help with Ada 95 & screen output & Win XP Jerry van Dijk
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox