こんな感じ?
while 1
vsync
b=button()
if b and #a then ? "a ボタン"
if b and #b then ? "b ボタン"
if b and #left then ? "ひだり ボタン"
if b and #right then ? "みぎ ボタン"
wend
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
でどうでしょう?