HSJD:=(3*C+H+L+O)/6;
HSJD1:=(8*HSJD+7*REF(HSJD,1)+6*REF(HSJD,2)+5*REF(HSJD,3)+4*REF(HSJD,4)+3*REF(HSJD,5)+2*REF(HSJD,6)+REF(HSJD,8))/36;
HSJD6:=(LLV(HSJD1,2)+LLV(HSJD1,4)+LLV(HSJD1,6))/3;
XG:REF(HSJD1,1)=REF(HSJD6,1) AND HSJD1>HSJD6;
HSJD:=(3*C+H+L+O)/6;
HSJD1:=(8*HSJD+7*REF(HSJD,1)+6*REF(HSJD,2)+5*REF(HSJD,3)+4*REF(HSJD,4)+3*REF(HSJD,5)+2*REF(HSJD,6)+REF(HSJD,8))/36;
HSJD6:=(LLV(HSJD1,2)+LLV(HSJD1,4)+LLV(HSJD1,6))/3;
XG:REF(HSJD1,1)=REF(HSJD6,1) AND HSJD1>HSJD6;