Task

Spawn a new process which can run simultaneously with, and independently of, the original parent process.




procedure main()
   if (fork()|runerr(500)) = 0 then
      write("child")
   else {
      delay(1000)
      write("parent")
   }
end