DEFINITION MODULE RecnikATP;

  CONST
    Broj = 11; (* Neki prost broj *)
    MaxDuzRec = 50;
    MaxTabela = Broj - 1;

  TYPE
    String = ARRAY [1 .. MaxDuzRec] OF CHAR;
    Lista = POINTER TO Element;
    Element = RECORD
                Veza, Prevod: Lista;
                Rec: String;
            END;
    Indeksi = [0 .. MaxTabela];
    Tabela = ARRAY Indeksi OF Lista;
    Recnik = RECORD
               BrojReci: CARDINAL;
               Domace, Strane: Tabela;
             END;

  PROCEDURE Inicijalizuj(VAR R: Recnik);
  PROCEDURE Unisti(VAR R: Recnik);

  PROCEDURE Ubaci(DomacaRec, StranaRec: String;
                  VAR R: Recnik;
                  VAR Duplikat: BOOLEAN);

  PROCEDURE Izbaci(Rec: String;
                   VAR R: Recnik;
                   Domaca: BOOLEAN;
                   VAR Ok: BOOLEAN);

  PROCEDURE Prevedi(StranaNaDomacu: BOOLEAN;
                    Rec: String;
                    VAR Prevod: String;
                    VAR R: Recnik;
                    VAR Ok: BOOLEAN);

  PROCEDURE Sadrzaj(VAR R: Recnik);

END RecnikATP.