16 lines
285 B
Text
16 lines
285 B
Text
|
input "Begin number:";b
|
||
|
|
input " End number:";e
|
||
|
|
|
||
|
|
for i = b to e
|
||
|
|
print i;" ";toBase$(8,i)
|
||
|
|
next i
|
||
|
|
end
|
||
|
|
|
||
|
|
function toBase$(base,base10)
|
||
|
|
for i = 10 to 1 step -1
|
||
|
|
toBase$ = str$(base10 mod base) +toBase$
|
||
|
|
base10 = int(base10 / base)
|
||
|
|
if base10 < 1 then exit for
|
||
|
|
next i
|
||
|
|
end function
|