$!-----------------------------------------------------------------------------
$! HYPERSPI$AGENT.COM
$!
$! 20-MAY-2011  MGD  allow for WASD v10 environment
$! 21-AUG-1998  MGD  simplify, eliminating batch phase
$! 15-JUN-1995  MGD  initial development
$!-----------------------------------------------------------------------------
$!
$ SET NOON
$ IF F$TRNLNM("WASD_FILE_DEV") .NES. "" THEN @WASD_FILE_DEV
$!
$ IF P1 .EQS. "STARTUP"
$ THEN
$    LOG = "HT_LOGS:HYPERSPI_''F$GETSYI("NODENAME")'.LOG"
$    LOG = F$PARSE(LOG,,,,"NO_CONCEAL")
$    SET PROC /PRIVILEGE=ALL
$    RUN /DETACHED /AUTHORIZE SYS$SYSTEM:LOGINOUT -
         /PROCESS="HyperSPI$agent" -
         /INPUT=HT_ROOT:[SRC.HYPERSPI]HYPERSPI$AGENT.COM -
         /OUTPUT='LOG'
$    EXIT
$ ENDIF
$!
$!-----------------------------------------------------------------------------
$!
$ HYPERSPI$AGENT = "$HT_EXE:HYPERSPI$AGENT"
$! DEFINE /PROCESS HYPERSPI$DEBUG TRUE
$!
$ LOOP:
$    HYPERSPI$AGENT
$    IF $STATUS THEN EXIT
$    WAIT 00:01:00
$    GOTO LOOP
$ END_LOOP:
$!
$!-----------------------------------------------------------------------------