; 15-AUG-85 MVI: CHANGED NO IOFLAG VALUE FROM 0 TO -1.
;  7 aug 85 dg/esj added no wait io support
; 17 jly 85 esj converted
;;;;;;;;;;;;;;    KMAIN       ;;;;;;;;;;;;;;;;;;;;;;;
;
      E'F A:S(NWLS)
      E'O KMAIN.

;     CGOS-KERMIT MAIN PROGRAM

;     CGOS KERMIT was converted from hp1000 kermit
;     guilty parties:   esj, lec, pcc
;     cohort in crime:  mvi

;     HP1000 KERMIT was implemented by John Lee of RCA Laboratories
;     6/29/84

;     Permission is granted to any individual or instution to copy
;     or use this program, except for explicitly commerical purpose.


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


      G'L VENQACK,VXONXOFF
      G'L VERNUM


*     FORMATS TRANSFORMED TO V:S
      V'S F99   =  $ CGOS KERMIT Version!$
      V'S F100  =  $ Remote Host KERMIT mode now in effect!$

      DELAY = 15           ; 15 SECONDS
      EOL = 13             ; CR
      ESCHAR = 29          ; CNTR-]
      HOSTON = YES         ; we are running in Remote Host mode
      IBMON = NO

;     set up no wait io for terminal io
      LOCALDEV = $SD$      ; default comdev
      LOCALDEV(1) = -1     ; no io flag yet
      RMTDEV   = $SD$      ; default kermit device name since we wake up in
      RMTDEV(1)   = -1     ; no io flag yet
      MAXTRY = 5           ; remote mode
      MYEOL = 13
      MYPAD = 0
      MYPCHAR = 0
      MYQUOTE = 35
      PAD = 0
      PADCHAR = 0
      PAKSIZ = 80
      PROMPT = 17           ;DC1, IBM MODE ONLY
      QUOTE = 35
      SOH = 1
      STATE = BIGC
      SPARITY = NO
      SBAUD = NO
      SPORT = YES
      VXONXOFF = 1     ;set XON/XOFF enabled
      VENQACK = 0      ;set ENQ/ACK disabled
;


;     determine whether we are running in Remote or Local KERMIT mode
      HOSTON  =  YES             ;remote kermit in effect
      E:E TYPMSG.(F99)
      E:E TYPEMSG.(VERNUM)
      E:E TYPEMSG.(F100)

      E'E PARSER.
      F'N
      E'N