; 23 jly 85 esj added display of eol
; 20 jly 85 lec converted
;;;;;;;;;             SSTATUS           ;;;;;;;;;;;;;;;;;;;;;;;
      E:F A:S (NWLS)
      E'O SSTATUS.

 ;     output the status and values of variables

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

      I'R I

      W'R (HOSTON.EQ.YES)          ;we are running in remote host mode
         E:E TYPEMSG.($Remote Host KERMIT mode in effect!$)
         E:E TYPEINT.(DELAY)
         E:E TYPEMSG.($ = DELAY in seconds!$)
         E:E TYPEINT.(MYEOL)
         E:E TYPEMSG.($ = MYEOL!$)
         E:E TYPEINT.(EOL)
         E:E TYPEMSG.($ = EOL!$)
         E:E TYPEINT.(PAKSIZ)
         E:E TYPEMSG.($ = PAKSIZ!$)
         E:E TYPEINT.(MYQUOTE)
         E:E TYPEMSG.($ = MYQUOTE!$)
         E:E TYPEINT.(SOH)
         E:E TYPEMSG.($ = SOH!$)
         W'R (STATE.EQ.BIGC)
            E:E TYPEMSG.($File transfer state = C!$)
         O'E
             E:E TYPEMSG.($File transfer state = A!$)
         E'L
       O'E
           E:E TYPEINT.(MYEOL)
           E:E TYPEMSG.($ = MYEOL!$)
           E:E TYPEINT.(ESCHAR)
           E:E TYPEMSG.($ = ESCAPE Char!$)
           W'R (IBMON.EQ.YES)
              E:E TYPEMSG.($IBM flag = ON!$)
              E:E TYPEINT.(PROMPT)
              E:E TYPEMSG.($ = IBM PROMPT!$)
           O'E
              E:E TYPEMSG.($IBM flag = OFF!$)
           E'L
           E:E TYPEINT.(PAKSIZ)
           E:E TYPEMSG.($ = PACKET size!$)

           E:E TYPEINT.(MYQUOTE)
           E:E TYPEMSG.($ = MYQUOTE!$)
           E:E TYPEINT.(SOH)
           E:E TYPEMSG.($ = SOH!$)
           E:E TYPEMSG.($Remote TTY line used is ??!$)
           W'R (STATE.EQ.BIGC)
              E:E TYPEMSG.($File transfer state = C!$)
           O'E
              E:E TYPEMSG.($File transfer state = A!$)
           E'L
      E'L
      F'N
      E:N