9 lines
167 B
Text
9 lines
167 B
Text
|
procedure mythread()
|
||
|
|
?"mythread"
|
||
|
|
exit_thread(0)
|
||
|
|
end procedure
|
||
|
|
|
||
|
|
atom hThread = create_thread(routine_id("mythread"),{})
|
||
|
|
?"main carries on"
|
||
|
|
wait_thread(hThread)
|