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