; 16 jly 5 esj converted
;;;;;;;;;;;       SENDSW          ;;;;;;;;;;;;;;;;;;;;;;;;;;;;
      E'F A:S(NWLS)
      E'O SENDSW.(X)

;     send this group of files

/INCLUDE BYU.PROG.KERMIT.SYM.EQU.KERCOM
/INCLUDE BYU.PROG.KERMIT.SYM.EQU.KERDEF

      G'L XNEW,XCOUNT,XEOF

      I'R SDATA,SFILE,SEOF,SINIT,SBREAK
      I'R TV1,TV2,TV3,TV4

      STATE=BIGS
      XNEW=YES
      XCOUNT=1
      XEOF=NO
      N=0
      NUMTRY=0
      STATUS=YES

      W'E (STATUS.EQ.YES)
#              E'E TYPOUT.(2,'A000'.LOR.STATE)
#              E'E TYPEMSG.($ is current state!$)

               W'R (STATE.EQ.BIGD)                 ;send a data packet
                  STATE=SDATA.(X)

               O'R (STATE.EQ.BIGF)            ;send a file header
                       STATE=SFILE.(X)

               O'R (STATE.EQ.BIGZ)            ;send a EOF header
                       STATE=SEOF.(X)

               O'R (STATE.EQ.BIGS)            ;send a SINIT packe
                       STATE=SINIT.(X)

               O'R (STATE.EQ.BIGB)            ;send a BREAK packe
                       STATE=SBREAK.(X)

               O'R (STATE.EQ.BIGC)
                       LCLSTAT=YES                    ;file transfer comp
                       B'K

               O'R (STATE.EQ.BIGA)            ;file transfer fail
                       LCLSTAT=NO
                       TV1=BIGE
                       TV2=N
                       TV3=0
                       TV4=0
                       E'E SPACK.(TV1,TV2,TV3,TV4)  ;send a ERROR packet
                       B'K

                O'E
                     STATUS=NO
                     LCLSTAT=NO                      ;file transfer failu
                E'L
      E'W
      F'N LCLSTAT
      E'N