home *** CD-ROM | disk | FTP | other *** search
/ The First Hungarian Family / The_First_Hungarian_Family_CD-ROM.bin / internet / offlread / 1st200 / a / tbbs-qso.scr < prev    next >
Text File  |  1995-07-19  |  2KB  |  99 lines
  1. '       ┌───────────────────────────────┐
  2. '       │ TBBS-QSO 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. :SETUP
  12. LOOKFOR "Esc" "X'1BX'1B"
  13. LOOKFOR "NO CARRIER" "(HANGUP)"
  14. LOOKFOR "-Press Any Key-" "^M"
  15. LOOKFOR "Read Now(Y/N)?" "N"
  16. LOOKFOR "correct?" "Y^M"
  17. LOOKFOR "ENTER=More" "S"
  18.  
  19. LOCKLINE 20 30
  20. COMMENT "@DATE@ @TIME@  Connected with @BBSNAME@"
  21. COMMENT "@DATE@ @TIME@  Opened capture file @BBSID@.CAP"
  22. COMMENT "@DATE@ @TIME@  Logging in to TBBS"
  23.  
  24. WAITFOR "FULL N|Name? " 50
  25. LOOKFOR "Esc" ""
  26. IF FOUND=0 THEN EXIT
  27. IF FOUND=2 THEN GOTO FIRSTLAST
  28. TRANSMIT; "@USER@^M"
  29. GOTO PASSWORD
  30.  
  31. :FIRSTLAST
  32. TRANSMIT "@FIRST@^M"
  33. WAITFOR "name? " 50
  34. TRANSMIT "@LAST@^M"
  35.  
  36. :PASSWORD
  37. WAITFOR "Password: " 30
  38. COMMENT "@DATE@ @TIME@  Transmitting password"
  39. TRANSMIT "@PASSWORD@^M"
  40.  
  41. IF NOT SCR_CALL THEN GOTO MAIL
  42. TERMINAL
  43. EXIT
  44.  
  45. :MAIL
  46. WAITFOR "Command: " 120
  47. IF FOUND=0 THEN GOTO EXIT
  48. COMMENT "@DATE@ @TIME@  Opening QSO"
  49. DOORNAME "Q"
  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. IF SCR_TELNET THEN GOTO DONE
  92. PAUSE 5
  93. HANGUP
  94.  
  95. :DONE
  96. CAPTURE OFF
  97. EXIT
  98.  
  99.