Even or odd: Difference between revisions

==={{header|BASIC256}}===

{{works with|True BASIC}}

<lang BASIC256>for i = 1 to 10

if (i mod 2) then print i;" is odd" else print i;" is even"

next i

end</lang>

==={{header|QBasic}}===

{{works with|QBasic|1.1}}

{{works with|QuickBasic|4.5}}

{{works with|QRun BASIC}}

<lang qbasic>FOR i = 1 TO 10

IF i AND 1 THEN PRINT i; " is odd" ELSE PRINT i; " is even"

NEXT i</lang>

==={{header|True BASIC}}===

{{works with|BASIC256}}

<lang qbasic>FOR i = 1 to 10

IF MOD(i, 2) = 0 THEN PRINT i; " is odd" ELSE PRINT i; " is even"

NEXT i

END</lang>

==={{header|XBasic}}===

{{works with|Windows XBasic}}

<lang xbasic>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</lang>

{{works with|QBasic}}