Are you working with 20 bit integers? You'll never get it down to a million lines like that...

There's a million lines of If >4096, subtract 4096

Then a quick lookup case statement for whether the remaining number is even.