(*********************************************************************
 *
 *  :Program.    Werkzeuge.def
 *  :Project.    Nahverkehrssystem
 *  :Author.     Ingo Goldak
 *  :Address.    Hohenzollerndamm 8
 *  :Address.    1000 Berlin 31
 *  :Copyright.  PD
 *  :Language.   Modula-II
 *  :Translator. M2Amiga V3.3d
 *  :Contents.   Konstanten und Typen
 *  :History. V1.0 [Ingo Goldak] 30.03.90
 *
 *********************************************************************)

DEFINITION MODULE Werkzeuge;

FROM Intuition IMPORT
     MenuPtr,WindowPtr;


CONST MAXNAMEN = 1000;
      MAXX = 639;
      MAXY = 245;


TYPE String = ARRAY [0..255] OF CHAR;
     TEXT = ARRAY [0..50] OF CHAR;
     KURZTEXT = ARRAY [0..15] OF CHAR;
     DATUM = ARRAY [0..18] OF CHAR;
     LINIE = ARRAY [0..5] OF CHAR;
     FARBEN = ARRAY [0..15],[1..3] OF CARDINAL;
     LISTELEMENT = RECORD
                      Namen : TEXT;
                      Nummer : CARDINAL;
                   END; (* RECORD *)
     DATUMSELEMENT = RECORD
                        Datum1,Datum2 : LONGCARD;
                        Nummer : CARDINAL;
                     END; (* RECORD *)
     DATENSATZ = RECORD
                    NamenOben : TEXT;
                    XPosOben,YPosOben : CARDINAL;
                    Namen : TEXT;
                    XPosHier,YPosHier : CARDINAL;
                    NamenUnten : TEXT;
                    XPosUnten,YPosUnten : CARDINAL;
                    OpenDate,CloseDate : DATUM;
                    NeueLinie : CARDINAL;
                    AlteLinie : LINIE;
                    AusgVorne,AusgMitte,AusgHinten : BOOLEAN;
                    Bahnsteigart : KURZTEXT;
                    BauForm : KURZTEXT;
                    Veraendert : TEXT;
                    Umsteigen : BOOLEAN;
                    Tiefe : REAL;
                    KurzZeichen : KURZTEXT;
                    Profil : KURZTEXT;
                    KehrVorne,KehrHinten : BOOLEAN;
                    Bahnform : KURZTEXT;
                 END; (* RECORD *)
     FLAGS = (Stadt,Namen,Veraendert,Liste,Datum,Sortiert);
     FLAGSET = SET OF FLAGS;
     LISTE = ARRAY [1..MAXNAMEN] OF LISTELEMENT;
     DATUMSLISTE = ARRAY [1..MAXNAMEN] OF DATUMSELEMENT;
     DISPLAYLIST = ARRAY[1..3],[1..MAXNAMEN] OF CARDINAL;

VAR List : LISTE;
    Names : CARDINAL;
    Farben : FARBEN;
    Speichern : BOOLEAN;
    Title : String;


PROCEDURE ClearWindow (Window : WindowPtr;
                       VAR Flags : FLAGSET);


PROCEDURE SetMenues (Menue : MenuPtr;
                     Flags : FLAGSET;
                     Nummer : CARDINAL);


END Werkzeuge.