*COMDECK,COMQCMD
#     COMQCMD - OPERATOR COMMAND VARIABLES #
                                               CONTROL NOLIST;
                                               CONTROL IFEQ LISTCON,1;
                                               CONTROL LIST;
                                               CONTROL ENDIF; 
# 
**    COMQCMD - OPERATOR COMMAND VARIABLES. 
# 
      BEGIN  # COMMON DECK COMQCMD #
  
      DEF MXCMD      #80#;         # LENGTH OF COMMAND STRING # 
  
      COMMON COMQCMD; 
  
      BEGIN  # COMMON BLOCK COMQCMD # 
  
      ITEM CMDSREAD   U = 0;       # COMMANDS READ FROM FILE #
  
      ARRAY COMMANDBEG [0:0] S(2); # BEGINNING OF COMMAND # 
        BEGIN 
        ITEM $DCOMMANDB C(00,00,20) = [" QTF, FROM XXXXXXX- "]; 
        ITEM COMMANDSOU C(01,06,07);
        END 
  
      ITEM COMMAND    C(MXCMD) = " ";  # COMMAND INPUT #
      ITEM COMMANDEND U = 0;       # END OF COMMAND # 
  
      ITEM INFFET     U;           # FWA OF INCLUDE-FILE FET #
      ITEM READINGINF B = FALSE;   # TRUE IF READING INCLUDE-FILE # 
      ITEM RETURNINF  B = FALSE;   # TRUE IF TO RETURN INCLUDE-FILE # 
  
      END  # COMMON BLOCK COMQCMD # 
  
      END  # COMMON DECK COMQCMD #
                                               CONTROL LIST;
