C CLEAN91.F -  REMOVE DUMMY COORDS FORM THE 1991 DATA FILES
      CHARACTER*36 FIRST
      CHARACTER*74 LAST
      REAL*8 EAST,NORTH
      OPEN (UNIT=3,FILE='boco91.dat',READONLY)
      OPEN(UNIT=4,FILE='/tmp/boco91.ldt')
C
   10 READ(3,100,END=20) FIRST,EAST,NORTH,LAST
  100 FORMAT(A36,F8.1,F12.1,A74)
      IF (EAST .LT. 0.0D00 .OR. NORTH .LT. 0.0D00) GOTO 10
      WRITE(4,100) FIRST,EAST,NORTH,LAST
      GOTO 10
C
   20 CONTINUE
      CLOSE(UNIT=4,STATUS='KEEP')
      STOP
      END