DEFINITION MODULE RedOpsl1;
FROM QueueInfo IMPORT InfoTip,Maxqueue;
TYPE 
  Niz = ARRAY[1..Maxqueue] OF InfoTip;
  RedOpslTip = RECORD
        Prvi, Zadnji : CARDINAL;
        Element : Niz
  END;

PROCEDURE MakeNull(VAR q : RedOpslTip);
PROCEDURE Empty(VAR q : RedOpslTip) : BOOLEAN;
PROCEDURE First(VAR q : RedOpslTip;
                VAR x : InfoTip;
                VAR ok : BOOLEAN);
PROCEDURE PopFirst(VAR q : RedOpslTip;
                   VAR ok : BOOLEAN);
PROCEDURE AddRear(VAR q : RedOpslTip;
                  x : InfoTip;
                  VAR ok : BOOLEAN);

END RedOpsl1.