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 c:\cxpl\codes;     \intrinsic code declarations
 
proc OctOut(N);    \Output N in octal
int N;
int R;
[R:= N&7;
N:= N>>3;
if N then OctOut(N);
ChOut(0, R+^0);
];
 
int I;
[I:= 0;
repeat  OctOut(I); CrLf(0);
        I:= I+1;
until KeyHit or I=0;
]