      SUBROUTINE PC.INCLUDE(OBJ)
*PRE-COMPILER
*
*DEV TRIAL RT
*BASIC
*N
*     PRECISION 6
*
************************************************************************
************************************************************************
***                                                                  ***
*** PICK PARSING PRE-COMPILER SYSTEM                                 ***
***                                                                  ***
*** COPYRIGHT 1988 MODULAR SOFTWARE                                  ***
***                P.O. BOX 204                                      ***
***                ATLANTA, GA  30291                                ***
***                (404) 964 - 7171                                  ***
***                                                                  ***
*** THIS PROGRAM IS PROPRIETARY TO MODULAR SOFTWARE AND MAY NOT BE   ***
*** USED, COPIED, EXAMINED, OR DISCLOSED WITHOUT A VALID LICENSE     ***
*** FROM MODULAR SOFTWARE.                                           ***
***                                                                  ***
************************************************************************
************************************************************************
*
*
* Subroutine to process INCLUDE statements in the following formats:
*
* {$}INCLUDE {file} item
* {$}INSERT {file} item
*
      $INCLUDE PC.COMMON
*
      OO = ''
*
      S = OBJ
      CALL PC.PARSE.ALT(S,P.OBJS)
      CALL PC.THEN(P.OBJS)
      SC1 = DCOUNT(P.OBJS,AM)
      OBJ = ''
      FOR SC = 1 TO SC1 UNTIL CHAIN.ID # '' OR ERROR
         P.OBJ = P.OBJS<SC>
         CALL PC.INCLUDE.SUB(P.OBJ)
         OBJ<-1> = P.OBJ
      NEXT SC
*
      RETURN
*
      CW = '(C) Copyright 1985-1989 Modular Software.  All rights reserved.'
   END
