*DECK DIRECTORY 
USETEXT TXSTD 
      PROC DIRECTORY; 
  
#----------------------------------------------------------------------#
#                                                                      #
#     THE FOLLOWING PROCS ARE XDEF-D WITHIN THIS DECK:                 #
#                                                                      #
#     STDIROFF                     TURN DIRECTORY FLAG OFF             #
#     STDIRON                      TURN DIRECTORY FLAG ON              #
#     SETDISPDIR                   SAVE DIRECTORY FLAG FOR DISPLAY     #
#     SETEXTRDIR                   SAVE DIRECTORY FLAG FOR EXTRACT     #
#     SETDBFIRST                   SPECIFY LOOKUP IN DATABASE FIRST    #
#     SETDBONLY                    SPECIFY LOOKUP IN DATABASE ONLY     #
#     SETFFIRST                    SPECIFY LOOKUP IN FILES FIRST       #
#     SETFONLY                     SPECIFY LOOKUP IN FILES ONLY        #
#                                                                      #
#----------------------------------------------------------------------#
  
      BEGIN 
                                   #------X R E F S--------------------#
                                   #                                   #
                                   # FLAGS TO TURN DIRECTORY ON/OFF    #
      XREF ARRAY DIRECTFLAG;       # FOR DISPLAY AND EXTRACT COMMANDS  #
        BEGIN 
        ITEM DIROVRIDE U(00,00,02);  # OVERRIDE OF -DISPDIR-/-EXTRDIR- #
        ITEM DISPDIR   B(00,02,01);  # CONTROLS DISPLAY DIRECTORY      #
        ITEM EXTRDIR   B(00,03,01);  # CONTROLS EXTRACT DIRECTORY      #
        ITEM DIRONOFF  B(00,04,01);  # TRUE IF DIRECTORY REQUESTED     #
        END 
      XREF ITEM LOOKORDER;         # CODE INDICATING DATANAME LOOKUP   #
                                   # ORDER ...                         #
                                   #   0 - DESCRIBED FILES FIRST       #
                                   #   1 - DESCRIBED FILES ONLY        #
                                   #   2 - DATABASE FIRST              #
                                   #   3 - DATABASE ONLY               #
      XREF PROC RECYES;            # RETURN TO -STDYES- IF RECORDING   #
  
  
                                   #------D E F S----------------------#
                                   #                                   #
      DEF FFIRST   # 0 #;          # POSSIBLE VALUES FOR -LOOKORDER-   #
      DEF FONLY    # 1 #; 
      DEF DBFIRST  # 2 #; 
      DEF DBONLY   # 3 #; 
                                   # VALUES FOR -DIROVRIDE-            #
      DEF UNSET    # 0 #;          # -DIROVRIDE- NOT USED              #
      DEF TURNON   # 1 #;          # DIRECTORY TURNED ON FOR THIS CMD  #
      DEF TURNOFF  # 2 #;          # DIRECTORY TURNED OFF FOR THIS CMD #
      CONTROL EJECT;
#----------------------------------------------------------------------#
#                                                                      #
#     S E T D I S P D I R                                              #
#                                                                      #
#     -SETDISPDIR- IS CALLED FROM THE SYNTAX FOR THE -DIRECTORY-       #
#     COMMAND.  IT TURNS ON THE DISPLAY DIRECTORY FLAG ON/OFF.         #
#                                                                      #
#----------------------------------------------------------------------#
  
      XDEF PROC SETDISPDIR; 
      PROC SETDISPDIR;
      BEGIN 
      RECYES;                      # RETURN TO -YES- IF RECORDING      #
  
      DISPDIR = DIRONOFF;          # SET DISPLAY DIRECTORY FLAG ON/OFF #
  
      STDYES; 
      END                          # PROC -SETDISPDIR-                 #
  
  
  
  
#----------------------------------------------------------------------#
#                                                                      #
#     S E T E X T R D I R                                              #
#                                                                      #
#     -SETEXTRDIR- IS CALLED FROM THE SYNTAX FOR THE -DIRECTORY-       #
#     COMMAND.  IT TURNS ON THE EXTRACT DIRECTORY FLAG ON/OFF.         #
#                                                                      #
#----------------------------------------------------------------------#
  
      XDEF PROC SETEXTRDIR; 
      PROC SETEXTRDIR;
      BEGIN 
      RECYES;                      # RETURN TO -YES- IF RECORDING      #
  
      EXTRDIR = DIRONOFF;          # SET EXTRACT DIRECTORY FLAG ON/OFF #
  
      STDYES; 
      END                          # PROC -SETEXTRDIR-                 #
      CONTROL EJECT;
