home *** CD-ROM | disk | FTP | other *** search
/ Dream 46 / Amiga_Dream_46.iso / Amiga / Internet / Irc / ChatBox1_164.lha / Rexx / sendto.cb < prev   
Text File  |  1997-10-24  |  670b  |  29 lines
  1. /* Sendto.cb - pick a file and then select the recipient 
  2.  * By Camelot (Sami.Itkonen@hut.fi) 
  3.  * $VER: 1.0 (22.8.1995) 
  4.  */
  5.  
  6.  
  7. lf='0a'x  /* ascii code for linefeed */
  8.  
  9. options results
  10.  
  11. if ~show('L','rexxsupport.library') then if ~addlib('rexxsupport.library',0,-30,0) then exit 10 
  12. if ~show('L','rexxreqtools.library') then if ~addlib('rexxreqtools.library',0,-30,0) then exit 10 
  13.  
  14. parse arg file addr
  15.  
  16. if file = "" then exit
  17. file=strip(file)
  18.  
  19. if addr == "" then addr=address()
  20. addr=strip(addr)
  21. address value addr
  22.  
  23. nick = rtgetstring(,"Send to who? ", "Send file","Ok|Cancel",,rtresult)
  24.  
  25. if rtresult = 0 then exit
  26. if strip(nick) ~= "" then CMD '/dcc send' nick file
  27.  
  28.  
  29.