MODULE octal;

IMPORT  InOut;

VAR     num             : CARDINAL;

BEGIN
  num := 0;
  REPEAT
    InOut.WriteOct (num, 12);           InOut.WriteLn;
    INC (num)
  UNTIL num = 0
END octal.