home *** CD-ROM | disk | FTP | other *** search
/ PC Online 1997 June / PCO_06_97.ISO / filesbbs / OS2 / AWACS357.ARJ / AWACS357.ZIP / zocevent.cm_ < prev   
Encoding:
Text File  |  1997-01-01  |  585 b   |  28 lines
  1. /*  REXX program for use with ZOC and AWACS  */
  2.  
  3. /*  This releases the com port that AWACS uses to monitor caller-ID */
  4. /*  before Zoc starts, and opens it back when Zoc exits */
  5.  
  6.  
  7. parse arg Event " '" DeviceName "'" "'" DeviceOpts "'"
  8. select
  9.  
  10.    /* ZOC device open */
  11.  
  12.    when Event="DEVOPEN" & DeviceName="SERIAL/MODEM" then do
  13.       awacs "-close"
  14.       call Beep 32767,1250
  15.       /* wait a sec or so for it to close */
  16.  
  17.    end
  18.  
  19.  
  20.    /* ZOC device close */
  21.  
  22.    when Event="DEVCLOSE" & DeviceName="SERIAL/MODEM" then do
  23.       awacs "-open"
  24.    end
  25. end
  26.  
  27. exit
  28.