Ticket #2116: stdout3.AU3

$threadident = $cmdline[1]

ConsoleWrite("thread started " & $threadident & @CRLF)

do
        Sleep(100)
until StringInStr(ConsoleRead(),"start work")

worktodo()
ConsoleWrite("work done " & $threadident & @CRLF)

do
        Sleep(100)
until StringInStr(ConsoleRead(),"exit")

ConsoleWrite("exited by master " & $threadident & @CRLF)
Sleep(1000)
Exit


Func worktodo()
        SRandom(timerinit())
        Local $ergebnis=0
        for $i=1 to 10
                Sleep(1000)
                $ergebnis += $i* $ergebnis + random(1000,9999,1)
                ;$ergebnis += $i* $ergebnis + _random() ; resolves issue
                consolewrite("I am working (" & $ergebnis & ")! " & $threadident & @CRLF)
        Next
EndFunc

func _random()
        Local $random = 1
        $random = Random($threadident,$threadident*2000,1)
        Return $random
EndFunc