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<REF(DBS0,1) AND C>=DBS3) OR (DBS0>=REF(DBS0,1) AND C>=DBS2),150,0));
DBS5:=CONST(IF((DBS0<REF(DBS0,1) AND C<DBS1) OR (DBS0>=REF(DBS0,1) AND C>=DBS1),150,IF(DBS0>=REF(DBS0,1) AND C<DBS1,50,0)));
DBS6:=CONST(IF((DBS0<REF(DBS0,1) AND (C>=DBS1 OR C<DBS3)) OR (DBS0>=REF(DBS0,1) AND C>=DBS1 AND C<DBS2),50,IF(DBS0>=REF(DBS0,1) AND C<DBS1,150,0)));
DBS7:=CONST(IF(C>DBS1,150,0));
DBS8:=CONST(IF(C<DBS3,50,IF(C>=DBS2,0,150)));
DBS9:=CONST(IF(C>DBS2,50,IF(C<DBS2 AND C>=DBS1,0,50)));
DRAWGBK(1,RGB(DBS4,DBS5,DBS6),RGB(DBS7,DBS8,DBS9),1,0,0);