Перевод числа из шестнадцатеричной системы счисления в десятичную— QBasic(Бейсик)

INPUT n$
FOR i = LEN(n$) TO 1 STEP -1
    r = ASC(MID$(n$, i, 1))
    IF r > 57 THEN r = r - 7
    r = r - 48
    s = s + r * 16 ^ k
    k = k + 1
NEXT
PRINT s