Be a human

DECLARE SUB CHECH(N) CLS INPUT"ENTER ANY NUMBER";N CALL SERIES(N) END SUB CHECK(N) IF N>0 THEN PRINT"POSITIVE NO." ELSEIF N<0 THEN PRINT"NEGATIVE NO." ELSE PRINT"NEUTRAL NUMBER" END IF END 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

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

DECLARE FUNCTION ERASE (N$) CLS INPUT"ENTER ANY STRING";N$ PRINT"STRING WITHOUT VOWELS=";ERASE(N$) END FUNCTION ERASE (N$) FOR I = 1 TO LEN (N$) A$= MID$(N$,I,1) B$=UCASE$(A$) IF B$<>"A" AND B$<>"E" AND B$<>"I" AND B$<>"O" AND B$<>"U" THEN C$=C$+B$ NEXT I ERASE=D$ END FUNCTION

DECLARE FUNCTION CHECK$(A$) CLS INPUT"ENTER ANY CHARACTER";A$ PRINT"THE GIVEN CHARACTER IS";CHECK$(A$) END FUNCTION CHECK$(A$) C=ASC(A$) IF C>=65 AND C<=90 THEN CHECK$="CAPITAL" ELSEIF C>=97 AND C<=122 THEN CHECK$="SMALL" END IF END FUNCTION

DECLARE 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 SUB

DECLARE FUNCTION REV$(A$) CLS INPUT"ENTER ANY STRING"A$ P$=A$ IF P$=REV$(A$) THEN PRINT"THE GIVEN WORD IS PALINDROME" ELSE PRINT"THE GIVEN WORD IS NOT PALINDROME "; END IF END FUNCTION REV$(A$) FOR I= LEN (A$) TO 1 STEP-1 B$= MID$(A$,I,1) C$=C$+B$ NEXT I REV$=C$ END FUNCTION

DECLARE SUB CHECK(N) CLS INPUT"ENTER ANY NUMBER";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"THE INPUT NO. IS PRIME" ELSE PRINT"THE INPUT NO. IS COMPOSITE" END IF END SUB

DECLARE FUNCTION FACTORIAL(N) CLS INPUT"ENTER ANY NUMBER";N PRINT"THE FACTORIAL OF GIVEN NO. IS=";FACTORIAL(N) END FUNCTION FACTORIAL(N) F=1 FOR I= 1 TON F=F*I NEXT I FACTORIAL=F END SUB

