92900 #include "rundecs.h"
92910     (*  COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER  *)
92920 (**)
92930 (*+01() (*$X6*) ()+01*)
92940 PROCEDURE STBACCH(PCOV: OBJECTP; LFN: LFNTYPE);
92950     BEGIN WITH PCOV^ DO
92960       BEGIN CHARBOUND:=MAXINT;
92970       LINEBOUND:=MAXINT;
92980       PAGEBOUND:=MAXINT;
92990       POSSIBLES:=[GETPOSS,PUTPOSS,RESETPOSS,SETPOSS,BINPOSS,ESTABPOSS];
93000       STATUS := [OPENED,CHARMOOD];
93010       (*+01() BOOK^.DISP:=123B; ()+01*)
93020       END
93030     END;
93040 (**)
93050 (**)
93060 (*+01() (*$X4*) ()+01*)
93070 (**)
93080 (**)
93090 (*-02()
93100 BEGIN (*OF A68*)
93110 END; (*OF A68*)
93120 ()-02*)
93130 (*+01()
93140 BEGIN (*OF MAIN PROGRAM*)
93150 END (* OF EVERYTHING *).
93160 ()+01*)