Procedure Init;
 Function  Empty         :Boolean;
 Function  Full          :Boolean;
 Procedure Push (    Item:Data);
 Procedure Pop  (Var Item:Data);
 Procedure Top  (Var Item:Data);
 Procedure Drop;
 Procedure Destroy;
 Procedure Error(Num:Byte);