DECLARE FUNCTION CHK$ (NUM)
CLS
INPUT "ENTER A NUMBER"; NUM
PRINT "THE NUMBER IS ="; CHK$(NUM)
END
FUNCTION CHK$ (NUM)
IF NUM = 0 THEN C$ = "ZERO"
IF NUM < 0 THEN C$ = "NEGATIVE"
IF NUM > 0 THEN C$ = "POSITIVE"
CHK$ = C$
END FUNCTION