Check input character is capital or small using function

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

FUNCTION CHECK$ (A$)
C = ASC(A$)
IF C >= 65 AND C <= 91 THEN
CHECK$ = "UPPERCASE"
ELSEIF C >= 97 AND C <= 122 TCHECK
CHECK$ = "LOWERCASE"
END IF
END FUNCTION

Erase vowel from input string using function

DECLARE FUNCTION DISPC$ (S$)
CLS
INPUT "ENTER ANY STRING"; S$
PRINT " AFTER EARISNG VOWELS = "; DISPC$(S$)
END

FUNCTION DISPC$ (S$)
FOR I = 1 TO LEN(S$)
 B$ = MID$(S$, I, 1)
 C$ = UCASE$(B$)
 IF C$ <> "A" AND C$ <> "E" AND C$ <> "I" AND C$ <> "O" AND C$ <> "U" THEND$ = D$ + B$
 END IF
NEXT I
DISPC$ = D$
END FUNCTION

Display 50,42,35,29,24...10item

DECLARER SUB SERIES()
CLS
CALL SERIES
END

SUB SERIES()
A=50
B=8
FOR I = 1 TO 10
PRINT A
A=A-B
B=B-1
NEXT I
END

Perfect square no using function

DECLARE SUB SQU(N)
CLS
INPUT"ENTER ANY NO";N
CALL SQU(N)
END

SUB SQU(N)
S=SQU(N)
IF S=INT(S)THEN
PRINT"SUPPLIED NO IS PEFECT SQUARE"
ELSE
PRINT"SUPPLIED NO IS NO PERFECT SQUARE"
END IF
END SUB

Prime or composite using sub

DECLARE SUB CHECK()
CLS
INPUT"ENTER ANY NO";N
CALL CHECK(N)
END

SUB CHECK(N)
C=0
FOR I=1 TO N
IF N MOD I=0 THEN C=C+1
NEXT I
IF C=2 THEN
PRINT"PRIME NO"
ELSE
PRINT"COMPOSITE NO"
END IF
END SUB

Positive or negative using sub

DECLARE SUB CHECK(N)
INPUT"ENTER ANY NO";N
CALL CHECK(N)
END

SUB CHECK(N)
IF N>0 THEN
PRINT"THE GIVEN NO IS POSITIVE"
ELSEIF N<0 THEN
PRINT"THE GIVEN NO IS NEGATIVE"
END IF

• END SUB 

Positive negative or neutral using sub

DECLARE  SUB VHECK(N)
CLS
INPUT"ENTER ANY NUMBER";N
CALL CHECK(N)
END

SUB CHECK(N)
IF N>0 THEN
PRINT"THE GIVEN NO IS POSITIVE"
ELSEIF N<0 THEN
PRINT"THE GIVEN NO IS NEGATIVE"
ELSE
PRINT"THE GIVEN NO IS NEUTRAL"
END IF
ENS SUB