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

Father's day

Aadhi ko Manorama Nitra