load(([[do Xc,M=computer,component.proxy(component.list("modem")())XA,T,lp,r,tmp,bc,P=M.address,c.uptime,0,{},nil,"",10251 XYwn(t)while t>T()do if not IH(c.pullSignal(t-T()))WUZZUtrue ZIC,IM={},{}XS,B=function(s,ms,...)M.send(s,P,ms,...)Z,function(...)M.broadcast(P,...)ZYIE()M.open(P) B("p") Xt=T()+5 IC.p=nil while IC.a==nil and T()<t do wn(t) Zlp=T()+5 ZYIA()UT()>lp+10 ZYIS(d,...)S(IC.p,"m!"..IC.a.."@"..d,...)ZYIH(t,a,s,p,d,m,...)if lp<T()and IC.p WS(IC.p,"c",IC.t) Zfor k,v in pairs(r)do if v<T()Wr[k]=nil ZZif t~="modem_message"or a~=A or p~=P WUt,a,s,p,d,m,... Zif m=="P"and({...})[3]==nil and IC.p==nil WIC.p=s S(s,"v")Zif m=="V"and({...})[1]WS(s,"a",A) Zif m=="A"W_,IC.a,IC.t=... bc=IC.a:gsub("[^%.]+$","").."~"Zif m=="C"Wlp=T()+5 Zif m=="f"and ({...})[1]==IC.t WS(s,"F",IC.t)Zif m:sub(1,1)=="m"WXsr,ds,i=m:match("^m!(.+)@([^#]+)#?(.*)$") if ds:sub(1,#IC.a)==IC.a Wif i~=""WS(s,"m!"..IC.a.."@"..sr.."#!"..i) tmp=r[i] r[i]=T()+5 if tmp~=nil WUZZtable.insert(IM,{sr,ds,...})elseif ds:sub(1,#bc)==bc Wtable.insert(IM,{sr,ds,...}) ZZZZ]]):gsub("X","local "):gsub("Z","end "):gsub("Y","function "):gsub("W","then "):gsub("U","return "))()

IE()
IS("someplace.computer", "Hello")
while true do IH(computer.pullSignal(0.1)) if IM[1] then computer.beep(table.unpack(table.remove(IM,1),3)) end end