degredation in performance

function Trig_Untitled_Trigger_001_Actions takes nothing returns nothing
  local integer k = 0
  local integer j = 0

    call DisplayTextToPlayer(Player(4), .2, .2, "trigger start...")
    call TriggerSleepAction(1)
    loop
      exitwhen j > 70
      call TriggerSleepAction(0)
      set k = 0
      loop
        exitwhen k > 99
        call DisplayTextToPlayer(Player(4), .2, .2, I2S(100*j + k))
        set k = k + 1
        set udg_i = udg_i + 1
      endloop
      set j = j + 1
    endloop

    call DisplayTextToPlayer(Player(4), .2, .2, "trigger end.")

endfunction

//===========================================================================
function InitTrig_Untitled_Trigger_001 takes nothing returns nothing
    set gg_trg_Untitled_Trigger_001 = CreateTrigger(  )
    call TriggerRegisterPlayerChatEvent( gg_trg_Untitled_Trigger_001, Player(4), "test", true )
    call TriggerAddAction( gg_trg_Untitled_Trigger_001, function Trig_Untitled_Trigger_001_Actions )
endfunction