local LastStatus    = nil
local trans_id=1

local stopped = false
function OnStop()
   stopped = true
   return 2000
end

function main()

 while stopped == false do

 trans_id=trans_id+1
local OrderSell = {
                     ["ACTION"]="NEW_ORDER",
                     ["ACCOUNT"]= "SPBFUT0000",
                  ["OPERATION"] = "B",
                     ["CLASSCODE"]="SPBFUT",
                            ["SECCODE"] = "SRU0",
                            ["PRICE"] = "0",
                     ["QUANTITY"] = tostring(1),
                     ["TRANS_ID"] = tostring(trans_id),
                     ["TYPE"] = "M",
                     }
         local result = sendTransaction(OrderSell)

   sleep(1000)
   end
  end


function OnTransReply(trans_reply)
   if trans_reply.trans_id == trans_id then
      if trans_reply.status == LastStatus then return else LastStatus = trans_reply.status end
           if       trans_reply.status == 0    then message('OnTransReply(): Транзакция отправлена серверу')
            elseif   trans_reply.status == 1    then message('OnTransReply(): Транзакция получена на сервер QUIK от клиента')
            elseif   trans_reply.status == 2    then message('OnTransReply(): Ошибка')
            elseif   trans_reply.status == 3    then message('OnTransReply(): ТРАНЗАКЦИЯ ВЫПОЛНЕНА')
         end
   end
end