Тест зависания терминала QUIK 10.0.1.18

   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