home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / comm / zcm_scrp.zip / GEKXDL.T < prev    next >
Text File  |  1989-11-21  |  1KB  |  43 lines
  1.     echo "gekxdl.t  GEnie browse/download script   Rev 7-09-89"
  2.     :: This Pro-YAM/ZCOMM script downloads a file after it is listed by
  3.     :: the GEnie browse or download menu choices with XMODEM (OverThruster).
  4.     ::    Enable this with:
  5.     :: set f3 "@set s5 xx; source %lib/gekxdl.t"
  6.     :: set f8 "@set s5 x; source %lib/gekxdl.t"
  7.     :: Then at the selection, F3 or F8 grabs the file.
  8.     :: Be sure to try different values for the O parameter (OverThruster)
  9.     ::
  10.     if "!h^Number:" echo "Can't find Number"; return
  11.     ss y "(Name: )(.*)"
  12.     setc s0 "\L%z2"
  13.     echo "File name is %s0"
  14.     ss yf "(Bytes: )(.*)"
  15.     ss yf "(Bytes: )(.*)"
  16.     put "d\r"
  17.     pat 1 "eceive file"
  18.     pat 2c "3. YMODEM"
  19.     pat 3 "Which item"
  20.     pat 4c "4. ZMODEM"
  21.     wait -f20
  22.     estimate z2
  23.     if 4 put "4\r"; pat; ena -yZ; return    : Let AutoDownload do it
  24.     if f%s0 echo "%s0 Exists: No Action taken."; put "\r"; return
  25.     if 1 goto xmodem    : No protocol choice menu
  26.     if 2 put "3\r"
  27.     else goto xmoch
  28.     pat 3 "file!"
  29.     wait -f20
  30.     pat
  31.     if %s5>1 pat; rb -y;  return
  32.     pO30; if S>2400 pO1000
  33.     pat; rb -yo;  return
  34.  
  35. xmoch:    put "2\r"        : Select XMODEM-1k d/l
  36.     wait -f20
  37. xmodem:    pat
  38.     if %s5>1 rc -y "%s0"; goto rr
  39.     ro -y "%s0"
  40. rr:    pat;  pat 1i "RETURN>"
  41.     wait -f15
  42.     put "\r";  pat;  return
  43.