home *** CD-ROM | disk | FTP | other *** search
/ The First Hungarian Family / The_First_Hungarian_Family_CD-ROM.bin / internet / offlread / 1st200 / a / qmail4.scr < prev    next >
Text File  |  1995-07-19  |  2KB  |  95 lines
  1. '       ┌─────────────────────────────────┐
  2. '       │ Qmail 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?|Command" 3
  21. IF FOUND=1 THEN TRANSMIT "N^M"
  22.  
  23. :DOOR
  24. COMMENT "@DATE@ @TIME@  Opening Qmail Door"
  25. DOORNAME "QMAIL4"
  26. TRANSMIT "@QMAIL@ PROMPTS^M"
  27. LOOKFOR "<AUTOSTART>" "X'1B"
  28.  
  29. WAITFOR "Qmail Command?|<KEYFILE>"
  30. LOOKFOR "<AUTOSTART>" ""
  31. IF FOUND=1 THEN GOTO KEYWORDS
  32. COMMAND "@DATE@ @TIME@  Downloading your keyfile"
  33. DOWNLOAD @API$(28)1ST.KEY
  34. WAITFOR "Qmail Command?" 20
  35.  
  36. :KEYWORDS
  37. IF NOT KEYWORDS THEN GOTO REPLIES
  38. TRANSMIT "K^M"
  39. COMMENT "@DATE@ @TIME@  Transmitting keywords"
  40. WAITFOR "<KEYUP>"
  41. UPLOAD @API$(14)KEYWORDS
  42. WAITFOR "Qmail Command?" 20
  43.  
  44. :REPLIES
  45. IF NOT REPLIES THEN GOTO DOWNLOAD
  46. TRANSMIT "U@API$(48)^M"
  47. COMMENT "@DATE@ @TIME@  Uploading replies"
  48. WAITFOR "<UPLOAD>"
  49. UPLOAD @REPDIR@@BBSID@.REP
  50. WAITFOR "DELETE PACKET>|DELETE NO>|BAD UPLD>|MESSAGES INSERTED>|UP ERROR>" 180
  51. IF FOUND=1 THEN GOTO GOODUPLD
  52. IF FOUND=4 THEN GOTO GOODUPLD
  53. GOTO DOWNLOAD
  54.  
  55. :GOODUPLD
  56. COMMENT "@DATE@ @TIME@  Deleting @BBSID@.REP"
  57. KILL @REPDIR@@BBSID@.REP
  58. COUNT REP
  59.  
  60. :DOWNLOAD
  61. WAITFOR "Qmail Command?" 20
  62. IF SCR_REPLY THEN GOTO GOODBYE
  63. TRANSMIT "D@API$(48);Y;G^M"
  64.  
  65. :REPEAT
  66. COMMENT "@DATE@ @TIME@  Scanning for new messages"
  67. WAITFOR "<DOWNLOAD>|<NO TRANSFER>|<NO TIME>"
  68. IF FOUND=1 THEN GOTO GETMAIL
  69. GOTO GOODBYE
  70.  
  71. :GETMAIL
  72. DOWNLOAD @FILEDIR@@BBSID@.QWK
  73. WAITFOR "DL SUCCESS>|DL ERROR>"
  74. IF FOUND=2 THEN GOTO EXIT
  75. COUNT QWK
  76. WAITFOR "<REPEAT>|Command?" 20
  77. IF FOUND=1 THEN GOTO REPEAT
  78.  
  79. :GOODBYE
  80. PAUSE 2
  81. COMMENT "@DATE@ @TIME@  Transmitting GOODBYE command"
  82. TRANSMIT "G^M"
  83.  
  84. :EXIT
  85. IF SCR_TELNET THEN GOTO DONE
  86. COMMENT "@DATE@ @TIME@  Waiting for disconnect"
  87. LOOKFOR "<GOODBYE>" "^M"
  88. WAITFOR "<HANGUP>" 20
  89. PAUSE 2
  90.  
  91. :DONE
  92. CAPTURE OFF
  93. EXIT
  94.  
  95.