Count in octal: Difference between revisions
→{{header|EDSAC order code}}
Line 1,311:
WriteLn(DecToOct(i));
end.</syntaxhighlight>
=={{header|EasyLang}}==
<syntaxhighlight lang="easylang">
proc oct v . r$ .
r$ = ""
while v > 0
r$ = v mod 8 & r$
v = v div 8
.
if r$ = ""
r$ = 0
.
.
for i = 0 to 10
call oct i o$
print o$
.
print "."
print "."
max = pow 2 53
i = max - 10
repeat
call oct i o$
print o$
until i = max
i += 1
.
</syntaxhighlight>
=={{header|EDSAC order code}}==
| |||