Category : Communication (modem) tools and utilities
Archive   : ZMSCRIP.ZIP
Filename : XKCISDL.T

:: This script downloads a file after it is listed by the
:: Compuserve SIG "bro" command with XMODEM OverThruster.
:: Enable this with:
:: set f8 "@source xkcisdl.t"
:: Then "bro" and at each SIG download prompt, F3 grabs the file.
:: Note - to "clean up" the display change the "pat 1i" to "pat 1"
:: and likewise the line below it, by delaying YAM's responses.
::
if !h^\[ echo "Can't find Project Programmer Number"; return
ss yf "^[^ /]+"
setc s0 "\L%z0"
if f%s0 echo "%s0 Exists: No Action taken."; return
echo "File name is %s0"
split y " " " " " "
put "\025dow %s0/proto:xmodem\r"
pat 1i "Protocol Menu"
pat 2 "complete."
wait -f20
if 1 put "\0251\r"; wait -f20 : tell them XMODEM
if !2 return
estimate z2
pat; wait -f2
rc "%s0"
pat; pat 1 "["
put "\025"
while !1 put "\r" wait -f5
pat
return