To check entered character is vowel or consonant.

Normal Program:
CLS
INPUT "Enter any one character:"; a$
IF a$ = "a" OR a$ = "e" OR a$ = "i" OR a$ = "o" OR a$ = "u" THEN
    PRINT "The entered character is vowel";
ELSE
    PRINT "The entered character is consonant";
END IF
END