88500 #include "rundecs.h"
88510     (*  COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER  *)
88520  (**)
88530 PROCEDURE GARBAGE (ANOBJECT: OBJECTP); EXTERN ;
88540 PROCEDURE ERRORR(N :INTEGER); EXTERN ;
88550 PROCEDURE CLPASC5(P1,P2 :IPOINT; P3,P4 :INTEGER; P5 :IPOINT; PROC: ASPROC); EXTERN;
88560 PROCEDURE TESTF(RF:OBJECTP;VAR F:OBJECTP); EXTERN;
88570 (**)
88580 (**)
88590 (*+01() (*$X6*) ()+01*)
88600 PROCEDURE SETT(RF: OBJECTP; P, L, C: INTEGER);
88610   VAR F: OBJECTP;
88620     BEGIN
88630     TESTF(RF, F);
88640     WITH F^.PCOVER^ DO
88650       IF OPENED IN STATUS THEN
88660         IF (P<1) OR (L<1) OR (C<1) THEN ERRORR(POSMIN)
88670         ELSE IF (P>PAGEBOUND+1) OR (L>LINEBOUND+1) OR (C>CHARBOUND+1) THEN ERRORR(POSMAX)
88680         ELSE IF SETPOSS IN POSSIBLES THEN
88690           CLPASC5(ORD(F^.PCOVER), P, L, C, ORD(BOOK), DOSET)
88700         ELSE ERRORR(NOSET)
88710       ELSE ERRORR(NOTOPEN);
88720     IF FPTST(RF^) THEN GARBAGE(RF);
88730     END;
88740 (**)
88750 (**)
88760 (*+01() (*$X4*) ()+01*)
88770 (**)
88780 (**)
88790 (*-02()
88800 BEGIN (*OF A68*)
88810 END; (*OF A68*)
88820 ()-02*)
88830 (*+01()
88840 BEGIN (*OF MAIN PROGRAM*)
88850 END (* OF EVERYTHING *).
88860 ()+01*)