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

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