home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / 1STDEAL.ZIP / 1ST-112.ZIP / SCRIPTS.ZIP / MARKMAIL.SCR < prev    next >
Encoding:
Text File  |  1993-05-23  |  1.3 KB  |  65 lines
  1. '       ┌───────────────────────────────┐
  2. '       │ Markmail script for 1stReader │
  3. '       │ May 15th, 1993                │
  4. '       └───────────────────────────────┘
  5.  
  6. IF SCR_CALL THEN GOTO SETUP
  7. CAPTURE ON
  8. KILL @API$(28)@API$(10).DL
  9. NEWFILES ON
  10.  
  11. :SETUP
  12. CALL $$PCB.SCR
  13.  
  14. IF NOT SCR_CALL THEN GOTO JOINCONF
  15. TERMINAL
  16. EXIT
  17.  
  18. :JOINCONF
  19. COMMENT "@DATE@ @TIME@  Joining conference #@CONFERENCE@"
  20. TRANSMIT "J @CONFERENCE@ Q - 1stReader #@API$(121)^M"
  21. WAITFOR "=yes?" 3
  22. IF FOUND=1 THEN TRANSMIT "N^M"
  23.  
  24. :DOOR
  25. COMMENT "@DATE@ @TIME@  Opening MarkMail Door"
  26. TRANSMIT "@QMAIL@^M"
  27. LOOKFOR ") to continue?" ""
  28.  
  29. :REPLIES
  30. IF NOT REPLIES THEN GOTO DOWNLOAD
  31. COMMENT "@DATE@ @TIME@  Uploading replies"
  32. WAITFOR "MarkMail Command?"
  33. TRANSMIT "U^M"
  34. UPLOAD @REPDIR@@BBSID@.REP
  35. WAITFOR "Messages...|Cannot Insert"
  36. IF FOUND=2 THEN GOTO DOWNLOAD
  37. COMMENT "@DATE@ @TIME@  Deleting @BBSID@.REP"
  38. KILL @REPDIR@@BBSID@.REP
  39. COUNT REP
  40.  
  41. :DOWNLOAD
  42. WAITFOR "Command?" 20
  43. IF SCR_REPLY THEN GOTO GOODBYE
  44. TRANSMIT "D^M"
  45. WAITFOR  "When Done?|No Messages"
  46. IF FOUND=2 THEN GOTO GOODBYE
  47.  
  48. :GETMAIL
  49. TRANSMIT "G^M"
  50. WAITFOR "@BBSID@.QWK"
  51. DOWNLOAD @PACKETDIR@@BBSID@.QWK
  52. COUNT QWK
  53. GOTO EXIT
  54.  
  55. :GOODBYE
  56. WAITFOR "Command?" 20
  57. TRANSMIT "G^M"
  58.  
  59. :EXIT
  60. PAUSE 5
  61. HANGUP
  62.  
  63. CAPTURE OFF
  64.  
  65.