home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dream 46
/
Amiga_Dream_46.iso
/
Amiga
/
Internet
/
Irc
/
ChatBox1_164.lha
/
Rexx
/
sendto.cb
< prev
Wrap
Text File
|
1997-10-24
|
670b
|
29 lines
/* Sendto.cb - pick a file and then select the recipient
* By Camelot (Sami.Itkonen@hut.fi)
* $VER: 1.0 (22.8.1995)
*/
lf='0a'x /* ascii code for linefeed */
options results
if ~show('L','rexxsupport.library') then if ~addlib('rexxsupport.library',0,-30,0) then exit 10
if ~show('L','rexxreqtools.library') then if ~addlib('rexxreqtools.library',0,-30,0) then exit 10
parse arg file addr
if file = "" then exit
file=strip(file)
if addr == "" then addr=address()
addr=strip(addr)
address value addr
nick = rtgetstring(,"Send to who? ", "Send file","Ok|Cancel",,rtresult)
if rtresult = 0 then exit
if strip(nick) ~= "" then CMD '/dcc send' nick file