home *** CD-ROM | disk | FTP | other *** search
/ The First Hungarian Family / The_First_Hungarian_Family_CD-ROM.bin / internet / offlread / 1st200 / a / tcon.scr < prev    next >
Text File  |  1995-07-19  |  2KB  |  127 lines
  1. '       ┌────────────────────────────────────┐
  2. '       │ Trader's Post script for 1stReader │
  3. '       │ July 20, 1995                      │
  4. '       └────────────────────────────────────┘
  5.  
  6. TIMEOUT 90
  7.  
  8. IF SCR_CALL THEN GOTO SETUP
  9. KILL @API$(28)@API$(10).DL
  10.  
  11. :SETUP
  12.  
  13. LOCKLINE 20 30
  14. COMMENT "@DATE@ @TIME@  Connected with @BBSNAME@"
  15. IF NOT SCR_CALL THEN COMMENT "@DATE@ @TIME@  Opened capture file @BBSID@.CAP"
  16. COMMENT "@DATE@ @TIME@  Logging in to Trader's Post"
  17.  
  18. WAITFOR "Or Enter Account #"
  19. TRANSMIT; "@USER@^M"
  20. WAITFOR "Password:" 30
  21. COMMENT "@DATE@ @TIME@  Transmitting password"
  22. TRANSMIT "@PASSWORD@^M"
  23.  
  24. IF NOT SCR_CALL THEN GOTO DOOR
  25. IF SCR_SERVER THEN GOTO DOOR
  26. TERMINAL
  27. GOTO EXIT
  28.  
  29. :DOOR
  30. WAITFOR "<CR>"
  31. IF SCR_SERVER THEN GOTO TELNET
  32. TRANSMIT "GO QWK^M"
  33. WAITFOR "QWK>"
  34.  
  35. :REPLIES
  36. IF NOT REPLIES THEN GOTO DOWNLOAD
  37. TRANSMIT "U^M"
  38. COMMENT "@DATE@ @TIME@  Uploading replies"
  39. WAITFOR "60 seconds"
  40. UPLOAD @REPDIR@@BBSID@.REP
  41. WAITFOR "SUCCESS!|UNSUCCESSFUL!" 180
  42. IF FOUND=1 THEN GOTO GOODUPLD
  43. GOTO HOLDIT
  44.  
  45. :GOODUPLD
  46. COMMENT "@DATE@ @TIME@  Deleting @BBSID@.REP"
  47. KILL @REPDIR@@BBSID@.REP
  48. COUNT REP
  49.  
  50. :HOLDIT
  51. WAITFOR "QWK>" 20
  52.  
  53. :DOWNLOAD
  54. IF SCR_REPLY THEN GOTO DONE
  55. TRANSMIT "D^M"
  56. WAITFOR "PROTOCOL:|Transmission aborted"
  57. IF FOUND=2 THEN GOTO DONE
  58. DOWNLOAD @FILEDIR@@BBSID@.QWK
  59. COUNT QWK
  60.  
  61. :GOODBYE
  62. WAITFOR "QWK>" 180
  63.  
  64. :DONE
  65. TRANSMIT "G^M"
  66.  
  67. :EXIT
  68. PAUSE 20
  69. CAPTURE OFF
  70. EXIT
  71.  
  72. :TELNET
  73. LOOKFOR "<CR>" "^M"
  74. SET_API(193)=2
  75. SET_API(265)=5
  76. LET A=1
  77.  
  78. TRANSMIT "GO INTERNET^M"
  79. WAITFOR "INTERNET>" 60
  80. IF FOUND=0 THEN EXIT
  81.  
  82. TRANSMIT "T^M"
  83. WAITFOR "TELNET>" 60
  84. IF FOUND=0 THEN EXIT
  85. LOOKFOR "<CR>" ""
  86.  
  87. :TEL_CALL
  88.  
  89. TRANSMIT "C^M"
  90. WAITFOR "TELNET>" 60
  91. IF FOUND=0 THEN EXIT
  92.  
  93. TRANSMIT "@TELNET@^M"
  94. WAITFOR "TELNET>"
  95. TRANSMIT "^M"
  96. WAITFOR "client connection|TELNET>"
  97. IF FOUND=2 THEN GOTO TEL_HANGUP
  98.  
  99. WAITFOR "BUSY|No servers|Remote side disconnected|Couldn't get" 10
  100. IF FOUND=0 THEN GOTO TEL_SWAP
  101.  
  102. :TEL_DISCONNECT
  103. PAUSE @API(265)
  104. LET A=VAR_A+1
  105. COMPARE VAR_A @API(193)
  106. IF GREATER THEN GOTO TEL_LOGOFF
  107. WAITFOR "TELNET>" 10
  108. GOTO TEL_CALL
  109.  
  110. :TEL_SWAP
  111. SWAP_SYS
  112.  
  113. :TEL_LOGOFF
  114. RESET
  115. WAITFOR "TELNET>" 60
  116. TRANSMIT "G^M"
  117.  
  118. :TEL_HANGUP
  119. RESET
  120. WAITFOR "log off from TCON?" 20
  121. IF FOUND=1 THEN TRANSMIT "Y^M"
  122.  
  123. WAITFOR "Thank you" 10
  124. HANGUP
  125. EXIT
  126.  
  127.