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*)