There's another bug somewhere either in InOut or Streams. This is an old bug
that surfaced again. Try the following:
VAR i : CARDINAL;
BEGIN
FOR i := 1 TO 123 DO WriteCard(i,1); WriteLn END;
END.
What happens is that you get some funny characters in the display.
– Steve –