variable:bj=0;
if cond1and bj=0 and holding=0 then begin
buy(holding=0,1,marketr);
bj:=1;
end
if c<enterprice-3*mindiff and holding>0 and bj=1 then sell(1,0,marketr);
if cond2 and holding>0 and bj=1 then sell(1,0,marketr);
if holding=0 and c>exitprice+5*mindiff and bj=1 then begin
buy(1,1,marketr);
bj:=0;
end
if bj=0 and holding>0 and cond3 then sell(1,0,marketr);