Do Good Be Good

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

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