home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Fred Fish Collection 1.5
/
ffcollection-1-5-1992-11.iso
/
ff_disks
/
200-299
/
ff257.lzh
/
Vlt
/
rexx
/
Filelist_to_Amiga.vlt
< prev
next >
Wrap
Text File
|
1989-10-19
|
1KB
|
34 lines
/* this is a test for a window which pulls stuff */
if ~showlist('l','rexxarplib.library') then address command addrexxlib
host = address()
if host ~= "VLT" then do
x=postmsg(0,0," ","VLT")
call delay 40
x=postmsg()
x = screentofront("VLT")
end
fillstring = ""
fillstring = fillstring||"1. Make sure your terminal is in\"
fillstring = fillstring||" FILELIST and your cursor is to\"
fillstring = fillstring||" the left of the file to be sent.\"
fillstring = fillstring||"2. Fill in the directory the file should\"
fillstring = fillstring||" be saved in. The default is shown\"
fillstring = fillstring||"3. To continue click on Get It\"
fillstring = fillstring||" To cancel click on Cancel"
y=request(326,120,fillstring ,"vd0:","Get It", "Cancel","VLT")
if y = "" then do
if host ~= "VLT" then x = screentoback("VLT")
exit
end
directory = y
if host ~= "VLT" then address VLT
SEND "'sendami */ in "directory" *R'"
exit