upper:=stkindi('','boll.upper',0,datatype);
lower:=stkindi('','boll.lower',0,datatype);
if upper>ref(upper,1)+0.5 then begin
sellshort(1,0,market);
buy(holding=0,1,market);
end
if lower<ref(lower,1)-0.5 then begin
sell(1,0,market);
buyshort(holding=0,1,market);
end
upper:=stkindi('','boll.upper',0,datatype);
lower:=stkindi('','boll.lower',0,datatype);
if upper>ref(upper,1)+0.5 then begin
sellshort(1,0,market);
buy(holding=0,1,market);
end
if lower<ref(lower,1)-0.5 then begin
sell(1,0,market);
buyshort(holding=0,1,market);
end