Q BASIC PROGRAM:POSITIVE NEGATIVE OR ZERO

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

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

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