Procedures and Functions

      DataStack = Object

                     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;

                   Private

                     StackData:StackArray;
                     StackPtr :Word;

                   {$IFDEF NOTFINAL}

                     Procedure Error(Num:Byte);

                   {$ENDIF}

                   End;