Q BASIC PROGRAM TO PRINT ONLY VOWELS FROM A GIVEN WORD. SUB

DECLARE  SUB DISP(N$)
CLS
INPUT "ENTER ANY STRING";N$
CALL DISP(N$)
END

SUB DISP(N$)
FOR I = 1 TO LEN(N$)
B$=MID$(N$,I,1)
C$=UCASE$(N$)
IF C$="A"OR C$="E" OR C$="I" OR C$="O" OR C$="U" THEN
PRINT B$
END IF
NEXT I
END SUB