function [truefalse]=iseven(num)
% [truefalse]=iseven(num)
% returns 1 if true, 0 if false

truefalse= (rem(abs(num),2)==0);

if (num==0)
	disp(['BEWARE, number is zero',7])
end
