//Автор ATMS_DIFKS
var  
oid,st:integer;
n,s:string;

begin
        if FromServer and (pck[1]=#$4A) then   
    Begin
    oid := ReadD(2);
    n   := ReadS(10);
    st := (length(n)*2)+12;
    s:= ReadS(st);
          buf:=#$CC;
          WriteD(oid);
          WriteS(s);
          SendToClient;
   end;
end.