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