If fPart(.5Ans Then Disp "ODD Else Disp "EVEN End