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.9 required=5.0 tests=BAYES_00 autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,eb2e0c5efa8c83d2
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 2002-03-18 10:03:32 PST
Path: 
 archiver1.google.com!news1.google.com!newsfeed.stanford.edu!canoe.uoregon.edu!logbridge.uoregon.edu!news.net.uni-c.dk!not-for-mail
From: Jacob Sparre Andersen <sparre@nbi.dk>
Newsgroups: comp.lang.ada
Subject: Re: A very strange problem indeed...
Date: Mon, 18 Mar 2002 19:03:29 +0100
Organization: Centre for Chaos and Turbulence Studies, Niels Bohr Institute
Message-ID: <3C962BF1.A5F97200@nbi.dk>
References: <3c95f466$0$6552@motown.iinet.net.au>
NNTP-Posting-Host: alf.nbi.dk
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
X-Trace: news.net.uni-c.dk 1016474611 20208 130.225.212.55 (18 Mar 2002
 18:03:31 GMT)
X-Complaints-To: usenet@news.net.uni-c.dk
NNTP-Posting-Date: Mon, 18 Mar 2002 18:03:31 +0000 (UTC)
X-Mailer: Mozilla 4.78 [en] (X11; U; OSF1 V4.0 alpha)
X-Accept-Language: fo,da,no,sv,is,de,fr,en
Xref: archiver1.google.com comp.lang.ada:21418
Date: 2002-03-18T19:03:29+01:00
List-Id: <comp.lang.ada>

Karl-Johan Karlsson wrote:

>    Put("size you want: ");
>    Item_Type_IO.Get(Choice);
>    Put("amount you want: ");
>    Get(Item_Amount);

Are you certain that you are not missing a:

     Skip_Line;

at this point?  You might want to consider what happens to
the characters (including a possible line break) entered
after the amount.  Have you read the description of the
"Get" procedure properly?

> > Also, I am using Ada98, not Ada83 under Win98.

There is, as far as I know, no such thing as "Ada98".  You
are most likely using either Ada 2001 (this name is seldom
used in practice, since the 2001 revisions to the language
reference manual were relatively minor) or Ada95.

Jacob
-- 
"There is nothing worse than having only one drunk head."