; 16 jly 84 esj; converted
;-------------------------------------< sreceive >--------------------------
      E'F A:S(NWLS)
      E'O SRECEIVE.
;----------------------------------------------------------------------------
;
; Purpose
;  sets up TTY line before calling for RECSW routine

; Input
;  none

; Output
;  none

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

; Globals
;  none

; Locals
   I'R LOGTTY(132),STATUS,X,BELL

;---------------------------< start of code >-------------------------------

      BELL=7

      W'R (HOSTON.EQ.YES)
         E'E SETRAW.(RMTDEV,LOGTTY)    ;put this TTY into RAW mode

         STATUS=RECSW.(X)

         E'E SETCOOK.(RMTDEV,LOGTTY)   ;put this TTY back into COOK mod

      O'E
          E'E SETRAW.(RMTDEV,RMTTTY)   ;put this TTY into RAW mode

          STATUS=RECSW.(X)

          E'E SETCOOK.(RMTDEV,RMTTTY)  ;put TTY back into COOK mode

          E'E TYPE.(0,0)

          W'R (STATUS.EQ.YES)
             E:E TYPEMSG.($File transfer COMPLETED!$)
          O'E
             E:E TYPEMSG.($File transfer FAILED!$)
          E'L
      E'L
      F'N
      E'N