const
Name = 'Boni4ka';
procedure Init;
begin
RunClient('ju1ius');
end;
procedure Free;
begin
end;
begin
if FromClient and (ConnectName=Name) and (pck[1]=#$2F)
then pck[6]:=#$01;
end.
