home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 124.lha / VLT / Rexx / Filelist_To_Amiga.vlt < prev    next >
Text File  |  1986-11-20  |  1KB  |  61 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.  
  8. fillstring = ""
  9.   fillstring = fillstring||"1. Make sure your terminal is in\"
  10.   fillstring = fillstring||"   FILELIST and your cursor is to\"
  11.   fillstring = fillstring||"   the left of the file to be sent.\"
  12.   fillstring = fillstring||"2. Fill in the directory the file should\"
  13.   fillstring = fillstring||"   be saved in. The default is shown\"
  14.   fillstring = fillstring||"3. To continue click on Get It\"
  15.   fillstring = fillstring||"   To cancel click on Cancel"
  16.  
  17. y=request(326,120,fillstring ,"vd0:","Get It", "Cancel","VLT")
  18.  
  19. if y = "" then exit
  20.  
  21. directory = y
  22.  
  23.  
  24.   
  25.  
  26. sendstring = "kermver4 send */   *R"
  27. sendstring = '"'||sendstring||'"'
  28.  
  29.  
  30.  
  31. do
  32.  
  33.  
  34.         CD directory
  35.         SEND "*X7"
  36.         SEND sendstring
  37.         
  38.         ADDRESS COMMAND 'c:wait 3'
  39.  
  40.         KR
  41.  
  42.         ADDRESS COMMAND 'c:wait 2'
  43.         SEND "*R"
  44.         ADDRESS COMMAND 'c:wait 2'
  45.         SEND "*R*R"
  46.         ADDRESS COMMAND 'c:wait 2'
  47.         SEND "*R"
  48.         SEND "*F"
  49.         SEND "*F"
  50.         
  51. end        
  52.  
  53. exit 0 
  54.  
  55.  
  56.  
  57. HALT:
  58.   exit 20
  59.  
  60. BREAK_C
  61.   exit 20