Средства разработки многопоточных скриптов в QUIK.

local function escape ( s )
    s = tostring ( s ):gsub ( "\n", "\\n" )
    return s
end
local function dumpstr ( t, alias, seen )
    seen = seen or { }
    if seen[ t ] then return "" else seen[ t ] = true end
    local s, mt = string.format ( "newtable %s\n", alias[ t ] or escape ( t ) ), getmetatable ( t )
    if mt then s = string.format ( "%smetatable %s\n", s, alias[ mt ] or escape ( mt ) ) end
    for k, v in pairs ( t ) do
        s = string.format ( "%sk %s %s\nv %s %s\n", s, type ( k ), alias[ k ] or escape ( k ), type ( v ), alias[ v ] or escape ( v ) )
    end
    if mt then s = string.format ( "%s%s", s, dumpstr ( mt, alias, seen ) ) end
    for k, v in pairs ( t ) do
        if type ( k ) == 'table' then s = string.format ( "%s%s", s, dumpstr ( k, alias, seen ) ) end
        if type ( v ) == 'table' then s = string.format ( "%s%s", s, dumpstr ( v, alias, seen ) ) end
    end
    return s
end
local function dumpfile ( file, t, alias, seen )
    seen = seen or { }
    if seen[ t ] then return else seen[ t ] = true end
    file:write ( string.format ( "newtable %s\n", alias[ t ] or escape ( t ) ) )
    local mt = getmetatable ( t )
    if mt then file:write ( string.format ( "metatable %s\n", alias[ mt ] or escape ( mt ) ) ) end
    for k, v in pairs ( t ) do
        file:write ( string.format ( "k %s %s\nv %s %s\n", type ( k ), alias[ k ] or escape ( k ), type ( v ), alias[ v ] or escape ( v ) ) )
    end
    if mt then dumpfile ( file, mt, alias, seen ) end
    for k, v in pairs ( t ) do
        if type ( k ) == 'table' then dumpfile ( file, k, alias, seen ) end
        if type ( v ) == 'table' then dumpfile ( file, v, alias, seen) end
    end
end

local function unescape ( s )
    s = s:gsub ( "\\n", "\n" )
    return s
end
local function loadstr ( s, alias )
    do local t = { } for k, v in pairs ( alias ) do t[ v ] = k end alias = t end
    local tlist, tcurr, kcurr, troot = { }, nil, nil, nil
    for l in s:gmatch ( "([^\n]+)\n" ) do
        local nt = l:match ( "newtable (.+)" )
        local mt = l:match ( "metatable (.+)" )
        local kt, k = l:match ( "k ([^ ]+) (.+)" )
        local vt, v = l:match ( "v ([^ ]+) (.+)" )
        if nt     then tlist[ nt ] = tlist[ nt ] or alias[ nt ] or { }; tcurr = tlist[ nt ]; troot = troot or tcurr
        elseif mt then tlist[ mt ] = tlist[ mt ] or alias[ nt ] or { }; setmetatable ( tcurr, tlist[ mt ] )
        elseif k then
            if     kt == 'table' then tlist[ k ] = tlist[ k ] or alias[ k ] or { }; kcurr = tlist[ k ]
            elseif kt == 'number' then kcurr = alias[ k ] or tonumber ( k )
            elseif kt == 'string' then kcurr = alias[ k ] or unescape ( k )
            else kcurr = alias[ k ]
            end
        elseif v and tcurr and kcurr ~= nil then
            if     vt == 'table' then tlist[ v ] = tlist[ v ] or alias[ v ] or { }; tcurr[ kcurr ] = tlist[ v ]
            elseif vt == 'number' then tcurr[ kcurr ] = alias[ v ] or tonumber ( v )
            elseif vt == 'string' then tcurr[ kcurr ] = alias[ v ] or unescape ( v )
            else tcurr[ kcurr ] = alias[ v ]
            end
        end
    end
    return troot
end

local aliases = { }

local function escape ( s )
    s = tostring ( s ):gsub ( "\n", "\\n" )
    return s
end
local function dumpstr ( t, alias, seen )
    alias, seen = alias or aliases, seen or { }
    if seen[ t ] then return "" else seen[ t ] = true end
    local s, mt = string.format ( "newtable %s\n", alias[ t ] or escape ( t ) ), getmetatable ( t )
    if mt then s = string.format ( "%smetatable %s\n", s, alias[ mt ] or escape ( mt ) ) end
    for k, v in pairs ( t ) do
        s = string.format ( "%sk %s %s\nv %s %s\n", s, type ( k ), alias[ k ] or escape ( k ), type ( v ), alias[ v ] or escape ( v ) )
    end
    if mt then s = string.format ( "%s%s", s, dumpstr ( mt, alias, seen ) ) end
    for k, v in pairs ( t ) do
        if type ( k ) == 'table' then s = string.format ( "%s%s", s, dumpstr ( k, alias, seen ) ) end
        if type ( v ) == 'table' then s = string.format ( "%s%s", s, dumpstr ( v, alias, seen ) ) end
    end
    return s
