Check input character is capital or small

DECLARE FUNCTION CHECK$(A$)
CLS
INPUT"ENTER ANY CHARACTER";A$
PRINT"THE GIVEN CHARACTER IS";CHECK$(A$)
END

FUNCTION CHECK$(A$)
C=ASC(A$)
IF C>=65 AND C<=90 THEN
CHECK$="CAPITAL"
ELSEIF C>=97 AND C<=122 THEN
CHECK$="SMALL"
END IF
END FUNCTION