home *** CD-ROM | disk | FTP | other *** search
/ The First Hungarian Family / The_First_Hungarian_Family_CD-ROM.bin / internet / offlread / 1st200 / a / cammail.scr < prev    next >
Text File  |  1995-07-19  |  1KB  |  66 lines
  1. '       ┌────────────────────────────────────┐
  2. '       │ Cam-Mail 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 Cam-Mail Door"
  25. DOORNAME "MAIL"
  26. TRANSMIT "@QMAIL@^M"
  27. PAUSE 2
  28.  
  29. :REPLIES
  30. IF NOT REPLIES THEN GOTO DOWNLOAD
  31. WAITFOR "Command?" 20
  32. TRANSMIT "U^M"
  33. COMMENT "@DATE@ @TIME@  Uploading replies"
  34. WAITFOR "@API$(10).REP Using"
  35. UPLOAD @REPDIR@@BBSID@.REP
  36. WAITFOR "Successful|Failed"
  37. IF FOUND=2 THEN GOTO DOWNLOAD
  38. COMMENT "@DATE@ @TIME@  Deleting @BBSID@.REP"
  39. KILL @REPDIR@@BBSID@.REP
  40. COUNT REP
  41.  
  42. :DOWNLOAD
  43. WAITFOR "Command?" 20
  44. IF SCR_REPLY THEN GOTO GOODBYE
  45. TRANSMIT "D;Y;G^M"
  46. COMMENT "@DATE@ @TIME@  Scanning for new messages"
  47. WAITFOR "@API$(10).QWK|Command?"
  48. IF FOUND=2 THEN GOTO GOODBYE
  49. DOWNLOAD @PACKETDIR@@BBSID@.QWK
  50. COUNT QWK
  51. GOTO EXIT
  52.  
  53. :GOODBYE
  54. COMMENT "@DATE@ @TIME@  Transmitting GOODBYE command"
  55. TRANSMIT "G^M"
  56.  
  57. :EXIT
  58. IF SCR_TELNET THEN GOTO DONE
  59. COMMENT "@DATE@ @TIME@  Waiting for disconnect"
  60. PAUSE 2
  61.  
  62. :DONE
  63. CAPTURE OFF
  64. EXIT
  65.  
  66.