Re: Puzzling small piece of code - exception block essentially used as goto

[tmoran@acm.org]

> What I would like clarification on is when the
> exception block ends, where is control returned to?
    Control isn't "returned" anywhere.  It flows to the next statement
after the block.  In this case the next statement is:
>   end loop Delta_Beyond_Max_Minutes;

> Also, anyone up for the challenge of rewriting this without the
> exception handler so the rest of us humans can understand what it's
> doing?
Assuming that Hour is the only output and Hour_Delta and
Still_Looping are not used anywhere else,

Set Hour to (approximately) New_Hour.  Specifically, if New_Hour
is sufficiently close to Hour (ie, New_Hour - Hour  fits in the
legal range of Hour_Delta), then set Hour := New_Hour.
Otherwise, step Hour forward by Max_Hour_Delta, or backward
by (Max_Hour_Delta - Relative_Time), as many times as necessary to
make  New_Hour - Hour  fit in that range.

It would be helpful to know the range of Hour_Delta and to have some idea
what Max_Hour_Delta and Relative_Time might be, to figure out just what
the programmer was trying to accomplish.