local flag =false -- можно и false и true

local foregroundColor = RGB(0, 0, 0)
local backgroundColor = RGB(192, 255, 192)

local function setTableColors(foregroundColor, backgroundColor)
    local nRows, nCols = GetTableSize(tableId)
    if nRows and nCols then
        for row = 1, nRows do
            for col = 1, nCols do
                SetColor(tableId, row, col,
                        backgroundColor, foregroundColor,
                        backgroundColor, foregroundColor)
            end
        end
    end
end

local function ensureWindowOpened()
    if tableId == nil then     return   end
    if IsWindowClosed(tableId) then
        CreateWindow(tableId)
        SetWindowPos(tableId, 0, 0, 300, 100)
        SetWindowCaption(tableId, "hang_test")
        InsertRow(tableId, 1)
        InsertRow(tableId, 2)
        SetCell(tableId, 1, 1, "11")
        SetCell(tableId, 1, 2, "12")
        SetCell(tableId, 2, 1, "21")
        SetCell(tableId, 2, 2, "22")
        SetSelectedRow(tableId, 1)
    end
    setTableColors(foregroundColor, backgroundColor)
end

function OnInit(scriptPath)
    tableId = AllocTable()
    AddColumn(tableId, 1, "col1", true, QTABLE_STRING_TYPE, 5)
    AddColumn(tableId, 2, "col2", true, QTABLE_STRING_TYPE, 5)
    SetTableNotificationCallback(tableId, function(tId, msg, par1, _)
        if msg == QTABLE_SELCHANGED then
            SetSelectedRow(tId, 1)
        end
    end)
    ensureWindowOpened()
end

local function run()
    ensureWindowOpened()
    if tableId then
        SetSelectedRow(tableId, 2)
    end

end

function OnStop(flag)
   DestroyTable(tableId);
    interrupted = true
end

function main()
    message("STARTED", 1)
    while not interrupted do
        run()
       if flag then
            sleep(0)
        end
    end
    message("SHUTDOWN", 1)
end

function main()
    message("STARTED", 1)
    while not interrupted do
        run()
       sleep(10)
    end
    pcall(closeWindow)
    message("SHUTDOWN", 1)
end

Функция возвращает количество миллисекунд, которое дается скрипту на  завершение работы.

Если функция не возвращает число, то таймаут завершения  работы скрипта остается равным 5 секундам.

   function   OnStop (flag)
    interrupted  =   true 
     message ( "OnStop executed" ,  1 )
    pcall(closeWindow)
 end 
  

   local  flag  =   true   -- если установить в false, то при остановке скрипта происходит зависание (убирается sleep(0) в функции main) 

 local  foregroundColor  =   RGB ( 0 ,  0 ,  0 )
 local  backgroundColor  =   RGB ( 192 ,  255 ,  192 )

 local  interrupted  =   false 
 local  tableId

 local   function   setTableColors (foregroundColor, backgroundColor)
     local  nRows, nCols  =  GetTable Size (tableId)
     if  nRows  and  nCols  then 
         for  row  =   1 , nRows  do 
             for  col  =   1 , nCols  do 
                 SetColor (tableId, row, col,
                        backgroundColor, foregroundColor,
                        backgroundColor, foregroundColor)
             end 
         end 
     end 
 end 

 local   function   ensureWindowOpened ()
     if  tableId  =  =   nil   then 
         return 
     end 
     if   IsWindowClosed (tableId)  then 
         CreateWindow (tableId)
         SetWindowPos (tableId,  0 ,  0 ,  300 ,  100 )
         SetWindowCaption (tableId,  "hang_test" )
         InsertRow (tableId,  1 )
         InsertRow (tableId,  2 )
         SetCell (tableId,  1 ,  1 ,  "11" )
         SetCell (tableId,  1 ,  2 ,  "12" )
         SetCell (tableId,  2 ,  1 ,  "21" )
         SetCell (tableId,  2 ,  2 ,  "22" )
         SetSelectedRow (tableId,  1 )
     end 
    setTableColors(foregroundColor, backgroundColor)
 end 

 local   function   closeWindow ()
     local  t  =  tableId
    tableId  =   nil 
     if  t  then 
         DestroyTable (t)
     end 
 end 

 function   OnInit (scriptPath)
    tableId  =   AllocTable ()
     AddColumn (tableId,  1 ,  "col1" ,  true , QTABLE_STRING_TYPE,  5 )
     AddColumn (tableId,  2 ,  "col2" ,  true , QTABLE_STRING_TYPE,  5 )
     SetTableNotificationCallback (tableId,  function (tId, msg, par1, _)
         if  msg  =  =  QTABLE_SELCHANGED  then 
             SetSelectedRow (tId,  1 )
         end 
     end )
    ensureWindowOpened()
 end 

 local   function   run ()
    ensureWindowOpened()
     if  tableId  then 
         SetSelectedRow (tableId,  2 )
     end 
 end 

 function   OnStop (flag)
    pcall(closeWindow)
    interrupted  =   true 
 end 

 function   main ()
     message ( "STARTED" ,  1 )
     while   not  interrupted  do 
        run()
         if  flag  then 
             sleep ( 0 )
         end 
     end 
    pcall(closeWindow)
     message ( "SHUTDOWN" ,  1 )
 end 

  

