home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_disks / 300-399 / ff308.lzh / Vlt / rexx / Filelist_to_Amiga.vlt < prev    next >
Text File  |  1990-01-18  |  1KB  |  34 lines
  1. /* this is a test for a window which pulls stuff */
  2.  
  3.  if ~showlist('l','rexxarplib.library') then address command addrexxlib
  4.  host = address()
  5.  
  6.    if host ~= "VLT" then do
  7.      x=postmsg(0,0," ","VLT")
  8.      call delay 40
  9.      x=postmsg()
  10.      x = screentofront("VLT")
  11.    end
  12.  
  13.   fillstring = ""
  14.   fillstring = fillstring||"1. Make sure your terminal is in\"
  15.   fillstring = fillstring||"   FILELIST and your cursor is to\"
  16.   fillstring = fillstring||"   the left of the file to be sent.\"
  17.   fillstring = fillstring||"2. Fill in the directory the file should\"
  18.   fillstring = fillstring||"   be saved in. The default is shown\"
  19.   fillstring = fillstring||"3. To continue click on Get It\"
  20.   fillstring = fillstring||"   To cancel click on Cancel"
  21.  
  22.   y=request(326,120,fillstring ,"vd0:","Get It", "Cancel","VLT")
  23.  
  24.   if y = "" then do
  25.     if host ~= "VLT" then x = screentoback("VLT")
  26.     exit
  27.   end
  28.  
  29.   directory = y
  30.  
  31.   if host ~= "VLT" then address VLT
  32.         SEND "'sendami */ in "directory" *R'"
  33. exit
  34.