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.


$ include "seed7_05.s7i";
 
const proc: main is func
  local
    var integer: i is 0;
  begin
    repeat
      writeln(i radix 8);
      incr(i);
    until FALSE;
  end func;