home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 35 Internet / 35-Internet.zip / slip-cm.zip / Task_Active.CMD < prev    next >
OS/2 REXX Batch file  |  1993-10-12  |  308b  |  11 lines
  1. /***************************************************************/
  2. /*                                                             */
  3. /***************************************************************/
  4.  
  5. trace OFF
  6.  
  7.   parse upper arg task, tasks
  8.  
  9.   active = (wordpos(task, tasks) <> 0)
  10.  
  11. return (active)