Найти самую большую цифру целого числа в QBasic
Воспользуйся оператором по битового сдвига влево.
знать бы еще, что это такое