*COMDECK SUB77
*CALL SUB00 
                                #--------------------------------------#
                                #                                      #
                                # FOLLOWING ROUTINES ARE CONTAINED IN  #
                                #                                      #
                                #   I F S Y N                          #
                                #                                      #
          CKDES               ; # CHECKS FOR DESCRIBE ITEM IN AN IF # 
          CKFILL              ; # CHECKS IMMEDIATE OR DEFERRED EVAL    #
          IFTEMP              ; # EVALUATES *IF* ON TEMPORARY          #
          SETIFTBL            ; # FLAGS TYPE OF THING IFFED            #
          SETNEXT             ; # FLAG STAND-ALONE *IF*. SET TO ACCEPT #
                                # NEXT TRANMISSION AS PREDICATE        #
                                #                                      #
                                #--------------------------------------#
  
  
  
  
  
  
  
  
                                #--------------------------------------#
                                #                                      #
                                # FOLLOWING ROUTINES ARE CONTAINED IN  #
                                #                                      #
                                #   S E T 4 0                          #
                                #                                      #
          ALGRPID             ; # ALLOCATE GROUP-ID                    #
          SET40               ; # INITIALIZE FOR FILE ACCESS COMMAND   #005900
                                #                                      #
                                #--------------------------------------#
