local  x, y
 function   main ()
   while   true   do 
    y  =   99 
    x  =   199 
    x, y  =  y, x
     if  x ~ =   99   or  y ~ =   199   then 
      s  =  tostring(x) .. "," .. tostring(y) .. "\n"
     end 
   end  
 end   

local  x, y
 function   main ()
   while   true   do 
    y=99
    x= 99 
    x, y  =  y, x
     if  x~= 99   or  y ~= 199   then 
      s  =  tostring(x) .. "," .. tostring(y) .. "\n"
     end 
       sleep(1);
   end  
 end  

local x, y
function main()
  while true do
    y = 99
    x = 199
    x, y = y, x
    if x ~= 99 or y ~= 199 then
      s = tostring(x)..","..tostring(y).."\n"
    end
  end 
end

local x, y
function main()
  while true do
    y = 99
    x = 199
    x, y = y, x
    if x ~= 99 or y ~= 199 then end
    s = tostring(x)..","..tostring(y).."\n"
  end 
end

    y = 99
    x = 199
    x, y = y, x
    if x ~= 99 or y ~= 199 then

      if a1 ~= a2 or a1 ~= a3 or a1 ~= a4 or a1 ~= a5 or a1 ~= a6 or a1 ~= a7 or a1 ~= a8 or a1 ~= a9 or a1 == nil then
        error("error")
      end

minfo=debug.getinfo(1, "S").source:sub(2);  path=minfo:match("(.*[/\\])") or "."
Log=io.open(path.."/test.log","w"); 
fconnect=1; 
local x,y;
function main()
    while true do
        y=99 x=199      x,y=y,x;
        if x~=99 or y~=199 then
            Log:write(tostring(x)..","..tostring(y).."\n");Log:flush();
        end
            sleep(1);
       end 
end   
function OnParam(c, s) 
   y=100 x=200      x,y=y,x;
   if x~=100 or y~=200 then
        Log:write(tostring(x)..","..tostring(y).."\n");Log:flush();
    end
end

function OnInit(p) 
 fconnect=1;
end

minfo=debug.getinfo(1, "S").source:sub(2);  path=minfo:match("(.*[/\\])") or "."
Log=io.open(path.."/test.log","w"); 
fconnect=1; 
local x,y;
function main()
  while  fconnect do 
        fconnect=2
        while fconnect==2 do
            y=99 x=199      x,y=y,x;
            if x~=99 or y~=199 then
                Log:write(tostring(x)..","..tostring(y).."\n");Log:flush();
            end
        end 
        sleep(10);
    end
    sleep(1000) 
end   
function OnParam(c, s) 
   y=100 x=200      x,y=y,x;
   if x~=100 or y~=200 then
        Log:write(tostring(x)..","..tostring(y).."\n");Log:flush();
    end
end

function OnInit(p) 
 fconnect=1;
end

   local  run  =   true 
 local  a1, a2, a3, a4, a5, a6, a7, a8, a9  =   0 ,  0 ,  0 ,  0 ,  0 ,  0 ,  0 ,  0 ,  0 
 local  n  =   100 

 function   OnAllTrade ()
   for  i  =   1 , n  do 
    a1, a2, a3, a4, a5, a6, a7, a8, a9  =  i, i, i, i, i, i, i, i, i
   end 
 end 

 function   OnParam ()
   for  i  =   1 , n  do 
    a1, a2, a3, a4, a5, a6, a7, a8, a9  =  i, i, i, i, i, i, i, i, i
   end 
 end 

 function   main ()
   while  run  do 
     sleep ( 1 )
     local  t  =  prec_time()
     for  i  =   1 , n  do 
       if  a1 ~ =  a2  or  a1 ~ =  a3  or  a1 ~ =  a4  or  a1 ~ =  a5  or  a1 ~ =  a6  or  a1 ~ =  a7  or  a1 ~ =  a8  or  a1 ~ =  a9  or  a1  =  =   nil   then 
        error( "error" )
       end 
     end 
   end 
 end 

 function   OnStop ()
  run  =   nil 
 end   

a, b = 1, 2

x, y = y, x