home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_disks / 200-299 / ff202.lzh / Vlt / rexx / Filelist_to_Amiga.vlt < prev    next >
Text File  |  1989-05-04  |  1KB  |  71 lines
  1. /* this is a test for a window which pulls stuff */
  2.  
  3. check = addlib('rexxsupport.library',0,-30)  
  4. check = addlib('rexxarplib.library',0,-30)  
  5. check = addlib('rexxmathlib.library',0,-30) 
  6.  
  7. host = address()
  8. if host ~= "VLT" then do
  9.    x=postmsg(0,0," ","VLT")
  10.    call delay 40
  11.    x=postmsg()
  12.    x = screentofront("VLT")
  13. end
  14.  
  15. fillstring = ""
  16.   fillstring = fillstring||"1. Make sure your terminal is in\"
  17.   fillstring = fillstring||"   FILELIST and your cursor is to\"
  18.   fillstring = fillstring||"   the left of the file to be sent.\"
  19.   fillstring = fillstring||"2. Fill in the directory the file should\"
  20.   fillstring = fillstring||"   be saved in. The default is shown\"
  21.   fillstring = fillstring||"3. To continue click on Get It\"
  22.   fillstring = fillstring||"   To cancel click on Cancel"
  23.  
  24. y=request(326,120,fillstring ,"vd0:","Get It", "Cancel","VLT")
  25.  
  26. if y = "" then do
  27.     if host ~= "VLT" then x = screentoback("VLT")
  28.     exit
  29. end
  30.  
  31. directory = y
  32.  
  33.  
  34.   
  35.  
  36. sendstring = "kermver4 send */   *R"
  37. sendstring = '"'||sendstring||'"'
  38.  
  39.  
  40. if host ~= "VLT" then address VLT
  41. do
  42.  
  43.  
  44.         CD directory
  45.         SEND "*X7"
  46.         SEND sendstring
  47.         
  48.         call delay 150
  49.  
  50.         KR
  51.  
  52.         SEND "*R"
  53.         call delay 40
  54.         SEND "*R*R"
  55.         call delay 40
  56.         SEND "*R"
  57.         SEND "*F"
  58.         SEND "*F"
  59.         
  60. end        
  61.  
  62. if host ~= "VLT" then x=screentoback("VLT")
  63. exit 0 
  64.  
  65.  
  66.  
  67. HALT:
  68.   exit 20
  69.  
  70. BREAK_C
  71.   exit 20