47700 #include "rundecs.h"
47710     (*  COPYRIGHT 1983 C.H.LINDSEY, UNIVERSITY OF MANCHESTER  *)
47720 (**)
47730 (**)
47740 PROCEDURE GARBAGE(ANOBJECT: OBJECTP); EXTERN ;
47750 FUNCTION CRSTRUCT(TEMPLATE: DPOINT): OBJECTP; EXTERN;
47760 (**)
47770 (**)
47780 FUNCTION SKIPS: INTEGER;
47790 (*PSKIP*)
47800     BEGIN SKIPS := INTUNDEF END;
47810 (**)
47820 (*-01()
47830 FUNCTION SKIPS2: A68LONG ;
47840   VAR TEMP: REALTEGER ;
47850   BEGIN
47860     WITH TEMP DO
47870       BEGIN
47880         INT := INTUNDEF ;
47890         INT2 := INTUNDEF ;
47900         SKIPS2 := LONG
47910       END
47920   END ;
47930 ()-01*)
47940 (**)
47950 FUNCTION SKIPPIL: OBJECTP;
47960 (*PSKIP+1*)
47970     BEGIN SKIPPIL := UNDEFIN END;
47980 (**)
47990 (**)
48000 FUNCTION SKIPSTR (TEMPLATE: DPOINT):OBJECTP;
48010 (*PSKIPSTRUCT*)
48020     BEGIN SKIPSTR := CRSTRUCT(TEMPLATE) END;
48030 (**)
48040 (**)
48050 FUNCTION NILP: OBJECTP;
48060 (*PNIL*)
48070     BEGIN NILP := NILPTR END;
48080 (**)
48090 (**)
48100 (*-01() (*-05()
48110 PROCEDURE VOID(POINT: OBJECTP);
48120 (*PVOIDNORMAL - USUALLY CODED INLINE*)
48130     BEGIN IF FPTST(POINT^) THEN GARBAGE(POINT) END;
48140 (**)
48150 (**)
48160 PROCEDURE VOIDN(NAK: NAKED);
48170 (*PVOIDNAKED - USUALLY CODED INLINE*)
48180     BEGIN IF FPTST(NAK.STOWEDVAL^) THEN GARBAGE(NAK.STOWEDVAL) END;
48190 ()-05*) ()-01*)
48200 (**)
48210 (**)
48220 (*-02() BEGIN END ; ()-02*)
48230 (*+01()
48240 BEGIN (*OF MAIN PROGRAM*)
48250 END (*OF EVERYTHING*).
48260 ()+01*)