home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / 1STDEAL.ZIP / 1ST-112.ZIP / SCRIPTS.ZIP / KMAIL.SCR < prev    next >
Encoding:
Text File  |  1993-05-23  |  1.3 KB  |  71 lines
  1. '       ┌────────────────────────────┐
  2. '       │ Kmail 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 Kmail Door"
  26. TRANSMIT "@QMAIL@^M"
  27. LOOKFOR ") to continue?" ""
  28.  
  29. :REPLIES
  30. IF NOT REPLIES GOTO DOWNLOAD
  31. COMMENT "@DATE@ @TIME@  Uploading replies"
  32. WAITFOR "Kmail Command?"
  33. TRANSMIT "U^M"
  34. WAITFOR "@BBSID@.REP"
  35. UPLOAD @REPDIR@@BBSID@.REP
  36. WAITFOR "successful"
  37. IF FOUND=1 THEN GOTO GOODUPLD
  38. GOTO DOWNLOAD
  39.  
  40. :GOODUPLD
  41. COMMENT "@DATE@ @TIME@  Deleting @BBSID@.REP"
  42. KILL @REPDIR@@BBSID@.REP
  43. COUNT REP
  44.  
  45. :DOWNLOAD
  46. WAITFOR "Kmail Command?" 20
  47. IF SCR_REPLY THEN GOTO GOODBYE
  48. TRANSMIT "D^M"
  49. WAITFOR  "Continue?|When Done?"
  50. IF FOUND=2 THEN GOTO GETMAIL
  51. TRANSMIT "^M"
  52. WAITFOR  "Kmail Command?" 10
  53. GOTO GOODBYE
  54.  
  55. :GETMAIL
  56. TRANSMIT "G^M"
  57. WAITFOR "@BBSID@.QWK"
  58. DOWNLOAD @PACKETDIR@@BBSID@.QWK
  59. COUNT QWK
  60. GOTO EXIT
  61.  
  62. :GOODBYE
  63. TRANSMIT "G^M"
  64.  
  65. :EXIT
  66. PAUSE 5
  67. HANGUP
  68. CAPTURE OFF
  69.  
  70.  
  71.