home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 3 / Meeting_Pearls_III.iso / Pearls / tcp / Networking / TCP / Chat / AmiTALK / talkrequest.rx < prev   
Text File  |  1994-04-25  |  331b  |  20 lines
  1. /* Talk answer requestor by Brian Gunn 02/28/94 */
  2.  
  3. NL = '0a'x
  4.  
  5. if arg()~=1 then do
  6.     say "USAGE:  rx talkrequest callee"
  7.     exit 5
  8. end
  9.  
  10. call addlib("rexxreqtools.library", 0, -30, 0)
  11.  
  12. parse ARG callee
  13.  
  14. if rtezrequest("Talk request from" || NL ||,
  15.     NL||callee , "Answer|Ignore")
  16. then
  17. do
  18. address command "amitcp:bin/talk "||callee
  19. end
  20.