20 lines
423 B
OpenEdge ABL
20 lines
423 B
OpenEdge ABL
29900 #include "rundecs.h"
|
|
29910 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *)
|
|
29920 (**)
|
|
29930 PROCEDURE ERRORR(N :INTEGER); EXTERN ;
|
|
29940 (**)
|
|
29950 (**)
|
|
29960 PROCEDURE DUMMY;
|
|
29970 BEGIN
|
|
29980 ERRORR(RDUMMY);
|
|
29990 END;
|
|
30000 (**)
|
|
30010 (**)
|
|
30020 (*-02()
|
|
30030 BEGIN
|
|
30040 END ;
|
|
30050 ()-02*)
|
|
30060 (*+01()
|
|
30070 BEGIN (*OF MAIN PROGRAM*)
|
|
30080 END (*OF EVERYTHING*).
|
|
30090 ()+01*)
|