home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / 1STDEAL.ZIP / 1ST-112.ZIP / SCRIPTS.ZIP / ROSEMAIL.SCR < prev    next >
Encoding:
Text File  |  1993-05-23  |  1.6 KB  |  74 lines
  1. '       ┌────────────────────────────────────┐
  2. '       │ Rosemail mail 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 Rosemail Door"
  26. TRANSMIT "@QMAIL@ PROMPTS^M"
  27.  
  28. LOOKFOR "<SET TPROT>" "Z^M"
  29. LOOKFOR "<SET COMPRESSOR>" "Z^M"
  30.  
  31. :REPLIES
  32. IF NOT REPLIES GOTO DOWNLOAD
  33. COMMENT "@DATE@ @TIME@  Uploading replies"
  34. WAITFOR "<COMMAND>"
  35. TRANSMIT "U^M"
  36. WAITFOR "<UPLOAD>"
  37. UPLOAD @REPDIR@@BBSID@.REP
  38. WAITFOR "<MESSAGES INSERTED>|<MESSAGES NOT INSERTED>|<BAD UPLD>"
  39. IF FOUND=1 GOTO GOODUPLD
  40. GOTO DOWNLOAD
  41.  
  42. :GOODUPLD
  43. COMMENT "@DATE@ @TIME@  Deleting @BBSID@.REP"
  44. KILL @REPDIR@@BBSID@.REP
  45. COUNT REP
  46.  
  47. :DOWNLOAD
  48. WAITFOR "<COMMAND>"
  49. IF SCR_REPLY THEN GOTO GOODBYE
  50. TRANSMIT "D^M"
  51. COMMENT "@DATE@ @TIME@  Scanning for new messages"
  52. WAITFOR "<DLASK>|<NO TRANSFER>"
  53. IF FOUND=2 THEN GOTO GOODBYE
  54. TRANSMIT "Y^M"
  55. WAITFOR "<DOWNLOAD>|<NO TIME>"
  56. IF FOUND=2 THEN GOTO GOODBYE
  57.  
  58. DOWNLOAD @PACKETDIR@@BBSID@.QWK
  59. WAITFOR "<DL SUCCESS>|<DL ERROR>"
  60. IF FOUND=2 THEN GOTO GOODBYE
  61. COUNT QWK
  62.  
  63. :GOODBYE
  64. WAITFOR "<COMMAND>" 20
  65. COMMENT "@DATE@ @TIME@  Transmitting GOODBYE command"
  66. TRANSMIT "G^M"
  67. COMMENT "@DATE@ @TIME@  Waiting for disconnect"
  68. LOOKFOR "<GOODBYE>" "^M"
  69. WAITFOR "<HANGUP>" 20
  70. PAUSE 2
  71.  
  72. CAPTURE OFF
  73.  
  74.