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.


input "Begin number:";b
input "  End number:";e
 
for i = b to e
  print i;" ";toBase$(8,i)
next i 
end
 
function toBase$(base,base10)
for i = 10 to 1 step -1
  toBase$   = str$(base10 mod base) +toBase$
  base10    = int(base10 / base)
  if base10 < 1 then exit for
next i
end function