CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
      SUBROUTINE WRITES(RECORD,LENGTH,NUMREC)
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
      INCLUDE  'SY:ENTRY.CMN'
      BYTE     RECORD(LENGTH)
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
      CALL DSASTR
C
      NUMREC = 0
      DO 100, N = 1,LSTREC-1
        READ(1, REC=N, ERR=100) RECORD, RECTYP
        IF (RECTYP.EQ.DELETD)   GOTO 100
        WRITE(2)                RECORD, CR, LF
        NUMREC = NUMREC+1
  100 CONTINUE
C
      RETURN
      END