INTEGER FUNCTION SFILE(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,COUNT,RPACK,BUFILL,X,TNUM
      INTEGER AONE,ATEN,BONE
      INTEGER ALIN(132)
      INTEGER SENDING(10)
      DATA SENDING(1),SENDING(2),SENDING(3),SENDING(4),SENDING(5),SENDIN
     *G(6),SENDING(7),SENDING(8),SENDING(9),SENDING(10)/32,83,101,110,10
     *0,105,110,103,32,10002/
      IF(.NOT.(HOST.EQ.0))GOTO 23000
      AONE=1
      BONE=1
      ATEN=10
      CALL SCOPY(SENDING,AONE,ALIN,BONE)
      CALL SCOPY(FILNAM,AONE,ALIN,ATEN)
      CALL PUTLIN(ALIN,LOCALOUTFD)
      CALL REMARK(" Packet # ")
23000 CONTINUE
      IF(.NOT.(NUMTRY.GT.5 ))GOTO 23002
      SFILE=65
      RETURN
23002 CONTINUE
      NUMTRY=NUMTRY+1
23003 CONTINUE
      LEN=1
23004 IF(.NOT.(FILNAM(LEN).NE.10002))GOTO 23005
      LEN=LEN+1
      GOTO 23004
23005 CONTINUE
      LEN=LEN-2
      TNUM=N
      CALL SPACK(70,TNUM,LEN,FILNAM)
      STATUS=RPACK(LEN,NUM,RECPKT)
      IF(.NOT.(STATUS.EQ.78))GOTO 23006
      IF(.NOT.(N.NE.(NUM-1)))GOTO 23008
      SFILE=STATE
      RETURN
23008 CONTINUE
      GOTO 23007
23006 CONTINUE
      IF(.NOT.(STATUS.EQ.89))GOTO 23010
      IF(.NOT.(N.NE.NUM))GOTO 23012
      SFILE=STATE
      RETURN
23012 CONTINUE
      NUMTRY=0
      N=MOD((N+1),64)
      SIZE=BUFILL(PACKET)
      SFILE=68
      RETURN
23010 CONTINUE
      IF(.NOT.(STATUS.EQ.0))GOTO 23014
      SFILE=STATE
      RETURN
23014 CONTINUE
      SFILE=65
      RETURN
23015 CONTINUE
23011 CONTINUE
23007 CONTINUE
      RETURN
      END