26 lines
595 B
OpenEdge ABL
26 lines
595 B
OpenEdge ABL
|
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*)
|