      CHARACTER*60 FNAME1,FNAME2
      WRITE (6,1001)
      READ(5,1000)FNAME1
      WRITE(6,1002)
      READ(5,1000)FNAME2
      WRITE(6,1003)
      READ(5,*)CX,CY
      OPEN(1,FILE=FNAME1,STATUS='UNKNOWN')
      OPEN(2,FILE=FNAME2,STATUS='NEW')
      READ(1,1005)CF
      WRITE(2,1005)CF
100   READ(1,1005,END=200)X,Y,I,J
      X=X+CX
      Y=Y+CY
      WRITE(2,1005)X,Y,I,J
      GOTO 100
200   STOP
1000  FORMAT(A)
1001  FORMAT(' Name of input file: ',$)
1002  FORMAT(' Name of output file: ',$)
1003  FORMAT(' Centre error CX, CY: ',$)
1005  FORMAT(1X,2F9.3,2I6)
      END
