DECLARE FUNCTION COUNT (N$)
CLS
INPUT “ENTER ANY STRING”; N$
PRINT “TOTAL NO. OF CONSONANTS= “; 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$ < >“U” THEN C = C + 1
NEXT I
COUNT = C
END FUNCTION