Re: [Gm2] Bug Report: counting down woes

[Gaius Mulley]

john o goyo <address@hidden> writes:

> Greetings:
> 
> I seem to be having problems counting downwards.
> The loop in the following code does not stop at
> zero but continues forever.
> 
> 
> MODULE Countdown;
> (**
>   * FOR loop marches down to the bottom of the earth.
>   *
>   * WARNING: CODE CARRIES NO WARRATY! USE AT OWN RISK!
>   *)
> IMPORT StrIO, NumberIO;
> 
> VAR
>      n :CARDINAL;
> BEGIN
>      FOR n := 10 TO 0 BY -1 DO
>          NumberIO.WriteCard(n, 4); StrIO.WriteLn
>      END (*FOR*)
> END Countdown.

Hi John,

thanks for the bug report and test code..

Gaius