home *** CD-ROM | disk | FTP | other *** search
/ The First Hungarian Family / The_First_Hungarian_Family_CD-ROM.bin / internet / offlread / 1st200 / a / rosemail.scr < prev    next >
Text File  |  1995-07-19  |  2KB  |  92 lines
  1. '       ┌────────────────────────────────────┐
  2. '       │ RoseMail mail script for 1stReader │
  3. '       │ July 20, 1995                      │
  4. '       └────────────────────────────────────┘
  5.  
  6. IF SCR_CALL THEN GOTO SETUP
  7. KILL @API$(28)@API$(10).DL
  8. NEWFILES ON
  9.  
  10. :SETUP
  11. CALL $$PCB.SCR
  12.  
  13. IF NOT SCR_CALL THEN GOTO JOINCONF
  14. TERMINAL
  15. EXIT
  16.  
  17. :JOINCONF
  18. COMMENT "@DATE@ @TIME@  Joining conference #@CONFERENCE@"
  19. TRANSMIT "J @CONFERENCE@ Q - 1stReader #@API$(121)^M"
  20. WAITFOR "=yes?" 3
  21. IF FOUND=1 THEN TRANSMIT "N^M"
  22.  
  23. :DOOR
  24. COMMENT "@DATE@ @TIME@  Opening Rosemail Door"
  25. DOORNAME "ROSEMAIL"
  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.  
  53. '     *** Added the next 6 lines 940508 *************************
  54. GOTO GETMAIL
  55.  
  56. :REPEAT
  57. COMMENT "@DATE@ @TIME@  Repeating scan for additional messages"
  58.  
  59. :GETMAIL
  60. '     ***********************************************************
  61. WAITFOR "<DLASK>|<NO TRANSFER>"
  62. IF FOUND=2 THEN GOTO GOODBYE
  63. TRANSMIT "Y^M"
  64. WAITFOR "<DOWNLOAD>|<NO TIME>"
  65. IF FOUND=2 THEN GOTO GOODBYE
  66.  
  67. DOWNLOAD @FILEDIR@@BBSID@.QWK
  68. WAITFOR "<DL SUCCESS>|<DL ERROR>"
  69. IF FOUND=2 THEN GOTO GOODBYE
  70. COUNT QWK
  71.  
  72. WAITFOR "<REPEAT DOWN>|<COMMAND>" 20
  73. IF FOUND=1 THEN GOTO REPEAT
  74. IF FOUND=2 THEN GOTO GOODBYE
  75.  
  76. :GOODBYE
  77. WAITFOR "<COMMAND>" 20
  78. COMMENT "@DATE@ @TIME@  Transmitting GOODBYE command"
  79. TRANSMIT "G^M"
  80.  
  81. IF SCR_TELNET THEN GOTO DONE
  82. COMMENT "@DATE@ @TIME@  Waiting for disconnect"
  83. LOOKFOR "<GOODBYE>" "^M"
  84. WAITFOR "<HANGUP>" 20
  85. PAUSE 2
  86.  
  87. :DONE
  88. CAPTURE OFF
  89. EXIT
  90.  
  91.  
  92.