RosettaCodeData/Task/Even-or-odd/XBasic/even-or-odd.basic

PROGRAM	"Even/Odd"

DECLARE FUNCTION  Entry ()

FUNCTION  Entry ()
  FOR i = 1 TO 10
    IF (i MOD 2) THEN PRINT i;" is odd" ELSE PRINT i;" is even"
  NEXT i
END FUNCTION

END PROGRAM