Display 1,2,3,5,8..13th term.(SUB)

DECLARE SUB SERIES ( )

CLS

CALL SERIES

END

SUB SERIES

A = 1

B = 2

FOR I = 1 TO 13

PRINT A;

C = A+B

A = B

B = C

NEXT I

END SUB

Perfect square or not.(FUNCTION)

DECLARE FUNCTION PERFECT (S)
CLS
INPUT "ENTER ANY NUMBER"; N
S = SQR(N)
PR = PERFECT (S)
IF PR = S THEN
PRINT "PERFECT SQUARE"
ELSE
PRINT "NOT PERFECT SQUARE"
END IF
END

FUNCTION PERFECT (S)
PERFECT = INT (S)
END FUNCTION

WAP to find Positive, negative or neutral.(SUB)

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

SUB CHECK(N)
IF N>0  THEN
PRINT"NUMBER IS POSITIVE"
ELSE IF N<0 THEN
PRINT"NUMBER IS NEGATIVE"
ELSE
PRINT"NUMBER IS NEUTRAL"
END IF
END SUB

Erase vowel from input string.(FUNCTION)

DECLARE FUNCTION ERA(A$)
CLS
INPUT"ENTER ANY STRING";A$
PRINT"STRING WITHOUT VOWELS =";ERA(A$)
END

FUNCTION ERA(A$)
B$=UCASE$(A$)
FOR I = 1 TO 10
C$=MID$(B$,I,1)
IF C$<>"A" AND C$<>'E" AND C$<>"I" AND C$<>"O" AND C$<>"U" THEN D$=D$+C$
END IF
NEXT I
ERA=D$
END FUNCTION

Check input character is capital or small.(FUNCTION)

DECLARE FUNCTION CHECK$(A$)

CLS

INPUT"ENTER ANY CHARACTER";A$

PRINT CHECK$(C$)

END

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

Display 50,42,35,29,24..10th term.(SUB)

DECLARE SUB SERIES()

CLS

CALL SERIES

END

SUB SERIES()

A=40

B=2

FOR I = 1 TO 10

PRINT A

A=A-B

B=B-1

NEXT I

END SUB

Palindrome word.(Function)

DECLARE FUNCTION REV$ (S$)
CLS
INPUT "ENTER ANY STRING"; S$
PRINT "PALINDROME WORD IS ";REV$(S$)
END

FUNCTION REV$ (S$)
FOR I = LEN(S$) TO 1 STEP -1
B$ = MID$(S$, I, 1)
W$ = W$ + B$
NEXT I
REV$ = W$
END FUNCTION