home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / comm / zcm_scrp.zip / GEMAILD.T < prev    next >
Text File  |  1989-11-21  |  1KB  |  59 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 9 check for a waiting XMODEM file
  11.         put "%ldel\336m200:12\r"
  12.     echo "*** GEMAILD.T ***"
  13.     echoc "Welcome to GE Mail"
  14.     pat 0i "%pr"
  15.     : wait
  16.         : put "%ldel\3361\r"
  17.     pat 1c "\nQuitting.."
  18.     wait
  19.     if 1 goto rdmail
  20.     put "q\r";  wait;  goto rdmail        : temp hack
  21.  
  22.     echoc "#: Accessed at %t"
  23.     echoc "Sb: GE XMODEM file to DOWNLOAD"
  24.          if "hQueue#"
  25.     if !jyf,File put "q\r"; goto alldone
  26.     sets s0 "em/%d%h.%s"        : default receive file name
  27.     ss y "(File: )([^     ]*)"        : parse file name
  28.     if !f%z2 sets s0 "%z2"        : use file name if unique
  29.     put "1\r"
  30.     pat 1 "ve file.\r\n"
  31.     wait
  32.     rc %s0                : receive file
  33.     pat 1$ " <RETURN>%pr"
  34.     wait
  35.     put "\r"
  36.     pat 1$ "her (Y/N)%pr"
  37.     wait
  38.     put "n\r"
  39.     pat 1i "or <H>elp"
  40.     wait
  41.         put "%ldel\336m1\r"
  42.     wait
  43.     goto restart
  44.  
  45. rdmail:    put "%ldel\3362\r"
  46.     echoc "#: Accessed at %t"
  47.     echoc "Sb: GE Mail Message"
  48. rmail1:    pat 1l "\nItem "
  49.     wait
  50.     w
  51.     if 0 goto alldone
  52.     pat 1i "\n=END=\r"
  53.     wait
  54.     echoc "#: Accessed at %t"
  55.     echoc "Welcome to GE Mail"
  56.     goback rmail1
  57. alldone:    echoc "GE Mail ENDS"
  58.     return
  59.