--::::::::::
--lplpenad.adb
--::::::::::
package body List_Pos_Lpt_En.Advanced is

function Size_Of return integer is
   begin -- Size_Of
      return adv_zqklst.Size_Of (List);
   end Size_Of;
   -------------------------------------------------------
procedure Insert (Object  : in out Object_Type;
                  Position: in     positive) is
   begin -- Insert
      adv_zqklst.Insert (Object, Position, List);
   end Insert;
   --------------------------------------------------
procedure Remove (Position: in     positive;
                  Object  : in out Object_Type) is
   begin -- Remove
      adv_zqklst.Remove (List, Position, Object);
   end Remove;
   ---------------------------------------------------
procedure Poke (Index : in     positive;
                Object: in out Object_Type) is
   begin -- Poke
      adv_zqklst.Poke (List, Index, Object);
   end Poke;
   --------------------------------------------------
function Peek (Index   : positive) return Object_Type is
   begin -- Peek
      return adv_zqklst.Peek (List, Index);
   end Peek;
   --------------------------------------------------

end List_Pos_Lpt_En.Advanced;