82800 #include "rundecs.h"
82810     (*  COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER  *)
82820  (**)
82830 PROCEDURE GARBAGE (ANOBJECT: OBJECTP); EXTERN ;
82840 PROCEDURE ERRORR(N :INTEGER); EXTERN ;
82850 (*+01() (*$X4*) ()+01*)
82860 PROCEDURE TESTF(RF:OBJECTP;VAR F:OBJECTP); EXTERN;
82870 (**)
82880 (*******POSITION ENQUIRIES*******)
82890 (**)
82900 FUNCTION CHARNUMBER(RF:OBJECTP): INTEGER;
82910     VAR F:OBJECTP;
82920     BEGIN TESTF(RF,F);
82930     WITH F^.PCOVER^ DO
82940       IF [OPENED]<=STATUS THEN CHARNUMBER := COFCPOS
82950       ELSE ERRORR(NOTOPEN);
82960     IF FPTST(RF^) THEN GARBAGE(RF);
82970     END;
82980 (**)
82990 (**)
83000 FUNCTION LINENUMBER(RF:OBJECTP): INTEGER;
83010   VAR F:OBJECTP;
83020     BEGIN TESTF(RF,F);
83030     WITH F^.PCOVER^ DO
83040       IF [OPENED]<=STATUS THEN LINENUMBER := LOFCPOS
83050       ELSE ERRORR(NOTOPEN);
83060     IF FPTST(RF^) THEN GARBAGE(RF);
83070     END;
83080 (**)
83090 (**)
83100 FUNCTION PAGENUMBER(RF:OBJECTP): INTEGER;
83110   VAR F:OBJECTP;
83120     BEGIN TESTF(RF,F);
83130     WITH F^.PCOVER^ DO
83140     IF [OPENED]<=STATUS THEN PAGENUMBER := POFCPOS
83150     ELSE ERRORR(NOTOPEN);
83160     IF FPTST(RF^) THEN GARBAGE(RF);
83170     END;
83180 (**)
83190 (*-02()
83200 BEGIN (*OF A68*)
83210 END; (*OF A68*)
83220 ()-02*)
83230 (*+01()
83240 BEGIN (*OF MAIN PROGRAM*)
83250 END (* OF EVERYTHING *).
83260 ()+01*)