home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Columbia Kermit
/
kermit.zip
/
archives
/
computervision.tar.gz
/
computervision.tar
/
kermit.sstatus
< prev
next >
Wrap
Text File
|
1987-02-19
|
2KB
|
61 lines
; 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