CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
      SUBROUTINE READS(RECORD,LENGTH)
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
      INCLUDE  'SY:ENTRY.CMN'
      BYTE     RECORD(LENGTH)
C
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
      CALL DSASTR
C
      LEN = (LENGTH/4) + 2
      OPEN (UNIT=2, NAME=FILNAM, FORM='UNFORMATTED', RECL=LEN,
     *      RECORDTYPE='FIXED',  STATUS='UNKNOWN', INITIALSIZE=100,
     *      EXTENDSIZE=50, DISP='KEEP')
C
      DO 100 N = 1,10000
        READ( 2, ERR=150, END=200) RECORD
        WRITE(1, REC=N)            RECORD, OK
        LSTREC = N
  100 CONTINUE
C
  150 CALL UVT100(CUP,1,1)
      WRITE(4,175) LSTREC
  175 FORMAT('ERROR READING INPUT FILE AT RECORD #', I4)
C
  200 LSTREC = LSTREC+1
      CLOSE (UNIT=2, DISP='KEEP')
C
      RETURN
      END