#6 COUNT TOTAL NO OF VOWEL IN WORD

DECLARE FUNCTION COUNT (N$)
CLS
INPUT "ENTER ANY NUMBER";N$
PRINT "TOTAL  NO OF VOWELS IN WORD";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