home *** CD-ROM | disk | FTP | other *** search
- ; 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
-