I hAtE tWo FaCe PeOpLe ItS sO hArD tO dEcIdE wHiCh FaCe To SlAp FiRsT......

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

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

DECLAFE SUB FACTOR(N) CLS INPUT"ENTER ANY NO";N CALL FACTOR(N) END SUB FACTOR(N) FOR I=1 TO N IF  N MOD I=0 THEN PRINT I NEXT I  END SUB

DECLARE FUNCTION FACT(N) CLS INPUT"ENTER ANY NO";N PRINT"FACTORIAL=":FACT(N) END FUNCTION FACT(N) F=1 FOR I =1 TO N F=F*I NEXT I FACT=F END FUNCTION

DECLARE SUB PAL(N$) CLS INPUT"ENTER ANY WORD";H$ CALL PAL(N$) END SUB PAL(N$) FOR I=LEN(N$) TO 1  STEP-1 B$=MID$(N$,I,1) C$=C$+B$ NEXT I IF N$=C$ THEN PRINT"THE GIVEN WORD IS PALINDROME" ELSE PRINT"THE GIVEN WORD IS NOT PALINDROME" END IF END SUB

DECLARE FUNCTION AVG(A,B,C) CLS INPUT"ENTER FIRST NO";A INPUT"ENTER SECOND NO";B INPUT"ENTER THIRDNO";C PRINT"AVERAGE OF THREE NO";AVG(A,B,C) END FUNCTION AVG(A,B,C) Av=(A+B+C)/3 AVG=AVE END FUNCTION

DECLARE SUB DISP(N$) CLS INPUT"ENTER ANY WORD";N$ CALL DISP(N$) END SUB DISP(N$) FOR I=1 TO LEN(N$) B$=MID$(N$,I,1) C$=UCASE(B$) IFC$<>"A"ANDC$<>"E"ANDC$<>"I"ANDC$<>"O"AND C$<>"U"THEN U$=U+B$ NEXT IPRINT"VOWEL";V$ END SUB

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

DECLARE FUNCTION COUNT(N$) CLS INPUT"ENTER ANY WORDS";N$ PRINT"TOTAL NO OF VOWEL=";COUNT(N$) END FUNCTION COUNT(N$) C=0 FOR I=1TO LEN(N$) BS $=MID$(N$,I,1) C$=UCASE$(B$) IFC$="A"ORC$="E"ORC$="O"ORC$="U"THEN C=C+1 NEXT I COUNT=C END FUNCTION

DECLARE SUB REV(N$) CLS INPUT"ENTER ANY WORD";N$ CALL REV(N$) END SUB REV(N$) FOR I=LEN(N$) TO 1STEP -1 B$=MID$(N$,I,1) C$=C$+B$ NEXT I PRINT"REVERSED WORD I";C$ ENDSUB

DECLARE FUNCTION AREA(A,B,C) CLS INPUT"ENTER FIRST NO";A INPUT"ENTER SECOND NO";B INPUT"ENTER THIRD NO";C PRINT"AREA OF TRIANGLE";AREA(A,B,C) END FUNCTION AREA(A,B,C) AREA=(S*(S-A)*(S-B*(S-C)^(1/2) AREA=A ENS FUNCTION

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^2*H VOL=V END FUNCTION

DECLARE SUB SERIES () CLS CALL SERIES END SUB SERIES () A=1 FOR I=1 TO 10 PRINT"A A=A+2 NEXT I ENDSUB

DECLARE FUNCTION CONSO(N$) CLS INPUT"ENTER ANY WORD";N$ PRINT"TOTAL NO OF CONSONANT";CONSO(N$) END FUNCTION CONSO(N$) C=0 FOR I=1 TO LEN(N$) B$=MID$(N$,I,1) C$=UCASE$(B$) IF C$<>"A"ANDC$<>"E"ANDC$<>"I"ANDC$<>"C$<>"O"AND C$<>"U" THEN C=C+1 NEXT I CONSO=C END FUNCTION

DECLARE FUNCTION CELSIUS(F) CLS INPUT"ENTER FARHRERHEIT";F PRINT"FAREHRENHEIT IN CELSIUS";CELSIUS (F) END FUNCTION CELCIUS(F) C=5*(9*(F-32)) CELCIUS=C END FUNCTION

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

DECLARE FUNCTION SIM(P,T,R) CLS INPUT"ENTER PRINCIPAL";P INPUT"ENTER TIME";T INPUT"ENTER RATE";R PRINT"SIMPLE INTEREST";SIM(P,T,R) END FUNCTION SIM(P,T,R) S=P*T*R/100 SIM=S END FUNCTION

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

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

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

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

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) VOL=L*B*H VOL=V END FUNCTION

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

DECLARE FUNCTION DISTANCE(A,T,U) CLS INOUT"ENTER ACCELAERATION";A INPUT"ENTER TIME";T INPUT"ENTER INITIAL VELOCITY";U PRINT"DISTANCE TRAVALLED BY BODY";DISTANCR(A,T,U) END FUNCTION DISTANCE(A,T,U) S=U*T+1/2*A*T^2 DISTANCE=S END FUNCTION

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

DECLARE SUB A(N) CLS INPUT"ENTER ANY NO";N CALL A(N) END SUB A(N) S=0 A=N WHILE N<>0 R=N MOD 10 S=S+R^3 N=N\10 WEND IF A=S THEN PRINT"THE GIVEN NNO IS ARMSTRONG"; ELSE PRINT"THE GIVEN NO IS NOT ARMSTRONG" END IF END SUB

DECLARE SUB PAL(N$) CLS INPUT"ENTER ANY WORD";H$ CALL PAL(N$) END SUB PAL(N$) FOR I=LEN(N$) TO 1  STEP-1 B$=MID$(N$,I,1) C$=C$+B$ NEXT I IF N$=C$ THEN PRINT"THE GIVEN WORD IS PALINDROME" ELSE PRINT"THE GIVEN WORD IS NOT PALINDROME" END IF END SUB

DECLARE SUB CHECK (N) CLS INPUT"ENTER ANY NO";N CALL CHECK(N) END SUB CHECK(N) IF N MOD 13=0 THEN PRINT"THE GIVEN NO IS DIVISIBAL BY 13" ELSE PRINT"THE GIVEN NO IS NOT DIVIDIBAL BY 13" END IF END 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

DECLARE FUNCTION FACT(N) CLS INPUT"ENTER ANY NO";N PRINT"FACTORIAL=":FACT(N) END FUNCTION FACT(N) F=1 FOR I =1 TO N F=F*I NEXT I FACT=F END FUNCTION

DECLAFE SUB FACTOR(N) CLS INPUT"ENTER ANY NO";N CALL FACTOR(N) END SUB FACTOR(N) FOR I=1 TO N IF  N MOD I=0 THEN PRINT I NEXT I  END 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

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

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