Q BASIC PROGRAM:CAPITAL OR SMALL

Q BASIC PROGRAM TO CHECK INPUT CHARACTER IS CAPITAL OR SMALL. FUNCTION

DECLARE FUNCTION CHECK$(N$)
CLS
INPUT "ENTER ANY STRING";N$
IF C$=N$ THEN
PRINT "CAPITAL CHARACTER"
ELSE
PRINT "SMALL CHARACTER"
END

FUNCTION CHECK$(N$)
FOR I=1 TO LEN(N$)
B$=MID$(N$,I,1)
C$=UCASE$(B$)
NEXT I
END FUNCTION