-83


- 2


end;

function BUSY_LIST_EMPTY return BOOLEAN is ... end;

procedure EXCHANGE (FROM : in INDEX; TO : in INDEX) is ... end;

procedure INSERT (NEWJTEM : in ITEM) is begin

if FREE_LIST_EMPTY then raise TABLE_FULL; end if;

-— INSERT end INSERT;

procedure RETRIEVE (FIRSTJTEM : out ITEM) is ... end;

begin

-— end TABLE_MANAGER;

.

.

7.4.

7.6.