class test
   a = nil
   c1 = 0
   c2 = 1
end
 
loops = 1000000
 
function changeAsInt(t)
   > "Entering changeAsInt" 
   for i = 0 to loops
      t.a = i
      t.c1 = i
   end
end
 
function changeAsString(t)
   > "Entering changeAsString"
   for i = 0 to loops
      t.a = "String " + i
      t.c2 = i
   end
end
 
 
function checker( t )
   > "Entering checker"
   > ""
   while t.c1 < loops or t.c2 < loops
      >> "Check: ", t.c1, " - ", t.c2, ": ", t.a, "                      ", "\r"
   end
end
 
t = test()
comp = Parallel( {=>changeAsInt(t)}, {=> changeAsString(t)}, {=> checker(t)})
comp.launch()
> ""
> "Complete."
 

Y2xhc3MgdGVzdAogICBhID0gbmlsCiAgIGMxID0gMAogICBjMiA9IDEKZW5kCgpsb29wcyA9IDEwMDAwMDAKCmZ1bmN0aW9uIGNoYW5nZUFzSW50KHQpCiAgID4gIkVudGVyaW5nIGNoYW5nZUFzSW50IiAKICAgZm9yIGkgPSAwIHRvIGxvb3BzCiAgICAgIHQuYSA9IGkKICAgICAgdC5jMSA9IGkKICAgZW5kCmVuZAoKZnVuY3Rpb24gY2hhbmdlQXNTdHJpbmcodCkKICAgPiAiRW50ZXJpbmcgY2hhbmdlQXNTdHJpbmciCiAgIGZvciBpID0gMCB0byBsb29wcwogICAgICB0LmEgPSAiU3RyaW5nICIgKyBpCiAgICAgIHQuYzIgPSBpCiAgIGVuZAplbmQKICAgCgpmdW5jdGlvbiBjaGVja2VyKCB0ICkKICAgPiAiRW50ZXJpbmcgY2hlY2tlciIKICAgPiAiIgogICB3aGlsZSB0LmMxIDwgbG9vcHMgb3IgdC5jMiA8IGxvb3BzCiAgICAgID4+ICJDaGVjazogIiwgdC5jMSwgIiAtICIsIHQuYzIsICI6ICIsIHQuYSwgIiAgICAgICAgICAgICAgICAgICAgICAiLCAiXHIiCiAgIGVuZAplbmQKCnQgPSB0ZXN0KCkKY29tcCA9IFBhcmFsbGVsKCB7PT5jaGFuZ2VBc0ludCh0KX0sIHs9PiBjaGFuZ2VBc1N0cmluZyh0KX0sIHs9PiBjaGVja2VyKHQpfSkKY29tcC5sYXVuY2goKQo+ICIiCj4gIkNvbXBsZXRlLiIK