* Help with Ada 95 & screen output & Win XP
@ 2002-09-12 5:49 Dennis
2002-09-12 8:59 ` Jerry van Dijk
0 siblings, 1 reply; 2+ messages in thread
From: Dennis @ 2002-09-12 5:49 UTC (permalink / 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);
^ permalink raw reply [flat|nested] 2+ messages in thread
* Re: Help with Ada 95 & screen output & Win XP
2002-09-12 5:49 Help with Ada 95 & screen output & Win XP Dennis
@ 2002-09-12 8:59 ` Jerry van Dijk
0 siblings, 0 replies; 2+ messages in thread
From: Jerry van Dijk @ 2002-09-12 8:59 UTC (permalink / raw)
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
^ permalink raw reply [flat|nested] 2+ messages in thread
end of thread, other threads:[~2002-09-12 8:59 UTC | newest]
Thread overview: 2+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2002-09-12 5:49 Help with Ada 95 & screen output & Win XP Dennis
2002-09-12 8:59 ` Jerry van Dijk
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox