27 lines
488 B
Plaintext
27 lines
488 B
Plaintext
sub num_base$(number, base)
|
|
if _base_ > 9 then
|
|
print "base not handled by function"
|
|
sleep 5000
|
|
return ""
|
|
end if
|
|
|
|
while number <> 0
|
|
n = mod(number, base)
|
|
ans$ = str$(n) + ans$
|
|
number = int(number / base)
|
|
wend
|
|
|
|
if ans$ = "" then ans$ = "0" : fi
|
|
|
|
return "." + ans$
|
|
end sub
|
|
|
|
for k = 2 to 5
|
|
print "Base = ", k
|
|
for l = 0 to 12
|
|
print left$(num_base$(l, k), 7), " ";
|
|
next l
|
|
print : print
|
|
next k
|
|
end
|