home *** CD-ROM | disk | FTP | other *** search
/ The First Hungarian Family / The_First_Hungarian_Family_CD-ROM.bin / internet / offlread / 1st200 / a / major.scr < prev    next >
Text File  |  1995-07-19  |  2KB  |  71 lines
  1. '       ┌───────────────────────────────┐
  2. '       │ MajorBBS script for 1stReader │
  3. '       │ July 20, 1995                 │
  4. '       └───────────────────────────────┘
  5.  
  6. IF SCR_CALL THEN GOTO SETUP
  7. CAPTURE ON
  8. KILL @API$(28)@API$(10).DL
  9.  
  10. :SETUP
  11. LOOKFOR "or (C)ontinue?" "Q"
  12. LOOKFOR "now (Y/N)?" "N^M"
  13.  
  14. LOCKLINE 20 30
  15. COMMENT "@DATE@ @TIME@  Connected with @BBSNAME@"
  16. COMMENT "@DATE@ @TIME@  Opened capture file @BBSID@.CAP"
  17. COMMENT "@DATE@ @TIME@  Logging in to system"
  18.  
  19. WAITFOR "RETURN"
  20. WAITFOR "new"
  21. TRANSMIT "X'08X'08X'08X'08X'08X'08X'08X'08@USER@^M"
  22. WAITFOR "password:"
  23. TRANSMIT "@PASSWORD@^M"
  24.  
  25. WAITFOR "(TOP)|Exit:"
  26. IF FOUND=1 THEN WAITFOR "exit):"
  27. TRANSMIT "Q^M"
  28.  
  29. IF NOT REPLIES THEN GOTO DOWNLOAD
  30. WAITFOR " to exit:"
  31. COMMENT "@DATE@ @TIME@  Uploading replies"
  32. TRANSMIT "U^M"
  33. WAITFOR " to exit):"
  34. TRANSMIT "Z^M"
  35. WAITFOR "@BBSID@.REP"
  36. UPLOAD @REPDIR@@BBSID@.REP
  37. WAITFOR "been accepted|been posted"
  38. COMMENT "@DATE@ @TIME@  Deleting replies"
  39. KILL @REPDIR@@BBSID@.REP
  40. COUNT REP
  41. IF SCR_REPLY THEN GOTO LOGOFF
  42.  
  43. :DOWNLOAD
  44. IF FOUND=0 THEN GOTO DOWNLOAD
  45. COMMENT "@DATE@ @TIME@  Scanning for new messages"
  46. TRANSMIT "D^M"
  47. WAITFOR "found: 0|ready for download"
  48. IF FOUND=1 THEN GOTO LOGOFF
  49. WAITFOR " to exit):"
  50. TRANSMIT "Z^M"
  51. WAITFOR "@BBSID@.QWK"
  52. COMMENT "@DATE@ @TIME@  Downloading @BBSID@.QWK"
  53. DOWNLOAD @FILEDIR@@BBSID@.QWK
  54. TRANSMIT "^M"
  55. WAITFOR "to exit:|exit):" 10
  56. GOTO LOGOFF1
  57.  
  58. :LOGOFF
  59. WAITFOR "exit:" 30
  60. TRANSMIT "X^M"
  61. WAITFOR "exit:|exit):" 30
  62.  
  63. :LOGOFF1
  64. COMMENT "@DATE@ @TIME@  Disconnecting"
  65. TRANSMIT "X^M"
  66. WAITFOR "re-logon)?"
  67. TRANSMIT "Y^M"
  68.  
  69. CAPTURE OFF
  70. EXIT
  71.