home *** CD-ROM | disk | FTP | other *** search
/ The First Hungarian Family / The_First_Hungarian_Family_CD-ROM.bin / internet / offlread / 1st200 / a / kmail.scr < prev    next >
Text File  |  1995-07-19  |  1KB  |  71 lines
  1. '       ┌────────────────────────────┐
  2. '       │ Kmail 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 Kmail Door"
  25. DOORNAME "KMAIL"
  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.