c      integer b,e
      character*2 b,e
c      real g,h,i,j,k
      character*4 a,c,d,f,g,h,i,j,k
   5  read(5,7,end=200)a,b,c,d,e,f,g,h,i,j,k
   7  format(A4,I7,A5,A4,A2,I4,4X,3F8.3,2F6.2)
       if (a .eq. "HETA") a= "ATOM"
             if (a .eq. "END ")    goto 300
       if (e .eq. " A") then
          write(6,10)a,b,c,d,e,f,g,h,i,j,k
  10  format(A4,I7,A5,A4, A2 ,I4,4X,3F8.3,2F6.2,6X, "AAAA")
       else if (e .eq. " B") then
          write(6,20)a,b,c,d,e,f,g,h,i,j,k
  20  format(A4,I7,A5,A4,A2,I4,4X,3F8.3,2F6.2,6X, "BBBB")
       else if (e .eq. " C") then
          write(6,60)a,b,c,d,e,f,g,h,i,j,k
  60  format(A4,I7,A5,A4,A2,I4,4X,3F8.3,2F6.2,6X, "CCCC")
       else if (e .eq. " D") then
          write(6,65)a,b,c,d,e,f,g,h,i,j,k
  65  format(A4,I7,A5,A4,A2,I4,4X,3F8.3,2F6.2,6X, "DDDD")
       else if (e .eq. " E") then
          write(6,70)a,b,c,d,e,f,g,h,i,j,k
  70  format(A4,I7,A5,A4, A2,I4,4X,3F8.3,2F6.2,6X, "EEEE")
       else if (e .eq. " F") then
          write(6,71)a,b,c,d,e, f,g,h,i,j,k
  71  format(A4,I7,A5,A4, A2,I4,4X,3F8.3,2F6.2,6X, "FFFF")
       else if (e .eq. " G") then
          write(6,72)a,b,c,d,e,f,g,h,i,j,k
  72  format(A4,I7,A5,A4, A2,I4,4X,3F8.3,2F6.2,6X, "GGGG")
       else if (e .eq. " H") then
          write(6,73)a,b,c,d,e, f,g,h,i,j,k
  73  format(A4,I7,A5,A4, A2 ,I4,4X,3F8.3,2F6.2,6X, "HHHH" )
       else if (e .eq. " I") then
          write(6,74)a,b,c,d,e,f,g,h,i,j,k
  74  format(A4,I7,A5,A4, A2 ,I4,4X,3F8.3,2F6.2,6X, "IIII")
       else if (e .eq. " J") then
          write(6,75)a,b,c,d,e,f,g,h,i,j,k
  75  format(A4,I7,A5,A4, A2 ,I4,4X,3F8.3,2F6.2,6X, "JJJJ")
       else if (e .eq. " K") then
          write(6,76)a,b,c,d,e, f,g,h,i,j,k
  76  format(A4,I7,A5,A4, A2 ,I4,4X,3F8.3,2F6.2,6X, "KKKK")
       else if (e .eq. " L") then
          write(6,77)a,b,c,d,e, f,g,h,i,j,k
  77  format(A4,I7,A5,A4, A2 ,I4,4X,3F8.3,2F6.2,6X, "LLLL")
       else if (e .eq. " M") then
          write(6,78)a,b,c,d,e, f,g,h,i,j,k
  78  format(A4,I7,A5,A4, A2 ,I4,4X,3F8.3,2F6.2,6X, "MMMM")
      else if ( e .eq. " N") then
          write(6,110)a,b,c,d,e, f,g,h,i,j,k
 110  format(A4,I7,A5,A4, A2 ,I4,4X,3F8.3,2F6.2,6X, "NNNN" )
      else if (e .eq. " O") then
          write(6,120)a,b,c,d,e,f,g,h,i,j,k
 120  format(A4,I7,A5,A4, A2 ,I4,4X,3F8.3,2F6.2,6X, "OOOO")
      else if (e .eq. " P") then
          write(6,130)a,b,c,d,e,f,g,h,i,j,k
 130  format(A4,I7,A5,A4, A2 ,I4,4X,3F8.3,2F6.2,6X, "PPPP" )
      else if (e .eq. " Q") then
          write(6,135)a,b,c,d, e, f,g,h,i,j,k
 135  format(A4,I7,A5,A4, A2 ,I4,4X,3F8.3,2F6.2,6X, "QQQQ" )
      else if (e .eq. " R") then
          write(6,140)a,b,c,d,  e, f,g,h,i,j,k
 140  format(A4,I7,A5,A4, A2 ,I4,4X,3F8.3,2F6.2,6X, "RRRR" )
      else if (e .eq. " S") then
          write(6,141)a,b,c,d,  e, f,g,h,i,j,k
 141  format(A4,I7,A5,A4, A2 ,I4,4X,3F8.3,2F6.2,6X, "SSSS"  )
      else if (e .eq. " T") then
          write(6,142)a,b,c,d, e, f,g,h,i,j,k
 142  format(A4,I7,A5,A4, A2 ,I4,4X,3F8.3,2F6.2,6X, "TTTT")
      else if (e .eq. " U") then
          write(6,143)a,b,c,d, e, f,g,h,i,j,k
 143  format(A4,I7,A5,A4, A2 ,I4,4X,3F8.3,2F6.2,6X, "UUUU" )
      else if (e .eq. " V") then
          write(6,144)a,b,c,d, e, f,g,h,i,j,k
 144  format(A4,I7,A5,A4, A2 ,I4,4X,3F8.3,2F6.2,6X, "VVVV" )
      else if (e .eq. " W") then
          write(6,145)a,b,c,d, e, f,g,h,i,j,k
 145  format(A4,I7,A5,A4, A2 ,I4,4X,3F8.3,2F6.2,6X, "WWWW" )
      else if (e .eq. " X") then
          write(6,146)a,b,c,d, e, f,g,h,i,j,k
 146  format(A4,I7,A5,A4, A2, I4,4X,3F8.3,2F6.2,6X, "XXXX" )
      else if (e .eq. " Y") then
          write(6,147)a,b,c,d, e, f,g,h,i,j,k
 147  format(A4,I7,A5,A4, A2, I4,4X,3F8.3,2F6.2,6X, "YYYY" )

      else if (e .eq.' Z') then
          write(6,148)a,b,c,d, e, f,g,h,i,j,k
 148  format(A4,I7,A5,A4, A2, I4,4X,3F8.3,2F6.2,6X, "ZZZZ" )


       endif
      goto 5
200   continue
300   continue
c 300  write(6,310)'END'
310   format(A3)
      stop
      end