Procedure Insert(Item:ListData);

    This inserts item Item before  the  current  item.  All the items are
    thus shifted up 1 space.

    The new item becomes the current item.

    Warning

    No  range  checking  is  performed.   If  the  list  is already full,
    data in memory could be lost.