15 lines
285 B
Text
15 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
|