POSITIVE,NEGATIVE OR NEUTRAL(SUB)

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

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

Comments

Popular posts from this blog

My Father

Journey to jm