INTEGER FUNCTION RINIT(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 LEN,NUM,STATUS,RPACK,X,TNUM
      IF(.NOT.(NUMTRY.GT.5 ))GOTO 23000
      RINIT=65
      RETURN
23000 CONTINUE
      NUMTRY=NUMTRY+1
23001 CONTINUE
      STATUS=RPACK(LEN,NUM,PACKET)
      IF(.NOT.(STATUS.EQ.83))GOTO 23002
      CALL RPAR(PACKET)
      CALL SPAR(PACKET)
      TNUM=N
      CALL SPACK(89,TNUM,6,PACKET)
      OLDTRY=NUMTRY
      NUMTRY=0
      N=MOD((N+1),64)
      RINIT=70
      RETURN
23002 CONTINUE
      IF(.NOT.(STATUS.EQ.0))GOTO 23004
      RINIT=STATE
      TNUM=N
      CALL SPACK(78,TNUM,0,0)
      RETURN
23004 CONTINUE
      RINIT=65
23005 CONTINUE
23003 CONTINUE
      RETURN
      END