while 1:vsync:a$=inkey$():b$=b$+a$:? a$; a=button(2): if a==32 then break if a==16 && b$!="" then mpsend b$:b$="" mprecv out sid,rcv$ if sid>=0 && sid !=mplocal then ?:? "<";rcv$ wend mpend でどうでしょう?