#2 TOTAL NO OF VOWELS IN WORD

DECLARE SUB COUNT (N$)
CLS
INPUT"ENTER ANY WORD";N$
CALL COUNT (N$)
END

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