123456789101112131415161718192021222324252627 |
- 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*)
|