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