29 lines
722 B
OpenEdge ABL
29 lines
722 B
OpenEdge ABL
|
44600 #include "rundecs.h"
|
||
|
|
44610 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *)
|
||
|
|
44620 (**)
|
||
|
|
44630 (**)
|
||
|
|
44640 FUNCTION ROUTNP(PROC: ASPROC; NPARAMS: SIZERANGE):OBJECTP;
|
||
|
|
44650 VAR NEWRT: OBJECTP;
|
||
|
|
44660 BEGIN
|
||
|
|
44670 ENEW(NEWRT, PROUTINESIZE);
|
||
|
|
44680 WITH NEWRT^ DO
|
||
|
|
44690 BEGIN
|
||
|
|
44700 (*-02() FIRSTWORD := SORTSHIFT * ORD(PASCROUT); ()-02*)
|
||
|
|
44710 (*+02() PCOUNT:=0; SORT:=PASCROUT; ()+02*)
|
||
|
|
44720 PPROCBL := PROC;
|
||
|
|
44730 PPARAMS := NPARAMS;
|
||
|
|
44740 OSCOPE := 1; (*GLOBAL*)
|
||
|
|
44750 END;
|
||
|
|
44760 ROUTNP := NEWRT
|
||
|
|
44770 END;
|
||
|
|
44780 (**)
|
||
|
|
44790 (**)
|
||
|
|
44800 (*-02()
|
||
|
|
44810 BEGIN
|
||
|
|
44820 END ;
|
||
|
|
44830 ()-02*)
|
||
|
|
44840 (*+01()
|
||
|
|
44850 BEGIN (*OF MAIN PROGRAM*)
|
||
|
|
44860 END (*OF EVERYTHING*).
|
||
|
|
44870 ()+01*)
|