home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / SCRIPTS.ZIP / GEKXDL.T < prev    next >
Text File  |  1991-07-30  |  1KB  |  46 lines
  1.     echo "gekxdl.t  GEnie browse/download script   Rev Jul 30 91"
  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.     :: set f9 "@set s5 xxxx; source %lib/gekxdl.t"
  8.     :: Then at the selection, F3 (zmodem) F8 (xmodem) F9 Hayes FAST
  9.     :: Be sure to try different values for the O parameter (OverThruster)
  10.     ::
  11.     if "!h^Number:" echo "Can't find Number"; return
  12.     ss y "(Name: )(.*)"
  13.     setc s0 "\L%z2"
  14.     echo "File name is %s0"
  15.     ss yf "(Bytes: )(.*)"
  16.     ss yf "(Bytes: )(.*)"
  17.     put "d\r"
  18.     pat 1 "eceive file"
  19.     pat 2c "3. YMODEM"
  20.     pat 3 "Which item"
  21.     pat 4c "4. ZMODEM"
  22.     pat 5i "Enter # or <RETURN> to skip"
  23.     wait -f20
  24.     if %s5>3 pat; put "5\r"; rf -y;  return
  25.     estimate z2
  26.     if 4 put "4\r"; pat; ena -yZ; return    : Let AutoDownload do it
  27.     if f%s0 echo "%s0 Exists: No Action taken."; put "\r"; return
  28.     if 1 goto xmodem    : No protocol choice menu
  29.     if 2 put "3\r"
  30.     else goto xmoch
  31.     pat 3 "file!"
  32.     wait -f20
  33.     pat
  34.     if %s5>1 pat; rb -y;  return
  35.     pO30; if S>2400 pO1000
  36.     pat; rb -yo;  return
  37.  
  38. xmoch:    put "2\r"        : Select XMODEM-1k d/l
  39.     wait -f20
  40. xmodem:    pat
  41.     if %s5>1 rc -y "%s0"; goto rr
  42.     ro -y "%s0"
  43. rr:    pat;  pat 1i "RETURN>"
  44.     wait -f15
  45.     put "\r";  pat;  return
  46.