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