home *** CD-ROM | disk | FTP | other *** search
/ Amiga Elysian Archive / AmigaElysianArchive.iso / prog / arexx / rxarplib.lha / rexx / Filelist_to_Amiga.vlt < prev    next >
Encoding:
Text File  |  1988-11-06  |  1.3 KB  |  70 lines
  1. /* this one sends files from the mainframe to the Amiga using VLT */
  2.  
  3.  
  4.  if ~showlist('l','rexxarplib.library') then address command addrexxlib
  5.  
  6. host = address()
  7. if host ~= "VLT" then do
  8.    x=postmsg(0,0," ","VLT")
  9.    call delay 40
  10.    x=postmsg()
  11.    x = screentofront("VLT")
  12. end
  13.  
  14. fillstring = ""
  15.   fillstring = fillstring||"1. Make sure your terminal is in\"
  16.   fillstring = fillstring||"   FILELIST and your cursor is to\"
  17.   fillstring = fillstring||"   the left of the file to be sent.\"
  18.   fillstring = fillstring||"2. Fill in the directory the file should\"
  19.   fillstring = fillstring||"   be saved in. The default is shown\"
  20.   fillstring = fillstring||"3. To continue click on Get It\"
  21.   fillstring = fillstring||"   To cancel click on Cancel"
  22.  
  23. y=request(326,120,fillstring ,"vd0:","Get It", "Cancel","VLT")
  24.  
  25. if y = "" then do
  26.     if host ~= "VLT" then x = screentoback("VLT")
  27.     exit
  28. end
  29.  
  30. directory = y
  31.  
  32.  
  33.   
  34.  
  35. sendstring = "kermit send */   *R"
  36. sendstring = '"'||sendstring||'"'
  37.  
  38.  
  39. if host ~= "VLT" then address VLT
  40. do
  41.  
  42.  
  43.         CD directory
  44.         SEND "*X7"
  45.         SEND sendstring
  46.         
  47.         call delay 250
  48.  
  49.         KR
  50.  
  51.         SEND "*R"
  52.         call delay 40
  53.         SEND "*R*R"
  54.         call delay 40
  55.         SEND "*R"
  56.         SEND "*F"
  57.         SEND "*F"
  58.         
  59. end        
  60.  
  61. if host ~= "VLT" then x=screentoback("VLT")
  62. exit 0 
  63.  
  64.  
  65.  
  66. HALT:
  67.   exit 20
  68.  
  69. BREAK_C
  70.   exit 20