47400 #include "rundecs.h"
47410     (*  COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER  *)
47420 (**)
47430 (**)
47440 FUNCTION SETCC(POINT: OBJECTP): OBJECTP;
47450 (*PCREATEREF+4*)
47460 (*A POSSIBLE PROCESS PARAMETER FOR DCL*)
47470     BEGIN
47480     WITH POINT^ DO
47490       IF (SORT=REFSL1) OR (SORT=REFSLN) THEN
47500         CCOUNT := 1;  (*SET CCOUNT FOR OVERLAP SEARCH*)
47510     SETCC := POINT;
47520     END;
47530 (**)
47540 (**)
47550 (*-02()
47560   BEGIN
47570   END ;
47580 ()-02*)
47590 (*+01()
47600 BEGIN (*OF MAIN PROGRAM*)
47610 END (*OF EVERYTHING*).
47620 ()+01*)