[PanAm]

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