c5:=callstock(stklabel,vtclose,2);
c15:=callstock(stklabel,vtclose,3);
c10:=callstock(stklabel,vtclose,18);
ma5:=ma(c,5);
if c5>ma5 and c10>ma5 and c15>ma5 then begin
sellshort(1,0,market);
buy(holding=0,1,market);
end
if c5<ma5 and c10<ma5 and c15<ma5 then begin
sell(1,0,market);
buyshort(holding=0,1,market);
end