16 lines
375 B
Plaintext
16 lines
375 B
Plaintext
procedure echo(string s)
|
|
sleep(rand(100)/100)
|
|
enter_cs()
|
|
puts(1,s)
|
|
puts(1,'\n')
|
|
leave_cs()
|
|
end procedure
|
|
|
|
constant threads = {create_thread(routine_id("echo"),{"Enjoy"}),
|
|
create_thread(routine_id("echo"),{"Rosetta"}),
|
|
create_thread(routine_id("echo"),{"Code"})}
|
|
|
|
wait_thread(threads)
|
|
puts(1,"done")
|
|
{} = wait_key()
|