SUBROUTINE T02P2  
    
      LOGICAL     MPFLAG
      LOGICAL     OVMODE
      LOGICAL     LBMODE
      LOGICAL     LOADRB
      LOGICAL     SFLAG 
      INTEGER     VERS  
      INTEGER     LOADAD
      INTEGER     ZLOC, ZSTR, ZMAX, ZLIMIT  
      INTEGER     CLOC, CSTR, CMAX, CLIMIT  
      INTEGER     NLOC, NSTR, NMAX, NLIMIT  
      INTEGER     DLOC, DSTR, DMAX, DLIMIT  
      INTEGER     OLOC, OMAX, OSET  
      INTEGER     START 
      INTEGER     MODNLX
      INTEGER     CKSUM 
      INTEGER     KEY   
      INTEGER ICLP05
      COMMON      /LDATAX/ MPFLAG   
      COMMON      /LDATAX/ OVMODE   
      COMMON      /LDATAX/ LBMODE   
      COMMON      /LDATAX/ LOADRB   
      COMMON      /LDATAX/ SFLAG
      COMMON      /LDATAX/ VERS 
      COMMON      /LDATAX/ LOADAD   
      COMMON      /LDATAX/ ZLOC, ZSTR, ZMAX, ZLIMIT 
      COMMON      /LDATAX/ CLOC, CSTR, CMAX, CLIMIT 
      COMMON      /LDATAX/ NLOC, NSTR, NMAX, NLIMIT 
      COMMON      /LDATAX/ DLOC, DSTR, DMAX, DLIMIT 
      COMMON      /LDATAX/ OLOC, OMAX, OSET 
      COMMON      /LDATAX/ START
      COMMON      /LDATAX/ MODNLX   
      COMMON      /LDATAX/ CKSUM
      COMMON      /LDATAX/ KEY  
      COMMON      /LDATAX/ ICLP05   
    
      INTEGER     DICT (400)
      INTEGER     ID, CID, DTSTRT, DTSTOP   
      COMMON      /DARRAY/ DICT 
      COMMON      /DARRAY/ ID, CID, DTSTRT, DTSTOP  
    
      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     TEXT (27), LEFT (4), RIGHT (4)
      INTEGER ICLP01
      COMMON      /TEXTC/ TEXT, LEFT, RIGHT,ICLP01  
      INTEGER     I 
C     WRITE (DBCHAN, 1) 
C    1FORMAT (' ENTER T02P2')   
      IF (.NOT. (LOADRB))GO TO 13012
    
      CALL WRLIN (MPCHAN, TEXT, 54) 
13012 CONTINUE  
    
      LOADRB = .FALSE.  
      DO  13014 I = 1, DTSTOP   
      IF (.NOT. (DICT(I).NE.0))GO TO 13016  
    
C     WRITE (DBCHAN, 2) I, DICT(I)  
C    2FORMAT (' ', I5, '    ', I5)  
      GO TO 13017   
13016 CONTINUE  
    
      GO TO 13015   
    
13017 CONTINUE  
    
13014 CONTINUE  
13015 CONTINUE  
    
C     WRITE (DBCHAN, 3) 
C    3FORMAT (' EXIT T02P2')
      RETURN
      END