35100 #include "rundecs.h"
35110     (*  COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER  *)
35120 (**)
35130 (**)
35140 PROCEDURE GARBAGE (ANOBJECT: OBJECTP); EXTERN ;
35150 (**)
35160 (**)
35170 PROCEDURE GVASSTX(SOURCE: OBJECTP; DEST: UNDRESSP);
35180 (*PASGVART+6,7,8: ASSIGNS PILE VALUE TO GLOBAL VARIABLE*)
35190     BEGIN
35200           FPINC(SOURCE^);
35210           WITH DEST^ DO
35220             BEGIN
35230             FPDEC(FIRSTPTR^); IF FPTST(FIRSTPTR^) THEN GARBAGE(FIRSTPTR);
35240             FIRSTPTR := SOURCE;
35250             END;
35260 END;
35270 (**)
35280 (**)
35290 (*-02() BEGIN END ; ()-02*)
35300 (*+01()
35310 BEGIN (*OF MAIN PROGRAM*)
35320 END (*OF EVERYTHING*).
35330 ()+01*)