71500 #include "rundecs.h"
71510     (*  COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER  *)
71520 (**)
71530 (*+01() (*$X6*) ()+01*)
71540 PROCEDURE AOPEN( EFET:FETROOMP; DISP:INTEGER; LFN:LFNTYPE; BUF:IPOINT ); EXTERN;
71550 (**)
71560 (**)
71570 PROCEDURE DUMOUTCH(PCOV: OBJECTP; LFN: LFNTYPE);
71580     BEGIN WITH PCOV^ DO
71590       BEGIN
71600 (**)
71610       POSSIBLES := [];
71620       AOPEN(BOOK, FORWRITE, LFN, ORD(BOOK)+BUFFOFFSET);
71630       END
71640     END;
71650 (**)
71660 (*+01() (*$X4*) ()+01*)
71670 (**)
71680 (**)
71690 (*-02()
71700 BEGIN (*OF A68*)
71710 END; (*OF A68*)
71720 ()-02*)
71730 (*+01()
71740 BEGIN (*OF MAIN PROGRAM*)
71750 END (* OF EVERYTHING *).
71760 ()+01*)