home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
windows
/
misc_xts.zip
/
AUTODOWN.XTS
next >
Wrap
Text File
|
1988-05-30
|
2KB
|
59 lines
/* CROSSTALK Mk. 4 auto file down load script
This script will download a group of files from exec-pc BBS.
This bbs supports d for down load and prompts for a file name.
This script is designed to issue the d, and then read the file name
from a file list that was captured by asking for new files when you
first log on, or from a previously prepared list. I log on with capture on
and then edit the new file list to eliminate the files that I don't want
while i might be downloading one file. I usually do this with with the Mk4
editor during the first file's download, since the bbs would log me off if
if i didn't do any thing for the first few minutes. after I have prepared the
file, I get the command line or assign to a key the command do exdown, the computer
prompts for the file name and starts automatically downloading the file.
Since I use ymodem for most of the downloads the routine issues a receive fname
command to get the ball rolling.
to use it for any other bbs you could change the watch strings that I feel
are necessary, or use time delays (time delays are not as eligient as
watch statements.
need a list of files including the extensions to read from
version 1.1
Gary Hill
President
Mountain Engineering and Controls
Rt#2 box 579
Alexandria, In 46001
317-642-3610
some what an adaption of down.xts from CROSSTALK Mk4 BBS.
*/
include XTCTRWIN
w=freewin
defwindow=w
CENTER_WINDOW "NAME OF FILE LIST FILE",w,1,1,5
input string dfileLST
if length(dfilelst)=0 then exit
shut w
chan1 = freefile
OPEN INPUT DFILELST AS 1
w2=freewin
defwindow=w2
window w2,size 3,80,at 1,1
reply
x = 0
while x = 0
x = eof(1)
watch for
key 27 : exit
'-->' : read line #chan1, string fname :reply 'D;' + strip(left(fname,12)) ...
: print fname : alarm 5
'Blocks]' : wait quiet 5 ticks: receive 'D:' + strip(left(fname,12)) :alarm 10
endwatch
wend
shut w2
exit