63200 #include "rundecs.h"
63210     (*  COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER  *)
63220 (**)
63230 (**)
63240 FUNCTION LWBM(MULT: OBJECTP): INTEGER;
63250 (*PLWBM*)
63260     BEGIN
63270     WITH MULT^ DO
63280       LWBM := DESCVEC[ROWS].LI;
63290     END;
63300 (**)
63310 (**)
63320 FUNCTION UPBM(MULT: OBJECTP): INTEGER;
63330 (*PUPBM*)
63340     BEGIN
63350     WITH MULT^ DO
63360       UPBM := DESCVEC[ROWS].UI;
63370     END;
63380 (**)
63390 (**)
63400 (*-02() BEGIN END ; ()-02*)
63410 (*+01()
63420 BEGIN (*OF MAIN PROGRAM*)
63430 END (*OF EVERYTHING*).
63440 ()+01*)