[Gm2] Bug Report: counting down woes

[john o goyo]

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.


Sincerely,
john
--