SUBROUTINE SSTATUS
C
C     ****************************************************************
C
C              KERMIT for the MODCOMP MAXIV operating system
C
C        Compliments of:
C
C                         SETPOINT, Inc.
C                      10245 Brecksville Rd.
C                      Brecksville, Ohio 44141
C
C
C      KERMIT is a copyrighted protocol of Columbia Univ. The authors
C      of this version hereby grant permission to copy this software
C      provided that it is not used for an explicitly commercial
C      purpose and that proper credit be given. SETPOINT, Inc. makes
C      no warranty whatsoever regarding the accuracy of this package
C      and will assume no liability resulting from it's use.
C
C     ****************************************************************
C
C     Abstract:  OUTPUT THE STATUS AND VALUES OF VARIABLES
C
C     MODIFICATION HISTORY
C
C     BY            DATE     REASON            PROGRAMS AFFECTED
C
C     ****************************************************************
C
C     Author: BOB BORGESON          Version: A.0    Date: Oct-86
C
C     Calling Parameters:  None
C
C     ****************************************************************
C
C     Messages generated by this module :  None
C
C     ****************************************************************
C
C     Subroutines called directly :  CTA4
C
C     ****************************************************************
C
C     Files referenced :  None
C
C     ****************************************************************
C
C     Local variable definitions :
C
C     KUSL   -  UNPACKED VERSION OF USL NAME  (IN HIGH ORDER BYTES)
C
C     ****************************************************************
C
C     Commons referenced :  KER, and KERPAR local commons
C
C     ****************************************************************
C
C     (*$END.DOCUMENT*)
C
C     ****************************************************************
C     *                                                              *
C     *         D I M E N S I O N   S T A T E M E N T S              *
C     *                                                              *
C     ****************************************************************
C
      IMPLICIT INTEGER (A-Z)
C
      INTEGER*2   KUSL(3)
C
C     ****************************************************************
C     *                                                              *
C     *         T Y P E   S T A T E M E N T S                        *
C     *                                                              *
C     ****************************************************************
C
C
C     ****************************************************************
C     *                                                              *
C     *         C O M M O N   S T A T E M E N T S                    *
C     *                                                              *
C     ****************************************************************
C
      INCLUDE USL/KERCOM
      INCLUDE USL/KERPMC
C
C     ****************************************************************
C     *                                                              *
C     *         E Q U I V A L E N C E   S T A T E M E N T S          *
C     *                                                              *
C     ****************************************************************
C
C
C     ****************************************************************
C     *                                                              *
C     *         D A T A   S T A T E M E N T S                        *
C     *                                                              *
C     ****************************************************************
C
C
C     ****************************************************************
C
C     Code starts here :
C
C----->  Convert the USL name to ASCII.
C
      CALL CTA4 (SUSL,KUSL,IND)
      IF (IND .EQ. 1) GO TO 10
      KUSL(1) = '?'
      KUSL(2) = '?'
      KUSL(3) = '?'
   10 CONTINUE
C                                    !WE ARE RUNNING IN REMOTE HOST MODE
      IF(HOSTON.NE.YES)GO TO 1000
         WRITE (LOCALO,107)
         WRITE (LOCALO,104)DELAY
         WRITE (LOCALO,103)MYEOL
         WRITE (LOCALO,100)PAKSIZ
         WRITE (LOCALO,102)MYQUOTE
         WRITE (LOCALO,101)SOH
         WRITE (LOCALO,120)KUSL
         IF(STATE.EQ.BIGC) WRITE (LOCALO,108)
         IF(STATE .NE. BIGC)WRITE (LOCALO,109)
         RETURN
 1000 CONTINUE
           WRITE (LOCALO,110)
           WRITE (LOCALO,106)SPEED
           WRITE (LOCALO,103)MYEOL
           WRITE (LOCALO,105)ESCHAR
           IF(IBMON.NE.YES)GO TO 1100
              WRITE (LOCALO,117)
              WRITE (LOCALO,119)PROMPT
              GO TO 1200
 1100      CONTINUE
           WRITE (LOCALO,118)
 1200      CONTINUE
           WRITE (LOCALO,100)PAKSIZ
           IF(PARITY.EQ.1) WRITE (LOCALO,111)
           IF(PARITY.EQ.2) WRITE (LOCALO,112)
           IF(PARITY.EQ.3) WRITE (LOCALO,113)
           IF(PARITY.EQ.4) WRITE (LOCALO,114)
           IF((PARITY .LT. 1) .OR. (PARITY .GT. 4))WRITE (LOCALO,115)
           WRITE (LOCALO,102)MYQUOTE
           WRITE (LOCALO,101)SOH
           WRITE (LOCALO,120)KUSL
           WRITE (LOCALO,116)
           IF(STATE.EQ.BIGC) WRITE (LOCALO,108)
           IF(STATE .NE. BIGC)WRITE (LOCALO,109)
100   FORMAT(' PACKET SIZE = ',I4)
101   FORMAT(' SOH         = ',I4)
102   FORMAT(' MYQUOTE     = ',I4)
103   FORMAT(' MYEOL       = ',I4)
104   FORMAT(' DELAY (SEC) = ',I4)
105   FORMAT(' ESCAPE CHAR = ',I4)
106   FORMAT(' BAUD RATE   = ',I5)
107   FORMAT(' REMOTE HOST KERMIT MODE IN EFFECT')
108   FORMAT(' FILE TRANSFER STATE = C')
109   FORMAT(' FILE TRANSFER STATE = A')
110   FORMAT(' LOCAL KERMIT MODE IN EFFECT')
111   FORMAT(' PARITY      = EVEN')
112   FORMAT(' PARITY      = ODD')
113   FORMAT(' PARITY      = SPACE')
114   FORMAT(' PARITY      = MARK')
115   FORMAT(' PARITY      = NONE')
116   FORMAT(' REMOTE TTY LINE USED IS ??')
117   FORMAT(' IBM FLAG    =   ON')
118   FORMAT(' IBM FLAG    =  OFF')
119   FORMAT(' IBM PROMPT  = ',I4)
120   FORMAT(' USL DIRECTORY = ',3A1)
      RETURN
      END