Q BASIC PROGRAM:DISPLAY CONSONANT ONLY

Q BASIC PROGRAM TO ERASE VOWELS FROM THE STRING. FUNCTION

DECLARE FUNCTION ERASE(A$)
CLS
INPUT "ENTER ANY STRING";A$
PRINT "STRING WITHOUT VOWELS=" ;ERASE(A$)
END

FUNCTION ERASE(A$)
B$=UCASE$(A)
FOR I = 1 TO LEN(B$)
C$=MID$(B$,I,1)
IF C$<>"A" AND C$<>"E" AND C$<>"I" AND C$<>"O" AND C$<>"U" THEN D$=D$+1
END IF
NEXT I
ERASE = D$
END FUNCTION