home *** CD-ROM | disk | FTP | other *** search
/ The First Hungarian Family / The_First_Hungarian_Family_CD-ROM.bin / internet / offlread / 1st200 / a / markmail.scr < prev    next >
Text File  |  1995-07-19  |  1KB  |  69 lines
  1. '       ┌───────────────────────────────┐
  2. '       │ Markmail 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 MarkMail Door"
  25. DOORNAME "MARKMAIL"
  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. IF SCR_TELNET THEN GOTO DONE
  61. PAUSE 5
  62. HANGUP
  63.  
  64. :DONE
  65. CAPTURE OFF
  66. EXIT
  67.  
  68.  
  69.