RosettaCodeData/Task/Even-or-odd/True-BASIC/even-or-odd.basic

FOR i = 1 to 10
    IF MOD(i, 2) = 0 THEN PRINT i; " is odd" ELSE PRINT i; " is even"
NEXT i
END