INTEGER FUNCTION SENDSW(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,STATUS
      INTEGER SDATA,SFILE,SEOF,SINIT,SBREAK
      STATE=83
      N=0
      EOL=13
      NUMTRY=0
      STATUS=1
      CALL TTYRAW
      IF(.NOT.(HOST.EQ.0))GOTO 23000
      TASK UNHUNG,ID=2,PRI=255
23000 CONTINUE
23002 IF(.NOT.(STATUS.EQ.1))GOTO 23003
      IF(.NOT.(STATE.EQ.68))GOTO 23004
      STATE=SDATA(X)
      GOTO 23005
23004 CONTINUE
      IF(.NOT.(STATE.EQ.70))GOTO 23006
      STATE=SFILE(X)
      GOTO 23007
23006 CONTINUE
      IF(.NOT.(STATE.EQ.90))GOTO 23008
      STATE=SEOF(X)
      GOTO 23009
23008 CONTINUE
      IF(.NOT.(STATE.EQ.83))GOTO 23010
      STATE=SINIT(X)
      GOTO 23011
23010 CONTINUE
      IF(.NOT.(STATE.EQ.66))GOTO 23012
      STATE=SBREAK(X)
      GOTO 23013
23012 CONTINUE
      IF(.NOT.(STATE.EQ.67))GOTO 23014
      SENDSW=-1
      IF(.NOT.(HOST.EQ.0))GOTO 23016
      CALL TIDK(2,IER)
      CALL WAIT(1,2,IER)
23016 CONTINUE
      CALL TTYCOOK
      RETURN
23014 CONTINUE
      IF(.NOT.(STATE.EQ.65))GOTO 23018
      SENDSW=0
      IF(.NOT.(HOST.EQ.0))GOTO 23020
      CALL TIDK(2,IER)
      CALL WAIT(1,2,IER)
23020 CONTINUE
      CALL TTYCOOK
      RETURN
23018 CONTINUE
      STATUS=0
      SENDSW=0
      IF(.NOT.(HOST.EQ.0))GOTO 23022
      CALL TIDK(2,IER)
      CALL WAIT(1,2,IER)
23022 CONTINUE
23019 CONTINUE
23015 CONTINUE
23013 CONTINUE
23011 CONTINUE
23009 CONTINUE
23007 CONTINUE
23005 CONTINUE
      GOTO 23002
23003 CONTINUE
      CALL TTYCOOK
      RETURN
      END