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,b25b20d0724a5ccc
X-Google-Attributes: gid103376,public
From: Marin David Condic <mcondic.nospam@acm.org>
Subject: Re: Ms-dos windows
Date: 2000/11/12
Message-ID: <3A0EBA81.240F986F@acm.org>#1/1
X-Deja-AN: 692724328
Content-Transfer-Encoding: 7bit
References: <8uk560$c5c$1@reader1.fr.uu.net>
To: Marc <marc.lecoq@net-clic.net>
X-Accept-Language: en
X-Server-Date: 12 Nov 2000 15:43:38 GMT
Content-Type: text/plain; charset=us-ascii
Organization: Quadrus Corporation
Mime-Version: 1.0
Newsgroups: comp.lang.ada
Date: 2000-11-12T15:43:38+00:00
List-Id: <comp.lang.ada>

It is a little unclear about what you are trying to do. Are you using GNAT and
AdaGide? You might try to make a small "Hello World" application as an
illustration of what you want to do and see if you can get the I/O to work from
there. Something like:

with Ada.Text_IO ;
with Ada.Integer_Text_IO ;
procedure Hello_World is
    Int    : Integer ;
begin
    Ada.Text_IO.Put_Line ("Hello World!") ;
    Ada.Text_IO.Put ("Enter An Integer: ") ;
    Ada.Integer_Text_IO.Get (Int) ;
    Ada.Text_IO.Put_Line ("Your Number + 10 Is: " & Integer'Image (Int + 10)) ;
end Hello_World ;

Try that and see if it works.

MDC


Marc wrote:

> Hello,
> I'm new in ada,
> when I execute my program from ada environment,(Execute option) a dos window
> appears but nothing append inside. Why???
> I use Put and Get statements.
> Thank for your answer
> (Ada 3.12 for windows)

--
======================================================================
Marin David Condic - Quadrus Corporation - http://www.quadruscorp.com/
Send Replies To: m c o n d i c @ q u a d r u s c o r p . c o m
Visit my web site at:  http://www.mcondic.com/

    "Giving money and power to Government is like giving whiskey
    and car keys to teenage boys."

        --   P. J. O'Rourke
======================================================================