home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 13 / AACD13.ISO / AACD / Online / InetDial / AREXX / mdr_controlrefresh.awebrx < prev    next >
Text File  |  2000-07-23  |  352b  |  22 lines
  1. /*rx
  2. ©1998 MDR control refresh
  3. */
  4.  
  5. ADDRESS COMMAND
  6.  
  7. IF ~ SHOW('L', "rexxsupport.library") THEN DO
  8.    IF ADDLIB('rexxsupport.library', 0, -30,0)
  9.       THEN SAY 'added lib'
  10.       ELSE DO
  11.       SAY 'arexx.library not available - exiting'
  12.       EXIT 10
  13.       END
  14. END
  15.  
  16. CALL OPENPORT 'MDRCONTROL1'
  17. WaitForPort MDRCONTROL2
  18. CALL CLOSEPORT 'MDRCONTROL1'
  19.  
  20. EXIT
  21.  
  22.