IsRan=true 
function OnAllTrade(alltrade) 
   if alltrade.sec_code=="xxx" then 
      cena=tostring(alltrade.price) 
      data=tostring(alltrade.datetime.year)..tostring(alltrade.datetime.month)..tostring(alltrade.datetime.day)
      kolvo=tostring(alltrade.qty) 
      a={}
      a["cena"]=cena 
      a["data"]=data 
      a["kolvo"]=kolvo 
   end
end
   
function main()
   while IsRun do 
      sleep(1000)
   end
end