PARM typem
ANYPARM msg
COMMENT ***********************************************
COMMENT    THIS COMMAND FILE IS USED FROM ACESTELL
COMMENT    COMMAND FILE.
COMMENT
COMMENT                        KIM HECKLER  11/98
COMMENT                    hecklek@gatesmcdonald.com
COMMENT ***********************************************

SETVAR loopcnt 1
SETVAR cmdeof FINFO('USERLIST','EOF')

IF typem = 'W'

  PURGE MPEXCMDS,TEMP > $NULL
  ECHO   > MPEXCMDS

  WHILE (loopcnt <= cmdeof) DO
    SETVAR cmdoutpt INPUT ()
    IF LFT('!cmdoutpt',2) = "#S"
      SETVAR sess WORD(RTRIM('!cmdoutpt'),,1)
      ECHO WARNF !sess !msg >> MPEXCMDS
    ENDIF
    SETVAR loopcnt loopcnt + 1
  ENDWHILE

  ECHO EXIT >> MPEXCMDS

  RUN MAIN.PUB.VESOFT,MPEX;PARM=1 < MPEXCMDS

ELSE

  WHILE (loopcnt <= cmdeof) DO
    SETVAR cmdoutpt INPUT ()
    IF LFT('!cmdoutpt',2) = "#S"
      SETVAR sess WORD(RTRIM('!cmdoutpt'),,1)
      TELL !sess !msg
    ENDIF
    SETVAR loopcnt loopcnt + 1
  ENDWHILE

ENDIF

DELETEVAR typem
COMMENT  DELETEVAR msg
DELETEVAR sess
DELETEVAR cmdoutpt