16 lines
206 B
Text
16 lines
206 B
Text
func$ oct v .
|
|
if v <= 7 : return v
|
|
return oct (v div 8) & v mod 8
|
|
.
|
|
for i = 0 to 10
|
|
print oct i
|
|
.
|
|
print "."
|
|
print "."
|
|
max = pow 2 53
|
|
i = max - 10
|
|
repeat
|
|
print oct i
|
|
until i = max
|
|
i += 1
|
|
.
|