name="main";
paths = "D:/QUIK_SCRIPT/"

function cb(i)
 O=ds:O(i); H=ds:H(i); L=ds:L(i); C=ds:C(i);   V=ds:V(i) Ti=ds:T(i)
   Log:write("ds "..tostring(O)..","..tostring(H)..","..tostring(L)..","..tostring(C).."\n");Log:flush()
end


function cb1(i)
 O=ds1:O(i); H=ds1:H(i); L=ds1:L(i); C=ds1:C(i);   V=ds1:V(i) Ti=ds1:T(i)
   Log:write("ds1 "..tostring(O)..","..tostring(H)..","..tostring(L)..","..tostring(C).."\n");Log:flush()
end

function main()
  while true do
   sleep(10);
      if ds==nil then  ds=CreateDataSource("QJSIM","SBER",INTERVAL_M1)
      Log:write("ds="..tostring(ds).."\n");Log:flush()
      ds: SetUpdateCallback (cb)
      end

      if ds1==nil then  ds1=CreateDataSource("QJSIM","SBER",INTERVAL_M1,"Last")
      Log:write("ds1="..tostring(ds1).."\n");Log:flush()
      ds1: SetUpdateCallback (cb1)
      end

   if ds~=nil    then local count=ds:Size();
      local i=count;   O=ds:O(i); H=ds:H(i); L=ds:L(i); C=ds:C(i);   V=ds:V(i) Ti=ds:T(i)
      Log:write("ds:count="..count..","..tostring(O)..","..tostring(H)..","..tostring(L)..","..tostring(C).."/"..tostring(i).."\n");Log:flush()
   end

   if ds1~=nil then local count=ds1:Size();
      local i=count O=ds1:O(i); H=ds1:H(i); L=ds1:L(i); C=ds1:C(i);   V=ds1:V(i) Ti=ds1:T(i)    i=i+1;
      Log:write("ds1:coint="..count..","..O..","..H..","..L..","..C.."/"..i.."\n");Log:flush()
   end
 end
end

--------------
function OnInit(pfile)
   Log=io.open(paths..name..".log","w")
end

  ds  =   CreateDataSource ( "TQBR" ,  "SBER" , INTERVAL_TICK)
 sleep ( 1000 )
 local   Size   =  ds: Size ()
  

   for  i  =   1 ,  Size ,  1   do  
ds:T(i).ms
 end ;  

ds = CreateDataSource("TQBR", "SBER", INTERVAL_TICK)
sleep(1000)
local Size = ds:Size()

for i = 1, Size, 1 do 
ds:T(i).ms
end;