home *** CD-ROM | disk | FTP | other *** search
/ Fish 'n' More 2 / fishmore-publicdomainlibraryvol.ii1991xetec.iso / fish / telecom / vlt_455 / rexx / setping.rexx < prev    next >
OS/2 REXX Batch file  |  1991-02-12  |  420b  |  22 lines
  1. /** SetPing.rexx
  2. *
  3. *   Set up the PingServer with a nice chime.
  4. *   Requires 'Ping'. This macro is usually run in the startup-sequence.
  5. *
  6. **/
  7. if ~show('l','rexxarplib.library') then addrexxlib
  8. /*
  9. *   Run Ping:
  10. */
  11. address command 'ping'
  12. /*
  13. *   Wait until its port appears
  14. */
  15. do i = 1 to 20
  16.    if ~showlist('p', 'PingServer') then call delay 20
  17.    else leave i
  18. end
  19.  
  20. call sendparsed('PingServer', SET, 1000, 5000, 64)
  21. exit
  22.