DI3:=DYNAINFO(3);DI5:=DYNAINFO(5);DI6:=DYNAINFO(6);D0:=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,
]