8 lines
167 B
Text
8 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)
|