Checkpoint synchronization: Difference between revisions
m
→{{header|Oforth}}
Line 1,422:
System.Out "TASK " << n << " : Beginning my work..." << cr
System sleep(1000 rand)
System.Out "TASK " << n << " : Finish, sendind done and waiting for others..." << cr▼
jobs send($jobDone) drop
▲ System.Out "TASK " << n << " : Finish, waiting for others..." << cr
myChannel receive drop
]
| |||