37600 #include "rundecs.h"
37610     (*  COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER  *)
37620 (**)
37630 (**)
37640 (*-01()
37650 FUNCTION LINIT2(TOO: INTEGER; PTR: NOBYLPP): BOOLEAN ;
37660 (*PLOOPINIT+1*)
37670     BEGIN
37680     FIRSTRG.RIBOFFSET^.FIRSTW.LOOPCOUNT := FIRSTRG.RIBOFFSET^.FIRSTW.LOOPCOUNT+1;
37690     WITH PTR^ DO
37700       BEGIN
37710       LOOPTYP := 2;
37720       FROMPART := GETSTKTOP(SZINT, 0);
37730       TOPART := TOO;
37740       LINIT2 := TOPART>=FROMPART;
37750       END;
37760     END;
37770 ()-01*)
37780 (**)
37790 (**)
37800 (*-02()
37810   BEGIN
37820   END ;
37830 ()-02*)
37840 (*+01()
37850 BEGIN (*OF MAIN PROGRAM*)
37860 END (*OF EVERYTHING*).
37870 ()+01*)