DEFINITION MODULE RedOpsl;
FROM Info IMPORT InfoTip;

CONST
  Maxred = 100;
TYPE
  Niz = ARRAY[1..Maxred] 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 RedOpsl.