home *** CD-ROM | disk | FTP | other *** search
/ Fish 'n' More 2 / fishmore-publicdomainlibraryvol.ii1991xetec.iso / disks / disk384.lzh / Contact / ARexx / Contact.rexx next >
OS/2 REXX Batch file  |  1990-10-23  |  499b  |  29 lines
  1. /* Contact.rexx - Demonstrates calling Contact from ARexx */
  2. /* Copyright (c) 1990 CMF Software.  Written by Craig Fisher */
  3.  
  4. /* Add the HyperActive program as a Rexx host at priority 0 */
  5. call addlib 'Contact', 0
  6.  
  7. /* Tell Contact to go to first address */
  8. call "SELECT FIRST"
  9.  
  10. SIGNAL ON ERROR
  11. OPTIONS RESULTS
  12.  
  13. x = 0
  14.  
  15. DO forever
  16.     /* Pause for 1 second */
  17.     address command "wait 1"
  18.  
  19.     call "SELECT NEXT"
  20.         x = x + 1
  21.         if x > 20 then break
  22. END
  23.  
  24. EXIT
  25.  
  26. ERROR:
  27.  say "End of file"
  28.  call "QUIT"
  29.