home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / comm / zcm_scrp.zip / CKCISDL.T < prev    next >
Text File  |  1989-11-21  |  842b  |  28 lines
  1.     :: This script capture (DC2/DC4) downloads a file after it is listed
  2.     :: in the Compuserve SIG "bro" command.  Enable this with:
  3.     :: set f7 "@source ckcisdl.t"
  4.     :: Then "bro" and at a SIG download prompt, f7 grabs the file.
  5.     :: For ASCII files only, no error correction, but faster than B-prot
  6.     ::
  7.     if !h^\[ echo "Can't find Project Programmer Number"; return
  8.     ss yf "^[^     /]+"
  9.     setc s0 "\L%z0"
  10.     if f%s0 echo "%s0 Exists: No Action taken."; return
  11.     echo "File name is %s0"
  12.     split y "     " "     " "     "
  13.     put "\025dow %s0/proto:capture\r"
  14.     pat 1i "Protocol Menu"
  15.     pat 2i "\022"
  16.     pat 3i "\024"
  17.     pat 4 "ntinue anyway (Y or N)?"
  18.     wait -f20; ki
  19.     if 1 put "\0254\r"; wait -f20        : tell them CAPTURE
  20.     if 4 put "\025no\r"; return
  21.     if !2 echo "Download Failed"; return
  22.     pat 4 ""
  23.     estimate z2
  24.     create %s0
  25.     wait -f20
  26.     close
  27.     return
  28.