home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / 1STDEAL.ZIP / 1ST-112.ZIP / SCRIPTS.ZIP / CAMMAIL.SCR < prev    next >
Encoding:
Text File  |  1993-05-23  |  1.3 KB  |  62 lines
  1. '       ┌────────────────────────────────────┐
  2. '       │ Cam-Mail mail script for 1stReader │
  3. '       │ May 15th, 1993                     │
  4. '       └────────────────────────────────────┘
  5.  
  6. IF SCR_CALL THEN GOTO SETUP
  7. CAPTURE ON
  8. KILL @API$(28)@API$(10).DL
  9. NEWFILES ON
  10.  
  11. :SETUP
  12. CALL $$PCB.SCR
  13.  
  14. IF NOT SCR_CALL THEN GOTO JOINCONF
  15. TERMINAL
  16. EXIT
  17.  
  18. :JOINCONF
  19. COMMENT "@DATE@ @TIME@  Joining conference #@CONFERENCE@"
  20. TRANSMIT "J @CONFERENCE@ Q - 1stReader #@API$(121)^M"
  21. WAITFOR "=yes?" 3
  22. IF FOUND=1 THEN TRANSMIT "N^M"
  23.  
  24. :DOOR
  25. COMMENT "@DATE@ @TIME@  Opening Cam-Mail Door"
  26. TRANSMIT "@QMAIL@^M"
  27.  
  28. :REPLIES
  29. IF NOT REPLIES THEN GOTO DOWNLOAD
  30. WAITFOR "Command?" 20
  31. TRANSMIT "U^M"
  32. COMMENT "@DATE@ @TIME@  Uploading replies"
  33. WAITFOR "@API$(10).REP Using"
  34. UPLOAD @REPDIR@@BBSID@.REP
  35. WAITFOR "Successful|Failed"
  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;Y;G^M"
  45. COMMENT "@DATE@ @TIME@  Scanning for new messages"
  46. WAITFOR "@API$(10).QWK|Command?"
  47. IF FOUND=2 THEN GOTO GOODBYE
  48. DOWNLOAD @PACKETDIR@@BBSID@.QWK
  49. COUNT QWK
  50. GOTO EXIT
  51.  
  52. :GOODBYE
  53. COMMENT "@DATE@ @TIME@  Transmitting GOODBYE command"
  54. TRANSMIT "G^M"
  55.  
  56. :EXIT
  57. COMMENT "@DATE@ @TIME@  Waiting for disconnect"
  58. PAUSE 2
  59.  
  60. CAPTURE OFF
  61.  
  62.