end
local function dumpfile ( file, t, alias, seen )
    alias, seen = alias or aliases, seen or { }
    if seen[ t ] then return else seen[ t ] = true end
    local mt = getmetatable ( t )
    file:write ( string.format ( "newtable %s\n", alias[ t ] or escape ( t ) ) )
    if mt then file:write ( string.format ( "metatable %s\n", alias[ mt ] or escape ( mt ) ) ) end
    for k, v in pairs ( t ) do
        file:write ( string.format ( "k %s %s\nv %s %s\n", type ( k ), alias[ k ] or escape ( k ), type ( v ), alias[ v ] or escape ( v ) ) )
    end
    if mt then dumpfile ( file, mt, alias, seen ) end
    for k, v in pairs ( t ) do
        if type ( k ) == 'table' then dumpfile ( file, k, alias, seen ) end
        if type ( v ) == 'table' then dumpfile ( file, v, alias, seen) end
    end
end

local function unescape ( s )
    s = s:gsub ( "\\n", "\n" )
    return s
end
local function loadstr ( s, alias )
    alias = alias or aliases
    do local t = { } for k, v in pairs ( alias ) do t[ v ] = k end alias = t end
    local tlist, tcurr, kcurr, troot = { }, nil, nil, nil
    for l in s:gmatch ( "([^\n]+)\n" ) do
        local nt = l:match ( "newtable (.+)" )
        local mt = l:match ( "metatable (.+)" )
        local kt, k = l:match ( "k ([^ ]+) (.+)" )
        local vt, v = l:match ( "v ([^ ]+) (.+)" )
        if nt     then tlist[ nt ] = tlist[ nt ] or alias[ nt ] or { }; tcurr = tlist[ nt ]; troot = troot or tcurr
        elseif mt then tlist[ mt ] = tlist[ mt ] or alias[ nt ] or { }; setmetatable ( tcurr, tlist[ mt ] )
        elseif k then
            if     kt == 'table' then tlist[ k ] = tlist[ k ] or alias[ k ] or { }; kcurr = tlist[ k ]
            elseif kt == 'number' then kcurr = alias[ k ] or tonumber ( k ) or 0/0
            elseif kt == 'string' then kcurr = alias[ k ] or unescape ( k )
            else kcurr = alias[ k ]
            end
        elseif v and tcurr and kcurr ~= nil then
            if     vt == 'table' then tlist[ v ] = tlist[ v ] or alias[ v ] or { }; tcurr[ kcurr ] = tlist[ v ]
            elseif vt == 'number' then tcurr[ kcurr ] = alias[ v ] or tonumber ( v ) or 0/0
            elseif vt == 'string' then tcurr[ kcurr ] = alias[ v ] or unescape ( v )
            else tcurr[ kcurr ] = alias[ v ]
            end
        end
    end
    return troot
end

local function addalias ( item, path, deep, seen )
    if item == nil and path == nil and deep == nil and seen == nil then item, path, deep = _G, "_G", true end
    seen = seen or { }
    if item == nil or path == nil or seen[ item ] ~= nil then
        return
    elseif type ( item ) == 'table' and deep then
        seen[ item ] = true
        for k, v in pairs ( item ) do
            if type ( v ) == 'table'  then
                addalias ( v, string.format ( "%s.%s", path, escape( k ) ), deep, seen )
            elseif type ( v ) ~= 'string' and type ( v ) ~= 'number' then
                aliases[ v ] = string.format ( "%s.%s", path, escape ( k ) )
            end
        end
    else
        aliases[ item ] = path
    end
end

addalias ( math.huge, "math.huge" )
addalias ( -math.huge, "-math.huge" )

return { dumpstr = dumpstr, dumpfile = dumpfile, loadstr = loadstr, addalias = addalias }

k=j;
F:write("Первая сделка i="..i..", j="..j..", k="..k.."\n");
goto qq;end;end;
...
::qq::
j=k;
::LSetTradeData::
F:write("i="..i..", j="..j..", N="..a[i][12][0][0].."\n");

function OnTrade(n)   -- обработчик прерывания по приходу сделки
 local i,j,k,s;   -- вспомогательные переменные

local i = -999
for i = 1, 100 do
  if math.random ( 0, 9 ) == 0 then 
    print ( i )
    break 
  end
end
print ( i )

#include "stdio.h"
#include "stdlib.h"
int main ( int argc, char ** argv )
{
  int i = 0;
  for ( int i = 1; i < 100; i++ )
  {   
    if ( rand ( ) % 10 == 0 ) 
    {
      printf ( "%d\n", i );
      break;
    }
  }
  printf ( "%d", i );
  return 0;
}