oo:=valuewhen(date<>ref(date,1),open);

if (h-oo)/oo>0.01 then begin

sellshort(1,0,market);

buy(holding=0,1,market);

end

if (h-oo)/oo<-0.01 then begin

   sell(1,0,market);

   buyshort(holding=0,1,market);

end

if time>145500 then begin

    sell(1,0,market);

    sellshort(1,0,market);

end