home *** CD-ROM | disk | FTP | other *** search
/ The First Hungarian Family / The_First_Hungarian_Family_CD-ROM.bin / internet / offlread / 1st200 / a / tsx.scr < prev    next >
Text File  |  1995-07-19  |  3KB  |  153 lines
  1. '       ┌──────────────────────────────┐
  2. '       │ TSX BBS script for 1stReader │
  3. '       │ July 20, 1995                │
  4. '       └──────────────────────────────┘
  5.  
  6. TIMEOUT 30
  7.  
  8. IF SCR_CALL THEN GOTO SETUP
  9. KILL @API$(28)@API$(10).DL
  10.  
  11. LOOKFOR "-press a key to continue-" "^M"
  12.  
  13. :SETUP
  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 TSX"
  18.  
  19. WAITFOR "Logon please:|name:" 50
  20. IF FOUND=0 THEN EXIT
  21. IF FOUND=2 THEN GOTO LOGIN
  22. TRANSMIT "BBS^M"
  23.  
  24. WAITFOR "First name:" 30
  25. IF FOUND=0 THEN EXIT
  26.  
  27. :LOGIN
  28. COMMENT "@DATE@ @TIME@  Transmitting login"
  29. TRANSMIT "@USER@^M"
  30.  
  31. WAITFOR "Password: " 30
  32. COMMENT "@DATE@ @TIME@  Transmitting password"
  33. TRANSMIT "@PASSWORD@^M"
  34.  
  35. IF NOT SCR_CALL THEN GOTO COMMAND
  36. TERMINAL
  37. EXIT
  38.  
  39. :COMMAND
  40. WAITFOR "([Y]es/[N]o)|oodbye" 120
  41. IF FOUND=0 THEN GOTO EXIT
  42. IF FOUND=2 THEN GOTO SEND_COMMAND
  43. TRANSMIT "N"
  44. GOTO COMMAND
  45.  
  46. :SEND_COMMAND
  47. IF SCR_SERVER THEN GOTO TELNET
  48. COMMENT "@DATE@ @TIME@  Selecting QWK system"
  49. TRANSMIT "Q"
  50.  
  51. :UPLD
  52. IF NOT REPLIES GOTO DOWNLOAD
  53. COMMENT "@DATE@ @TIME@  Uploading replies"
  54. WAITFOR "Command? "
  55. TRANSMIT "U"
  56. UPLOAD @REPDIR@@BBSID@.REP
  57. WAITFOR "file complete|uploaded archive"
  58. IF FOUND=1 THEN GOTO UPKILL
  59. IF FOUND=2 THEN GOTO UPERROR
  60. GOTO DOWNLOAD
  61.  
  62. :UPKILL
  63. COMMENT "@DATE@ @TIME@  Deleting @BBSID@.REP"
  64. KILL @REPDIR@@BBSID@.REP
  65. TRANSMIT "^M"
  66.  
  67. :UPERROR
  68. TRANSMIT "^M"
  69.  
  70. :DOWNLOAD
  71. IF SCR_REPLY THEN GOTO GOODBYE
  72. TRANSMIT "D"
  73. WAITFOR "([Y]es/[N]o)|no new mes"
  74. IF FOUND=1 THEN GOTO DLCONT
  75. TRANSMIT "^M"
  76. GOTO GOODBYE
  77.  
  78. :DLCONT
  79. TRANSMIT "Y"
  80. COMMENT "@DATE@ @TIME@  Downloading messages"
  81. WAITFOR "@BBSID@.Q"
  82. DOWNLOAD @FILEDIR@@BBSID@.QWK
  83. WAITFOR "uit" 20
  84.  
  85. :GOODBYE
  86. TRANSMIT "G"
  87. WAITFOR "([Y]es/No):" 20
  88. TRANSMIT "Y"
  89.  
  90. :EXIT
  91. IF SCR_TELNET THEN GOTO DONE
  92. PAUSE 5
  93. HANGUP
  94.  
  95. :DONE
  96. CAPTURE OFF
  97. EXIT
  98.  
  99. '--------------------------------------------------------------------------
  100.  
  101. :TELNET
  102. COMMENT "@DATE@ @TIME@  Selecting telnet server"
  103. SET_API(193)=4
  104. SET_API(265)=5
  105. LET A=1
  106. TRANSMIT "I"
  107.  
  108. :TEL_CALL
  109. WAITFOR "uit" 50
  110. TRANSMIT "T"
  111. WAITFOR "book:"
  112.  
  113. COMMENT "@DATE@ @TIME@  Transmitting address"
  114. TRANSMIT "@TELNET@^M"
  115. WAITFOR "begin session|Sorry, unable"
  116. IF FOUND=2 THEN GOTO TEL_LOGOFF
  117.  
  118. TRANSMIT "^M"
  119. WAITFOR "[Binary|BUSY" 20
  120. IF FOUND=2 THEN GOTO TEL_DISCONNECT
  121. WAITFOR "BUSY|No servers|Remote side disconnected" 10
  122. IF FOUND=0 THEN GOTO TEL_SWAP
  123. IF NOT FOUND=3 THEN WAITFOR "Remote side disconnected" 20
  124.  
  125. :TEL_DISCONNECT
  126. COMMENT "@DATE@ @TIME@  Disconnecting from telnet"
  127. WAITFOR "continue:" 20
  128. PAUSE @API(265)
  129. TRANSMIT "^M"
  130. LET A=VAR_A+1
  131. COMPARE VAR_A @API(193)
  132. IF NOT GREATER THEN GOTO TEL_CALL
  133. GOTO TEL_LOGOFF
  134.  
  135. :TEL_SWAP
  136. COMMENT "@DATE@ @TIME@  Connection established"
  137. SWAP_SYS
  138. WAITFOR "continue:" 20
  139. TRANSMIT "^M"
  140.  
  141. :TEL_LOGOFF
  142. WAITFOR "uit" 20
  143. TRANSMIT "Q"
  144.  
  145. WAITFOR "oodbye" 20
  146. TRANSMIT "G"
  147. WAITFOR "([Y]es/[N]o):" 20
  148. TRANSMIT "Y"
  149.  
  150. :EXIT
  151. EXIT
  152.  
  153.