begin if fromclient and (pck=#$6C) then begin buf:=#$6C; WriteD(ReadD(2)); WriteD(ReadD(6)-1); WriteD(0); pck := buf; end; end.