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

QBASIC PROGRAM TO CHECK POSITIVE, NEGATIVE OR NEUTRAL


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