6.COUNT TOTAL NO. OF VOWELS IN A WORD.

DECLARE  FUNCTION COUNT(N$)

PRINT “TOTAL NO. OF VOWELS=”;COUNT(N$)

END

FUNCTION COUNT(N$)

C=0

F OR I = 1 TO LEN(N$)

B$=MID$(N$,I,1)

C$=UCASE$(B$)

IF C$= “A” OR C$= “E” OR C$= “I” OR C$= “O” OR C$= “U” THEN C=C+1

NEXT I

COUN T C

END FUNCTION