if callstock(stklabel,vtclose,6,-1)>stkindi('','ma.ma3',0,6,-1) then begin
sellshort(1,0,marketr);
buy(holding=0,1,marketr);
end
if callstock(stklable,vtclose,6,-1)<stkindi('','ma.ma3',0,6,-1) then begin
sell(1,0,marketr);
buyshort(holding=0,1,marketr);
end