C SCAMZERO.F - REMOVE THE NULLS FROM THE SCAMANDER FILE
      CHARACTER*60 LINE
      OPEN(UNIT=3,FILE='scam.dat',READONLY)
      OPEN(UNIT=4,FILE='scam.ldt')
   10 READ(3,100,END=20) LINE
  100 FORMAT(A60)
      IF (LINE(24:24) .EQ. ' ') GOTO 10
C SKIP BLANKS
      WRITE(4,100) LINE
      GOTO 10
   20 CONTINUE
      END