62600 #include "rundecs.h"
62610     (*  COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER  *)
62620 (**)
62630 (**)
62640 PROCEDURE ERRORR(N :INTEGER); EXTERN ;
62650 (**)
62660 (**)
62670 PROCEDURE POWNEG;
62680 (*CALLED FROM POWE WHEN RAISING INTEGER TO A -VE POWER*)
62690     BEGIN ERRORR(RPOWNEG) END;
62700 (**)
62710 (**)
62720 (*-02() BEGIN END ; ()-02*)
62730 (*+01()
62740 BEGIN (*OF MAIN PROGRAM*)
62750 END (*OF EVERYTHING*).
62760 ()+01*)