Journey to the JM

My journjey to JM Everyone in the earth have to go for the journey of their life. People don't know that the journey of human never ever ends till existence of Earth I entered Jagat Mandir School to get education for qualification. Nowday's Qualification and Certificate means a lot for those who want to earn money through job. The Qualified Certificate help's a person to get easy a job. I have changed 3 schools so, i have lot's of friends. I got admitted in Jagat Mandir on 2070 whwn i was in grade 4.

#33 TO FIND POSITIVE NEGATIVE OR ZERO

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

#32 TO DISPLAY 1,2,3,5,8 UPTO 13th TERM

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

#31 TO CHECK WHETHER THE GIVEN NO IS PERFECT SQUARE OR NOT

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

#30 TO ERASE VOWELS FROM GIVEN STRING

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

FUNCTION ERA(A$)
FOR I = 1 TO LEN (A$)
B$=MID$(A$,I,1)
C$=UCASE$(B$)
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

#29 TO CHECK 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

#28 TO DISPLAY 50, 42, 35, 29, 24 1O.......TERM

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