Print total no of vowels in a given word. (Sub)

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$ = “O” OR C$ = “U” THEN C = C + 1

NEXT I

PRINT “THE TOTAL NO. OF VOWELS IS “;C

END SUB