Перевод числа из 16-сс в 10-сс (QuickBASIC)

[ekzobyte]

Скажите пожалуйста, что не так в программе, и как сделать, чтобы она работала с буквами при вводе числа в 16-сс

CLS
PRINT "Программа определения основания системы"
PRINT 
INPUT "Введите Ваши ФИ"; FI$
PRINT 
a1: PRINT "Для чисел использовать формат целых неотрицательных чисел" 
PRINT
INPUT " Введи 16-СС число и нажмите Enter"; DV 
IF DV > FFFFFFFF THEN GOTO a1  
R7 = DV \ 10 ^ 7
RO7 = DV  MOD 10 ^ 7  
R6 = RO7 \ 10 ^ 6  
RO6 = RO7 MOD 10 ^ 6 
R5 = RO6 \ 10 ^ 5
RO5 = RO6 MOD 10 ^ 5 
R4 = RO5 \ 10 ^ 4
RO4 = RO5 MOD 10 ^ 4
R3 = RO4 \ 10 ^ 3
RO3 = RO4 MOD 10 ^ 3
R2 = RO3 \ 10 ^ 2
RO2 = RO3 MOD 10 ^ 2
R1 = RO2 \ 10 ^ 1 
RO1 = RO2 MOD 10 ^ 1 
DEC = R7 * 16 ^ 7 + R6 * 16 ^ 6 + R5 * 16 ^ 5 + R4 * 16 ^ 4 + R3 * 16 ^ 3 + R2 * 16 ^ 2 + R1 * 16 ^ 1 + RO1 * 16 ^ 0
PRINT "Десятичное число"; DEC
FOR N = 2 TO 16 
D = N^5 + N^4 + N^3 + N^2 + N^1 + N^0
IF D = DEC THEN  PRINT "Основание равно"; N: GOTO m1 
NEXT N
PRINT "Решение не найдено"
m1: INPUT "Для выхода из программы нажмите Enter";I
STOP