home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / comm / zcm_scrp.zip / KCISDL.T < prev    next >
Text File  |  1989-11-21  |  762b  |  25 lines
  1.     :: This script downloads a file after it is listed
  2.     :: by the Compuserve SIG "bro" command.  Enable this with:
  3.     :: set f3 "@source kcisdl.t"
  4.     :: Then "bro" and at each SIG download prompt, F3 grabs the file.
  5.     ::
  6.     if !h^\[ echo "Can't find Project Programmer Number"; return
  7.     ss yf "^[^     /]+"
  8.     setc s0 "\L%z0"
  9.     if f%s0 ll %s0; lput "Delete current %s0 ? "; ife !y goto nil; del %s0
  10.     split y "     " "     " "     "
  11.     : echo "File name is %s0"
  12.     put "\025dow %s0/PRO:B\r"
  13.     pat 1i "Protocol Menu"
  14.     pat 2i "for your computer: "
  15.     pat 3l "Unknown pro"
  16.     wait -f20
  17.     if 3 put "\025dow %s0/PRO:B\r";  wait -f20
  18.     if 1 put "\0252\r"; wait -f20        : tell them B potocol
  19.     if 2 put "\025%s0\r"
  20.     pat
  21.     ena -C
  22.     estimate z2
  23.     return
  24. nil:    echo "No action taken."; return
  25.