print only vowels from a given word(sub)

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

SUB DISP (N$)
FOR I=1 TO LEN(N$)
B$=MID$(N$,I,1)
C$=UCASE (B$)
IF C$<>"A"AND C$<>"E"AND C$<>"I"AND C$<>"O"AND C$<>"U"THEN U$=U+B$
NEXT I PRINT"VOWEL";V$
END SUB