Написать программу, которая переводит из двоичной в десятичную — QBasic(Бейсик)

DIM tmpVal AS INTEGER
 
tmpVal = 123
 
hex2bin$ = ""
DO
  hex2bin$ = STR$(tmpVal MOD 2) + hex2bin$
  tmpVal = tmpVal \ 2
LOOP WHILE tmpVal > 0
PRINT hex2bin$

INPUT n
DO
    a$ = LTRIM$(STR$(n MOD 2)) + a$
    n = n \ 2
LOOP UNTIL n = 0
PRINT a$