37 lines
905 B
OpenEdge ABL
37 lines
905 B
OpenEdge ABL
|
62800 #include "rundecs.h"
|
||
|
|
62810 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *)
|
||
|
|
62820 (**)
|
||
|
|
62830 (**)
|
||
|
|
62840 PROCEDURE ERRORR(N :INTEGER); EXTERN ;
|
||
|
|
62850 (**)
|
||
|
|
62860 (**)
|
||
|
|
62870 FUNCTION LWB(D: INTEGER; MULT: OBJECTP): INTEGER;
|
||
|
|
62880 (*PLWB*)
|
||
|
|
62890 BEGIN
|
||
|
|
62900 WITH MULT^ DO
|
||
|
|
62910 BEGIN
|
||
|
|
62920 D := D-1;
|
||
|
|
62930 IF (D<0) OR (D>ROWS) THEN ERRORR(RLWUPB);
|
||
|
|
62940 LWB := DESCVEC[ROWS-D].LI;
|
||
|
|
62950 END
|
||
|
|
62960 END;
|
||
|
|
62970 (**)
|
||
|
|
62980 (**)
|
||
|
|
62990 FUNCTION UPB(D: INTEGER; MULT: OBJECTP): INTEGER;
|
||
|
|
63000 (*PUPB*)
|
||
|
|
63010 BEGIN
|
||
|
|
63020 WITH MULT^ DO
|
||
|
|
63030 BEGIN
|
||
|
|
63040 D := D-1;
|
||
|
|
63050 IF (D<0) OR (D>ROWS) THEN ERRORR(RLWUPB);
|
||
|
|
63060 UPB := DESCVEC[ROWS-D].UI;
|
||
|
|
63070 END
|
||
|
|
63080 END;
|
||
|
|
63090 (**)
|
||
|
|
63100 (**)
|
||
|
|
63110 (*-02() BEGIN END ; ()-02*)
|
||
|
|
63120 (*+01()
|
||
|
|
63130 BEGIN (*OF MAIN PROGRAM*)
|
||
|
|
63140 END (*OF EVERYTHING*).
|
||
|
|
63150 ()+01*)
|