#----------------------------------------------------------------------#
#                                                                      #
#     S T D I R O F F                                                  #
#                                                                      #
#     -STDIROFF- IS CALLED FROM THE SYNTAX FOR THE -DIRECTORY- COMMAND #
#     TO TURN THE DIRECTORY FLAG OFF AND RESET THE DISPLAY/EXTRACT     #
#     FOUND FLAGS.                                                     #
#                                                                      #
#----------------------------------------------------------------------#
  
      XDEF PROC STDIROFF; 
      PROC STDIROFF;
      BEGIN 
      RECYES;                      # RETURN TO -YES- IF RECORDING      #
  
      DIRONOFF = FALSE;            # TURN THE DIRECTORY FLAG OFF       #
      STDYES; 
      END                          # PROC -STDIROFF-                   #
  
  
  
  
#----------------------------------------------------------------------#
#                                                                      #
#     S T D I R O N                                                    #
#                                                                      #
#     -STDIRON- IS CALLED FROM THE SYNTAX FOR THE -DIRECTORY- COMMAND  #
#     TO TURN THE DIRECTORY FLAG ON AND RESET THE DISPLAY/EXTRACT      #
#     FOUND FLAGS.                                                     #
#                                                                      #
#----------------------------------------------------------------------#
  
      XDEF PROC STDIRON;
      PROC STDIRON; 
      BEGIN 
      RECYES;                      # RETURN TO -YES- IF RECORDING      #
  
      DIRONOFF = TRUE;             # TURN THE DIRECTORY FLAG ON        #
      STDYES; 
      END                          # PROC -STDIRON-                    #
      CONTROL EJECT;
#----------------------------------------------------------------------#
#                                                                      #
#     S E T D B F I R S T                                              #
#                                                                      #
#     -SETDBFIRST- IS CALLED FROM THE SYNTAX FOR THE -LOOKUP- COMMAND. #
#     IT SETS THE -LOOKORDER- FLAG TO INDICATE THAT THE DATABASE WILL  #
#     BE SEARCHED FOR DATANAMES BEFORE ANY DESCRIBED FILES.            #
#                                                                      #
#----------------------------------------------------------------------#
  
      XDEF PROC SETDBFIRST; 
      PROC SETDBFIRST;
      BEGIN 
      RECYES;                      # RETURN TO -YES- IF RECORDING      #
  
      LOOKORDER = DBFIRST;         # LOOK AT DATABASE BEFORE FILES     #
  
      STDYES; 
      END                          # PROC -SETDBFIRST-                 #
  
  
  
  
#----------------------------------------------------------------------#
#                                                                      #
#     S E T D B O N L Y                                                #
#                                                                      #
#     -SETDBONLY- IS CALLED FROM THE SYNTAX FOR THE -LOOKUP- COMMAND.  #
#     IT SETS THE -LOOKORDER- FLAG TO INDICATE THAT ONLY THE DATABASE  #
#     WILL BE SEARCHED FOR DATANAMES.                                  #
#                                                                      #
#----------------------------------------------------------------------#
  
      XDEF PROC SETDBONLY;
      PROC SETDBONLY; 
      BEGIN 
      RECYES;                      # RETURN TO -YES- IF RECORDING      #
  
      LOOKORDER = DBONLY;          # LOOK ONLY AT DATABASE             #
      STDYES; 
      END                          # PROC -SETDBONLY-                  #
      CONTROL EJECT;
#----------------------------------------------------------------------#
#                                                                      #
#     S E T F F I R S T                                                #
#                                                                      #
#     -SETFFIRST- IS CALLED FROM THE SYNTAX FOR THE -LOOKUP- COMMAND.  #
#     IT SETS THE -LOOKORDER- FLAG TO INDICATE THAT ANY DESCRIBED      #
#     FILES WILL BE SEARCHED FOR DATANAMES BEFORE THE DATABASE.        #
#                                                                      #
#----------------------------------------------------------------------#
  
      XDEF PROC SETFFIRST;
      PROC SETFFIRST; 
      BEGIN 
      RECYES;                      # RETURN TO -YES- IF RECORDING      #
  
      LOOKORDER = FFIRST;          # LOOK AT FILES BEFORE DATABASE     #
      STDYES; 
      END                          # PROC -SETFFIRST-                  #
  
  
  
  
#----------------------------------------------------------------------#
#                                                                      #
#     S E T F O N L Y                                                  #
#                                                                      #
#     -SETFONLY- IS CALLED FROM THE SYNTAX FOR THE -LOOKUP- COMMAND.   #
#     IT SETS THE -LOOKORDER- FLAG TO INDICATE THAT ONLY DESCRIBED     #
#     FILES WILL BE SEARCHED FOR DATANAMES.                            #
#                                                                      #
#----------------------------------------------------------------------#
  
      XDEF PROC SETFONLY; 
      PROC SETFONLY;
      BEGIN 
      RECYES;                      # RETURN TO -YES- IF RECORDING      #
  
      LOOKORDER = FONLY;           # LOOK ONLY AT DESCRIBED FILES      #
      STDYES; 
      END                          # PROC -SETFONLY-                   #
  
      END 
      TERM
