C----------------------------------------------------------------------
C-
C-   Created   7-FEB-1991   MICHIGAN STATE UNIVERSITY, TRIGGER CONTROL SOFTWARE
C-
C-   Purpose : MON_PUT_STRING holds variables needed for the buffered screen
C-                            IO.
C-   Updated   5-MAY-1995   Philippe Laurens - MSU L1 Trigger   
C-                          add new command for Luminosity display.
C-   Updated  19-OCT-1995   Philippe Laurens - MSU L1 Trigger  
C-                          Add 36x36 scalers
C-
C----------------------------------------------------------------------
C
C
C       Codes for the commands entered
C
      INTEGER COMMAND_QUIT
      INTEGER COMMAND_GLOBAL_ALLOC
      INTEGER COMMAND_SPECIFIC_TRIGGER
      INTEGER COMMAND_GEO_SECT
      INTEGER COMMAND_GLOBAL_MONIT
      INTEGER COMMAND_GLOBAL_THRESH
      INTEGER COMMAND_REF_SETS
      INTEGER COMMAND_PER_BUNCH
      INTEGER COMMAND_LUMINOSITY
      INTEGER COMMAND_DIAGNOST
      INTEGER COMMAND_OTHER
      INTEGER COMMAND_TRIG_FILT_RUN
      INTEGER COMMAND_ANDOR
      INTEGER COMMAND_SPY_DUMP
      INTEGER COMMAND_JET_LIST
      INTEGER COMMAND_ADC
      INTEGER COMMAND_PRTRGR_DBLOCK
      INTEGER COMMAND_GLOBAL_L15
      INTEGER COMMAND_SPECTRIG_L15
      INTEGER COMMAND_SPY_WINDOW
      INTEGER COMMAND_EXCLUDED_TOWERS
      INTEGER COMMAND_FOREIGN_SCALERS
      INTEGER COMMAND_36X36_SCALERS
      PARAMETER (COMMAND_QUIT = 0)
      PARAMETER (COMMAND_GLOBAL_ALLOC = 1)
      PARAMETER (COMMAND_SPECIFIC_TRIGGER = 2)
      PARAMETER (COMMAND_GEO_SECT = 3)
      PARAMETER (COMMAND_GLOBAL_MONIT = 4)
      PARAMETER (COMMAND_GLOBAL_THRESH = 5)
      PARAMETER (COMMAND_REF_SETS = 6)
      PARAMETER (COMMAND_OTHER = 7)
      PARAMETER (COMMAND_DIAGNOST = 8)
      PARAMETER (COMMAND_PER_BUNCH = 9)
      PARAMETER (COMMAND_TRIG_FILT_RUN = 10)
      PARAMETER (COMMAND_ANDOR = 11)
      PARAMETER (COMMAND_SPY_DUMP = 12)
      PARAMETER (COMMAND_JET_LIST = 13)
      PARAMETER (COMMAND_ADC = 14)
      PARAMETER (COMMAND_PRTRGR_DBLOCK = 15)
      PARAMETER (COMMAND_GLOBAL_L15 = 16)
      PARAMETER (COMMAND_SPECTRIG_L15 = 17)
      PARAMETER (COMMAND_SPY_WINDOW = 18)
      PARAMETER (COMMAND_EXCLUDED_TOWERS = 19)
      PARAMETER (COMMAND_FOREIGN_SCALERS = 20)
      PARAMETER (COMMAND_LUMINOSITY = 21)
      PARAMETER (COMMAND_36X36_SCALERS = 22)
C
C       The histogram numbers for the rates log
C
      PARAMETER RATES_HIST_NUM = 1000
