5.WAP TO INPUT ANY STRING AND DISPLAY ONLY VOWELS...

WAP to input any string and
display only vowels.
CLS
INPUT "ENTER ANY STRING"; S$
FOR I = 1 TO LEN(S$)
B$ = MID$(S$, I, 1)
C$ = UCASE$(B$)
IF C$ = "A" OR C$ = "E" OR C$ = "I" OR C$
= "O" OR C$ = "U" THEN
PRINT B$
END IF
NEXT I
END


USING SUB PROCEDURE

DECLARE SUB DISPV (S$)
CLS
INPUT "ENTER ANY STRING"; S$
CALL DISPV(S$)
END
SUB DISPV(S$)
FOR I = 1 TO LEN(S$)
B$ = MID$(S$, I, 1)
C$ = UCASE$(B$)
IF C$ = "A" OR C$ = "E" OR C$ = "I" OR C$
= "O" OR C$ = "U" THEN
PRINT B$
END IF
NEXT I
END SUB


USING FUNCTION PROCEDURE

DECLARE FUNCTION DISPV (S$)
CLS
INPUT "ENTER ANY STRING"; S$
VC = DISPV(S$)
END
FUNCTION DISPV(S$)
FOR I = 1 TO LEN(S$)
B$ = MID$(S$, I, 1)
C$ = UCASE$(B$)
IF C$ = "A" OR C$ = "E" OR C$ = "I" OR C$
= "O" OR C$ = "U" THEN
PRINT B$
END IF
NEXT I
END FUNCTION