home *** CD-ROM | disk | FTP | other *** search
/ The First Hungarian Family / The_First_Hungarian_Family_CD-ROM.bin / internet / offlread / 1st200 / a / maximus.scr < prev    next >
Text File  |  1995-07-19  |  2KB  |  83 lines
  1. '       ┌───────────────────────────────┐
  2. '       │ 1stReader Mail script         │
  3. '       │ For Maximus                   │
  4. '       │ July 20, 1995                 │
  5. '       └───────────────────────────────┘
  6.  
  7. IF SCR_CALL THEN GOTO SETUP
  8. TIMEOUT 30
  9.  
  10. :SETUP
  11. LOOKFOR "Esc" "X'1BX'1B"
  12. LOOKFOR "ENTER to continue" "^M"
  13. LOOKFOR "able protocols:" "Z^M"
  14.  
  15. LOCKLINE 20 30
  16. COMMENT "@DATE@ @TIME@  Connected with @BBSNAME@"
  17. COMMENT "@DATE@ @TIME@  Opened capture file @BBSID@.CAP"
  18. COMMENT "@DATE@ @TIME@  Logging in to system"
  19.  
  20. WAITFOR "name:"
  21. LOOKFOR "Esc" ""
  22. TRANSMIT "@USER@^M"
  23. WAITFOR "[Y,n]?"
  24. TRANSMIT "Y^M"
  25. WAITFOR "Password:"
  26. TRANSMIT "@PASSWORD@^M"
  27.  
  28. LOOKFOR "Escape" ""
  29. IF NOT SCR_CALL THEN GOTO MAIL
  30. TERMINAL
  31. EXIT
  32.  
  33. :MAIL
  34. LOOKFOR "[Y,n]?" "N^M"
  35. LOOKFOR "(Y,n)" "N^M"
  36.  
  37. WAITFOR "Select:"
  38.  
  39. COMMENT "@DATE@ @TIME@  Selecting offline mail system"
  40. TRANSMIT "O^M"
  41.  
  42. LOOKFOR "[Y,n]?" ""
  43. LOOKFOR "(Y,n)" ""
  44.  
  45. :REPLIES
  46. IF NOT REPLIES THEN GOTO DOWNLOAD
  47. COMMENT "@DATE@ @TIME@  Uploading replies"
  48. WAITFOR "Select:"
  49. TRANSMIT "U^M"
  50. WAITFOR "cancel." 10
  51. UPLOAD @REPDIR@@BBSID@.REP
  52. WAITFOR "Tossing|Error"
  53. IF FOUND=1 THEN GOTO GOODUPLD
  54. GOTO DOWNLOAD
  55.  
  56. :GOODUPLD
  57. COMMENT "@DATE@ @TIME@  Deleting @BBSID@.REP"
  58. KILL @REPDIR@@BBSID@.REP
  59. COUNT REP
  60.  
  61. :DOWNLOAD
  62. WAITFOR "Select:"
  63. IF SCR_REPLY THEN GOTO EXIT1
  64. TRANSMIT "D^M"
  65. COMMENT "@DATE@ @TIME@  Scanning for new messages"
  66. WAITFOR "format [Y,n]?|Select:"
  67. IF FOUND=2 THEN GOTO EXIT1
  68.  
  69. TRANSMIT "Y^M"
  70. WAITFOR "to abort:"
  71. TRANSMIT "^M"
  72. DOWNLOAD @PACKETDIR@@BBSID@.QWK
  73. COUNT QWK
  74.  
  75. :EXIT
  76. WAITFOR "Select:" 20
  77. :EXIT1
  78. COMMENT "@DATE@ @TIME@  Waiting for disconnect"
  79. TRANSMIT "G;Y;N^M"
  80. PAUSE 10
  81.  
  82. CAPTURE OFF
  83.