WRITE A QBASIC PROGRAM TO CHECK POSITIVE, NEGATIVE OR NEUTRAL(SUB)

QBASIC PROGRAM TO CHECK POSITIVE, NEGATIVE OR NEUTRAL(SUB)

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