home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / SCRIPTS.ZIP / XKCISDL.T < prev    next >
Encoding:
Text File  |  1995-03-21  |  922 b   |  30 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.     :  Text, Bytes:    33420, Count:     2, 21-Mar-95
  15.     split y "     " "     :" ",:     "
  16.     put "\025dow %s0/proto:xmodem\r"
  17.     pat 1i "Protocol Menu"
  18.     pat 2 "complete."
  19.     wait -f20
  20.     if 1 put "\0251\r"; wait -f20        : tell them XMODEM
  21.     if !2 return
  22.     estimate z2
  23.     pat;  wait -f2
  24.     rc "%s0"
  25.     pat; pat 1 "["
  26.     put "\025"
  27.     while !1 put "\r" wait -f5
  28.     pat
  29.     return
  30.