Unit BullSubj;

{***************************************************************************}

{* Bit 0 (LSB) is a 1 when shut

{***************************************************************************}



interface

{***************************************************************************}

{***************************************************************************}



Function  Open(BSA: integer; User: integer): boolean;

Function  Shut(BSA: integer; User: integer): boolean;



implementation

{***************************************************************************}

{***************************************************************************}



Function  Open(BSA: integer; User: integer): boolean;

{***************************************************************************}

var

  OldByte,

  NewByte: byte;

begin

  if not(DataByte('R', BSA, User, OldByte)) then

    OldByte := 0;

  NewByte := Bits.SetLow(OldByte, 0);

  Open := DataByte('W', BSA, User, NewByte);

end;



Function Shut(BSA: integer; User: integer): boolean;

{***************************************************************************}

begin

  if not(DataByte('R', BSA, User, OldByte)) then

    OldByte := 0;

  NewByte := Bits.SetHigh(OldByte, 0);

  Shut := DataByte('W', BSA, User, NewByte);

end;



{***************************************************************************}

{***************************************************************************}

{***************************************************************************}

begin

end.



