C FIXNULL.F - RENOVE NULLS FROM BRIDPORT LDT
      CHARACTER*197 TXTLINE
      OPEN (UNIT=3,FILE='bridport.dat')
      OPEN(UNIT=4,FILE='bridclean.dat')
   10 READ(3,100,END=20) TXTLINE
  100 FORMAT(A197)
      IF (TXTLINE(7:8) .EQ. ' 0') GOTO 10
C SKIP 0 FLIGHT NUMBER
      WRITE(4,100) TXTLINE
      GOTO 10
C
   20 CONTINUE
      END