C
C       Variables needed for management of IO
C
      INTEGER FILE_LINES, FILE_COLUMNS
      PARAMETER (FILE_LINES = 280, FILE_COLUMNS = 100)
      INTEGER LINES                     ! The number of lines on screen
      INTEGER VKEYBD_ID                 ! The virtual keyboard number
      INTEGER UNIT_NUM
      INTEGER REFRESH_RATE
      INTEGER RING_SIZE                 ! number of elements used in the
                                        ! ring buffer
      LOGICAL NEW_INTEGRATE             ! delta quantites in raw common
                                        ! blocks are calculated with
                                        ! the subroutine INTEGRATE_NEW_DELTAS
                                        ! if TRUE
      CHARACTER*3500 OUTPUT_BUFFER      ! The length must be the same as
                                        ! the value of the parameter
                                        ! BUFFER_SIZE
      CHARACTER*100 FILE_COPY(FILE_LINES)
      CHARACTER*100 LIST_COPY(FILE_LINES)
      INTEGER FIRST_LINE_LIST
      INTEGER LAST_LINE_LIST
      INTEGER FILE_LINE, FILE_COLUMN
      INTEGER LIST_LINE, LIST_PAGE
      INTEGER LIST_DISPLAY_BEGIN, LIST_DISPLAY_END
      INTEGER LIST_LINE_START, LIST_COL_START
      LOGICAL DUMP_FILE_OPENED
      CHARACTER*80 DUMP_FILE_NAME
      INTEGER DUMP_FILE_UNIT_NUM
      LOGICAL MORE, MORE_UP, MORE_DOWN
C
      INTEGER BUFFER_SIZE, BREAK_POINT
      INTEGER BUFFER_POSITION
      PARAMETER (BUFFER_SIZE = 3500, BREAK_POINT = 1800)
C
C       The following variables are used by the periodic data log routines
C
      LOGICAL SCREEN_LOG_RECORDING
      CHARACTER*132 SCREEN_LOG_FNAME
      INTEGER SCREEN_LOG_LUN
      INTEGER SCREEN_LOG_INTERVAL
      INTEGER SCREEN_WRITE_INTERVAL
      INTEGER SCREEN_LOG_COUNTDOWN
      INTEGER SCREEN_WRITE_COUNTDOWN
      CHARACTER*100 SCREEN_LOG_BUFFER(60*FILE_LINES)
      INTEGER SCREEN_LOG_BUFFER_LINE
C
      LOGICAL RATES_LOG_RECORDING
      CHARACTER*132 RATES_LOG_FNAME
      INTEGER RATES_LOG_LUN
      INTEGER RATES_LOG_INTERVAL
      INTEGER RATES_WRITE_INTERVAL
      INTEGER RATES_LOG_COUNTDOWN
      INTEGER RATES_WRITE_COUNTDOWN
C
      INTEGER NUM_FOREIGN_SCALERS
      INTEGER FOREIGN_SCALERS_INDICES(44)
      CHARACTER*80 FOREIGN_SCALERS_NAMES(44)
C
      COMMON /LV1_MON_SCREEN/ LINES, VKEYBD_ID, UNIT_NUM,
     &  REFRESH_RATE, RING_SIZE, NEW_INTEGRATE, OUTPUT_BUFFER,
     &  BUFFER_POSITION,
     &  FILE_COPY, LIST_COPY, FIRST_LINE_LIST, LAST_LINE_LIST,
     &  FILE_LINE, FILE_COLUMN, DUMP_FILE_OPENED, DUMP_FILE_NAME,
     &  DUMP_FILE_UNIT_NUM, LIST_LINE, LIST_DISPLAY_BEGIN,
     &  LIST_DISPLAY_END, LIST_PAGE, LIST_LINE_START, LIST_COL_START,
     &  MORE, MORE_UP, MORE_DOWN,
     &  SCREEN_LOG_RECORDING, SCREEN_LOG_FNAME, SCREEN_LOG_LUN,
     &  SCREEN_LOG_INTERVAL, SCREEN_WRITE_INTERVAL,
     &  SCREEN_LOG_COUNTDOWN, SCREEN_WRITE_COUNTDOWN,
     &  SCREEN_LOG_BUFFER_LINE, SCREEN_LOG_BUFFER,
     &  RATES_LOG_RECORDING, RATES_LOG_FNAME, RATES_LOG_LUN,
     &  RATES_LOG_INTERVAL, RATES_WRITE_INTERVAL, RATES_LOG_COUNTDOWN,
     &  RATES_WRITE_COUNTDOWN, NUM_FOREIGN_SCALERS,
     &  FOREIGN_SCALERS_INDICES, FOREIGN_SCALERS_NAMES