home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / BBS / MISC / SCRIPTS.ZIP / XKCISDL.T < prev    next >
Encoding:
Text File  |  1991-07-01  |  867 b   |  29 lines
  1.     :: This script downloads a file after it is listed by the
  2.     :: Compuserve SIG "bro" command with XMODEM OverThruster.
  3.     ::    Enable this with:
  4.     :: set f8 "@source xkcisdl.t"
  5.     :: Then "bro" and at each SIG download prompt, F3 grabs the file.
  6.     :: Note - to "clean up" the display change the "pat 1i" to "pat 1"
  7.     ::  and likewise the line below it, by delaying YAM's responses.
  8.     ::
  9.     if !h^\[ echo "Can't find Project Programmer Number"; return
  10.     ss yf "^[^     /]+"
  11.     setc s0 "\L%z0"
  12.     if f%s0 echo "%s0 Exists: No Action taken."; return
  13.     echo "File name is %s0"
  14.     split y "     " "     " "     "
  15.     put "\025dow %s0/proto:xmodem\r"
  16.     pat 1i "Protocol Menu"
  17.     pat 2 "complete."
  18.     wait -f20
  19.     if 1 put "\0251\r"; wait -f20        : tell them XMODEM
  20.     if !2 return
  21.     estimate z2
  22.     pat;  wait -f2
  23.     rc "%s0"
  24.     pat; pat 1 "["
  25.     put "\025"
  26.     while !1 put "\r" wait -f5
  27.     pat
  28.     return
  29.