INTEGER FUNCTION RFILE(X)
      IMPLICIT INTEGER (A-Z)
      COMMON /KER/ N,RPSIZ,SPSIZ,PAD,NUMTRY,OLDTRY, FD,RMTINFD,RMTOUTFD,
     *STATE,PADCHAR, EOL,ESCHAR,QUOTE,FILNAM(132),RECPKT(94 ), PACKET(94
     * ),SIZE,MOREFD,IBM,HOST, LOCALINFD,LOCALOUTFD,SPEED
      INTEGER NUM,LEN,STATUS,RPACK,X,TNUM
      INTEGER AONE,BONE,A12
      INTEGER ALIN(132)
      INTEGER RECEIVING(12)
      DATA RECEIVING(1),RECEIVING(2),RECEIVING(3),RECEIVING(4),RECEIVING
     *(5),RECEIVING(6),RECEIVING(7),RECEIVING(8),RECEIVING(9),RECEIVING(
     *10),RECEIVING(11),RECEIVING(12)/32,82,101,99,101,105,118,105,110,1
     *03,32,10002/
      IF(.NOT.(NUMTRY.GT.5 ))GOTO 23000
      RFILE=65
      RETURN
23000 CONTINUE
      NUMTRY=NUMTRY+1
23001 CONTINUE
      STATUS=RPACK(LEN,NUM,PACKET)
      IF(.NOT.(STATUS.EQ.83))GOTO 23002
      IF(.NOT.(OLDTRY.GT.5 ))GOTO 23004
      RFILE=65
      RETURN
23004 CONTINUE
      OLDTRY=OLDTRY+1
23005 CONTINUE
      IF(.NOT.(NUM.EQ.(N-1)))GOTO 23006
      CALL SPAR(PACKET)
      CALL SPACK(89,NUM,6,PACKET)
      NUMTRY=0
      RFILE=STATE
      RETURN
23006 CONTINUE
      RFILE=65
      RETURN
23007 CONTINUE
      GOTO 23003
23002 CONTINUE
      IF(.NOT.(STATUS.EQ.90))GOTO 23008
      IF(.NOT.(OLDTRY.GT.5 ))GOTO 23010
      RFILE=65
      RETURN
23010 CONTINUE
      OLDTRY=OLDTRY+1
23011 CONTINUE
      IF(.NOT.(NUM.EQ.(N-1)))GOTO 23012
      CALL SPACK(89,NUM,0,0)
      NUMTRY=0
      RFILE=STATE
      RETURN
23012 CONTINUE
      RFILE=65
      RETURN
23013 CONTINUE
      GOTO 23009
23008 CONTINUE
      IF(.NOT.(STATUS.EQ.70))GOTO 23014
      IF(.NOT.(NUM.NE.N))GOTO 23016
      RFILE=65
      RETURN
23016 CONTINUE
      PACKET(LEN+1)=10
      PACKET(LEN+2)=10002
      CALL VERIFY(PACKET)
      IF(.NOT.(HOST.EQ.0))GOTO 23018
      AONE=1
      BONE=1
      A12=12
      CALL SCOPY(RECEIVING,AONE,ALIN,BONE)
      CALL SCOPY(PACKET,AONE,ALIN,A12)
      CALL PUTLIN(ALIN,LOCALOUTFD)
      CALL PUTCH(10,LOCALOUTFD)
      CALL REMARK(" Packet # ")
23018 CONTINUE
      FD=AOPEN(PACKET,1)
      IF(.NOT.(FD.EQ.10001))GOTO 23020
      RFILE=65
      RETURN
23020 CONTINUE
      TNUM=N
      CALL SPACK(89,TNUM,0,0)
      ODLTRY=NUMTRY
      NUMTRY=0
      N=MOD((N+1),64)
      RFILE=68
      RETURN
23014 CONTINUE
      IF(.NOT.(STATUS.EQ.66))GOTO 23022
      IF(.NOT.(NUM.NE.N))GOTO 23024
      RFILE=65
      RETURN
23024 CONTINUE
      TNUM=N
      CALL SPACK(89,TNUM,0,0)
      RFILE=67
      RETURN
23022 CONTINUE
      IF(.NOT.(STATUS.EQ.0))GOTO 23026
      RFILE=STATE
      TNUM=N
      CALL SPACK(78,TNUM,0,0)
      RETURN
23026 CONTINUE
      RFILE=65
23027 CONTINUE
23023 CONTINUE
23015 CONTINUE
23009 CONTINUE
23003 CONTINUE
      RETURN
      END