/* MiamiQuit.yam - Quit Miami if started from YAM.
 *
 * $VER: MiamiQuit.yam 1.01 (15.6.01) © H. van der Ree <hivdree@uwnet.nl>
 */

OPTIONS RESULTS

/* Don't quit if one of these applications is running */
ports = "IBROWSE VOYAGER AMFTP.1 AWebControlPort ATC_MAIN ATC_TRADER.1"

miamiport = "MIAMI.1"

action = GETVAR(STARTEDBYYAM, "GLOBAL")
IF action = "YES" THEN
DO
  DO i = 1 TO WORDS(ports)
    IF SHOW('P', WORD(ports,i)) THEN CALL LastBits
  END

  IF SHOW('P', miamiport) THEN
  DO
    ADDRESS VALUE miamiport
    ISONLINE
    IF RC = 0 THEN
    DO
      QUIT
    END
  END
END

LastBits:

CALL DELETEVAR(STARTEDBYYAM, "GLOBAL")

ADDRESS COMMAND 'delete >NIL: T:#?.unp T:#?.tmp T:msg.db T:qfu.rexx'

EXIT 0