Wap to check the character is capital or small

Wap to check the character is capital or small

DECLARE FUNCTION CHECK$(A$)

CLS

INPUT"ENTER ANY CHARACTER";A$

PRINT"THE ENTERED CHARATER IS"; CHECK$(C$)

END

FUNCTION CHECK$(A$)

C = ASC(A$)

IF C>=65 AND C<=91 THEN

CHECK$="UPPER CASE"

ELSEIF C>=97 AND C<=122 THEN

CHECK$="LOWER CASE"

ELSE 

CHTR$="NOT A CHARACTER"

END IF

END FUNCTION