while  _RUN_  do 
     ---Тело основного цикла скрипта -- 
 end 
 if   TBL_QUIK  then    -- Если используются таблицы QUIK 
      -- #### Задержка sleep нужна чтобы установился признак запуска скрипта при перезапуске QUIK.  
      -- Иначе при перезапуске QUIK не будет перезапущен скрипт.-- 
      -- При нормальном завершении QUIK, если есть таблицы QUIK, они удаляются (и вызываются коллбеки QTABLE_CLOSE) 
      -- Если при этом нет задержки, то скрипт завершается и не выставляется признак необходимости его перезапуска 
      -- при запуске QUIK. Признак TBL_QUIK  устанавливается в основной пользовательской таблице QUIK.  
      -- Длительность задержки выбрана экспериментально. 
      sleep ( 1000 ) 
 end  

  

while _RUN_ do
    ---Тело основного цикла скрипта --
end
if  TBL_QUIK then  -- Если используются таблицы QUIK
     -- #### Задержка sleep нужна чтобы установился признак запуска скрипта при перезапуске QUIK. 
     -- Иначе при перезапуске QUIK не будет перезапущен скрипт.--
     -- При нормальном завершении QUIK, если есть таблицы QUIK, они удаляются (и вызываются коллбеки QTABLE_CLOSE)
     -- Если при этом нет задержки, то скрипт завершается и не выставляется признак необходимости его перезапуска
     -- при запуске QUIK. Признак TBL_QUIK  устанавливается в основной пользовательской таблице QUIK. 
     -- Длительность задержки выбрана экспериментально.
     sleep(1000) 
end 

       local   function   event_callback (mw_id, msg, row, col)

       if  msg  =  =  QTABLE_CLOSE   then 
        w_top, w_left, w_bottom, w_right  =   GetWindowRect (mw_id)
         DestroyTable (x2_id)
         DestroyTable (mw_id)
        OnStop()
       end 
      -- Другие события 
     end  
 
     SetTableNotificationCallback (mw_id, event_callback)

  

   function   OnStop (c)  -- 1-Остановка скрипта, 2-Закрытие QUIK. 
   if  mw_id  and  c  =  =   1   then 
    w_top, w_left, w_bottom, w_right  =   GetWindowRect (mw_id)
     DestroyTable (mw_id)
     DestroyTable (x2_id)
   end 
 end 
  

    local function event_callback(mw_id, msg, row, col)

      if msg == QTABLE_CLOSE  then
        w_top, w_left, w_bottom, w_right = GetWindowRect(mw_id)
        DestroyTable(x2_id)
        DestroyTable(mw_id)
        OnStop()
      end
     -- Другие события
    end 
 
    SetTableNotificationCallback(mw_id, event_callback)

function OnStop(c) -- 1-Остановка скрипта, 2-Закрытие QUIK.
  if mw_id and c == 1 then
    w_top, w_left, w_bottom, w_right = GetWindowRect(mw_id)
    DestroyTable(mw_id)
    DestroyTable(x2_id)
  end
end