To check the given letter is uppercase or lowercase. (Qbasic Code)
- CLS
INPUT "Enter a character"; a$
ch$ = UCASE$(a$)
IF a$ = ch$ THEN
PRINT "It is uppercase character";
ELSE
PRINT "It is lowercase character";
END IF
END
