never giveup

Wap to display 1,2,3,5,8, up to 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 Wap to check whether the given number 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 Wap to find whether the given number is 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 Wap 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$) F