DI3:=DYNAINFO(3);DI5:=DYNAINFO(5);DI6:=DYNAINFO(6); DBS0:=XMA(XMA(XMA(C,9),8),7)*100; DBS1:=(MAX(DI3,DI5)+MIN(DI3,DI6))/2; DBS2:=MIN(DI3,DI6)+8*(MAX(DI3,DI5)-MIN(DI3,DI6))/9; DBS3:=MIN(DI3,DI6)+(MAX(DI3,DI5)-MIN(DI3,DI6))/18; DBS4:=CONST(IF((DBS0=DBS3) OR (DBS0>=REF(DBS0,1) AND C>=DBS2),150,0)); DBS5:=CONST(IF((DBS0=REF(DBS0,1) AND C>=DBS1),150,IF(DBS0>=REF(DBS0,1) AND C=DBS1 OR C=REF(DBS0,1) AND C>=DBS1 AND C=REF(DBS0,1) AND CDBS1,150,0)); DBS8:=CONST(IF(C=DBS2,0,150))); DBS9:=CONST(IF(C>DBS2,50,IF(C=DBS1,0,50))); DRAWGBK(1,RGB(DBS4,DBS5,DBS6),RGB(DBS7,DBS8,DBS9),1,0,0);