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.


window 1, @"Count in Octal"
 
defstr word
dim as short i
text ,,,,, 50
 
print @"dec",@"oct"
for i = 0 to 25
  print i,oct(i)
next
 
HandleEvents