home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / computervision / kermit.sstatus < prev    next >
Text File  |  2020-01-01  |  2KB  |  61 lines
  1. ; 23 jly 85 esj added display of eol
  2. ; 20 jly 85 lec converted
  3. ;;;;;;;;;             SSTATUS           ;;;;;;;;;;;;;;;;;;;;;;;
  4.       E:F A:S (NWLS)
  5.       E'O SSTATUS.
  6.  
  7.  ;     output the status and values of variables
  8.  
  9. /INCLUDE BYU.PROG.KERMIT.SYM.EQU.KERCOM
  10. /INCLUDE BYU.PROG.KERMIT.SYM.EQU.KERDEF
  11.  
  12.       I'R I
  13.  
  14.       W'R (HOSTON.EQ.YES)          ;we are running in remote host mode
  15.          E:E TYPEMSG.($Remote Host KERMIT mode in effect!$)
  16.          E:E TYPEINT.(DELAY)
  17.          E:E TYPEMSG.($ = DELAY in seconds!$)
  18.          E:E TYPEINT.(MYEOL)
  19.          E:E TYPEMSG.($ = MYEOL!$)
  20.          E:E TYPEINT.(EOL)
  21.          E:E TYPEMSG.($ = EOL!$)
  22.          E:E TYPEINT.(PAKSIZ)
  23.          E:E TYPEMSG.($ = PAKSIZ!$)
  24.          E:E TYPEINT.(MYQUOTE)
  25.          E:E TYPEMSG.($ = MYQUOTE!$)
  26.          E:E TYPEINT.(SOH)
  27.          E:E TYPEMSG.($ = SOH!$)
  28.          W'R (STATE.EQ.BIGC)
  29.             E:E TYPEMSG.($File transfer state = C!$)
  30.          O'E
  31.              E:E TYPEMSG.($File transfer state = A!$)
  32.          E'L
  33.        O'E
  34.            E:E TYPEINT.(MYEOL)
  35.            E:E TYPEMSG.($ = MYEOL!$)
  36.            E:E TYPEINT.(ESCHAR)
  37.            E:E TYPEMSG.($ = ESCAPE Char!$)
  38.            W'R (IBMON.EQ.YES)
  39.               E:E TYPEMSG.($IBM flag = ON!$)
  40.               E:E TYPEINT.(PROMPT)
  41.               E:E TYPEMSG.($ = IBM PROMPT!$)
  42.            O'E
  43.               E:E TYPEMSG.($IBM flag = OFF!$)
  44.            E'L
  45.            E:E TYPEINT.(PAKSIZ)
  46.            E:E TYPEMSG.($ = PACKET size!$)
  47.  
  48.            E:E TYPEINT.(MYQUOTE)
  49.            E:E TYPEMSG.($ = MYQUOTE!$)
  50.            E:E TYPEINT.(SOH)
  51.            E:E TYPEMSG.($ = SOH!$)
  52.            E:E TYPEMSG.($Remote TTY line used is ??!$)
  53.            W'R (STATE.EQ.BIGC)
  54.               E:E TYPEMSG.($File transfer state = C!$)
  55.            O'E
  56.               E:E TYPEMSG.($File transfer state = A!$)
  57.            E'L
  58.       E'L
  59.       F'N
  60.       E:N
  61.