RosettaCodeData/Task/Program-termination/M2000-Interpreter/program-termination.m2000

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