dumbacch.p 497 B

123456789101112131415161718192021
  1. 70900 #include "rundecs.h"
  2. 70910 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *)
  3. 70920 (**)
  4. 70930 (**)
  5. 70940 (*+01() (*$X6*) ()+01*)
  6. 70950 (**)
  7. 70960 PROCEDURE DUMBACCH(PCOV: OBJECTP; LFN: LFNTYPE);
  8. 70970 BEGIN PCOV^.POSSIBLES := [] END;
  9. 70980 (**)
  10. 70990 (**)
  11. 71000 (*+01() (*$X4*) ()+01*)
  12. 71010 (**)
  13. 71020 (**)
  14. 71030 (*-02()
  15. 71040 BEGIN (*OF A68*)
  16. 71050 END; (*OF A68*)
  17. 71060 ()-02*)
  18. 71070 (*+01()
  19. 71080 BEGIN (*OF MAIN PROGRAM*)
  20. 71090 END (* OF EVERYTHING *).
  21. 71100 ()+01*)