SUBROUTINE SHOW_STATUS
C
C	This subroutine is used to display the various VAXNET parmeters.
C
	INCLUDE 'COM.INC/NOLIST'

	CHARACTER DUMMY*2, MAXBC*3

	CALL WRITE_USER(SS//'VAXNET Status Report:'//DS)
C
C	First display the log file (if any).
C
	CALL WRITE_USER('Log file name:  ')
	IF (LOGFILE) THEN
		CALL WRITE_USER(LOG_FILE(1:LOGFILE_SIZE)//SS)
	ELSE
		CALL WRITE_USER('None'//SS)
	ENDIF
C
C	Now display if local logging is enabled.
C
	IF (LOGFILE) THEN
		CALL WRITE_USER('Local logging:  ')
		IF (LOG_LOCAL) THEN
			CALL WRITE_USER('Enabled'//SS)
		ELSE
			CALL WRITE_USER('Disabled'//SS)
		ENDIF
	ENDIF
C
C	Display the remote port.
C
	CALL WRITE_USER('Remote port:    '//REMOTE_DEVICE(1:REMOTE_SIZE)//SS)
C
C	Display the interrupt character.
C
	DUMMY(1:1) = CHAR(INTERRUPT_CHAR(1))
	DUMMY(2:2) = CHAR(32)
	IF (INTERRUPT_CHAR(1) .LT. 32) THEN
		DUMMY(1:1) = '^'
		DUMMY(2:2) = CHAR(INTERRUPT_CHAR(1)+64)
	ENDIF
	CALL WRITE_USER('Interrupt char: '//DUMMY//SS)
C
C	Display the system type.
C
	CALL WRITE_USER('System type:    '//SYSTEM_TYPE(1:SYSTEM_SIZE)//SS)
C
C	Display the remote baud rate.
C
	CALL WRITE_USER('Remote speed:   '//REMOTE_BAUD(1:SPEED_SIZE)//SS)
C
C	If using autodial modem, display the modem type.
C
	IF (AUTODIAL) THEN
		CALL WRITE_USER('Modem type:     '
	1		//MODEM_TYPE(1:MODEM_SIZE)//SS)
	ENDIF
C
C	Display the phone number (if any).
C
	IF (PHONE_SIZE .GT. 0) THEN
		CALL WRITE_USER('Phone number:   '
	1		//PHONE_NUMBER(1:PHONE_SIZE)//SS)
	ENDIF
C
C	If debugging is enabled, output some more information.
C
	IF (DEBUG_MODE) THEN
		CALL WRITE_USER('Debug mode:     Enabled'//SS)
C
C	First output the maximum local typeahead count.
C
		CALL WRITE_USER('Local count:   ')
		ENCODE (3,100,%REF(MAXBC)) LMAX_TYPEAHEAD
		CALL WRITE_USER(MAXBC//SS)
C
C	Now output the maximum remote typeahead count.
C
		CALL WRITE_USER('Remote count:  ')
		ENCODE (3,100,%REF(MAXBC)) MAX_TYPEAHEAD
100		FORMAT (I3)
		CALL WRITE_USER(MAXBC//SS)
	ENDIF
	RETURN
	END