SUBROUTINE T05P2  
    
      INTEGER     DICT (400)
      INTEGER     ID, CID, DTSTRT, DTSTOP   
      COMMON      /DARRAY/ DICT 
      COMMON      /DARRAY/ ID, CID, DTSTRT, DTSTOP  
    
      INTEGER     NSIZE,  NAME(16), NTITLE  
      INTEGER     NFLAGS (512)  
      INTEGER     NADDRS (512)  
      INTEGER     NPOSIT (512)  
      INTEGER     NDATA  (512)  
      INTEGER     NTEXTX (512)  
      INTEGER     NTEXT  (1000) 
      INTEGER     NLX, NLSTRT, NLSTOP   
      INTEGER     TXSTRT, TXSTOP
      INTEGER     NTXBTS
      INTEGER     USEBIT, COMBIT, OVLBIT, EPTBIT
      INTEGER     LDMBIT, MODBIT, MLTBIT, RLSBIT
      INTEGER     GDFBIT, TYPBTS
      INTEGER     ATYPE 
      INTEGER      ICLP07   
      LOGICAL     OLDNAM
      COMMON      /NTABLE/ NSIZE, NAME, NTITLE  
      COMMON      /NTABLE/ NFLAGS, NADDRS, NPOSIT, NDATA, NTEXTX
      COMMON      /NTABLE/ NTEXT
      COMMON      /NTABLE/ NLX, NLSTRT, NLSTOP  
      COMMON      /NTABLE/ TXSTRT, TXSTOP   
      COMMON      /NTABLE/ NTXBTS   
      COMMON      /NTABLE/ USEBIT, COMBIT, OVLBIT, EPTBIT   
      COMMON      /NTABLE/ LDMBIT, MODBIT, MLTBIT, RLSBIT   
      COMMON      /NTABLE/ GDFBIT, TYPBTS   
      COMMON      /NTABLE/ ATYPE
      COMMON      /NTABLE/ ICLP07   
      COMMON      /NTABLE/ OLDNAM   
    
      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     RCOUNT
      INTEGER     RTYPE 
      INTEGER     RSTYPE
      INTEGER     RTMAX 
      INTEGER     RSZMAX
      INTEGER     RECORD (41)   
      INTEGER     RSIZE 
      INTEGER     RSIZES (20)   
      INTEGER ICLP02
      COMMON      /RECORD/ RCOUNT   
      COMMON      /RECORD/ RTYPE
      COMMON      /RECORD/ RSTYPE   
      COMMON      /RECORD/ RTMAX
      COMMON      /RECORD/ RSZMAX   
      COMMON      /RECORD/ RECORD   
      COMMON      /RECORD/ RSIZE
      COMMON      /RECORD/ RSIZES   
      COMMON     /RECORD/ ICLP02
    
      INTEGER     TEXT (27), LEFT (4), RIGHT (4)
      INTEGER ICLP01
      COMMON      /TEXTC/ TEXT, LEFT, RIGHT,ICLP01  
      INTEGER     SEARCH, DUMMY 
C     WRITE (DBCHAN, 1) 
C    1FORMAT (' ENTER T05P2')   
      CALL GNAME(4) 
      IF (.NOT. (NSIZE.GT.0))GO TO 13018
    
      CALL EHX (NTITLE, NAME(NSIZE+1), 1,4) 
      CALL EHX (ID, NAME(NSIZE+3), 1,4) 
      NSIZE = NSIZE + 4 
      NLX = SEARCH (DUMMY)  
      IF (.NOT. ((NLX.NE.0).AND.(NFLAGS(NLX).NE.0)))GO TO 13020 
    
      DICT (ID) = NLX   
      IF (.NOT. (RSTYPE .NE. 0))GO TO 13022 
    
      CALL EHX (NADDRS (NLX), TEXT, LEFT (RSTYPE), RIGHT (RSTYPE))  
13022 CONTINUE  
    
13020 CONTINUE  
    
13018 CONTINUE  
    
C     WRITE (DBCHAN, 2) 
C    2FORMAT (' EXIT T05P2')
      RETURN
      END