-- Модуль таймерных событий OnTimer --- 
     -- Подключение C-пакетов service53, service54: https://cloud.mail.ru/public/i3Y7/kQHBvs7um 
 local  WorkingFolder  =   getWorkingFolder ()   
package.cpath  =  package.cpath  ..   ';'   ..  WorkingFolder  ..   '\\?.dll'   ..   ';'   ..  WorkingFolder  ..   '\\?53.dll'  ..   ';'   ..  WorkingFolder  ..   '\\?54.dll'   ..   ';'   ..  WorkingFolder  ..   '\\?51.dll' 
                             ..   ';'   ..  WorkingFolder  ..   '\\?3.dll'        -- C - пакеты  ---- 
 if  _VERSION  =  =   'Lua 5.3'   then    
     require ( 'service53' )      -- Подключает библиотеку service.dll, расположенную в корневом каталоге терминала QUIK (там где info.exe)   ---- 
 else 
     require ( 'service54' )  
 end    
 local  GetMilliseconds, Start_thread   =    service.GetMilliseconds, service.Start_thread

   --- Функции работы с очередями  --- 
     local  new   =     function   ()
         return   {first   =     1  , last   =     0  }
     end  
     --- 
     local  push   =     function   (self, v)
         local   last   =   self.last   +    1  
        self[last]   =   v
        self.last   =   last
         return   last
     end  
     --- 
     local  pop   =     function   (self)
        local   first   =   self.first
        if   first   >   self.last   then     return     nil     end  
        local   v   =   self [first]
       self.first   =   first  +   1  
       self[first]   =     nil  
        return   v, first
      end  
 --------- Создание очереди ------ 
  local   Queue_Timer  =  new()   --- Таймерные события ----- 
  local   Queue_Timer_Sl  =  new()   --- Очередь отмены событий --- 
 ------------------------------------------- 
     --- Заказ таймерных событий ---- 
     --- Таймерное событие:  {<Имя события>, <Интервал в млсек.>, <Функция обработки события>,{<Список парвметров функции>}} 
     local   function  Set_Timer  (self)
        if  type(self)  =  =   'table'   then  
          if   # self  >  =   3   then 
             self [ 2 ]  =  self [ 2 ]  +  GetMilliseconds() 
               return  push (Queue_Timer, self)
          else 
             message  (  '!!! Ошибка. Должно быть:  {<Имя события>, <Интервал в млсек.>, <Функция обработки события>,{<Список парвметров функции>}}' ) 
          end 
       else 
          message  (  '!!! Ошибка (параметр не таблица). Должно быть:  {<Имя события>, <Интервал в млсек.>, <Функция обработки события>,{<Список парвметров функции>}}' ) 
       end 
     end  
    ----- 
     local   function  delete_Timer  (kl)
       push (Queue_Timer_Sl, kl)
     end  
     ------ 
     local   function  Timer ()
        local  ms, first_q 
        while  IsRun    do  
             ---  Обработка удалений событий --- 
            ms, first_q  =  pop (Queue_Timer_Sl) 
             while  ms   do 
              if  Queue_Timer [ms]  then  Queue_Timer [ms]  =   nil   end 
            ms, first_q  =  pop (Queue_Timer_Sl)    
          end 
          ---  Чтение очереди заказанных событий[ -----    
           for  k, v  in  next, Queue_Timer  do 
             if  type(k)  =  =   'number'   then 
                 if  v [ 2 ]  <  =  GetMilliseconds()    then 
                   Queue_Timer [k]  =   nil 
                         if  v[ 4 ]  then 
                           pcall ( v[ 3 ], table.unpack (v[ 4 ]))
                   else 
                     pcall ( v[ 3 ])   -- функция без параметров --- 
                   end 
                end 
             end 
               end 
          ------------------------------------------------------- 
             sleep ( 2 )      
        end 
     end  
 --------------------------------------- 
     local   function  Start_Timer ()
     Start_thread (Timer)
     end 
   ------ 
   return  {Set_Timer  =  Set_Timer, delete_Timer  =  delete_Timer, Start_Timer  =  Start_Timer }
  

   -- Шаблон использования модуля таймерных событий 
 local  OnTi mer  =   require ( 'OnTimer' )   -- Подключение модуля обработки таймерных событий  --- 
 local  Set_Timer  =  OnTimer.Set_Timer
 local  delete_Timer  =  OnTimer.delete_Timer
 local  Start_Timer  =  OnTimer.Start_Timer

IsRun  =   true 

     local   function  call_Timer  (kl)
         message  (  'call_Timer = '   ..  kl)
     end  
   
     local   function  call_Timer1  ()
         message  (  'call_Timer1  () ==============' )
     end  

 function   main ()
    Start_Timer()
    local  kl
     --- Заказ таймерных событий ---- 
     --- Таймерное событие:  {<Имя события>, <Интервал в млсек.>, <Функция обработки события>,{<Список парвметров функции>}} 
   kl  =  Set_Timer({'Set_Timer',  100 , call_Timer, { 100 }})
   kl  =  Set_Timer({'Set_Timer',  1000 , call_Timer, { 1000 }})
   kl  =  Set_Timer({'Set_Timer',  5000 , call_Timer, { 5000 }})
   kl  =  Set_Timer({'Set_Timer',  3000 , call_Timer1})
 --   delete_Timer (kl) 
   
     ------------------- 
     while  IsRun  do  
   
        ----  Обработка в main остального ----- 
       kl  =  Set_Timer({'Set_Timer',  1000 , call_Timer, { 1000 }})
        delete_Timer (kl)
        ----  Конец Обработка в main остального ----- 
         sleep ( 500 )        
   end 
   ------------------ 
 end    
   
 function   OnStop ()
     IsRun  =   false 
     DestroyTable (TableQUIK)
      DestroyTable (TableQUIK1)
     return   10000     --  !!  По истечении этого интервала времени (в млсек.), данного скрипту на завершение работы, функция main() завершается принудительно.  
                                 -- При этом возможна потеря системных ресурсов.   ! Если функция не выдает значение, то по умолчанию оно 5000 (5 сек.) 
 end 
  

-- Модуль таймерных событий OnTimer ---
    -- Подключение C-пакетов service53, service54: https://cloud.mail.ru/public/i3Y7/kQHBvs7um
local WorkingFolder = getWorkingFolder()   
package.cpath = package.cpath .. ';' .. WorkingFolder .. '\\?.dll' .. ';' .. WorkingFolder .. '\\?53.dll'.. ';' .. WorkingFolder .. '\\?54.dll' .. ';' .. WorkingFolder .. '\\?51.dll'
                            .. ';' .. WorkingFolder .. '\\?3.dll'      -- C - пакеты  ----
if _VERSION == 'Lua 5.3' then   
    require('service53')     -- Подключает библиотеку service.dll, расположенную в корневом каталоге терминала QUIK (там где info.exe)   ----
else
    require('service54')  
end   
local GetMilliseconds, Start_thread  =   service.GetMilliseconds, service.Start_thread

  --- Функции работы с очередями  ---
    local new  =   function  ()
        return  {first  =   1 , last  =   0 }
    end 
    ---
    local push  =   function  (self, v)
        local  last  =  self.last  +  1 
        self[last]  =  v
        self.last  =  last
        return  last
    end 
    ---
    local pop  =   function  (self)
       local  first  =  self.first
       if  first  >  self.last  then   return   nil   end 
       local  v  =  self [first]
       self.first  =  first + 1 
       self[first]  =   nil 
       return  v, first
     end 
--------- Создание очереди ------
 local  Queue_Timer = new()  --- Таймерные события -----
 local  Queue_Timer_Sl = new()  --- Очередь отмены событий ---
-------------------------------------------
    --- Заказ таймерных событий ----
    --- Таймерное событие:  {<Имя события>, <Интервал в млсек.>, <Функция обработки события>,{<Список парвметров функции>}}
    local function Set_Timer  (self)
       if type(self) == 'table' then 
         if #self >= 3 then
             self [2] = self [2] + GetMilliseconds() 
              return push (Queue_Timer, self)
         else
            message ( '!!! Ошибка. Должно быть:  {<Имя события>, <Интервал в млсек.>, <Функция обработки события>,{<Список парвметров функции>}}') 
         end
      else
         message ( '!!! Ошибка (параметр не таблица). Должно быть:  {<Имя события>, <Интервал в млсек.>, <Функция обработки события>,{<Список парвметров функции>}}') 
      end
    end 
   -----
    local function delete_Timer  (kl)
       push (Queue_Timer_Sl, kl)
    end 
    ------
    local function Timer ()
       local ms, first_q 
       while IsRun   do 
            ---  Обработка удалений событий ---
            ms, first_q = pop (Queue_Timer_Sl) 
            while ms  do
             if Queue_Timer [ms] then Queue_Timer [ms] = nil end
            ms, first_q = pop (Queue_Timer_Sl)    
         end
         ---  Чтение очереди заказанных событий[ -----   
          for k, v in next, Queue_Timer do
            if type(k) == 'number' then
                if v [2] <= GetMilliseconds()   then
                   Queue_Timer [k] = nil
                        if v[4] then
                           pcall ( v[3], table.unpack (v[4]))
                  else
                     pcall ( v[3])  -- функция без параметров ---
                  end
               end
            end
              end
         -------------------------------------------------------
            sleep(2)      
       end
    end 
---------------------------------------
    local function Start_Timer ()
     Start_thread (Timer)
    end
  ------
  return {Set_Timer = Set_Timer, delete_Timer = delete_Timer, Start_Timer = Start_Timer }

-- Шаблон использования модуля таймерных событий
local OnTi mer = require('OnTimer')  -- Подключение модуля обработки таймерных событий  ---
local Set_Timer = OnTimer.Set_Timer
local delete_Timer = OnTimer.delete_Timer
local Start_Timer = OnTimer.Start_Timer

IsRun = true

    local function call_Timer  (kl)
        message ( 'call_Timer = ' .. kl)
    end 
   
    local function call_Timer1  ()
        message ( 'call_Timer1  () ==============')
    end 

function main()
    Start_Timer()
   local kl
    --- Заказ таймерных событий ----
    --- Таймерное событие:  {<Имя события>, <Интервал в млсек.>, <Функция обработки события>,{<Список парвметров функции>}}
   kl = Set_Timer({'Set_Timer', 100, call_Timer, {100}})
   kl = Set_Timer({'Set_Timer', 1000, call_Timer, {1000}})
   kl = Set_Timer({'Set_Timer', 5000, call_Timer, {5000}})
   kl = Set_Timer({'Set_Timer', 3000, call_Timer1})
--   delete_Timer (kl)
   
    -------------------
    while IsRun do 
   
       ----  Обработка в main остального -----
       kl = Set_Timer({'Set_Timer', 1000, call_Timer, {1000}})
        delete_Timer (kl)
       ----  Конец Обработка в main остального -----
        sleep(500)        
  end
  ------------------
end   
   
function OnStop()
     IsRun = false
    DestroyTable(TableQUIK)
     DestroyTable(TableQUIK1)
    return 10000   --  !!  По истечении этого интервала времени (в млсек.), данного скрипту на завершение работы, функция main() завершается принудительно. 
                                -- При этом возможна потеря системных ресурсов.   ! Если функция не выдает значение, то по умолчанию оно 5000 (5 сек.)
end

    SetTableNotificationCallback (tid,  function (t, m, w, l)
       if  QTABLE_SELCHANGED  ==  m  then 
          if 2 == w then 
             SetSelectedRow (t, 1)
             message ( '!' )
          end 
       end 
    end)

while f do -- бесконечный цикл до остановки скрипта
 if fm>3 then DestroyTable(t);fm=0;end;
 if fm==3 then DestroyTable(t);fm=1;end;
 if fm==1 then u();fm=2;end;   -- рисуем или убираем всплывающее меню
 r();-- раз в 1.5 секунды запускаем утилиту опроса
sleep(1500);   -- текущих данных и принятия решений по ним
end;   -- конец бесконечного цикла
end;   -- конец функции main()

function r()   -- мелкий обработчик прерывания по таймеру
 c=c+1;      -- счётчик прерываний
 if c==10 then c=0; R();end;   -- прошло 15 секунд, включаем анализ
...

table.ssort({ 0, 1 }, function(a, b)
Ваш код здесь
return true
end)

local run = true
local tid = nil

function main()
   tid = AllocTable()
   AddColumn(tid, 1, '1', true, QTABLE_INT_TYPE, 1)
   CreateWindow(tid)
   InsertRow(tid, -1)
   InsertRow(tid, -1)
   SetWindowPos(tid, 0, 0, -1000, -1000)
   SetSelectedRow(tid, 1)
   SetTableNotificationCallback(tid, function(t, m, w, l)
      if QTABLE_SELCHANGED == m then
         if 2 == w then
            SetSelectedRow(t, 1)
            message('!')
         end
      end
   end)
   while run do
      sleep(1000)
      SetSelectedRow(tid, 2)
   end
   OnStop()
end

function OnStop()
   local t = tid
   tid = nil
   if t then
      DestroyTable(t)
   end
   run = false
end