sequential;

if v3=2 then begin
  	v4:=1;
	v23:=2;
	v42:=1;
	v61:=2;
   	v80:=1;
	v99:=2
	end;

if v3=1 then begin
	v4:=2;
	v23:=1;
	v42:=2;
	v61:=1;
   	v80:=2;
	v99:=1
	end;

 v6:=(8-v6);
v10:=(8-v10);
v14:=(8-v14);
v18:=(8-v18);
v22:=(8-v22);

v27:=(8-v27);
v31:=(8-v31);
v35:=(8-v35);
v39:=(8-v39);

v46:=(8-v46);
v50:=(8-v50);
v54:=(8-v54);
v58:=(8-v58);

v63:=(8-v63);
v67:=(8-v67);
v71:=(8-v71);
v75:=(8-v75);
v79:=(8-v79);

v82:=(8-v82);
v86:=(8-v86);
v90:=(8-v90);
v94:=(8-v94);
v98:=(8-v98);

v103:=(8-v103);
v107:=(8-v107);
v111:=(8-v111);
v115:=(8-v115);