#11 INPUT STRING AND COUNT TOTAL NUMBER OF CONSONANT

DECLARE FUNCTION COUNT (N$)
CLS
INPUT "ENTER ANY WORD ";N$
PRINT "TOTAL NO OF CONSONENT =";COUNT (N$)
END

FUNCTION COUNT (N$)
C=0
FOR I = 1 TO LEN (N$)
B$ =MID$ (N$,I,1)
C$ =UCASE$ (B$)
IF C$ < >"A" AND C$ < >"E" AND C$ < >"I" AND C$ < >"O" AND C$ < >"O" C$ < >"U" THEN C =  C + 1
NEXT I
PRINT "TOTAL NO OF CONSONENT";C
END SUB