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.1 required=5.0 tests=BAYES_40,INVALID_DATE
	autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,b6f6d8ca2974313b
X-Google-Attributes: gid103376,public
X-Google-ArrivalTime: 1994-10-26 01:52:35 PST
Path: 
 nntp.gmd.de!xlink.net!howland.reston.ans.net!europa.eng.gtefsd.com!newsxfer.itd.umich.edu!caen!msuinfo!harbinger.cc.monash.edu.au!aggedor.rmit.EDU.AU!edna.cc.swin.edu.au!edna.cc.swin.edu.au!944166
From: 944166@edna.cc.swin.edu.au (Jimmy Fang)
Newsgroups: comp.lang.ada
Subject: Re: Easy ADA question from a hapless Newbie
Date: 26 Oct 1994 03:09:36 GMT
Organization: Swinburne University of Technology
Message-ID: <38kh9gINNm67@edna.cc.swin.edu.au>
References: <38jl8h$rqb@columbia.acc.brad.ac.uk>
NNTP-Posting-Host: edna.cc.swin.edu.au
X-Newsreader: TIN [version 1.2 PL2]
Date: 1994-10-26T03:09:36+00:00
List-Id: <comp.lang.ada>

AJ JONES (A.J.Jones@bradford.ac.uk) wrote:

: Can anyone help me ? Im new to ADA, used to PASCAL.  Is there a way of
: ending a loop such as a while loop, etc, by jumping to the end of that
: loop.  There used to be a command in Pascal that would let you do this.
: I think it was something like stop. I know that halt stopped the entire
: program.

Try the "exit" statement.

loop
  sequence of statements 1;
     exit when <boolean condition>
  sequence of statements 2;
end loop;

The exit statment will cause the program execution to continue
at the next statement outside of the loop.  The second block of
statements will not be executed once the boolean condition is
met.


- Jim
---------------------------------------------------------------------
Undergradual Student	Swinburne University of Technology 
			Melbourne, Australia