function OnStop(flag)
    interrupted = true
    message("OnStop executed", 1)
    pcall(closeWindow)
end

function OnAllTrade(t)
    message("OnAllTrade", 1)
end

function OnStop(flag)
    message("OnStop executed", 1)
    pcall(closeWindow)
    interrupted = true
end

local flag = true -- если установить в false, то при остановке скрипта происходит зависание (убирается sleep(0) в функции main)

local foregroundColor = RGB(0, 0, 0)
local backgroundColor = RGB(192, 255, 192)

local interrupted = false
local tableId

local function setTableColors(foregroundColor, backgroundColor)
    local nRows, nCols = GetTableSize(tableId)
    if nRows and nCols then
        for row = 1, nRows do
            for col = 1, nCols do
                SetColor(tableId, row, col,
                        backgroundColor, foregroundColor,
                        backgroundColor, foregroundColor)
            end
        end
    end
end

local function ensureWindowOpened()
    if tableId == nil then
        return
    end
    if IsWindowClosed(tableId) then
        CreateWindow(tableId)
        SetWindowPos(tableId, 0, 0, 300, 100)
        SetWindowCaption(tableId, "hang_test")
        InsertRow(tableId, 1)
        InsertRow(tableId, 2)
        SetCell(tableId, 1, 1, "11")
        SetCell(tableId, 1, 2, "12")
        SetCell(tableId, 2, 1, "21")
        SetCell(tableId, 2, 2, "22")
        SetSelectedRow(tableId, 1)
    end
    setTableColors(foregroundColor, backgroundColor)
end

local function closeWindow()
    local t = tableId
    tableId = nil
    if t then
        DestroyTable(t)
    end
end

function OnInit(scriptPath)
    tableId = AllocTable()
    AddColumn(tableId, 1, "col1", true, QTABLE_STRING_TYPE, 5)
    AddColumn(tableId, 2, "col2", true, QTABLE_STRING_TYPE, 5)
    SetTableNotificationCallback(tableId, function(tId, msg, par1, _)
        if msg == QTABLE_SELCHANGED then
            SetSelectedRow(tId, 1)
        end
    end)
    ensureWindowOpened()
end

local function run()
    ensureWindowOpened()
    if tableId then
        SetSelectedRow(tableId, 2)
    end
end

function OnStop(flag)
    pcall(closeWindow)
    interrupted = true
end

function main()
    message("STARTED", 1)
    while not interrupted do
        run()
        if flag then
            sleep(0)
        end
    end
    pcall(closeWindow)
    message("SHUTDOWN", 1)
end