Q BASIC PROGRAM TO CHECK WHETHER THE GIVEN NUMBER IS POSITIVE OR NEGATIVE. SUB

DECLARE SUB CHECK(N)
CLS
INPUT "ENTER ANY NUMBER";N
CALL CHECK(N)
END

SUB CHECK(N)
IF N>0 THEN
PRINT "THE NUMBER IS POSITIVE"
ELSE N<0 THEN
PRINT "THE NUMBER IS NEGATIVE"
END IF
END SUB