changed .xor. by .neqv. and other things
==
and cut lines that were too long
cut lines that were too long and defined some integer local variables
ne_above and ne_left