37900 #include "rundecs.h"
37910     (*  COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER  *)
37920 (**)
37930 (**)
37940 PROCEDURE LINIT3(BY: INTEGER; PTR: BYLPP) ;
37950     BEGIN
37960     FIRSTRG.RIBOFFSET^.FIRSTW.LOOPCOUNT := FIRSTRG.RIBOFFSET^.FIRSTW.LOOPCOUNT+1;
37970     WITH PTR^ DO
37980       BEGIN
37990       LOOPTYP := 3;
38000       BYPART := BY;
38010       FROMPART := GETSTKTOP(SZINT, 0);
38020       END;
38030     END;
38040  (**)
38050 PROCEDURE LINIT4(FROM: INTEGER; PTR: NOBYLPP) ;
38060     BEGIN
38070     FIRSTRG.RIBOFFSET^.FIRSTW.LOOPCOUNT := FIRSTRG.RIBOFFSET^.FIRSTW.LOOPCOUNT+1;
38080     WITH PTR^ DO
38090       BEGIN
38100       LOOPTYP := 4;
38110       FROMPART := FROM;
38120       END;
38130     END;
38140 (**)
38150 (**)
38160 (*-02()
38170   BEGIN
38180   END ;
38190 ()-02*)
38200 (*+01()
38210 BEGIN (*OF MAIN PROGRAM*)
38220 END (*OF EVERYTHING*).
38230 ()+01*)