Do Good Be Good

Including me and my friends all class 10 students were waiting for this day which was on February 9. We all were happy in this day because we know that we are going to have so much fun with friends and with our respected teachers. In this I wake up early in the morning.  Skip We all where told to come in school at 6:30 am. All the students were present at same time.And we start loading the goods and the cooking utensils. After loading all the materials we start our journey up to the picnic spot. We arrived their at 7:30 am. After arriving third  we all start doing our own department work. First we make breakfast and we all take it together. After that me and my some friends start watching the utensils because me and my friends have the responsibility of washing department. All the students were doing their own department work. We play bingo with teachers. We sing a song and we dance. After having all this things we return back  in school at 7pm. And we start unloading the utensils th

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 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 Comments

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