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