SUBROUTINE ASK (QUEST)
    
      INTEGER     CMQUES (10)   
      INTEGER     OBQUES (10)   
      INTEGER     MPQUES (10)   
      INTEGER     ANSWER (14)   
      COMMON      /QUESTS/ CMQUES   
      COMMON      /QUESTS/ OBQUES   
      COMMON      /QUESTS/ MPQUES   
      COMMON      /QUESTS/ ANSWER   
    
      INTEGER     ECODE 
      INTEGER     CMCHAN
      INTEGER     RBCHAN
      INTEGER     OBCHAN
      INTEGER     MPCHAN
      INTEGER     DBCHAN
      INTEGER     TTYIN 
      INTEGER     TTYOUT
      COMMON      /IODEFN/ ECODE
      COMMON      /IODEFN/ CMCHAN   
      COMMON      /IODEFN/ RBCHAN   
      COMMON      /IODEFN/ OBCHAN   
      COMMON      /IODEFN/ MPCHAN   
      COMMON      /IODEFN/ DBCHAN   
      COMMON      /IODEFN/ TTYIN
      COMMON      /IODEFN/ TTYOUT   
      INTEGER     QUEST (10)
      CALL WRLIN (TTYOUT, QUEST, 20)
      CALL RDLIN (TTYIN,  ANSWER, 30, ECODE)
C     WRITE (TTYOUT, 3) ANSWER  
C    3FORMAT (' ANSWER IS = ', 10A2)
      RETURN
      END