Определить для строки b$, является ли она правильной записью целого в шестнадцатеричной системе счисления - QBasic

Определить для строки b$, является ли она правильной записью целого числа без знака в шестнадцатеричной системе счисления.

Листинг программы

DEFSTR A-Z
CLS
INPUT "Enter stringexpression: "; b
c = "&H" + HEX$(CINT(VAL(b)))
IF c = b THEN PRINT "Yes" ELSE PRINT "No"
END

Объяснение кода листинга программы

В первой строке кода используется функция DEFSTR A-Z, которая определяет диапазон символов от A до Z.
Затем происходит очистка экрана с помощью команды CLS.
В третьей строке кода пользователю предлагается ввести строку в переменную b с помощью команды INPUT Enter stringexpression:; b.
В четвертой строке кода происходит преобразование значения переменной b в шестнадцатеричную систему счисления с помощью функции HEX$(CINT(VAL(b))).
Затем происходит проверка, является ли полученное значение переменной c равным введенной строке b с помощью оператора IF.
Если условие проверки истинно, то выводится сообщение Yes, иначе выводится сообщение No.
Код завершается командой END.