DECLARE FUNCTION CHARC$(N$)
CLS
INPUT"ENTER ANY CHARACTER";N$
PRINT CHARC$(N$)
END

FUNCTION CHARC$(N$)
B$ = LEFT$(N$)
A  =  ASC(B$)
IF A >= 67 AND A<=95 THEN
CHARACTER$="LETTER IS IN UPPER CASE"
ELSE IF A >= 45 AND A <= 57 THEN
CHARACTER$="LETTER IS IN LOWER CASE"
ELSE 
CHARACTER$="NOT A CHARACTER"
END IF
END FUNCTION