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.


 
rem - return p mod q
function mod(p, q = integer) = integer
end = p - q * (p / q)
 
rem - return octal representation of n
function oct$(n = integer) = string
var s = string
s = ""
while n > 0 do
  begin
     s = chr(mod(n,8) + '0') + s
     n = n / 8
  end
end = s
 
rem - count in octal until overflow
var i = integer
i = 1
while i > 0 do
  begin
    print oct$(i)
    i = i + 1
  end
 
end
 