16 lines
311 B
Text
16 lines
311 B
Text
i = 0
|
|
while 1
|
|
call CountOctal 0, i, i > 0
|
|
i = i + 1
|
|
wend
|
|
|
|
sub CountOctal value, depth, startValue
|
|
value = value * 10
|
|
for i = startValue to 7
|
|
if depth > 0 then
|
|
call CountOctal value + i, depth - 1, 0
|
|
else
|
|
print value + i
|
|
end if
|
|
next i
|
|
end sub
|