C CLEAN.F - REMOVE LINES WITHOUT COORDS
      CHARACTER*160 LINE
      OPEN(UNIT=3,FILE='mactosh93.dat',READONLY)
      OPEN(UNIT=4,FILE='/tmp/mactosh93.ldt')
C
   10 READ(3,100,END=20) LINE
  100 FORMAT(A160)
      IF (LINE(34:34) .EQ. ' ') GOTO 10
      WRITE(4,100) LINE
      GOTO 10
C
   20 CONTINUE
      CLOSE(UNIT=4,STATUS='KEEP')
      STOP
      END