QBASIC PROGRAM to display count frequency of each letter in word as letter given in word.

QBASIC PROGRAM to display count frequency of each letter in word  as letter given in word. 
 For example if my input word is:bbinood then output should be :b2i1n1o2d1
CLS
INPUT "ENTER A WORD"; W$
W$ = LCASE$(W$)
T$ = ""
C = 0
DO
    D$ = MID$(W$, 1, 1)
    FOR I = 1 TO LEN(W$)
        IF D$ = MID$(W$, I, 1) THEN
            C = C + 1
        ELSE
            T$ = T$ + MID$(W$, I, 1)
        END IF
    NEXT I
    PRINT D$; "="; C
    C = 0
    W$ = T$
    T$ = ""
LOOP UNTIL LEN(W$) = 0
END


Solved By: Sarika Shrestha