      program utm2mine
c
      character*5 astat
c
      phi = 20.144*3.1415927/180.0
 99   read(*,'(a5,2f12.0)',end=100) astat,x,y
      x = x - 472988.0 
      y = y - 5393053.0
      xp = x*cos(phi) - y*sin(phi)
      yp = x*sin(phi) + y*cos(phi)
      xp = xp + 65532.0
      yp = yp + 65532.0
c
      write(*,'(a5,2f12.0)') astat,xp,yp
c
      go to 99
 100  continue
      end

