/* Sendto.cb - pick a file and then select the recipient * By Camelot (Sami.Itkonen@hut.fi) * $VER: 1.0 (22.8.1995) * converted to GV by Josef */ 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 if file = "" then exit file=strip(file) addr=address() address value addr nick = rtgetstring(,"Send to who?", "Send file","Ok|Cancel",,rtresult) if rtresult = 0 then exit if strip(nick) ~= "" then 'dcc send' nick file