home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / comm / zcm_scrp.zip / BIXMAILD.T < prev    next >
Text File  |  1989-11-21  |  520b  |  23 lines
  1. ::
  2. :: "bixmaild.t" goes in %lib  Download and DELETE BIX Mail Items
  3. ::
  4.     echo "Incoming mail:"
  5.     if !r create -+ bix0000.tmp    : make sure capture file is open
  6.     if !is9,Mail put "mail\r"; set s9 "Mail"
  7.     set s8 ""
  8.     pattern
  9.     pat 1$ "\nMail:"
  10.     pat 3c "\nNothing in In-Basket" "@set s8 nomail"
  11.     pat 4c "\nNo more unread messages." "@set s8 done"
  12. loop:    wait
  13.     if %s8 goto done
  14.     pat 2$ "\nread/action:"
  15.     put "\r"
  16.     wait
  17.     if %s8 goto done
  18.     if 2 put "delete\r"
  19.     goback loop
  20.  
  21. done:    echo "bixmaild.t done"
  22.     return
  23.