(******************************************************************************)
(*      This MODULE is Public Domain. Copy me like a beast!                   *)
(*               Christian Ledermann                                          *)
(*               W”lfelkofen 2                                                *)
(*               84166 Adlkofen                                               *)
(******************************************************************************)
(*                                                                            *)
(* Started:   20.12.92     03:54:30                                           *)
(* Version:   20.01.94     04:12:54                                           *)
(*                                                                            *)
(******************************************************************************)
(*                                                                            *)
(* Diese Software ist ohne jede Garantie. Ich verspreche                      *)
(* keinerlei Wartung und �bernehme keine Verantwortung f�r Sch„den die        *)
(* durch die Benutzung dieses Programmes entstehen.                           *)
(* Jegliche Ersatzanspr�che lehne ich ab.                                     *)
(*                                                                            *)
(******************************************************************************)
DEFINITION MODULE PreisListe;
(* Entnommen ST-Computer 10/89*)
TYPE PriceList;
       GTString= ARRAY [0..15] OF CHAR;

TYPE EKPreis = RECORD TreeIndex         : INTEGER;
                      Getraenk          : GTString;
                      Preis,
                      FlaschenProKasten : INTEGER;
                      NeuBezogeneKaesten,
                      ZuBezahlendeKaesten,
                      KaestenGes        : INTEGER;
               END(*RECORD*);
   FindProc  = PROCEDURE (EKPreis,EKPreis):BOOLEAN;


VAR VerkaufsPreis : RECORD  BierPreis , LimoPreis :INTEGER;
                    END(*RECORD*);




PROCEDURE MakePriceList(VAR L:PriceList);
PROCEDURE KillPriceList(VAR L:PriceList);
PROCEDURE First(VAR L:PriceList);
PROCEDURE Last(VAR L:PriceList);
PROCEDURE Next(VAR L:PriceList);
PROCEDURE Prev(VAR L:PriceList);
PROCEDURE Empty(VAR L:PriceList):BOOLEAN;
PROCEDURE AtFirst(VAR L:PriceList):BOOLEAN;
PROCEDURE AtLast(VAR L:PriceList):BOOLEAN;
PROCEDURE Find(VAR L:PriceList;VAR Value:EKPreis;
          VAR Finde:FindProc; Key:EKPreis ):BOOLEAN;
PROCEDURE FindFirst(VAR L:PriceList;VAR Value:EKPreis;
          VAR Finde:FindProc; Key:EKPreis):BOOLEAN;
PROCEDURE FindNext(VAR L:PriceList;VAR Value:EKPreis;
          VAR Finde:FindProc;Key:EKPreis):BOOLEAN;
PROCEDURE GetValue(VAR L:PriceList; VAR Value:EKPreis):BOOLEAN;
PROCEDURE SetValue(VAR L:PriceList; Value:EKPreis);
PROCEDURE EnterElement(VAR L:PriceList);
PROCEDURE AppendElement(VAR L:PriceList);
PROCEDURE RemoveElement(VAR L:PriceList);
END PreisListe.