*COMDECK SUB06
*CALL SUB00 
                                #--------------------------------------#
                                #                                      #
                                # FOLLOWING ROUTINES ARE CONTAINED IN  #
                                #                                      #
                                #   C K I M F O V                      #
                                #                                      #
          CKIMFOV             ; # *STDYES* IF IN PROPER SYNTAX OVERLAY #
                                #                                      #
                                #--------------------------------------#
  
  
  
  
                                #--------------------------------------#
                                #                                      #
                                # FOLLOWING ROUTINES ARE CONTAINED IN  #
                                #                                      #
                                #   D I S P L A Y                      #
                                #                                      #
          DISPEND             ; # END DISPLAY TABLE                    #
          DISPTBL             ; # SET DISPLAY TABLE                    #
          SETDISFROM          ; # SET *DISPLAY FROM*, SAVE LFN.        #
          SETKEY1             ; # KEY IN   "LFN.."                     #
          SETKEY2             ; # KEY LITERAL OR DATANAME              #
                                #                                      #
                                #--------------------------------------#
  
  
  
  
                                #--------------------------------------#
                                #                                      #
                                # FOLLOWING ROUTINES ARE CONTAINED IN  #
                                #                                      #
                                #   E X T R A C T                      #
                                #                                      #
          BUDEXTR             ; # BUILD *EXTRACT* TABLE ENTRY          #
          BUDFIT              ; # INITIALIZES INFO FOR *EXTRACT* LFN   #
          CHKAS               ; # CHECK IF -AS- CLAUSE LEGAL           #
          CHKFIGS             ; # CHECK FOR LEGAL USE OF FIG SUBSCRIPT #
          DIROVOFF            ; # SET TEMP DIRECTORY OVERRIDE TO OFF   #
          DIROVON             ; # SET TEMP DIRECTORY OVERRIDE TO ON    #
          GET15               ; # ALLOCATE A 15 WORD BLOCK             #
          NEWLFNLINK          ; # LINK NEW LFN INTO LFNLIST            #
          RLSALL              ; # RELEASE *EXTRACT* TABLE SPACE        #
          RSDESLIST           ; # RESTORE *DESLIST*                    #
          SVDESLIST           ; # SAVE AND ZERO *DESLIST*              #
                                #                                      #
                                #--------------------------------------#
  
  
  
  
                                #--------------------------------------#
                                #                                      #
                                # 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 A M E                            #
                                #                                      #
          GETSAME             ; # RETRIEV FROM *SAME* ARRAY            #005850
          MOVSAME             ; # SAVE IN *SAME* ARRAY                 #005870
          SAVPTR              ; # SAVE POINTER TO NEW *SAME* LIST      #
                                #                                      #
                                #--------------------------------------#
  
  
  
  
                                #--------------------------------------#
                                #                                      #
                                # FOLLOWING ROUTINES ARE CONTAINED IN  #
                                #                                      #
                                #   S E T 4 0                          #
                                #                                      #
          ALGRPID             ; # ALLOCATE GROUP-ID                    #
          SET40               ; # INITIALIZE FOR FILE ACCESS COMMAND   #005900
                                #                                      #
                                #--------------------------------------#
  
  
  
  
                                #--------------------------------------#
                                #                                      #
                                # FOLLOWING ROUTINES ARE CONTAINED IN  #
                                #                                      #
                                #   V I A                              #
                                #                                      #
          VIA                 ; # VIA SEMANTICS                        #
                                #                                      #
                                #--------------------------------------#
