Найти количество различных цифр данного натурального числа — QBasic(Бейсик)

INPUT "vvedite chislo ", n&
DIM a(10)
DO
    k = k + 1
    t = n& MOD 10
    a(t) = a(t) + 1
    n& = n& \ 10
LOOP UNTIL n& = 0
FOR i = 0 TO 9
    IF a(i) <> 0 THEN kol = kol + 1
NEXT
PRINT "v chisle "; kol; " razlichnyh cifr"