ðóSyntax10.Scn.FntSyntax10b.Scn.Fnt  ÿÿÿÿ€8ÀÔFoldElemsNew  ÿÿÿÿ€8ÀÔ )& ¼ÿÿÿ€8ÀÔ#Syntax10.Scn.Fnt"" BEGIN HALT(99) END GetPriority; %ÿÿÿÿ€8ÀÔ ¼ÿÿÿ€8ÀÔ#Syntax10.Scn.Fnt"" BEGIN HALT(98) END SetPriority; %ÿÿÿÿ€8ÀÔ»MODULE Common; TYPE Data* = POINTER TO DataDesc; DataDesc* = RECORD END; Elem* = POINTER TO ElemDesc; ElemDesc* = RECORD data*: Data; next*: Elem; END;  IteratorProc* = PROCEDURE (VAR data: DataDesc); VAR NILdata-: Data; PROCEDURE (VAR d: DataDesc) GetPriority* (): LONGINT;abstract function, must be overridden PROCEDURE (VAR d: DataDesc) SetPriority* (prio: LONGINT);abstract function, must be overridden END Common.