DECLARE SUB CHECK (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 NUMBER IS NEGATIVE" END IF END SUB

DECLARE SUB SERIES( ) CLS CALL SERIES END SUB SERIES( ) FOR I= 9 TO 1 STEP -2 PRINT I NEXT I END SUB

DECLARE FUNCTION DIS(A,T,U) CLS INPUT"ENTER ACCELERATION";A INPUT"ENTER TIME";T INPUT"ENTER INITIAL VELOCITY";U PRINT"DISTANCE TRAVELLED BY A BODY=";DIS(A,T,U) END FUNCTION DIS(A,T,U) D= U*T+1/2*A*t^2 DIS=D END FUNCTION

DECLARE SUB DISPLAY(N$) CLS INPUT"ENTER ANY WORD";N$ CALL DISPLAY(N$) END SUB DISPLAY(N$) FOR I= 1 TO LEN (N$) B$= MID$(N$,I,1) C$=UCASE$(B$) IF C$="A" OR C$="E" OR C$="I" OR C$="O" OR C$=U" THEN PRINTC$ NEXT I END SUB

DECLARE FUNCTION VOL(L,B,H) CLS INPUT"ENTER LENGTH";L INPUT"ENTER  BREADTH";B INPUT"ENTER HEIGHT";H PRINT"VOLUME OF BOX=";VOL(L,B,H) END FUNCTION VOL(L,B,H) V=L*B*H VOL=V END FUNCTION

DECLARE SUB CHECK (N) CLS INPUT"ENTER ANY NUMBER"N CALL CHECK(N) END SUB CHECK(N) IF N MOD 13=0 THEN PRINT"THE GIVEN NO. IS DIVISIBLE BY 13" ELSE PRINT"THE GIVEN NO. IS NOT DIVISIBLE BY 13" END IF END SUB

DECLARE SUB CIR(R) CLS INPUT"ENTER RADIUS";R CALL CIR(R) END SUB CIR(R) C=2*22/7*R PRINT"CIRCUMFERENCE OF A CIRCLE=";C END

DECLARE FUNCTION AREA(L,B,H) CLS INPUT"ENTER LENGTH";L INPUT"ENTER BREADTH";B INPUT"ENTER HEIGHT";H PRINT"AREA OF BOX=";AREA (L,B,H) END FUNCTION AREA(L,B,H) A=2*(L*B+L*H+B*H) AREA=A END FUNCTION

DECLARE SUB GREAT(A,B,C) CLS INPUT"ENTER FIRST NUMBER";A INPUT"ENTER SECOND NUMBER";B INPUT"ENTER THIRD NUMBER";C CALL GREAT(A,B,C) END SUB GREAT(A,B,C) IF A>B AND A>C THEN PRINT"THE GREATEST NUMBER IS";A ELSEIF B>A AND B>C THEN PRINT"THE GREATEST NUMBER IS ";B ELSE PRINT"THE GREATEST NUMBER IS";C END IF END SUB

DECLARE SUB SERIES( ) CLS CALL SERIES END SUB SERIES( ) A=1 B=1 FOR I= 1 TO 5 PRINT A PRINT B A=A+B B=B+A NEXT I END SUB

DECLARE SUB SERIES( ) CLS CALL SERIES( ) END SUB SERIES( ) FOR I= 1 TO 5 PRINT I NEXT I END SUB

DECLARE FUNCTION INTEREST(P,T,R) CLS INPUT"ENTER PRINCIPAL";P INPUT"ENTER TIME";T INPUT"ENTER HEIGHT";H PRINT"SIMPLE INTEREST=";INTEREST(P,T,R) END FUNCTION INTEREST(P,T,R) SI= P*T*R/100 SIMPLE INTEREST=SI END FUNCTION

DECLARE FUNCTION CONVERT(C) CLS INPUT"ENTER TEMPERATURE IN CELSIUS";C PRINT"TEMPERATURE IN FAHRENHEIT=";CONVERT(C) END FUNCTION CONVERT(C) F=C*9/5+32 CONVERT=F END FUNCTION

DECLARE SUB SUM(N) CLS INPUT"ENTER ANY NUMBER";N CALL SUM(N) END SUB SUM (N) S=0 WHILE N < > 0 R= N MOD 10 S= S+R N=N\10 WEND PRINT"SUM OF DIGITS=";S END SUB

DECLARE FUNCTION COUNT(N$) CLS INPUT"ENTER STRING";N$ PRINT"TOTAL NO. OF CONSONANTS =";COUNT(N$) END FUNCTION COUNT(N$) FOR I= 1 TO LEN (N$) B$= MID $(N$,I,1) C$=UCASE$(B$) IF C$< >"A" ORC$< >"E" OR C$< >"I" OR C$< >"O" OR C$< >"U" THEN C=C+1 NEXT I COUNT=C END FUNCTION

DECLARE SUB SERIES( ) CLS CALL SERIES END SUB SERIES( ) FOR I= 1 TO 10 STEP 2 PRINT I NEXT I END SUB

DECLARE FUNCTION VOL(R,H) CLS INPUT"ENTER RADIUS";R INPUT"ENTER HEIGHT";H PRINT"VOLUME OF CYLINDER=";VOL(R,H) END FUNCTION VOL(R,H) V=22/7*R^*H VOL = V END FUNCTION

DELARE FUNCTION AREA(B,H) CLS INPUT"ENTER BREADTH";B INPUT"ENTER HEIGHT";H PRINT"AREA OF TRAINGLE=";AREA(B,H) END FUNCTION AREA(B,H) A=1/2*B*H AREA= A END FUNCTION

DECLARE SUB REV(N$) CLS INPUT"ENTER  STRING";N$ CALL REV(N$) END SUB REV(N$) FOR I= LEN(N$) TO 1 STEP -1 B$= MID$(N$,I,1) C$=C$+B$ NEXT I PRINT:REVERSE OF STRING=";C$ END SUB

DECLARE FUNCTION COUNT(N$) CLS INPUT"ENTER ANY  WORD";N$ PRINT"TATAL NO. OF VOWELS=";COUNT(N$) END FUNCTION COUNT(N$) FOR I= 1 TO LEN (N$) B$= MID$(A$,I,1) C$= UCASE$(B$) IF C$="A" OR C$="E" OR C$="I" OR C="O" OR C$="U" THEN C=C+1 NEXT I COUNT=C END FUNCTION

DECLARE SUB AREA(L,B,H) CLS INPUT"ENTER LENGTH";L INPUT"ENTER BREADTH";B INPUT"ENTER HEIGHT";H CALL AREA(L,B,H) END SUB AREA(L,B,H) A=2*H*(L+B) PRINT"AREA OF 4 WALLS=";A END SUB

DECLARE FUNCTION COUNT(A$) CLS INPUT"ENTER A SENTENCE";A$ PRINT"TOTAL NO. OF WORDS=";COUNTA$ END FUNCTION COUNT(A$) C = 1 FOR I= 1 TO LEN (A$) B$ =MID$(A$,I,1) C$=UCASE$(B$) IF C$=" " THEN C=C+1 NEXT I COUNT=C END FUNCTION

DECLARE SUB AREA(R) CLS INPUT"ENTER RADIUS";R CALL AREA(R) END SUB AREA(R) A=22/7*R^2 PRINT"AREA OF CIRCLE=";A END SUB

DECLARE SUB COUNT(A$) CLS INPUT"ENTER ANY WORD";(A$) CALL COUNT(A$) END SUB COUNT(A$) C = 0 FOR I = 1 TO LEN (A$) B$ = MID$(A$,I,1) C$ = UCASE$(B$) IF C$="A" OR C$="E" OR C$="I" OR C$="O" OR C$="U" THEN C =C+1 NEXT I PRINT"TOTAL NO. OF VOWELS IN A GIVEN WORD="; C END SUB

Average of three numbers DECLARE FUNCTION AVG(A,B,C) CLS INPUT"ENTER FIRST NUMBER";A INPUT"ENTER SECOND NUMBER";B INPUT"RNTER THIRD NUMBER";C PRINT"AVERAGE OF THREE NUMBERS";AVG(A,B,C) END FUNCTION AVG(A,B,C) AVG = (A+B+C)/3 AVG = AV END FUNCTION