28 lines
711 B
OpenEdge ABL
28 lines
711 B
OpenEdge ABL
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*)
|