42400 #include "rundecs.h"
42410     (*  COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER  *)
42420 (**)
42430 (**)
42440 (*-01() (*-05()
42450 PROCEDURE RANGENT (IDB: PIDBLK; LOCRG: DEPTHRANGE; NEWRG: PRANGE);
42460 (*PRANGENT*)
42470     BEGIN
42480     WITH NEWRG^ DO WITH FIRSTW DO
42490       BEGIN
42500       LOOPCOUNT := 0;
42510       RGIDBLK := IDB;
42520       RECGEN := NIL;
42530       RGSCOPE := LOCRG;
42540       RIBOFFSET:= FIRSTRG.RIBOFFSET;
42550 (*-41() RGNEXTFREE := INCPTR(NEWRG, RGCONST); ()-41*)
42560 (*+41() RGLASTUSED := ASPTR(ORD(NEWRG)); ()+41*)
42570       END;
42580     FIRSTRG.RIBOFFSET:= NEWRG
42590     END;
42600 ()-05*) ()-01*)
42610 (**)
42620 (**)
42630 (*-02()
42640   BEGIN
42650   END ;
42660 ()-02*)
42670 (*+01()
42680 BEGIN (*OF MAIN PROGRAM*)
42690 END (*OF EVERYTHING*).
42700 ()+01*)