Перевести дробные числа из одной системы исчисления в другую

CLS
DEFDBL A-Z
u$ = "0123456789ABCDEF"
INPUT "vvedite chislo"; a$
INPUT "vvedite q"; q
INPUT "vvedite p"; p
k = INSTR(a$, ".")
r = (LEN(a$) - k) * (k <> 0)
a$ = MID$(a$, 1, k - 1) + MID$(a$, k + 1, LEN(a$) - k)
FOR i = LEN(a$) TO 1 STEP -1
    j = INSTR(u$, UCASE$(MID$(a$, i, 1))) - 1
    IF r >= 0 THEN
        z = z + j * q ^ r
    ELSE
        d = d + j * q ^ r
    END IF
    r = r + 1
NEXT
DO
    c$ = MID$(u$, (z MOD p) + 1, 1) + c$
    z = z \ p
LOOP UNTIL z = 0
DO
    l = l + 1
    d = d * p
    f$ = f$ + MID$(u$, INT(d) + 1, 1)
    strd$ = STR$(d)
    d = VAL(RIGHT$(strd$, LEN(strd$) - INSTR(strd$, ".") + 1))
LOOP UNTIL INSTR(strd$, ".") = 0 OR l = 20
PRINT STRING$(80, 196); c$ + "." + f$

DEFDBL A-Z
u$ = "0123456789ABCDEF"
INPUT "enter number: ", a
INPUT "enter p: ", p
z = INT(a)
DO
    c$ = MID$(u$, (z MOD p) + 1, 1) + c$
    z = z \ p
LOOP WHILE z
d = a - INT(a)
DO
    l = l + 1
    d = d * p
    f$ = f$ + MID$(u$, INT(d) + 1, 1)
    d = d - INT(d)
LOOP UNTIL d = 0 OR l < 20
PRINT STRING$(80, 196); c$ + "." + f$