18 lines
456 B
OpenEdge ABL
18 lines
456 B
OpenEdge ABL
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*)
|