help with Ada question

[pa.dec.com!nntpd2.cxo.dec.com!shodha!wallace@decwrl.dec.com (Richard Wal]

wallace@shodha (Richard Wallace) writes:
: rwalker@barnacle.micro.umn.edu (robert walker) writes:
: : 
: : If neither an exit nor a goto statement were available for Ada, how
: : might you simulate the action of an exit statement?
: : 
: 
: The following is one of may ways to control loop itteration without the
: exit and goto verbs.  Note that I've only shown monotonicly increasing
: loop control.
: 
: You would have to introduce a guard action on the loop control statement and
: use an if to control skipping statements thus:
: 

It seems I wiped-out the other half of my emacs buffer!  Sorry!  I'll
reconstruct the code fragment again.

code fragment: