17 lines
322 B
Text
17 lines
322 B
Text
Module Checkit {
|
|
For i=1 to 200
|
|
Thread {
|
|
k++
|
|
Print "Thread:"; num, "k=";k
|
|
} as M
|
|
Thread M Execute {
|
|
static num=M, k=1000*i
|
|
}
|
|
Thread M interval 100+900*rnd
|
|
next i
|
|
|
|
Task.Main 20 {
|
|
if random(10)=1 then Set End
|
|
}
|
|
}
|
|
Checkit
|