$!========================================================================
$!
$! Name      : LINK_TRGMON
$!
$! Purpose   : link the main program for TRGMON, which calls the
$!              shared image.
$!
$! Arguments : none
$!
$! Created  14-MAR-1991   MICHIGAN STATE UNIVERSITY, TRIGGER CONTROL SOFTWARE
$! Modified 22-JAN-1994   Philippe Laurens - MSU L1 Trigger 
$!                         compack no longer  in general
$! Modified 10-AUG-1994   Philippe Laurens - MSU L1 Trigger 
$!                         Force getting L1UTIL_JET_LIST_BUILDER from GENERAL
$!                         instead of LEVEL1, since it still has the bug
$!
$!========================================================================
$   ON ERROR     THEN $ GOTO EXIT
$   ON CONTROL_Y THEN $ GOTO EXIT
$   
$   @AUTO_DEF_LOCAL.COM
$   CD SHTRGMON:
$   
$   IF ( "''deb'" .EQS. "DEB_" ) THEN link_option = "/DEBUG"
$   
$   LIBRARY 'deb'TRGMON.OLB /EXTR=TRGMON_MAIN /OUT=TRGMON_MAIN.OBJ 
$   PURGE/NOLOG/NOCONF TRGMON_MAIN.OBJ
$   LIBRARY D0$GENERAL:GENERAL /EXTR=L1UTIL_JET_LIST_BUILDER  -
                               /OUTP=L1UTIL_JET_LIST_BUILDER              
$   PURGE/NOLOG/NOCONF L1UTIL_JET_LIST_BUILDER.OBJ
$
$   LINK 'link_option' TRGMON_MAIN.OBJ, L1UTIL_JET_LIST_BUILDER, -
        'deb'TRGMON/LIBRARY, -
        D0$LEVEL1:'deb'LEVEL1/LIB, -
        D0$COMPACK:'deb'COMPACK/LIB, -  ! added 22-JAN-1994 
        D0$GENERAL:'deb'GENERAL/LIB, -
        'CERNP', -
        d0$itc:'deb'link/opt
$   
$   RENAME/NOLOG SHTRGMON:*.EXE  HTRGMON:
$   
$   IF ( F$SEARCH("*;-1") .NES. "" ) THEN PURGE/NOCONF/NOLOG 
$   
$EXIT:
$   CD HTRGMON:
$   PURGE/NOCONF/NOLOG
$   WRITE SYS$OUTPUT "-Done-"
$   EXIT