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