RosettaCodeData/Task/Determine-if-a-string-is-numeric/BaCon/determine-if-a-string-is-numeric.bacon

INPUT "Your string: ", s$

IF VAL(s$) = 0 AND s$ <> "0" THEN
    PRINT "Not a number"
ELSE
    PRINT "This is a number"
END IF