#33 TO FIND 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