subroutine evshow (agcode)

      character*6 agcode(*)

      include 'basics.inc'

      include 'hold.inc'

c       display an event from ISC fixed format bulletin files

      character*6 agent
      character*3 recs3
      character*1 recs1
      character*2 recs2

      nr = 0
      if (level .gt. 1) call linbrk (mout)
      do while (nr .lt. norec)

c pick up the next group of associated records

        call getgrp (nr, nob, nof)
        
c        if (recs(nob)(1:2) .eq. ' 1') then

         if (recs2(nob,1,2) .eq. ' 1') then

c this is an epicentre group

c          agent = agcode(itchk(recs(nob)(23:25)))
          
          agent = agcode(itchk(recs3(nob,23,25)))
                    
          if (level .eq. 1) then
          
c            if (recs(nob)(26:26) .eq. 'A')

            if (recs1(nob,26,26) .eq. 'A')            
            
     2         call showea (nob, nof, agent)
          else if (level .gt. 1) then
            call showea (nob, nof, agent)
          end if

c        else if (recs(nob)(1:2) .eq. ' 3') then
        
        else if (recs2(nob,1,2) .eq. ' 3') then
        
c this is a comment group

c          agent = agcode(itchk(recs(nob)(21:23)))
          
          agent = agcode(itchk(recs3(nob,21,23)))          
          
          if (level .ge. 3) call showec (nob, nof, agent)

c        else if (recs(nob)(1:2) .eq. ' 5'
c     2         .or. recs(nob)(1:2) .eq. '15') then 
       
        else if (recs2(nob,1,2) .eq. ' 5'                
     2         .or. recs2(nob,1,2) .eq. '15') then

c this is a phase group

          if (level .ge. 4) call shower (nob, nof)
        else
          call abort ('evshow: '//recs2(nob,1,2)//' unexpected')
        end if
      end do
      return
      end