$!------------------------------------------------
$!
$! Created  14-MAR-1991   MICHIGAN STATE UNIVERSITY, TRIGGER CONTROL SOFTWARE
$! Revised  22-APR-1991   This command file was made
$!                        compatible for use in TRGUSER or TRGMGR account
$! Revised   5-jun-1991   Add logical to point at documentation
$! Revised  13-may-1992   add optional parameter P1 = OLD 
$!                           to access the version n-1 of executable.
$! Revised   2-JUL-1992   modify optional parameter P1 to L15 
$!                           to access the version n-1 of executable.
$! Revised   9-SEP-1992   return optional parameter P1 to OLD 
$!                           to access the version n-1 of executable.
$! Revised  13-NOV-1992   update banner for new release 
$!                        move setup commands to SETUP_TRGMON.COM
$! Revised   8-APR-1993   update banner for new release
$! Revised  17-DEC-1993   update banner for new release V5.0  
$!                           (large tile ref sets)
$! Revised  17-AUG-1994   update banner for new release V5.1  
$!                           (large tile counts and jet lists)
$! Revised  13-OCT-1994   pre-release of V6.0 
$!                           (longer integration time)
$!                        add optional parameter P1 = TEST 
$!                           to access the version TEST_TRGMON_MAIN
$!                           with temporary addition to banner
$! Revised   2-MAR-1995   Release of V6.1
$!                        Longer integration time now official
$!                        P1=TEST unused
$! Modified 28-APR-1995   TEST release of V6.2
$!                        Add Total and Fast and SLow Z Per-Bunch Luminosity 
$!          22-MAY-1995   use E30 scale
$!                        add diffractive correction 
$! Modified  8-JUN-1995   Release of V6.2
$!
$!------------------------------------------------
$   ON ERROR     THEN $ GOTO exit
$   ON CONTROL_Y THEN $ GOTO exit
$
$!define symbols
$   esc[0,8] = 27
$   say := WRITE SYS$OUTPUT
$
$!find_def_dir
$ this_file     = F$ENVIRONMENT("PROCEDURE")
$ this_dir      = F$PARSE(this_file,,,"DEVICE")  -
                + F$PARSE(this_file,,,"DIRECTORY")
$
$!Setup logicals needed for implicit parameters to TRGMON
$ @'this_dir'SETUP_TRGMON.COM 'P1' 'P2'
$
$!advertise:
$   eln_node = F$TRNLNM("D0TCC_NODE")
$
$   say esc + "[1;1H" + esc + "[2J"
$
$   say "       -------------------------------------------------------------"
$   say "                      LEVEL 1 TRIGGER MONITORING PROGRAM"
$   say "                               8-JUN-1995 V6.2"
$   say "                The Trigger Control Computer is ''eln_node'"
$   say "             The logical TRGMON_DOC points to the documentation"
$   say "       -------------------------------------------------------------"
$   say "                       NEW: - Total and Per-Bunch Luminosities"
$   say "                            - Dedicated Luminosity page"
$   say "                          Philippe, MSUHEP::LAURENS"
$   say "       -------------------------------------------------------------"
$   say ""
$!-----------------------------------------------------------------
$
$! Local definition of symbol RUN_TRGMON to use COMPACK qualifiers
$! that a straight RUN commmand couldn't use
$   RUN_TRGMON := $'this_dir'TRGMON_MAIN.EXE /FULL_SCREEN
$     
$ IF ( F$EDIT(P1,"UPCASE") .EQS. "TEST" ) 
$ THEN
$   say " "
$!   say "       -------------------------------------------------------------"
$!   say "                          TEST VERSION 31-MAY-1995 "
$!   say "        Total and Per-Bunch Luminosities from L0 Fast and Slow Z data."
$!   say "                 New dedicated Luminosity page, using E30 scale."
$!   say "                  Includes double single-diffraction correction"
$!   say "                          Philippe, MSUHEP::LAURENS"
$!   say "       -------------------------------------------------------------"
$   say " "
$  !check existence of test version of executable
$   IF (F$SEARCH("''this_dir'TEST_TRGMON_MAIN.EXE") .EQS. "" ) 
$   THEN 
$       SAY " No executable for TEST version of TRGMON is currently available." 
$   ELSE
$       RUN_TRGMON := $'this_dir'TEST_TRGMON_MAIN.EXE /FULL_SCREEN
$   ENDIF
$   
$ ENDIF
$
$!define ZEBRA log file to NL0: if not already redefined
$   IF (F$TRNLNM("FOR003") .EQS. "")  -
        THEN   DEFINE/USER       FOR003  NL0:
$     
$!run program
$   DEFINE/USER         SYS$INPUT       SYS$COMMAND
$   RUN_TRGMON
$
$EXIT:
$   EXIT