home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / SCRIPTS.ZIP / KCISDL.T < prev    next >
Encoding:
Text File  |  1995-04-05  |  963 b   |  29 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.     :  Text, Bytes:    33420, Count:     2, 21-Mar-95
  11.     if !hBytes 
  12.     split y "     " "     :" ",:     "
  13.     : echo "y: %y z1 %z1 z2 %z2"
  14.     : echo "File name is %s0"
  15.     put "\025dow %s0/PRO:B\r"
  16.     pat 1i "Protocol Menu"
  17.     pat 2i "for your computer: "
  18.     pat 3l "Unknown pro"
  19.     wait -f20
  20.     if 3 put "\025dow %s0/PRO:B\r";  wait -f20
  21.     if 1 put "\0252\r"; wait -f20        : tell them B potocol
  22.     if 2 put "\025%s0\r"
  23.     pat
  24.     :lput "\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n"
  25.     ena -C
  26.     estimate z2
  27.     return
  28. nil:    echo "No action taken."; return
  29.