Robert Lunn wrote:

>         Peter, consider the following:
>
>                 repeat
>                     if overflow then
>                         begin
>                         hi := hi + 1;
>                         clear overflow
>                         end{if};
>                     lo := timer
>                 until not overflow

Bob,

Thanks for your reply, it is an excellent solution.

Peter.
--
_______________________________________________________________________
Peter Homann   email: peterh@adacel.com.au       Work : +61 3 9596-2991
Adacel Pty Ltd                                   Fax  : +61 3 9596-2960
250 Bay St, Brighton 3186, VIC, AUSTRALIA      Mobile :     014 025-925