var i:integer; begin if FromServer and (pck[1]=#$32) then begin i:=22; ReadS(i); i:=i+504; buf:=pck; WriteD(1,i); pck:=buf; end; end.