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 octal;
 
IMPORT  InOut;
 
VAR     num             : CARDINAL;
 
BEGIN
  num := 0;
  REPEAT
    InOut.WriteOct (num, 12);           InOut.WriteLn;
    INC (num)
  UNTIL num = 0
END octal.