*COMDECK FORWARD,NOPROP 
_$J+   PAGE EJECT ? 
*IF DEF,SUPPRESS,1
_$S-? 
_*****************************
*                            *
*    FORWARD REFERENCES      *
*                            *
*****************************?
_$R-,G-,I+? 
FUNCTION  PBGET1BUF (VAR A : BECTPTR) : B0BUFPTR; FORWARD;
PROCEDURE PBREL1BUF (VAR A : B0BUFPTR; VAR X : BECTPTR); FORWARD; 
PROCEDURE PBRELCHN (VAR A:B0BUFPTR; VAR X:BECTPTR); FORWARD;
PROCEDURE PBRELZRO (VAR A:B0BUFPTR; VAR X:BECTPTR); FORWARD;
FUNCTION  PBLSGET (VAR X:BWWORKLIST; VAR Y:BYLISTCB) : BOOLEAN; 
          FORWARD;
PROCEDURE PBLSPUT (VAR X:BWWORKLIST; VAR Y:BYLISTCB); FORWARD;
FUNCTION  PTCTCHR  (H0BUF : B0BUFPTR) : INTEGER;               FORWARD; 
PROCEDURE PTGETSET (H0INT : INTEGER; VAR H0SET : B0OVERLAY);   FORWARD; 
PROCEDURE PTCHAIN  (H0BUF : B0BUFPTR; VAR H0CHN : B0BUFPTR);   FORWARD; 
PROCEDURE PBFCOPY  (H0SRCP : B0BUFPTR; VAR H0DESP : B0BUFPTR); FORWARD; 
PROCEDURE PTEBREL  (VAR H0BUF : B0BUFPTR);                     FORWARD; 
PROCEDURE PTADDCHR (H0CHAR : CHAR; VAR H0BUF : B0BUFPTR);      FORWARD; 
FUNCTION PTCLAS(PTLINO : INTEGER): BOOLEAN; FORWARD;
FUNCTION PNDIRADD(DN,SN,CN:INTEGER; ADDPTR:B0BUFPTR):INTEGER; FORWARD;
FUNCTION PB18COMP (A : B018BITS;
                   COMP : J018COMP; 
                   B : B018BITS) : BOOLEAN; FORWARD;
FUNCTION PN1SRCH (ID : INTEGER; PTR : B0BUFPTR) : B0BUFPTR; FORWARD;
FUNCTION PN1GTPTR (ID : INTEGER; PTR : B0BUFPTR) : B0BUFPTR; FORWARD; 
FUNCTION PN2SRCH (ID : INTEGER; PTR : B0BUFPTR) : B0BUFPTR; FORWARD;
*IF DEF,FORWARDS
FUNCTION PBFMAH(VAR A:B018BITS; B:B0BUFPTR; 
                VAR C:INTEGER) : BOOLEAN; FORWARD;
PROCEDURE PBTOAH(A:B0HEX; B: B0BUFPTR; C,D:INTEGER); FORWARD; 
PROCEDURE PBTOAD(A:INTEGER; B:B0BUFPTR; C,D:INTEGER); FORWARD;
FUNCTION PBFMAD(VAR X:INTEGER;Y:B0BUFPTR; 
                VAR Z:INTEGER):BOOLEAN; FORWARD;
FUNCTION PBREAD(A,B:INTEGER):CHAR; FORWARD; 
FUNCTION PBTESTIORDY(A:INTEGER):BOOLEAN; FORWARD; 
PROCEDURE PB1SNAP (VAR A: JFSNAPTABLE); FORWARD;
PROCEDURE PBSETPROT(A:INTEGER); FORWARD;
PROCEDURE PBCLRPROT(A:INTEGER); FORWARD;
PROCEDURE PBAMASK(A: INTEGER); FORWARD; 
FUNCTION  PB1BFAVAIL(AVTHR:B0BUFLEVELS):BOOLEAN;               FORWARD; 
FUNCTION  PBNBFAVAIL(AVNRB:INTEGER;AVTHR:B0BUFLEVELS):BOOLEAN; FORWARD; 
PROCEDURE PBLLRMOV(A:B0LINO);FORWARD; 
FUNCTION PBMEMBER(A:B0OVERLAY; VAR B:JSASCIISET):BOOLEAN;FORWARD; 
FUNCTION PBMIN(A,B:INTEGER):INTEGER;FORWARD;
FUNCTION PBMAX(A,B:INTEGER):INTEGER;FORWARD;
FUNCTION PBCOPYBFRS(A:JTCOPYB):B0BUFPTR;FORWARD;
FUNCTION PNGTLLCB(DN : INTEGER ; SN : INTEGER) : B0BUFPTR; FORWARD; 
FUNCTION PN4SRCH(A:INTEGER; B:B0BUFPTR):B0BUFPTR;FORWARD; 
FUNCTION PN4GTPTR(A:INTEGER; B:B0BUFPTR):B0BUFPTR;FORWARD;
FUNCTION PN4LSTSRCH(VAR A:LSRCHCB):B0BUFPTR;FORWARD;
FUNCTION PN4DLT(A:INTEGER; VAR B:B0BUFPTR):B0BUFPTR;FORWARD;
FUNCTION PNDIRDLT(A,B,C:INTEGER):B0BUFPTR;FORWARD;
PROCEDURE PTTPSVMRK (VAR A:B0BUFPTR);           FORWARD;
PROCEDURE PTTPRSMRK (VAR A:B0BUFPTR;B:BOOLEAN); FORWARD;
PROCEDURE PTTPUSREL (A,B:B0BUFPTR;C:INTEGER);   FORWARD;
FUNCTION PLTKST(A : BOOLEAN) : BOOLEAN ; FORWARD ;
PROCEDURE PBTMRSRVS (T7LPKTPTR : B7PKTPTR);  FORWARD; 
FUNCTION PTREGL (TCBP : B0BUFPTR) : INTEGER; FORWARD; 
*ENDIF
