Task

Produce a sequential count in octal,   starting at zero,   and using an increment of a one for each consecutive number.

Each number should appear on a single line,   and the program should count until terminated,   or until the maximum value of the numeric type in use is reached.



Related task

   Integer sequence   is a similar task without the use of octal numbers.


 
MODULE CountInOctal;
IMPORT
  NPCT:Tools,
  Out := NPCT:Console;
VAR
  i: INTEGER;
 
BEGIN
  FOR i := 0 TO MAX(INTEGER) DO;
    Out.String(Tools.IntToOct(i));Out.Ln
  END
END CountInOctal.
 