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