29 lines
719 B
OpenEdge ABL
29 lines
719 B
OpenEdge ABL
63500 #include "rundecs.h"
|
|
63510 (* COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER *)
|
|
63520 (**)
|
|
63530 (**)
|
|
63540 PROCEDURE GARBAGE (ANOBJECT: OBJECTP); EXTERN ;
|
|
63550 (**)
|
|
63560 (**)
|
|
63570 FUNCTION UPBMSTR(POINT: OBJECTP): INTEGER;
|
|
63580 (*PUPBMSTR*)
|
|
63590 BEGIN
|
|
63600 UPBMSTR := POINT^.STRLENGTH;
|
|
63610 IF FPTST(POINT^) THEN GARBAGE(POINT)
|
|
63620 END;
|
|
63630 (**)
|
|
63640 (**)
|
|
63650 FUNCTION LWBMSTR(POINT: OBJECTP): INTEGER;
|
|
63660 (*PLWBMSTR*)
|
|
63670 BEGIN
|
|
63680 IF FPTST(POINT^) THEN GARBAGE(POINT);
|
|
63690 LWBMSTR := 1;
|
|
63700 END;
|
|
63710 (**)
|
|
63720 (**)
|
|
63730 (*-02() BEGIN END ; ()-02*)
|
|
63740 (*+01()
|
|
63750 BEGIN (*OF MAIN PROGRAM*)
|
|
63760 END (*OF EVERYTHING*).
|
|
63770 ()+01*)
|