QBASIC PROGRAM TO INPUT STRING AND COUNT TOTAL CONSONANTS (FUNCTION)

DECLARE FUNCTION COUNT(N$)
CLS
INPUT "ENTER ANY STRING";(N$)
PRINT "TOTAL NO  OF CONSONANT"; COUNT(N$)
END

FUNCTION COUNT(N$)
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