主题：如何编写当月亏损大于15%后本月停止一切交易？

runmode:1;

setting:='设置';
beginmoney:='月初资金';
stoptrade:='停止交易';
lossmoney:=5000;

if month<>ref(month,1) then begin
 setregval(setting,beginmoney,tasset);
 setregval(setting,stoptrade,0);
end 

if getregval(setting,stoptrade,-1) = 1 then begin
 exit;
end else then begin
 if getregval(setting,beginmoney,0)-tasset>lossmoney then begin
  tsell(1,0,lmt,close,0,'',stklabel);  
  tsellshort(1,0,lmt,close,0,'',stklabel);
  setregval(setting,stoptrade,1);   
 end
end