Count in octal: Difference between revisions

=={{header|PL/I}}==

<lang PL/I>

/* Do the actual counting in octal. */

count: procedure options (main);

declare v(5) fixed(1) static initial ((5)0);

declare (i, k) fixed;

do k = 1 to 999;

call inc;

put skip edit ( (v(i) do i = 1 to 5) ) (f(1));

end;

inc: proc;

declare (carry, i) fixed binary;

carry = 1;

do i = 5 to 1 by -1;

v(i) = v(i) + carry;

if v(i) > 7 then

do; v(i) = v(i) - 8; if i = 1 then stop; carry = 1; end;

else

carry = 0;

end;

end inc;

end count;

</lang>