CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
CCCCC [300,300]IOENTRY.FTN  12/17/82
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
      INCLUDE 'SY:ENTRY.CMN'
      INCLUDE 'SY:ENTRY.DAT'
C
      BYTE     ANSWER
CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
C
      OPEN (UNIT=4, NAME='TI:', RECL=80, CARRIAGECONTROL='NONE')
C
      CALL SCRINI(RC)
      FILNAM(NAMLEN+4) = '.'
      FILNAM(NAMLEN+5) = 'O'
      FILNAM(NAMLEN+6) = 'U'
      FILNAM(NAMLEN+7) = 'T'
C
CCC   SET ANSI:
      CALL UVT100(ANSI,0)
C
      CALL UVT100(ED,0)
      CALL UVT100(SCA,1)
      CALL UVT100(CUP,23,1)
      WRITE(4,15)
      CALL UVT100(CUP,24,1)
      WRITE(4,16)
   15 FORMAT('INPUT FILE =>    Unformatted (ENTRY)   file  [U]  ')
   16 FORMAT('              or Formatted   (KED/EDT) file? [F]: ')
    5 CALL UVT100(SCA,0)
      READ(4,25) ANSWER
C
      IF (ANSWER.EQ.'F' .OR. ANSWER.EQ.'f') THEN
        RECNUM = 0
        CALL UVT100(ED,2)
        CALL UVT100(SCA,1)
        CALL UVT100(SCA,5)
        CALL UVT100(CUP,24,37)
        WRITE(4,27)
   27   FORMAT('WORKING')
        CALL UVT100(SCA,0)
        CALL UVT100(CUP,24,1)
        OPEN (UNIT=1, NAME=FILNAM, RECL=RECLEN+1, STATUS='OLD',
     *        DISP='KEEP')
        LEN = RECLEN/4 + 2
        OPEN (UNIT=2, NAME=FILNAM, RECL=LEN,      STATUS='NEW',  
     *        FORM='UNFORMATTED', RECORDTYPE='FIXED', DISP='KEEP')
        DO 30 N = 1,10000
          READ(1,100,END=50) (BUFFER(C), C=1,RECLEN)
          RECNUM = N
          WRITE(2)           (BUFFER(C), C=1,RECLEN), CR, LF
   30   CONTINUE
      ELSE IF (ANSWER.EQ.'U' .OR. ANSWER.EQ.'u') THEN
        RECNUM = 0
        CALL UVT100(ED,2)
        CALL UVT100(SCA,1)
        CALL UVT100(SCA,5)
        CALL UVT100(CUP,24,37)
        WRITE(4,37)
   37   FORMAT('WORKING')
        CALL UVT100(SCA,0)
        CALL UVT100(CUP,24,1)
        LEN = RECLEN/4 + 2
        OPEN (UNIT=2, NAME=FILNAM, RECL=LEN,      STATUS='OLD',  
     *        FORM='UNFORMATTED', RECORDTYPE='FIXED', DISP='KEEP')
        OPEN (UNIT=1, NAME=FILNAM, RECL=RECLEN+1, STATUS='NEW',
     *        DISP='KEEP')
        DO 40 N = 1,10000
          READ(2,END=50) (BUFFER(C), C=1,RECLEN)
          RECNUM = N
          WRITE(1,100)   (BUFFER(C), C=1,RECLEN)
   40   CONTINUE
      ELSE
        CALL UVT100(SCA,1)
        CALL UVT100(CUP,21,1)
        WRITE(4,45)
   45   FORMAT('INCORRECT - ANSWER ''F'' OR ''U''')
        CALL UVT100(CUP,24,51)
        CALL UVT100(EL,0)
        GOTO 5
      END IF     
C
   50 CALL UVT100(CUP,23,1)
      CALL UVT100(ED,0)
      CALL UVT100(SCA,0)
      CALL UVT100(CUP,24,1)
      WRITE(4,55) RECNUM
   55 FORMAT('RECORDS READ: ', I5)
C
      CLOSE (UNIT=1, DISP='KEEP')
      CLOSE (UNIT=2, DISP='KEEP')
C
   25 FORMAT(A1)
  100 FORMAT(T2, 255A1,255A1)
C
      STOP
      END