38300 #include "rundecs.h"
38310     (*  COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER  *)
38320 (**)
38330 (**)
38340 FUNCTION LINIT1(TOO: INTEGER; PTR: BYLPP): BOOLEAN ;
38350 (*PLOOPINIT*)
38360     BEGIN
38370     FIRSTRG.RIBOFFSET^.FIRSTW.LOOPCOUNT := FIRSTRG.RIBOFFSET^.FIRSTW.LOOPCOUNT +1 ;
38380     WITH PTR^ DO
38390       BEGIN
38400       LOOPTYP := 1;
38410       BYPART := GETSTKTOP(SZINT, 0);
38420       FROMPART := GETSTKTOP(SZINT, SZINT);
38430       TOPART := TOO;
38440       IF BYPART>0 THEN LINIT1 := TOPART>=FROMPART
38450       ELSE IF BYPART<0 THEN LINIT1 := TOPART<=FROMPART
38460       ELSE LINIT1 := TRUE;
38470       END;
38480     END;
38490 (**)
38500 (**)
38510 (*-01()
38520 FUNCTION LOOPINC(PTR: BYLPP): BOOLEAN ;
38530     BEGIN
38540     WITH PTR^ DO
38550       BEGIN
38560       FROMPART := FROMPART+BYPART;
38570       IF BYPART>0 THEN LOOPINC := TOPART>=FROMPART
38580       ELSE IF BYPART<0 THEN LOOPINC := TOPART<=FROMPART
38590       ELSE LOOPINC := TRUE;
38600       END;
38610   END ;
38620 ()-01*)
38630 (**)
38640 (**)
38650 (*-02()
38660   BEGIN
38670   END ;
38680 ()-02*)
38690 (*+01()
38700 BEGIN (*OF MAIN PROGRAM*)
38710 END (*OF EVERYTHING*).
38720 ()+01*)