SUBROUTINE DFAULT (APPEND)
      INTEGER     APPEND
    
      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     GCHAR 
      INTEGER     I 
      INTEGER OB,MP,OBFILE(14),MPFILE(14)   
      DATA OB,MP/'OB','MP'/ 
      DATA OBFILE /'LO','LI','NK','RB','  ',9*0/
      DATA MPFILE /'LO','LI','NK','MA','P ',9*0/
      IF (.NOT. (APPEND .EQ. OB))GO TO 13004
    
      DO  13006 I=1,14  
      ANSWER(I) = OBFILE(I) 
13006 CONTINUE  
    
13004 CONTINUE  
    
      IF (.NOT. (APPEND .EQ. MP))GO TO 13008
    
      DO  13010 I=1,14  
      ANSWER(I) = MPFILE(I) 
13010 CONTINUE  
    
13008 CONTINUE  
    
      RETURN
      END