INTEGER FUNCTION SDATA(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 X,NUM,LEN,BUFILL,STATUS,RPACK,TNUM
      IF(.NOT.(NUMTRY.GT.5 ))GOTO 23000
      SDATA=65
      RETURN
23000 CONTINUE
      NUMTRY=NUMTRY+1
23001 CONTINUE
      TNUM=N
      CALL SPACK(68,TNUM,SIZE,PACKET)
      IF(.NOT.(HOST.EQ.0))GOTO 23002
      CALL PUTDEC(TNUM,4)
      CALL PUTC(13)
      CALL FLUSH(1)
23002 CONTINUE
      STATUS=RPACK(LEN,NUM,RECPKT)
      IF(.NOT.((STATUS.EQ.89).AND.(N.EQ.(NUM+1))))GOTO 23004
      STATUS=RPACK(LEN,NUM,RECPKT)
23004 CONTINUE
      IF(.NOT.(STATUS.EQ.78))GOTO 23006
      IF(.NOT.(N.NE.(NUM-1)))GOTO 23008
      SDATA=STATE
      RETURN
23008 CONTINUE
      GOTO 23007
23006 CONTINUE
      IF(.NOT.(STATUS.EQ.89))GOTO 23010
      IF(.NOT.(N.NE.NUM))GOTO 23012
      SDATA=STATE
      RETURN
23012 CONTINUE
      NUMTRY=0
      N=MOD((N+1),64)
      SIZE=BUFILL(PACKET)
      IF(.NOT.(SIZE.EQ.10003))GOTO 23014
      SDATA=90
      RETURN
23014 CONTINUE
      SDATA=68
      RETURN
23010 CONTINUE
      IF(.NOT.(STATUS.EQ.0))GOTO 23016
      SDATA=STATE
      RETURN
23016 CONTINUE
      SDATA=65
23017 CONTINUE
23011 CONTINUE
23007 CONTINUE
      RETURN
      END