local bRun, sTime = true
local sClassCode, sSecCode = "QJSIM", "SBER"
function main()
  while bRun do
    PrintDbgStr("main1")
    sleep(1000)
  end
end
function OnStop()
  bRun = nil return 0
end
function OnParam(class_code, sec_code)
  if not bRun then return end
  if sec_code ~= sSecCode or class_code ~= sClassCode then return end
  local Time = getParamEx(class_code, sec_code, 'TIME').param_image
  if Time ~= sTime then
    PrintDbgStr("1: "..Time)
    sTime = Time
  end
end

local bRun, sTime
local sClassCode, sSecCode = "QJSIM", "SBER"

function main()
  local t, n = {}, 5000000
  for i = 1, n do t[i] = n - i end
  PrintDbgStr("start")
  bRun = true
  table.ssort(t)
  PrintDbgStr("end")
  while bRun do sleep(100) end
end

function OnStop()
  bRun = nil return 0
end
function OnParam(class_code, sec_code)
  if not bRun then return end
  if sec_code ~= sSecCode or class_code ~= sClassCode then return end
  local Time = getParamEx(class_code, sec_code, 'TIME').param_image
  if Time ~= sTime then
    PrintDbgStr("2: "..Time)
    sTime = Time
  end
end