home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / SCRIPTS.ZIP / NEMAIL.T < prev    next >
Encoding:
Text File  |  1994-07-12  |  1.3 KB  |  46 lines
  1.     :: Incoming Compuserve mail
  2.     put "\25g email\r";
  3.     pat
  4.     pat 1 "or HELp"
  5.     pat 3 "  DELete"
  6.     pat 6c "I don't recognize that command." "go email\r"
  7.     pat 7 "? EasyPlex file is busy"
  8.     :: pat 8c "Key H for Help !" "\25g email\r"
  9.     pat 9 "information (Y or N"
  10.     on !c fail
  11.     pat 10c "\nPress <CR>! " "\r"
  12.     wait
  13.     if 9 put "n\r6\r1\r2\r2\r\ry\r"; wait
  14.     if 7 put "\25mic\r"; pat; return
  15.     echoc "*** NEMAIL ***"
  16.     echoc "Welcome to Easyplex (nemail)"
  17.     echoc "#: %h%s Accessed at %t"
  18.     echoc "Sb: Easyplex Message to Forsberg"
  19.     pat 13 "% No messages pending"
  20.     pat 12c "Which message(s) # (or ALL)?" "all\r"
  21.     pat 6c "I don't recognize that command." "read\r"
  22.     sleep 20;  put "read\r"
  23.     pat 10c " Message is Binary \r"
  24.     wait
  25. nemai1:    if 13 goto nemai9
  26.     if !10 goto nemai2
  27.     sets s0 "em/%d%h.%s"
  28.     pat 11 "computer"; put "dow/proto:b\r";  wait -T200
  29.     if !hLength goto nemai3
  30.     ss y "(Length )([0-9]*)"; estimate z2;
  31.     if hSubj: ss y "(Subj: *)([^ ]*)" if %z2 if !f%z2 ss s0 %z2
  32.     echoc "y: %y s0:%s0 z2: %z2"
  33. nemai3:    ena -c; put "%s0\r"; wait -T200; dis -c
  34. nemai2:    put "\25del\r"
  35.     echoc "Easyplex (nemail)"
  36.     echoc "#: %h%s Accessed at %t"
  37.     echoc "Sb: Easyplex Message to Forsberg"
  38.     wait -f30
  39.     if 6 put "\25del\r"; wait -f20
  40.     if 6 o; return
  41.     if 3 goback nemai1
  42. nemai9:    echoc "*** NEMAIL ENDS ***"
  43.     put "\25TOP\r"
  44.     return
  45.  
  46.