BSET
par = BSET(i,0) + BSET(i,1) + BSET(i,2) + BSET(i,3) +
BSET(i,4) + BSET(i,5) + BSET(i,6) + BSET(i,7);