DS={};
function DS_6(cl,se)   -- создание источников тиков
    local int=INTERVAL_TICK;
    local x=cl..se..tostring(int);
    if DS[x]==nil then
        local ds,er=CreateDataSource(cl,se,int);ds:SetEmptyCallback();
        if err then 
            Log(err,"err_ds"); 
        else      
            message("ADD " .. x)
            DS[x]=ds;
        end
    end
end

function OnStop(s)
    stopped = true
end
function main()
    local n=getNumberOf("securities")
    for i=0, n-1 do
        sec = getItem("securities", i)
        if sec and sec.class_code == "SPBFUT" then
            DS_6("SPBFUT", sec.code)
        end
    end
    while not stopped do
        sleep(500)
    end
end