p_classcode="TQBR"

p_seccode="GAZP"


function cb(index)

      local t = ds:T(index)
      local str = "свеча № "..tostring(index-2).." из "..tostring(ds:Size()).." open="..ds:O(index-1)
      str = str.."  close="..tostring(ds:C(index-2))
      message(str,1)
end

function main()

      ds=CreateDataSource(p_classcode, p_seccode, INTERVAL_M1)
         
      ds:SetUpdateCallback(cb)

      while is_run do
 
            sleep(10)


      end

end


function OnStop(stop_flag)

      is_run=false

end