22 lines
497 B
OpenEdge ABL
22 lines
497 B
OpenEdge ABL
70900 #include "rundecs.h"
|
|
70910 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *)
|
|
70920 (**)
|
|
70930 (**)
|
|
70940 (*+01() (*$X6*) ()+01*)
|
|
70950 (**)
|
|
70960 PROCEDURE DUMBACCH(PCOV: OBJECTP; LFN: LFNTYPE);
|
|
70970 BEGIN PCOV^.POSSIBLES := [] END;
|
|
70980 (**)
|
|
70990 (**)
|
|
71000 (*+01() (*$X4*) ()+01*)
|
|
71010 (**)
|
|
71020 (**)
|
|
71030 (*-02()
|
|
71040 BEGIN (*OF A68*)
|
|
71050 END; (*OF A68*)
|
|
71060 ()-02*)
|
|
71070 (*+01()
|
|
71080 BEGIN (*OF MAIN PROGRAM*)
|
|
71090 END (* OF EVERYTHING *).
|
|
71100 ()+01*)
|