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