'No secrets about IsEven(..) & IsOdd(..) Type AnyInteger As LongInt Declare Function IsEven(byVal Number As AnyInteger) As AnyInteger Declare Function IsOdd(byVal Number As AnyInteger) As AnyInteger 'Snip.. Function IsEven(byVal Number As AnyInteger) As AnyInteger Return Abs((Number And 1)=0) End Function Function IsOdd(byVal Number As AnyInteger) As AnyInteger Return Abs((Number And 1)<>0) End Function '..snip and add to your dearest .bi-file Dim As AnyInteger Number Print "The secrets of IsEven(..) and IsOdd(..) ;-))" For Number=-3 to 3 Print "IsEven(" &Number &"):"; *IIF(IsEven(Number), @"Yes", @"No") Print "IsOdd(" &Number &"):"; *IIF(IsOdd(Number), @"Yes", @"No") Next Print "0 " &*IIf(0, @"True", @"False") &!", that's for sure..\n1 " &*IIf(1, @"True", @"False"); Print !", but there is no guarantee.. ;-))\n(Any Integer except 0 is True)\n1=0:" & (1=0) &!"\n1=1:" & (1=1) Print "Tested with FB 0.23.0 and FBEdit"; GetKey