Дано натуральное число, определить сколько раз в нем встречается максимальная цифра. - QBasic

CLS
INPUT "vvedite chislo"; b
DO
    q = b MOD 10
    IF q > max THEN max = q: k = 0
    IF q = max THEN k = k + 1
    b = b \ 10
LOOP UNTIL b = 0
PRINT k