home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / 1STDEAL.ZIP / 1ST-112.ZIP / SCRIPTS.ZIP / TBBS-QSO.SCR < prev    next >
Encoding:
Text File  |  1993-05-23  |  1.8 KB  |  95 lines
  1. '       ┌───────────────────────────────┐
  2. '       │ TBBS-QSO script for 1stReader │
  3. '       │ May 15th, 1993                │
  4. '       └───────────────────────────────┘
  5.  
  6. TIMEOUT 30
  7.  
  8. IF SCR_CALL THEN GOTO SETUP
  9. CAPTURE ON
  10. KILL @API$(28)@API$(10).DL
  11.  
  12. :SETUP
  13. LOOKFOR "Esc" "X'1BX'1B"
  14. LOOKFOR "NO CARRIER" "(HANGUP)"
  15. LOOKFOR "-Press Any Key-" "^M"
  16. LOOKFOR "Read Now(Y/N)?" "N"
  17. LOOKFOR "correct?" "Y^M"
  18. LOOKFOR "(S=Stop)-" "S"
  19.  
  20. LOCKLINE 20 30
  21. COMMENT "@DATE@ @TIME@  Connected with @BBSNAME@"
  22. COMMENT "@DATE@ @TIME@  Opened capture file @BBSID@.CAP"
  23. COMMENT "@DATE@ @TIME@  Logging in to TBBS"
  24.  
  25. WAITFOR "FULL N|Name? " 50
  26. LOOKFOR "Esc" ""
  27. IF FOUND=0 THEN EXIT
  28. IF FOUND=2 THEN GOTO FIRSTLAST
  29. TRANSMIT; "@USER@^M"
  30. GOTO PASSWORD
  31.  
  32. :FIRSTLAST
  33. TRANSMIT "@FIRST@^M"
  34. WAITFOR "name? " 50
  35. TRANSMIT "@LAST@^M"
  36.  
  37. :PASSWORD
  38. WAITFOR "Password: " 30
  39. COMMENT "@DATE@ @TIME@  Transmitting password"
  40. TRANSMIT "@PASSWORD@^M"
  41.  
  42. IF NOT SCR_CALL THEN GOTO MAIL
  43. TERMINAL
  44. EXIT
  45.  
  46. :MAIL
  47. WAITFOR "Command: " 120
  48. IF FOUND=0 THEN GOTO EXIT
  49. COMMENT "@DATE@ @TIME@  Opening QSO"
  50. TRANSMIT "@QMAIL@"
  51.  
  52. :UPLD
  53. IF NOT REPLIES GOTO DOWNLOAD
  54. COMMENT "@DATE@ @TIME@  Uploading replies"
  55. WAITFOR "Command? "
  56. TRANSMIT "U"
  57. UPLOAD @REPDIR@@BBSID@.REP
  58. WAITFOR "file complete|uploaded archive"
  59. IF FOUND=1 THEN GOTO UPKILL
  60. IF FOUND=2 THEN GOTO UPERROR
  61. GOTO DOWNLOAD
  62.  
  63. :UPKILL
  64. COMMENT "@DATE@ @TIME@  Deleting @BBSID@.REP"
  65. KILL @REPDIR@@BBSID@.REP
  66. TRANSMIT "^M"
  67.  
  68. :UPERROR
  69. TRANSMIT "^M"
  70.  
  71. :DOWNLOAD
  72. WAITFOR "Command? "
  73. IF SCR_REPLY THEN GOTO GOODBYE
  74. TRANSMIT "D"
  75. WAITFOR "messages (Y/N)?|no new mes"
  76. IF FOUND=1 THEN GOTO DLCONT
  77. TRANSMIT "^M"
  78. GOTO GOODBYE
  79.  
  80. :DLCONT
  81. TRANSMIT "Y"
  82. COMMENT "@DATE@ @TIME@  Downloading messages"
  83. WAITFOR "@BBSID@.Q"
  84. DOWNLOAD @FILEDIR@@BBSID@.QWK
  85. WAITFOR "Command?" 20
  86.  
  87. :GOODBYE
  88. TRANSMIT "G"
  89.  
  90. :EXIT
  91. PAUSE 5
  92. HANGUP
  93.  
  94. CAPTURE OFF
  95.