home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / SCRIPTS.ZIP / GEMAILD.T < prev    next >
Text File  |  1991-06-25  |  1KB  |  58 lines
  1. ::  Rev 05-12-89
  2. :: This one is a file named "gemaild.t" and it goes in %lib
  3. :: It assumes GEnie is at a prompt that will accept an "m##"
  4. :: and that the letter waiting message was seen. %pr is prompt.
  5. ::
  6.     ki
  7.     if !r create -+ ge0000.tmp    : make sure capture file is open
  8.     on !c fail
  9. restart:        pattern
  10.     : Page 200 choice 12 receive a waiting XMODEM file
  11.         put "m200:12\r"
  12.     echo "*** GEMAILD.T ***"
  13.     pat 0i "%pr"
  14.     pat 1c "\nQuitting.."
  15.     pat 2c "Choice no good, Please try again." "m200:12\r"
  16.     wait
  17.     if 1 goto rdmail
  18.     put "q\r";  wait;  goto rdmail        : temp hack
  19.  
  20.     echoc "#: Accessed at %t"
  21.     echoc "Sb: GE XMODEM file to DOWNLOAD"
  22.          if "hQueue#"
  23.     if !jyf,File put "q\r"; goto alldone
  24.     sets s0 "em/%d%h.%s"        : default receive file name
  25.     ss y "(File: )([^     ]*)"        : parse file name
  26.     if !f%z2 sets s0 "%z2"        : use file name if unique
  27.     put "1\r"
  28.     pat 1 "ve file.\r\n"
  29.     wait
  30.     rc %s0                : receive file
  31.     pat 1$ " <RETURN>%pr"
  32.     wait
  33.     put "\r"
  34.     pat 1$ "her (Y/N)%pr"
  35.     wait
  36.     put "n\r"
  37.     pat 1i "or <H>elp"
  38.     wait
  39.         put "m1\r"
  40.     wait
  41.     goto restart
  42.  
  43. rdmail:    put "2\r"
  44.     pat 2c "Choice no good, Please try again." "2\r"
  45.     echoc "#: Accessed at %t"
  46.     echoc "Sb: GE Mail Message"
  47. rmail1:    pat 1l "\nItem "
  48.     wait
  49.     w
  50.     if 0 goto alldone
  51.     pat 1i "\n=END=\r"
  52.     wait
  53.     echoc "#: Accessed at %t"
  54.     echoc "Welcome to GE Mail"
  55.     goback rmail1
  56. alldone:    echoc "GE Mail ENDS"
  57.     return
  58.