procedure mythread()
?"mythread"
exit_thread(0)
end procedure
atom hThread = create_thread(routine_id("mythread"),{})
?"main carries on"
wait_thread(hThread)