37200 #include "rundecs.h"
37210     (*  COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER  *)
37220 (**)
37230 (**)
37240 FUNCTION RELSUP(REF: OBJECTP): UNDRESSP; EXTERN;
37250 (**)
37260 (**)
37270 FUNCTION IS(LEFT, RIGHT: OBJECTP): INTEGER;
37280 (*PIDTYREL*)
37290     BEGIN
37300     IF RELSUP(LEFT)=RELSUP(RIGHT) THEN
37310       IS := -1
37320     ELSE IS := 0
37330     END;
37340 (**)
37350 (**)
37360 FUNCTION ISNT(LEFT, RIGHT: OBJECTP): INTEGER;
37370 (*PIDTYREL+1*)
37380     BEGIN
37390     IF RELSUP(LEFT)<>RELSUP(RIGHT) THEN
37400       ISNT := -1
37410     ELSE ISNT := 0
37420     END;
37430 (**)
37440 (**)
37450 (*-02() BEGIN END ; ()-02*)
37460 (*+01()
37470 BEGIN (*OF MAIN PROGRAM*)
37480 END (*OF EVERYTHING*).
37490 ()+01*)