      CHARACTER*198 ALINE
      OPEN(UNIT=3,FILE='macqtape.dat',READONLY)
C INPUT FILE
      OPEN(UNIT=4,FILE='macq1.dat')
C OUTPUT FILE
   10 READ(3,100,END=20) ALINE
      IF (ALINE(34:34) .EQ. ' ') GOTO 10
      WRITE(4,100) ALINE
  100 FORMAT(A198)
C COPY ONLY IF HAVE COORD
      GOTO 10
C
   20 CONTINUE
      STOP
      END
