dumoutch.p 711 B

123456789101112131415161718192021222324252627
  1. 71500 #include "rundecs.h"
  2. 71510 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *)
  3. 71520 (**)
  4. 71530 (*+01() (*$X6*) ()+01*)
  5. 71540 PROCEDURE AOPEN( EFET:FETROOMP; DISP:INTEGER; LFN:LFNTYPE; BUF:IPOINT ); EXTERN;
  6. 71550 (**)
  7. 71560 (**)
  8. 71570 PROCEDURE DUMOUTCH(PCOV: OBJECTP; LFN: LFNTYPE);
  9. 71580 BEGIN WITH PCOV^ DO
  10. 71590 BEGIN
  11. 71600 (**)
  12. 71610 POSSIBLES := [];
  13. 71620 AOPEN(BOOK, FORWRITE, LFN, ORD(BOOK)+BUFFOFFSET);
  14. 71630 END
  15. 71640 END;
  16. 71650 (**)
  17. 71660 (*+01() (*$X4*) ()+01*)
  18. 71670 (**)
  19. 71680 (**)
  20. 71690 (*-02()
  21. 71700 BEGIN (*OF A68*)
  22. 71710 END; (*OF A68*)
  23. 71720 ()-02*)
  24. 71730 (*+01()
  25. 71740 BEGIN (*OF MAIN PROGRAM*)
  26. 71750 END (* OF EVERYTHING *).
  27. 71760 ()+01*)